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