home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_88-10_1988_-_de_Side_B.d64 / main.ka (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  46 lines
  1. 0 goto22
  2. 1 m=0:fori=1to19:ifp(i)=.goto9
  3. 2 p=peek(p(i)+40):ifp=32goto12
  4. 3 ifp=98goto13
  5. 4 ifp=97goto15
  6. 5 ifp=42goto17
  7. 6 ifp=94goto18
  8. 7 ifp=96goto19
  9. 8 ifp=113goto20
  10. 9 next:ifmgoto1
  11. 10 ifk(pl)goto55
  12. 11 goto67
  13. 12 pokep(i),32:p(i)=p(i)+40:pokep(i),42:m=1:goto9
  14. 13 m=1:j=p(i)-1024:printleft$(d$,j/40)spc(j-40*int(j/40)-1)"[155][160][157][157][158] [155][219][221][157][157][157][161][164][158]*":p(i)=p(i)+40:goto9
  15. 15 m=1:j=p(i)-1024:printleft$(d$,j/40)spc(j-40*int(j/40)+1)"[155][255][157][157][221][220][158] [155][157][157][157][158]*[155][163][162]":p(i)=p(i)+40:goto9
  16. 17 j=peek(p(i)+1):ifj=101orj=102goto19
  17. 18 m=1:pokep(i),32:p(i)=p(i)+1:pokep(i),42:goto9
  18. 19 m=1:pokep(i),32:p(i)=p(i)-1:pokep(i),42:goto9
  19. 20 pokep(i),32:k(pl)=k(pl)+1:printleft$(d$,7+6*pl)spc(18)"[158]"left$(k$,k(pl)):p(i)=.:goto9
  20. 22 print"[147]":poke53272,18:i=rnd(-ti):s=54272:k$="********************
  21. 24 d$[178]"":[134]n$(2),k(2),p(19):[153]"sysloadcontfn";
  22. 25 [129]i[178]1[164]8:[153]"def contfn";:[151]1023[170]i[170]i,103[170]i:[130]:[153]:[153]"fnthenfnthenfnthenfnthenfn
  23. 26 fori=1to3:print"[165][165][165][165][165]":next:forj=1to2:print"[165][167][167][167][165]":print"[165][166][166][166][166][165]":fori=1to2:print"[165][165][165][165][165][165]":next:print"[165][167][167][167][167][165]":print"[165][166][166][166][165]":fori=1to2:print"[165][165][165][165][165]":nexti,j:print"[165][165][165][165][165]":print"[165][166][165][166][165][166][165][166][165]
  24. 32 [153]"fnthenthenthenthenthenthenthenfn":[153]"or>>>>>>>>>>>>>>>or":[129]i[178]1[164]5:[129]j[178]1[164]7:[139](i[170]j)[173]2[177][181]((i[170]j)[173]2)[137]37
  25. 34 [153][200](d$,4[172]i)[166]2[172]j);:k[178][187](ti):[139]k[179].5[167][153]"list(NULL)cmdcmd(NULL)(NULL)cmdtab(new":[137]37
  26. 36 [153]"listclosecmd(NULL)(NULL)cmdcmdcmdgetto
  27. 37 nextj,i:print""spc(21)"[203] a $ k a d e":printspc(63)"[153]@ 1988 by":printspc(60)"[158][201] m p e r a t o r":printspc(21)"$ o f t w a r e":printspc(60)"[159][194]ei diesem [211]piel":printspc(18)"muessen zwei [211]pieler":printspc(18)"versuchen, alle ihre":printspc(18)"zehn [203]ugeln so in die
  28. 42 [153][166]18)"(NULL)palten 1 bis 8 des":[153][166]18)"(NULL)pielfeldes einzuwer-":[153][166]18)"fen, dass moeglichst":[153][166]18)"keine (NULL)ugeln wieder":[153][166]18)"herausfallen. (NULL)er als":[153][166]18)"erster keine (NULL)ugeln":[153][166]18)"mehr hat, gewinnt das":[153][166]18)"(NULL)piel. (NULL)iel (NULL)ergnuegen
  29. 46 fori=1to2:forj=22to24:printleft$(d$,j)spc(18)"[146]                ":next:printleft$(d$,22)spc(18)"[150][211]pieler"i"[157], [201]hr [206]ame?":printspc(60)"[158]";:k=0
  30. 48 k=1-k:printmid$("[176] ",k+1,1)"[157]";:getu$:ifu$=""goto48
  31. 49 ifasc(u$)=13andn$(i)>""goto54
  32. 50 ifasc(u$)=20andn$(i)>""thenn$(i)=left$(n$(i),len(n$(i))-1):print" [157][157]";:goto48
  33. 51 if(u$<"a"oru$>"z")and(u$<"[193]"oru$>"[218]")andu$<>" "andu$<>"-"andu$<>"."goto48
  34. 52 iflen(n$(i))=12goto48
  35. 53 n$(i)=n$(i)+u$:print"[146]"u$;:goto48
  36. 54 next:pl=2:k(1)=10:k(2)=10
  37. 55 fori=7to24:printleft$(d$,i)spc(18)"                      ":next:fori=1to2:print"[153]"left$(d$,4+6*i)spc(18)n$(i)"[150], [211]pl."i:printspc(62)"[156][203]ugeln:":printspc(18)"[158]"left$(k$,k(i))" ":next:pl=3-pl:printspc(58)""n$(pl)", [201]hr [218]ug":poke1281+240*pl+k(pl),32:k(pl)=k(pl)-1:p=1065:pokep,42:i=0
  38. 61 i=i+1:ifp(i)goto61
  39. 62 j=peek(56320):if(jand16)=.goto66
  40. 63 if(jand4)=.thenifp>1065thenpokep,32:p=p-2:pokep,42
  41. 64 if(jand8)=.thenifp<1079thenpokep,32:p=p+2:pokep,42
  42. 65 goto62
  43. 66 p(i)=p:goto1
  44. 67 printleft$(d$,22)spc(18)mid$("[159][156][158][129][150][153][154]",9*rnd(ti)+1,1)n$(pl)", [211]pl."pl"[157] ":printspc(18)"hat gewonnen!":ifpeek(56320)and16goto67
  45. 69 run
  46.