10 REM BIGFONTE PAR B.L.B
20 REM SUR 6128 LE 12.06.91 30 DIM B$(26):SYMBOL AFTER 144:SYMBOL 144,0:J$=CHR$(10)+STRING$(3,8) 40 FOR N=1 TO 26:READ A$:FOR M=1 TO 9:B$=MID$(A$,M,1):A$(M)=CHR$(VAL("&"+B$)+144):NEXT 50 B$(N)=A$(1)+A$(2)+A$(3)+J$+A$(4)+A$(5)+A$(6)+J$+A$(7)+A$(8)+A$(9):NEXT 60 MODE 2:A$="MICROZINE FREEWARE":X=10:Y=5:GOSUB 100 70 A$="ET BLB SOFT":X=20:Y=10:GOSUB 100 80 A$="PRESENTENT":X=22:Y=15:GOSUB 100:CALL &BB18 90 MODE 1:A$="BIGFONTE":X=1:Y=11:GOSUB 100:CALL &BB18:GOTO 60 100 FOR N=1 TO LEN(A$):B$=MID$(A$,N,1):IF B$=" "THEN 120 110 LOCATE X+(N*3),Y:PRINT B$(ASC(B$)-64) 120 NEXT:RETURN 130 DATA 6AC7AD101,6C07BC3A9 140 DATA 6A85003A8,6C053C3A9 150 DATA 6A87803A8,6A8780100 160 DATA 6A852C3A9,4047AD101 170 DATA 0E00500B0,00C0053A9 180 DATA 4687D0138,4005003A8 190 DATA 6EC515101,6C4555139 200 DATA 6AC5053A9,6AC7A9100 210 DATA 6AC5053B9,6C07BC101 220 DATA 6A83AC2A9,2E8050010 230 DATA 4045053A9,404569390 240 DATA 4045453B9,2C46F9138 250 DATA 4043E9010,2AC6A93A8 |