64'er 1992 February/64er_Magazin_92-02_1992_Markt__Technik_de_Side_A.d64/senso

Commodore BASIC | 1992-01-01 | 1.1 KB | 21 lines

10 v=100:poke54291,8:poke54292,215:poke54296,15
11 poke53280,0:poke53281,0:dimf(v):print"[147]":printtab(10);"[156]*** senso - c64 ***":print
12 printtab(7);"written by alex bohl 1991":c$="[157][157][157][157][157]":l$="     ":m$="  "
13 dim t(4,2):for i=1 to 4:readw1,w2:t(i,1)=w1:t(i,2)=w2:next:fori=1tov
14 f(i)=int(rnd(1)*4)+1:next:fort=1to4:gosub20:next:print:print:printtab(9);"bitte taste";
15 print" u druecken";:gosub25:fors=1to23:print"[157] [157]";:nexts:forj=1tov:forp=1toj:t=f(p)
16 gosub20:forwa=1to50:next:next:poke211,15:poke214,20:sys58732:print"stufe:";j
17 forz=1toj:gosub25:forsu=1to4:ifa$=mid$("ikuj",su,1)thenifsu<>f(z)then27
18 next:t=f(z):gosub20:next:poke211,15:poke214,20:sys58732:print"[158]sehr gut!";
19 forwa=1to200:next:forwa=1to10:print"[157] [157]";:next:next:fl=-1:goto27
20 forx=0to1:printmid$("[153][150][154][129][158]",x*4+t,1);:poke211,abs((t<3)*34+13)
21 poke214,abs((int(t/2)=t/2)*19+6):sys58732:print""+l$+c$+l$+c$+m$;
22 printmid$("ikuj",t,1)+m$+c$+l$+c$+l$:ifx=1then24:data196,9,208,13,136,19,159,27
23 poke54286,t(t,1):poke54287,t(t,2):poke54290,17:forq=1to20:nextq
24 poke 54290,16:next:return:data"[158]ergebnis des senso-spiels:"
25 geta$:ifa$<>"u"anda$<>"i"anda$<>"j"anda$<>"k"then25
26 return:data"[156]sie haben das gesetzte level von","nicht ","erreicht!"
27 reads$,t$,ni$,er$:print"[147]";tab(7);s$:print:print:printt$;v:ifnotflthenprintni$;
28 printer$:a$="stuemperamateur profi   meister ":print:print"meinung:";
29 printmid$(a$,int((j-1)/6)*8+1,8):print:print:end:rem und tschuess!