10 ' RECUPFON par B.L.B. 20 ' créé sur 6128 le 17/11/91 30 DEFINT a-z:f$=" ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789.,?!"+CHR$(34)+"()*#+='$<>":MODE 2:INK 0,0:INK 1,26:BORDER 0 40 PRINT TAB(13)CHR$(24)" << RECUPFON version 1.0 copyright B.L.B. Soft 1991 >> "CHR$(24):WINDOW 1,80,3,25 50 INPUT "Nom de la fonte sans extension (Enter pour le catalogue) ";n$ 60 n$=UPPER$(n$):IF n$="" THEN CLS:CAT:GOTO 50 70 MEMORY &3FFF:LOAD n$+".fnt",&4000:FOR n=&4006 TO &4025:POKE n,0:NEXT 80 CLS:PRINT"ATTENTION! Après création de l'écran, sauvegarde de "n$".BIN 17 Ko" 90 PRINT:PRINT"Une touche ...":CALL &BB06 100 MODE 0:BORDER 9:INK 0,26:INK 1,0:PAPER 0:PEN 1 110 x=0:yy=398:FOR h=1 TO LEN(f$):zz=ASC(MID$(f$,h,1)):y=yy:GOSUB 150:y=yy 120 IF x=576 THEN yy=yy-64 130 x=x+64:IF x=640 THEN x=0 140 NEXT:SAVE n$+".bin",b,&C000,&4000:RUN 150 m=&4006+((zz-32)*&20) 160 FOR n=m TO m+30 STEP 2:a$=BIN$(PEEK(n),8)+BIN$(PEEK(n+1),8) 170 i=1:FOR k=x TO x+60 STEP 4:b=ASC(MID$(a$,i,1))-48:IF b THEN PLOT k,y,1:PLOT k,y-2,1 180 i=i+1:NEXT:y=y-4:NEXT:RETURN 190 ' MICROZINE No 18