64'er/64ER_CD.iso/92xx/9201a.d64/17+4

Commodore BASIC | 1995-03-30 | 1KB | 21 lines

1 PRINT"[147]":F$(1)="[194] [193] [194]":F$(2)="[194] [211] [194]":F$(3)="[194] [218] [194]":D$="[157][157][157][157][157]":C$="COMPUTER :"
2 DIMA$(11),K$(33),K(32):A$(0)="[213][192][192][192][201]":A$(1)="[194]A A[194]":A$(2)="[194]K K[194]":H$="[166][166][166][166][166]"
3 A$(3)="[194]D D[194]":A$(4)="[194]B B[194]":A$(5)="[194]1 1[194]":A$(10)="[194]   [194]":A$(11)="[202][192][192][192][203][146]":VP=8
4 A$(9)="[194]7 7[194]":A$(7)="[194]9 9[194]":A$(8)="[194]8 8[194]":A$(6)="[194]0 0[194]":F$(0)="[194] [216] [194]":VC=8:P=2
5 FORI=1TO7:K$(33)=K$(33)+H$+D$:NEXT:FORJ=0TO3:RESTORE:FORI=1TO8:L=J*8+I:FORH=1TO6:READA
6 K$(L)=K$(L)+A$(A)+D$:IFH=3THENK$(L)=K$(L)+F$(J)+D$:PRINTTAB(L+2)"[145][157] 17+4":POKE53280,0
7 NEXTH,I,J:FORI=1TO8:READA:K(I)=A:K(I+8)=A:K(I+16)=A:K(I+24)=A:NEXTI:PRINT"[147]"
8 PRINTTAB(18)"17+4[157][157][157][157][157][157][157][157]VON M.SCHOLZ":P$(2)="KARTE  (J/N) ?":POKE53281,0
9 POKE198,0:WAIT198,1:P$(1)="DEIN SPIEL  !!":P$(0)="MEIN SPIEL  !!":S$=" SPIELER :"
10 C=0:S=0:Z=INT(RND(1)*31+1):C=K(Z):Z1=INT(RND(1)*31+1):S=K(Z1):PRINT"[147]"C$C,S$S
11 PRINT"  "K$(Z)"[145][145][145][145][145][145][145]"K$(33):PRINT"  "K$(Z1):POKE214,20:PRINT:PRINTTAB(13)P$(P)
12 Z=INT(RND(1)*31+1):S=S+K(Z):POKE214,11:PRINT:PRINTTAB(VP)K$(Z):PRINT""C$C,S$S
13 IFS>=22ANDVP>8THENP=0:GOTO20:DATA0,1,10,10,1,11,0,2,10,10,2,11,0,3,10,10,3
14 IFS=21OR(S=22ANDVP=8)THENP=1:GOTO20:DATA11,0,4,10,10,4,11,0,5,6,5,6
15 POKE198,0:WAIT198,1:GETB$:IFB$<>"J"ANDB$<>"N"THEN15
16 IFB$="J"THENVP=VP+6:GOTO12:DATA11,0,7,10,10,7,11,0,8,10,10,8,11,0,9,10,10,9
17 Z=INT(RND(1)*31+1):C=C+K(Z):PRINT""TAB(VC)K$(Z):PRINT""C$C,S$S
18 P=0:IFC<17THENVC=VC+6:GOTO17:DATA11,11,4,3,2,10,9,8,7
19 IF(C=22ANDVC>8)ORC>22ORC<STHENP=1
20 POKE214,20:PRINT:PRINTTAB(13)P$(P):VC=8:VP=8:POKE198,0:WAIT198,1:P=2:GOTO10