start tok64 d64-5x3Lv4 0 PRINT"{clear}" 5 v=54296:w=54276:a=54277:hf=54273:lf=54272:s=54278:ph=54275:pl=54274 10 POKEv,15:POKEw,65:POKEa,190:POKEph,15:POKEpl,15 20 READh 30 READl 40 READd 50 IFh=-1THEN1000 60 POKEhf,h:POKElf,l 70 FORx=d-50TOd-20:POKEs,136:NEXT 80 FORt=1TOd:NEXT:POKEhf,0:POKElf,0:POKEw,0 90 GOTO10 100 DATA17,37,250,22,227,250,25,177,250,38,126,250 101 DATA34,75,62.50,30,141,62.50,28,214,62.50,25,177,62.50 102 DATA22,227,250,17,37,250,19,63,250,22,227,250,17,37,250,28,214,250 103 DATA25,177,62.50,22,227,62.50,21,154,62.50,22,227,62.50,25,177,62.50 104 DATA34,75,60.50,34,75,60.50,0,0,62.50 105 DATA17,37,250,22,227,250,25,177,250,38,126,250 106 DATA34,75,62.50,30,141,62.50,28,214,62.50,25,177,62.50 107 DATA22,227,250,17,37,250,19,63,250,22,227,250,17,37,250,28,214,250 108 DATA25,177,62.50,22,227,62.50,21,154,62.50,22,227,62.50,22,227,1000 999 DATA-1,-1,-1 1000 PRINT"{clear}l]ten var gjord av ulf t." 1010 PRINT"vill du h{pound}ra den igen ? (j/n)" 1011 GETa$:IF a$=""THEN1011 1020 IF a$="j"THEN RUN 1030 IF a$ <>"n"THEN1000 1040 NEW:END stop tok64 (bastext 1.0)