1 K= INT (C/16),B=C-K*16,K$= CHR$ (K+48+(K>9)*7)+ CHR$ (B+48+(B>9)*7): RETURN
2 CALL G: PRINT MID$ ("NONOUI",3*(K$="O")+1,3): RETURN
3 C= INT (A/256): GOSUB 1: PRINT K$;:C=A-C*256: GOSUB 1: PRINT K$;: RETURN
4 CALL P,A:C= PEEK O: GOSUB 1:B= VAL B$(C): RETURN
5 POKE &6C30,&F5,59,&D4,&EF,&F2,4,&F5,59,&D5,16,3,&6C,2,&A8,&E2,&B5,2,245,38,16
6 POKE &6C44,&6F,87,87,38,35,38,55,4,&EA,&B8,&FD,&84,&F6,58,19,24,&82,10,0,0,&82,53
7 POKE &6C5A,16,&6C,&AF,82,55,4,&EA,&B8,&FD,&84,&F6,58,19,24,&86,10,7,6,19,6,&82,10
8 POKE &6C70,0,0,&82,53,&67,0,41,12,16,&6C,&B0,&86,27,55:G=&6C30,P=&6C4B,O=&6CAF: RETURN
10 " " CLS : WAIT 0: PRINT = PRINT : CLOSE : IF PEEK &6F07+ PEEK &6F08*256=&6000 THEN "I
20 PRINT "*Bonjour": IF MEM $="B" PRINT " MEM "; CHR$ 34; CHR$ 67; CHR$ 34;" obligatoire": END
30 CLOSE : PRINT = PRINT : PRINT "[Init./Rech./Dsmb./Sort]*";: CALL G: GOTO K$
40 "S" PRINT "SORTIE": END
50 "I" CLEAR : PRINT "INIT": DIM B$(255)*7,S(20): RESTORE 50: FOR A=0 TO 255: READ B$(A): NEXT A: GOSUB 5: GOTO 30
60 DATA "1LII","1LIJ","1LIA","1LIB","IX","DX","IY","DY","MVW","EXW","MVB","EXB","ADN
70 DATA "SBN","ADW","SBW","2LIDP","1LIDL","1LIP","1LIQ","ADB","SBB","","","MVWD
80 DATA "EXWD","MVBD","EXBD","SRW","SLW","FILM","FILD","LDP","LDQ","LDR","CLA","IXL
90 DATA "DXL","IYS","DYS","1JRNZP","1JRNZM","1JRNCP","1JRNCM","1JRP","1JRM","
100 DATA "1LOOP","STP","STQ","STR","NOP","PUSH","DATA","","RTN","1JRZP","1JRZM
110 DATA "1JRCP","1JRCM","","","","","INCI","DECI","INCA","DECA","ADM","SBM","ANMA
120 DATA "ORMA","INCK","DECK","INCM","DECM","INA","NOPW","1WAIT","CUP","INCP","DECP
130 DATA "STD","MVDM","READM","MVMD","READ","LDD","SWP","LDM","SL","POP","","OUTA","
140 DATA "OUTF","1ANIM","1ORIM","1TSIM","1CPIM","1ANIA","1ORIA","1TSIA","1CPIA","
150 DATA "3CASE2","","1TEST","","","","CDN","1ADIM","1SBIM","","","1ADIA","1SBIA","
160 DATA "","2CALL","2JP","3CASE1","","2JPNZ","2JPNC","2JPZ","2JPC","LP00","LP01
170 DATA "LP02","LP03","LP04","LP05","LP06","LP07","LP08","LP09","LP0A","LP0B","LP0C
180 DATA "LP0D","LP0E","LP0F","LP10","LP11","LP12","LP13","LP14","LP15","LP16","LP17
190 DATA "LP18","LP19","LP1A","LP1B","LP1C","LP1D","LP1E","LP1F","LP20","LP21","LP22
200 DATA "LP23","LP24","LP25","LP26","LP27","LP28","LP29","LP2A","LP2B","LP2C","LP2D
210 DATA "LP2E","LP2F","LP30","LP31","LP32","LP33","LP34","LP35","LP36","LP37","LP38
220 DATA "LP39","LP3A","LP3B","LP3C","LP3D","LP3E","LP3F","INCJ","DECJ","INCB","DECB
230 DATA "ADCM","SBCM","TSMA","CPMA","INCL","DECL","INCN","DECN","INB","","NOPT","
240 DATA "SC","RC","SR","WRIT","1ANID","1ORID","1TSID","1CPID","LEAVE","","EXAB
250 DATA "EXAM","","OUTB","","OUTC","1CAL 00","1CAL 01","1CAL 02","1CAL 03","1CAL 04
260 DATA "1CAL 05","1CAL 06","1CAL 07","1CAL 08","1CAL 09","1CAL 0A","1CAL 0B
270 DATA "1CAL 0C","1CAL 0D","1CAL 0E","1CAL 0F","1CAL 10","1CAL 11","1CAL 12
280 DATA "1CAL 13","1CAL 14","1CAL 15","1CAL 16","1CAL 17","1CAL 18","1CAL 19
290 DATA "1CAL 1A","1CAL 1B","1CAL 1C","1CAL 1D","1CAL 1E","1CAL 1F
300 "R" PRINT "Recherche":D=1: INPUT "Nombre :";D: IF D>20 THEN "R
310 FOR B=1 TO D: PRINT "Num:";B: INPUT "Code :";S(B): NEXT B: POKE &6C75,S(1): INPUT "@DR.:";A
320 CALL &6C5F,A:A= PEEK &6CB0+ PEEK &6CB1*256: IF D=1 THEN 350
330 FOR C=2 TO D:A=A+1: CALL P,A: IF PEEK &6CAF=S(C) NEXT C: GOTO 350
340 C=20: NEXT C:A=A+1: GOTO 320
350 PRINT "@DR.:&";:C= PEEK &6CB1: GOSUB 1: PRINT K$;:C= PEEK &6CB0: GOSUB 1: PRINT K$: CALL G: IF K$<>"C" THEN 30
360 A= PEEK &6CB0+ PEEK &6CB1*256+1: GOTO 320
370 "D" PRINT "Dump": INPUT "@dr. :";A: PRINT "Impression (O/N):*";: GOSUB 2
380 A=A-1: IF K$="O" PRINT "SIO (O/N):*";: GOSUB 2: PRINT = LPRINT : IF K$="O" OPEN
390 A=A+1: GOSUB 3: PRINT ":";: GOSUB 4: PRINT K$;" ";: IF B$(C)="" PRINT "ERROR": GOTO 30
400 IF B=0 PRINT B$(C): GOTO 500
410 AA$= MID$ (B$(C),2,80)
420 IF B=2 LET A=A+1: GOSUB 4: PRINT K$;" ";:AA$=AA$+"&"+K$,A=A+1: GOSUB 4: PRINT K$;" ";AA$+K$: GOTO 500
430 IF B>2 ON (C=&7A)+2*(C=&69) GOTO 470,480
440 A=A+1: GOSUB 4: PRINT K$;" ";AA$;" ";: IF LEFT$ (AA$,2)<>"JR" AND AA$<>"LOOP" PRINT K$: GOTO 500
450 D=A: IF RIGHT$ (AA$,1)="M" OR AA$="LOOP" LET A=A-C: GOSUB 3:A=D: PRINT "": GOTO 500
460 A=A+C: GOSUB 3:A=D: PRINT "": GOTO 500
470 A=A+1: GOSUB 4: PRINT K$;" ";:AA$=AA$+" "+K$+"ts ret",A=A+1,E=C: GOSUB 4: PRINT K$;:AA$=AA$+K$,A=A+1
475 GOSUB 4: PRINT K$: PRINT "     ";AA$+K$: GOTO 500
480 PRINT AA$: FOR D=1 TO E:A=A+1: GOSUB 4: PRINT "     ";K$;" ";:A=A+1: GOSUB 4: PRINT K$;:A=A+1: GOSUB 4: PRINT K$: NEXT D
490 PRINT "     ELSE ";:A=A+1: GOSUB 4: PRINT K$;:A=A+1: GOSUB 4: PRINT K$
500 IF INKEY$ CALL G: IF K$="F" THEN 30
520 GOTO 390