Session end : 11h59m59s | Hide picture Sexe : OFF | ![]() | ![]() | ![]() | ![]() | Donations 2025 : 701.79 € |
20 b$(0)="Basic":b$(1)="Basic P":b$(3)="Binaire":b$(6)="ASCII"
20 b$(0)="Basic":b$(1)="Basic P":b$(2)="Binaire":b$(6)="ASCII"
30 DEF FNf(a)=PEEK(a)+PEEK(a)*256
30 DEF FNf(a)=PEEK(a)+PEEK(a+1)*256
140 PRINT #e : PRINT #e,"Une autre disquette (O/N) ?"; : rep$="": WHILE rep$<>"0" AND rep$<>"N" : rep$=INKEY$ : rep$=UPPER$(rep$) : WEND : PRINT #e,rep$
140 PRINT #e : PRINT "Une autre disquette (O/N) ?"; : rep$="": WHILE rep$<>"0" AND rep$<>"N" : rep$=INKEY$ : rep$=UPPER$(rep$) : WEND : PRINT #e,rep$
180 PRINT #e,TAB(8);:FOR m%=&1045 TO &1050:PRINT #e,CHR$(PEEK(m%) AND &7F):NEXT m%
180 PRINT #e,TAB(8);:FOR m%=&1045 TO &1050:PRINT #e,CHR$(PEEK(m%) AND &7F);:NEXT m%
250 DATA CD,57,BB,11,00,80,CD,9B,BC,CD,4E,BB,C9,18,08,84,3C,C0,07,00,00,00,00,21,0F,10,CD,D4,BC,D0,22,10,10,79,32,12,10,1E,00,
3A,13,10,57,3A,14,10,4F,2A,15,10,4F,2A,15,10,DF,10,10,C9,06,0C,21,45,10,11,00,20,CD,77,BC,CD,7A,BC,C9,00,00,00,00,00,00,00,00,2E
250 DATA CD,57,BB,11,00,80,CD,9B,BC,CD,4E,BB,C9,18,08,84,3C,C0,07,00,00,00,00,21,0F,10,CD,D4,BC,D0,22,10,10,79,32,12,10,1E,00,
3A,13,10,57,3A,14,10,4F,2A,15,10,DF,10,10,C9,06,0C,21,45,10,11,00,20,CD,77,BC,CD,7A,BC,C9,00,00,00,00,00,00,00,00,2E,00,00,00