64'er 1992 January/64er_Magazin_92-01_1992_Markt__Technik_de_Side_A.d64/17+4

Commodore BASIC | 1992-01-01 | 1.3 KB | 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