start tok64 d64-r89DGi
0 REM loader f{pound}r character master-tecken      obs! f{pound}r v2.50-kompatibla data
1 a=adress f{pound}r teckENData <- obs! skriv i den
2 f$="filnamn":OPEN1,1,0,f$:REMopen1,8,2,f$+",s,r" <-disk
3 INPUT#1,a$:IFa$="theend"THEN10
4 FORi=1TOLEN(a$)STEP2:h=ASC(MID$(a$,i,1))-64:l=ASC(MID$(a$,i+1,1))-64:d=h*16+l
5 POKEa,d:POKEa+1024,255-d:a=a+1:NEXT:GOTO3
10 REM huvudprogrammet b{pound}rjar h[r...
stop tok64
(bastext 1.0)