10 REM caract bin par B.L.B
20 REM sur 6128 le 21/03/91 30 MODE 2:c$="MICROZINE FREEWARE presente ......Caracteres" 40 GOSUB 100:PRINT c$;" normaux :":GOSUB 90 50 GOSUB 100:c=1:GOSUB 110:CALL adr,h,1008:PRINT c$;" larges :":GOSUB 90 60 GOSUB 100:c=0:GOSUB 110:CALL adr,h,1008:PRINT c$;" fins :":GOSUB 90 70 PRINT "une touche ....":CALL &BB18 80 FOR n=1 TO 8:CALL ADr,&C000,&4000:NEXT:RUN 90 PRINT:FOR n=32 TO 125:PRINT CHR$(n);" ";:NEXT:PRINT:PRINT:PRINT::RETURN 100 SYMBOL AFTER 32:h=HIMEM-1:RETURN 110 RESTORE 130:z$="":FOR n=1 TO 27:READ a$:IF a$="A0" AND C=1 THEN A$="B0" 120 Z$=Z$+CHR$(VAL("&"+A$)):NEXT:ADR=PEEK(àZ$+1)+256*PEEK(àZ$+2):RETURN 130 DATA DD,6E,00,DD,66,01,DD,5E,02,DD,56,03,1A,CB,27,47,1A,A0,12,13,2D,20,F5,25,20,F2,C9 |