10 REM AFFICHAGE DES POLICES EF9345
20 REM Daniel Coulom, le 11 avr. 2006
30 CLEAR500,&"5FFF":A=&"7000":P=A
40 INIT6,6:TX4,0,0
41 PRINT"Affichage des 8 polices en ROM EF9345"
42 TX7
43 PRINT"Daniel Coulom - Avril 2006"
44 TX4
50 PRINT:PRINT"Tapez sur une touche"
51 PRINT"pour changer de police"
60 IFKEY(0)=0GOTO 60
61 INIT6,6
62 PRINT"Chargement du programme..."
80 REM PROGRAMME EN LANGAGE MACHINE
90 P$="E5212070CDEF02E1C9003E28D38F"
91 P$=P$+"3EFAD3CFC9":GOSUB 540
100 REM INITIALISATION MODE 24 BITS
110 P$="21772883212022002306260027002801240025002701":GOSUB 530
111 CALLA:CALLA+10:FORI=1TO10:NEXTI
112 POKEA+15,145:CALLA+10
120 REM AFFICHAGE D'UNE LIGNE POLICE
121 P$="2000220023072608270429002706290127082902270A2903270C2904270E290527102906271229072714"
122 P$=P$+"2908271629092718290A271A290B271C290C271E290D2720290E2722290F"
123 GOSUB 530
200 REM AFFICHAGE DES 8 POLICES
210 FORN=0TO7:GOSUB 405
211 IFKEY(0)=0GOTO 211
212 NEXTN
391 P$="21F72883":GOSUB 530:CALLA
392 TX
399 END
400 REM AFFICHAGE POLICE COMPLETE
405 POKEA+36,N*16
410 FORI=0TO15:POKEA+44+4*I,I:NEXTI
411 POKEA+40,11:CALLA
420 FORI=0TO15:POKEA+44+4*I,I+16:NEXTI
421 POKEA+40,13:CALLA
430 FORI=0TO15:POKEA+44+4*I,I+32:NEXTI
431 POKEA+40,15:CALLA
440 FORI=0TO15:POKEA+44+4*I,I+48:NEXTI
441 POKEA+40,17:CALLA
450 FORI=0TO15:POKEA+44+4*I,I+64:NEXTI
451 POKEA+40,19:CALLA
460 FORI=0TO15:POKEA+44+4*I,I+80:NEXTI
461 POKEA+40,21:CALLA
470 FORI=0TO15:POKEA+44+4*I,I+96:NEXTI
471 POKEA+40,23:CALLA
480 FORI=0TO15:POKEA+44+4*I,I+112:NEXTI
481 POKEA+40,25:CALLA
499 RETURN
520 REM CHARGEMENT DU PROGRAMME P$
530 P=A+32:POKEP,LEN(P$)/2:P=P+1
540 FORI=1TOLEN(P$)STEP2
550 N1=ASC(MID$(P$,I,1))-48
560 IFN1>9THENN1=N1-7
570 N2=ASC(MID$(P$,I+1,1))-48
580 IFN2>9THENN2=N2-7
590 POKEP,16*N1+N2:P=P+1:NEXTI:RETURN
