64'er/64ER_CD.iso/92xx/9202a.d64/senso

Commodore BASIC | 1995-03-30 | 1KB | 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!