start tok64 d64-wLlXMP
0 PRINT"{clear}{down*2}{white}v[lkommen till funny format, v[lj spel{space*3}1.grottrally 2.maraton";
1 PRINT"{space*3}3.minnesn{pound}ten":INPUT"{down}spel 1,2,3";a:IFa>3ORa<1THEN
2 POKE650,128:INPUT"namn";n$:IFLEN(n$)<1ORLEN(n$)>16THEN2
3 INPUT"id";i$:IFLEN(i$)<>2THEN3
4 OPEN15,8,15,"n0:"+n$+","+i$:ti$="{0*6}"
5 PRINT"{clear}{down*13}<--z x-->{down*6}":p=.:s=20:l=23:ONaGOTO6,11,16
6 PRINTSPC(s-1)"Q"SPC(l-s-1)"V"SPC(8+s-l)"Q":p=p+1:s=s+INT(RND(.)*3-1)
7 GETa$:IFs<1ORs>31THENl=50
8 l=l+(a$="z")-(a$="x"):IFl=<sORl-9=>sTHENs=20:l=23:p=p-10:FORt=1TO1e3:NEXT
9 IFti$<"{0*3}121"THEN6
10 CLOSE15:POKE198,.:PRINT"{clear}formattering klar, din po[ng"p:FORi=.TO3e3:NEXT:RUN
11 a$="{sh -} {sh -} {sh -} {sh -} {sh -} {sh -} {sh -} {sh -} {sh -} {sh -} {sh -} {sh -} {sh -} {sh -} {sh -} {sh -} {sh -} {sh -} {sh -} {sh -}":m=.:e$(0)="{cm b}":e$(1)="{reverse on}{cm b}{reverse off}
12 PRINT"{home}"p"{home}{down}"SPC(s)e$(m)"{home}{down*2}"SPC(m)a$:m=1-m:p=p+7
13 GETb$:IFm=.ANDb$<>"z"THEN13
14 GETb$:IFm=1ANDb$<>"x"THEN14
15 ON((ti$>"{0*3}121")+2)GOTO10,12
16 d=INT(RND(.)*(9e7-1))+1e7:PRINT"{clear}"d:FORg=1TO3e3:NEXT:PRINT"{clear} ";
17 d$=STR$(d):FORg=2TO9:IFti$>"{0*3}121"THEN10
18 GETa$:IFa$<>MID$(d$,g,1)THEN18
19 PRINTa$;:p=p+1:NEXT:GOTO16
stop tok64
(bastext 1.0)