start tok64 d64-hM7eBw 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"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 = upp" 1050 PRINT"n = ned" 1060 PRINT"v = v[nster" 1070 PRINT"h = h{pound}ger" 1080 PRINT"i = ins[tt" 1090 PRINT"r = radera" 1100 PRINT"e = ers[tt" 1110 PRINT"f = ny f[rkod" 1120 PRINT"a = ny asciikod" 1130 PRINT"s = spara" 1140 PRINT"? = hj[lp":PRINT 1200 p=0:q=0:m=0:n=0 1300 va=1024:cc=54272:x=1524:y=va+959 1310 a=160:c=0:cu=86:s=32:sf=64:nn=999 1350 DIMa(40),b(40),c(500),d(500) 1400 a$="":b$="":f$="" 1500 POKE 650,128 1600 INPUT"sk[rmens bakgrundsf[rg";m 1610 POKE 53281,m:PRINT 1620 INPUT"kantens f[rg";m 1630 POKE 53280,m:PRINT 1650 PRINT"l[sa in gammal bild?":PRINT 1660 GOSUB 2000:IF a$="j" THEN 1800 1700 PRINT"vilken fil ska" 1710 INPUT"bilden sparas i";f$ 1720 PRINT CHR$(147) 1730 RETURN 1797 REM 1798 REM-------- l[sa in bild -------- 1799 REM 1800 PRINT"disk eller band?" 1805 GOSUB 2000 1810 IFa$="d"THEN1813 1811 IFa$="b"THEN1890 1812 GOTO1805 1813 INPUT"filens namn";f$ 1815 OPEN 2,8,2,"0:"+f$+",s,r" 1820 FOR n=va TO va+999 1830 GET#2,a$ 1840 POKE n+cc,ASC(a$+CHR$(0)) 1850 GET#2,a$ 1860 POKE n,ASC(a$+CHR$(0)) 1870 NEXT n 1880 CLOSE 2:GOTO40 1890 INPUT"filens namn";f$ 1900 OPEN2,1,0,f$ 1910 FOR n=va TO va+999 1920 GET#2,a$ 1930 POKE n+cc,ASC(a$+CHR$(0)) 1940 GET#2,a$ 1950 POKE n,ASC(a$+CHR$(0)) 1960 NEXT n 1970 CLOSE 2:GOTO40 1999 REM 2000 GET a$:IFa$="" THEN 2000 2010 RETURN stop tok64 (bastext 1.0)