start tok64 d64-oTgwom
0 ONxGOTO10:PRINT"{clear}v[nta{.*3} poke:ar maskinkod{.*3}
1 FORi=49152TO49236:READx:c=c+x:POKEi,x:NEXT
2 IFc-10184THENSTOP
3 DATA173,24,208,9,8,141,24,208,173,17,208,9,32,141,17,208,162,,189,64
4 DATA63,157,,4,189,64,64,157,,5,189,64,65,157,,6,189,40,66,157,232,6
5 DATA232,208,229,173,32,208,141,85,192,173,40,67,141,32,208,165,198,240
6 DATA252,169,21,141,24,208,173,17,208,41,223,141,17,208,173,85,192,141
7 DATA32,208,169,147,76,210,255
8 x=1:GOSUB13:INPUT"vilken bild";f$:IFLEN(f$)<16THENf$=f$+"*
9 OPEN1,8,1,f$+",p,r":POKE780,.:SYS65493:CLOSE1
10 SYS49152:PRINT"{clear}{down}{right}fler bilder?
11 POKE198,.:WAIT198,1:GETa$:IFa$="j"THEN8
12 END
13 PRINT"{clear}art studio-bilder p] disken:
14 OPEN1,8,.,"$0:{?*11}{space*2}pic":POKE781,1:SYS65478:GETa$,a$:e$=CHR$(.)
15 GETa$,a$,h$,l$:IFstTHENSYS65484:CLOSE1:RETURN
16 PRINTASC(h$+e$)+256*ASC(l$+e$);
17 GETa$,b$:IFa$THENPRINTa$b$;:GOTO17
18 PRINTa$:GOTO15
stop tok64
(bastext 1.0)