start tok64 d64-drx3aI 100 POKE53280,0:POKE53281,0:POKE53272,27:GOTO340 110 rg$="{right*20}" 120 dw$="{down*23}" 130 hm$="{home}bokstavs"+CHR$(13)+"spelet{home}" 140 m1$="{cm q}{cm r}{cm e}{cm w}":m2$="{cm q}{cm e}{cm r}{cm w}" 150 PRINT"{clear}{red}"LEFT$(rg$,16)"{>*3}{space*3}{<*3}":x=PEEK(49153) 160 FORi=1TO10:PRINTLEFT$(rg$,16)m1$" "m2$:PRINTLEFT$(rg$,16)m2$" "m1$:NEXT 170 PRINTLEFT$(rg$,16)"{blue}{white}" 180 FORq=1TO10 190 GOSUB260:sc=sc+c%:c%=0:PRINThm$dw$"{down}po[ng:"sc; 200 NEXT 210 PRINThm$dw$"{down}po[ng:"sc;:IFsc>PEEK(49152)THENPOKE49152,sc 220 PRINThm$rg$dw$"{down}b[st idag:"PEEK(49152); 230 GETe$:IFe$<>" "THEN230 240 x=PEEK(49153)+1:IFx>11THENx=11 250 POKE49153,x:CLR:RUN110 260 FORa=1TORND(.)*10*(11-x) 270 l%=RND(.)*26+65:PRINThm$rg$CHR$(l%):NEXT 280 l$=CHR$(l%) 290 FORi=2TO21:FORt=1TO(11-x)*2:NEXT 300 PRINThm$rg$LEFT$(dw$,i-1)" " 310 GETa$:IFa$=l$THENc%=23-i:i=23:GOTO330 320 PRINThm$rg$LEFT$(dw$,i)l$ 330 NEXT:RETURN 340 PRINT"{green}{clear}{reverse on}{ct h}{<*4}* B O K S T A V S{space*2}S P E L E T *{>*4}" 350 PRINT"{cyan}{down}Bokstavsspelet{space*2}g]r{space*2}ut{space*2}p]{space*2}att n[r{space*2}en"; 360 PRINT"framslumpad bokstav faller genom tunneln"; 370 PRINT"ska{space*2}man s] fort{space*2}som m{pound}jligt{space*2}trycka p]"; 380 PRINT"den tangent som bokstaven representerar." 390 PRINT"{down}{white}Din{space*2}po[ng{space*2}framr[knas beroende{space*2}p]{space*2}hur"; 400 PRINT"snabb du [r." 410 PRINT"{yellow}{down}Obs!: Rad 270 ser annorlunda ut beroende"; 420 PRINT"p] om du har en svensk el. engelsk 64:a:" 430 PRINT"{blue}S{yellow}v{blue}e{yellow}n{blue}s{yellow}k{blue}: {yellow}270 L%=RND(.)*26+{white}{reverse on}68" 440 PRINT"{red}E{white}n{blue}g{white}e{red}l{white}s{blue}k{white}:{yellow}270 L%=RND(.)*26+{white}{reverse on}65" 450 PRINT"{down}{white}@: Alexander Stasinski (id^),{space*14}Mr.P. (Modifiering)" 460 PRINT"{down*3}{gray}Tryck p] space:" 470 GETa$:IFa$<>" "THEN470 480 IFPEEK(49153)>11THENPOKE49153,0 490 CLR:PRINT"{clear}{142}":GOTO110 stop tok64 (bastext 1.0)