start tok64 d64-6U6IY8 1 PRINT"{clear}" 2 POKE53280,0:POKE53281,0 3 PRINT"my bonnie{space*31}av ulf tidstrand" 4 FORx=1TO5000:NEXTx 5 v=54296:w=54276:a=54277:hf=54273:lf=54272:s=54278:ph=54275:pl=54274 10 POKEv,15:POKEw,65:POKEa,136:POKEph,15:POKEpl,15 20 READh 30 READl 40 READd 50 IFh=-1THENEND 60 POKEhf,h:POKElf,l 70 FORx=d-50TOd-20:POKEs,136:NEXT 80 FORt=1TOd:NEXT:POKEhf,0:POKElf,0:POKEw,0 90 GOTO 10 100 DATA38,126,250,64,188,325 110 DATA57,172,125,51,97,250,57,172,250,51,97,250,43,52,250 111 DATA38,126,250,32,94,1000 112 DATA38,126,250,64,188,325,57,172,125,51,97,250,51,97,250,48,127,250 113 DATA51,97,250 114 DATA57,172,1250,38,126,250,64,188,325,57,172,125,51,97,250,57,172,250 115 DATA51,97,250,43,52,250,38,126,250,32,94,1000,38,126,250 117 DATA43,52,250,57,172,250,51,97,250,48,127,250 120 DATA43,52,250,48,127,250,51,97,1250,0,0,250,38,126,750 125 DATA51,97,750,43,52,750,57,172,750,48,127,250,48,127,250,48,127,250 130 DATA48,127,250,43,52,250,48,127,250,51,97,500,57,172,250 135 DATA64,188,750,38,126,750,51,97,750,43,52,750,57,172,500 140 DATA51,97,250,48,127,250,48,127,250,48,127,250,48,127,250 145 DATA43,52,250,48,127,250,51,97,1500 1000 DATA-1,-1,-1 stop tok64 (bastext 1.0)