start tok64 d64-MFDbOB
10 REM------- grafikgenerator --------
20 REM
30 GOSUB1000
40 p=PEEK(x):q=PEEK(x+cc)
50 POKE x+cc,0:POKE x,cu
60 GET a$:IF a$="" THEN 60
70 IF a$="u" THEN d=-40:GOTO 180
80 IF a$="n" THEN d=40:GOTO 180
90 IF a$="v" THEN d=-1:GOTO 180
100 IF a$="h" THEN d=1:GOTO 180
110 IF a$="i" THEN p=a:q=c:d=1:GOTO 180
120 IF a$="r" THEN p=s:q=1:d=1:GOTO 180
130 IF a$="a" THEN 300
140 IF a$="f" THEN 500
150 IF a$="s" THEN 800
160 IF a$="?" THEN 600
170 GOTO 60
180 POKE x,p
190 POKE x+cc,q
200 IF x+d>va+nn THEN x=x-1000
210 IF x+d<va THEN x=x+1000
220 x=x+d:GOTO40
297 REM
298 REM-------- ny ascii-kod ---------
299 REM
300 b$="ascii f{pound}r nytt tecken:{space*4}"
310 GOSUB 900:m=y+24:a=0
320 GOSUB 2000
330 IF a$<"0" OR a$>"2" THEN 320
340 POKEm,ASC(a$):a=a+100*VAL(a$):m=m+1
350 GOSUB 2000
360 IF a$<"0" OR a$>"9" THEN 350
370 POKE m,ASC(a$):a=a+10*VAL(a$):m=m+1
380 GOSUB 2000
390 IF a$<"0" OR a$>"9" THEN 380
400 POKE m,ASC(a$):a=a+VAL(a$)
410 GOSUB 950:IF a>255 THEN 300
420 GOTO 60
497 REM
498 REM--------- ny f[rgkod ---------
499 REM
500 b$="ny f[rgkod:{space*10}"
510 GOSUB 900:m=y+20:c=0
520 GOSUB2000
530 IF a$<"0" OR a$>"1" THEN 520
540 POKE m,ASC(a$):c=c+10*VAL(a$):m=m+1
550 GOSUB 2000
560 IF a$<"0" OR a$>"9" THEN 550
570 POKE m,ASC(a$):c=c+VAL(a$)
580 GOSUB 950:IF c>15 THEN 500
590 GOTO 60
597 REM
598 REM---------- hj[lmeddelande ------
600 b$="u=upp:n=ned:v=v[nster:h=h{pound}ger"
610 GOSUB 900:GOSUB 2000:GOSUB 950
620 b$="i=ins[tt:r=radera:?=hj[lp"
630 GOSUB 900:GOSUB 2000:GOSUB 950
640 b$="a=ascii:f=f[rg:s=spara"
650 GOSUB 900:GOSUB 2000:GOSUB 950
660 GOTO 60
797 REM
798 REM-------- spara bilden ----------
799 REM
800 b$="klar att spara?":GOSUB 900
810 GOSUB 2000
820 IF a$<>"j" AND a$<>"n" THEN 810
830 GOSUB 950:IF a$="n" THEN 60
831 b$="disk eller band?":GOSUB 900
832 GOSUB 2000
833 IF a$<>"d" AND a$<>"b" THEN 832
834 GOSUB 950:IF a$="b" THEN 882
835 POKE x,p:POKE x+cc,q
840 OPEN 2,8,2,"@0:"+f$+",s,w"
850 FOR n=va TO va+999
860 PRINT#2,CHR$(PEEK(n+cc));
870 PRINT#2,CHR$(PEEK(n));
880 NEXT n
881 CLOSE 2:GOTO 40
882 POKE x,p:POKE x+cc,q
883 FOR t=1TO301:c(t)=PEEK(va+t-1):NEXT
884 FOR t=1TO301:d(t)=PEEK(cc+va+t-1):NEXT
887 OPEN 2,1,2,f$
888 FORt=1TO301:POKEva+t-1,c(t):NEXT
889 FORt=1TO301:POKEcc+va+t-1,c(t):NEXT
892 FOR n=va TO va+999
893 PRINT#2,CHR$(PEEK(n+cc));
894 PRINT#2,CHR$(PEEK(n));
895 NEXT n
896 CLOSE 2:GOTO 40
897 REM
898 REM-------- visa meddelande -------
899 REM
900 FOR n=1 TO LEN(b$)
910 a(n)=PEEK(n+y):b(n)=PEEK(n+y+cc)
920 POKE n+y+cc,0
925 m=ASC(MID$(b$,n,1))
930 IF m>sf THEN m=m-sf
935 POKE n+y,m
940 NEXT n:RETURN
950 FOR n=1 TO LEN(b$)
960 POKE n+y,a(n)
970 POKE n+y+cc,b(n)
980 NEXT n:RETURN
997 REM
998 REM------- startrutin ------------
999 REM
1000 POKE53281,1:POKE53280,1
1010 PRINT CHR$(147)CHR$(144)
1020 PRINT"grafikgenerator":PRINT
1030 PRINT"kommandon:":PRINT
1040 PRINT"u = up1)):":PRINT
63999 REM "Invalid BASIC input d64-MFDbOB
stop tok64
(bastext 1.0)