start tok64 d64-xMqjOt
10 POKE53280,0:POKE53281,0:PRINT"{white}{clear}fastplot: ca 1{0*4} punkter/sek."
15 PRINT"av torleif strand, trondheim, norway"
20 IF PEEK(49152)=185 AND PEEK(49153)=0 THEN 60
30 t=0:FORi=0TO31:FORj=0TO7:adr=i*320+j+8224:POKE49408+t,adr AND 255
40 POKE 49664+t,adr/256:t=t+1:NEXT:NEXT
50 FORi=0TO255:POKE49920+i,i AND 248:POKE 50176+i,2^(7-i AND 7):NEXT
60 s=0:FOR i=0 TO 122:READ a:s=s+a:POKE 49152+i,a:NEXT
70 FORi=0TO3:POKE49392+i,0:NEXT:IFs<>17236THEN PRINT"{down}data error!":STOP
80 PRINT"{down}x-kord.";:GOSUB110:POKE49177,lo:POKE49185,hi
90 PRINT"{down}y-kord.";:GOSUB110:POKE49194,lo:POKE49202,hi
100 SYS 49218:SYS49172:END
110 v=0:INPUT" (0-65535)";v:IF v<0 OR v>65535THEN110
120 hi=INT(v/256):lo=v-hi*256:RETURN
130 DATA 185,0,193,133,251,185,0,194,133,252,188,0,195,189,0,196
140 DATA 81,251,145,251,173,240,192,56,233,0,141,240,192,173,241,192,233
150 DATA 0,141,241,192,173,242,192,56,233,0,141,242,192,173,243
160 DATA 192,233,0,141,243,192,174,241,192,173,243,192,41,127,168,76,0,192
170 DATA 169,32,141,76,192,162,0,138,157,0,64,232,208,250,238
180 DATA 76,192,173,76,192,201,64,208,237
190 DATA 169,16,162,0,157,0,4,157,0,5,157,0,6,157,0,7,232,208,241
200 DATA 169,28,141,24,208,173,17,208,9,32,141,17,208,96
stop tok64
(bastext 1.0)