start tok64 d64-XZnrSo 10 PRINT"{clear}r y s k{space*3}r o u l e t t e" 20 PRINT"{down*2}ursprungligen gjort av ola magnusson f{pound}rabc 80" 30 PRINT"konverterat av ulf tidstrand f{pound}r club 64" 35 a=INT(RND(1)*10):IFa>6THENa=a-5 40 b=INT(RND(1)*10):IFb>5THENb=b-6:GOTO50 45 b=b+1 50 PRINT"tryck p] en knapp!" 60 PRINT"{down}1=du och jag ska skjuta" 70 PRINT"{down}2=du ger upp" 80 GETd:IFd=0THEN80 90 ON d GOTO 100,260 100 a=a+1 110 IFa=7THENa=1 120 IFa=bTHEN200 130 PRINT"k l i c k!{space*2}du klarade dig{!*3}" 140 FORc=1TO2000:NEXT 150 a=a+1 160 IFa=7THENa=1 170 IFa=bTHEN230 180 PRINT"{down*3}k l i c k! jag klarade mig ocks]!!{down*4}" 190 GOTO80 200 PRINT"p a n g! du [r d{pound}d!" 210 PRINT"jag ska ordna med begravningen" 220 PRINT"farv[l 'poor man'":END 230 PRINT"{down*4}p a n g! oj, jag dog det gjorde ont!" 240 PRINT"jag hoppas att du ordnar med begravning" 250 PRINT"{a*6}{r*4}gh! ! !":END 260 PRINT"{down*3}you are a very big 'fegis'!" 270 PRINT"se p] mig. jag har aldrig varit s] feg!" 280 PRINT"men jag m]r prima [nd]{!*3}":END stop tok64 (bastext 1.0)