home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 59 / 64er_Magazin_Sonderheft_59_19xx_Markt__Technik_de_Side_B.d64 / op.holz (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  6.1 KB  |  178 lines
  1. 1 rem open4,8,15,"s:streichholz":close4
  2. 10 rem open1,8,2,"streichholz,p,w
  3. 20 [158]36864;[172][172] versi[145] number 4
  4. 30 ;.opt o1
  5. 40 [172][178] $402
  6. 49 ;
  7. 50 ; streichholzspiel v[145] nikolaus heusler [173] zwengauerweg 18 [173] 8 muenchen solln
  8. 55 ; fragen [171][171][177] rueckp[176][164] !
  9. 56 ; a[128]ern der reihen [178] label re in zeile 480
  10. 57 ; 64'er s[145]derheft 59[173]1990
  11. 58 ; greetings [164] elmar hoerig & peter bertelshofer!
  12. 59 ;
  13. 60 pattern [178]$c139
  14. 70 tbox [178]$c19f
  15. 80 mouse[145] [178]$c18a
  16. 90 ic[145] [178]$c15a
  17. 110 [133] [178]$c1ba
  18. 120 r0 [178]2
  19. 130 r1 [178]4
  20. 140 r2 [178]6
  21. 150 r3 [178]8
  22. 160 r4 [178]10
  23. 170 r5 [178]12
  24. 180 r6 [178]14
  25. 190 r7 [178]16
  26. 200 r8 [178]18
  27. 210 r9 [178]20
  28. 220 r10 [178]22
  29. 230 r11 [178]24
  30. 240 keyvec [178]$84a3
  31. 250 multiwowo [178]$c166
  32. 260 divwowo [178]$c169
  33. 270 desk[164]p [178]$c22c
  34. 280 menue[145] [178]$c151
  35. 290 [184]emenue [178]$c193
  36. 300 t[153] [178]$c1ae
  37. 310 [148] [178]$c1ed
  38. 320 [160] [178]$c277
  39. 330 [159] [178]$c274
  40. 340 recapp[128] [178]$c289
  41. 350 [153] [178]$c148
  42. 360 killrec [178]$c283
  43. 370 setrec[176]d [178]$c280
  44. 380 maxrec [178]$8497
  45. 390 page [178]$2f
  46. 400 rec [178]$c127
  47. 410 trec [178]$c1a2
  48. 420 [156]mouse [178]$c19b
  49. 430 [156]allmen [178]$c157
  50. 440 window [178]$c256
  51. 450 rev [178]$8850
  52. 460 reset [178]$9185
  53. 470 vline [178]$c121
  54. 480 re [178]6
  55. 490 charout [178]$c145
  56. 500 hline [178]$c118
  57. 510 [161] [178]$c2a7
  58. 1002 fe jsr trec:.byt 34,180:.w[176] 20,256:.byt [171]1
  59. 1003 lda #7:jsr pattern:jsr tbox:.byt 47,179:.w[176] 21,255
  60. 1004 lda #9:jsr pattern:jsr tbox:.byt 35,46:.w[176] 21,255
  61. 1006 jsr t[153]:.w[176] 101:.byt 42:.[198] " streichholzspiel v1 ":brk
  62. 1008 lda #1:jsr pattern:jsr tbox:.byt 60,84:.w[176] 60,236
  63. 1010 lda #0:jsr pattern:jsr tbox:.byt 52,76:.w[176] 52,228
  64. 1011 jsr trec:.byt 52,76:.w[176] 52,228:.byt [171]1
  65. 1012 jsr t[153]:.w[176] 64:.byt 69:.[198] "streichholz-ziehen aus 
  66. 1013 .byt re+48:.asc "[160]reihen":brk
  67. 1018 lda #<windtab:ldy #>windtab:sta r0:sty r0+1:jsr window
  68. 1020 ldx r0:dex:beq ok
  69. 1022 dex:ldy #0
  70. 1023 wait dex:bne wait:dey:bne wait
  71. 1024 jmp desktop
  72. 1025 ok lda #7:jsr pattern:jsr tbox:.byt 47,179:.wor 21,255
  73. 1026 lda #<windtab2:ldy #>windtab2:sta r0:sty r0+1:jsr window
  74. 1028 lda r0:sec:sbc #4:sta beginner
  75. 1034 ok2 lda #0:jsr pattern:jsr tbox:.byt 47,179:.wor 21,255
  76. 1036 lda #-1:ldx #0:stx r4+1:ldx #138:stx r4:ldx #48:stx r3:ldx #178
  77. 1038 stx r3+1:ldx #$80:stx page:jsr vline:lda #113:sta r11:lda #0:sta r3+1
  78. 1039 sta r4+1:lda #254:sta r4:lda #140:sta r3:lda #128:sta page:lda #-1
  79. 1040 jsr hline:lda #146:sta r11:lda #-1:jsr hline
  80. 1048 ldy #re-1:lda #re
  81. 1049 setup sta row,y:sec:sbc #1:dey:bpl setup
  82. 1050 jmp main
  83. 1100 feldout lda #0:jsr pattern:jsr tbox:.byt 48,179:.wor 21,137
  84. 1102 ldy #0
  85. 1104 loop1 sty zeile:lda #128:sta page:lda #25:sta r11:lda #0:sta r11+1
  86. 1106 lda zeile:sta r1:asl:asl:adc r1:sta r1:lda zeile:asl:asl:asl:asl
  87. 1108 adc r1:adc #60:sta r1+1:lda #"":jsr charout:lda zeile:adc #48:jsr charout
  88. 1110 lda #34:sta r11:ldy zeile:lda row,y:beq nix
  89. 1112 loop2 pha:lda #"i":jsr charout:lda #" ":jsr charout:lda #" ":jsr charout
  90. 1114 pla:sec:sbc #1:bne loop2
  91. 1116 nix ldy zeile:iny:cpy #re:bcc loop1:lda #"":jmp charout
  92. 1190 qcomputer jmp computer
  93. 1200 main jsr feldout:lda beginner:beq qcomputer
  94. 1201 lda #0:jsr pattern:jsr tbox:.byt 114,145:.wor 139,255
  95. 1202 jsr tprint:.wor 140:.byt 122:.asc "welche zeile ? ":brk
  96. 1204 get1 jsr get:cmp #"1":bcc get1:cmp #"1"+re:bcs get1:tay:sec:sbc #"1":tax
  97. 1206 lda row,x:beq get1:clc:adc #"1":sta anzahl:stx zeile:tya
  98. 1208 jsr charout:jsr tprint:.wor 140:.byt 136:.asc "wieviele ? ":brk
  99. 1210 get2 jsr get:cmp #"1":bcc get2:cmp anzahl:bcs get2:pha:jsr charout:pla:sec
  100. 1212 sbc #"0":sta anzahl
  101. 1220 ldx zeile:lda row,x:sec:sbc anzahl:sta row,x:ldx #0:stx r1
  102. 1222 count lda r1:clc:adc row,x:sta r1:inx:cpx #re:bcc count
  103. 1224 lda r1:beq qcompwin:cmp #1:beq qspiwin
  104. 1226 inc beginner:jmp main
  105. 1228 qcompwin jmp compwin
  106. 1230 qspiwin jmp spiwin
  107. 1300 computer lda #0:jsr pattern:jsr tbox:.byt 147,179:.wor 139,255:ldx #re-1
  108. 1301 lda #0:sta r1:sta r2:sta a:dec beginner
  109. 1302 comp1 lda row,x:tay:beq comp2:clc:adc a:sta a:inc r1:dey:beq comp2:inc r2
  110. 1304 comp2 dex:bpl comp1:lda r2:beq comp3:lda r1:lsr:asl:cmp r1:bcc comp4
  111. 1306 ldx #re
  112. 1308 comp5 stx r4:dex:lda row,x:cmp #2:bcs comp6:txa:bne comp5:beq comp3
  113. 1310 comp6 ldx r4:stx zeile:lda row-1,x:sta anzahl:bpl comp9
  114. 1312 comp4 ldx #0
  115. 1314 comp4a lda row,x:cmp #2:bcs comp7:inx:cpx #re:bcc comp4a:bcs comp3
  116. 1316 comp7 ldy row,x:dey:sty anzahl:inx:stx zeile:bpl comp9
  117. 1320 comp3 ldx #0
  118. 1322 comp3a lda row,x:bne comp8:inx:bne comp3a
  119. 1324 comp8 lda #1:sta anzahl:inx:stx zeile
  120. 1330 comp9 jsr tprint:.wor 140:.byt 155:.asc "ich nehme ":brk
  121. 1332 lda anzahl:ora #"0":jsr charout:ldx anzahl:dex:beq eins
  122. 1334 lda #<mehrtxt:ldy #>mehrtxt:bne outtxt
  123. 1336 eins lda #<einstxt:ldy #>einstxt
  124. 1338 outtxt sta r0:sty r0+1:jsr print
  125. 1340 jsr tprint:.wor 140:.byt 169:.asc "aus der ":brk
  126. 1342 lda zeile:ora #"0":jsr charout:lda #<zeiltxt:ldy #>zeiltxt
  127. 1343 sta r0:sty r0+1:jsr print
  128. 1344 ldx zeile:lda row-1,x:sec:sbc anzahl:sta row-1,x:lda a:sec:sbc anzahl
  129. 1346 beq spiwin:cmp #1:beq compwin
  130. 1348 jmp main
  131. 1400 spiwin jsr feldout:jsr tprint:.wor 145:.byt 54:.asc "sehr gut !":brk
  132. 1401 inc spsi
  133. 1402 jsr tprint:.wor 139:.byt 66:.asc "sie haben gewonnen.":brk:jmp (NULL)n
  134. 1500 compwin jsr feldout:jsr tprint:.wor 148:.byt 54:.asc "sorry...":brk
  135. 1501 inc cosi
  136. 1502 jsr tprint:.wor 139:.byt 66:.asc "ich habe gewonnen.":brk
  137. 1510 (NULL)n jsr tprint:.wor 148:.byt 78:.asc "(space taste)":brk
  138. 1512 jsr tprint:.wor 150:.byt 90:.asc "spieler: ":brk
  139. 1514 lda spsi:jsr numout
  140. 1516 jsr tprint:.wor 150:.byt 102:.byt 128:.asc " 64: ":brk
  141. 1518 lda cosi:jsr numout
  142. 1590 gets jsr get:cmp #" ":bne gets:jmp fe
  143. 1600 numout ldx #"0
  144. 1602 co100 cmp #100:bcc kl100:inx:sbc #100:jmp co100
  145. 1604 kl100 stx zahl:ldx #"0
  146. 1606 co10 cmp #10:bcc kl10:inx:sbc #10:bpl co10
  147. 1608 kl10 ora #"0":sta zahl+2:stx zahl+1:lda zahl:cmp #"0":bne fini
  148. 1610 lda #" ":sta zahl:cpx #"0":bne fini:lda #" ":sta zahl+1
  149. 1612 fini lda #"":jsr charout:lda zahl:jsr charout:lda zahl+1:jsr charout
  150. 1614 lda zahl+2:jsr charout:lda #"":jmp charout
  151. 2000 windtab .byt 1,80,158:.wor 52,228
  152. 2002 .byt $b,4,11:.wor text1
  153. 2004 .byt $b,4,24:.wor text2
  154. 2006 .byt $b,4,37:.wor text3
  155. 2007 .byt $b,4,50:.wor text4
  156. 2008 .byt 2,16,58,1,1,58
  157. 2010 brk
  158. 2020 windtab2 .byt 1,80,118:.wor 52,228
  159. 2022 .byt $b,4,11:.wor text5
  160. 2028 .byt 4,16,18,3,1,18
  161. 2029 brk
  162. 2100 text1 .asc "sie koennen pro zug aus einer zeile":brk
  163. 2102 text2 .asc "beliebig viele hoelzer ziehen, aber":brk
  164. 2104 text3 .asc "nicht mehr als in der zeile vor-":brk
  165. 2106 text4 .asc "handen sind !":brk
  166. 2108 text5 .asc "wollen sie beginnen ?":brk
  167. 2110 einstxt .asc " streichholz":brk
  168. 2112 mehrtxt .asc " hoelzer":brk
  169. 2114 zeiltxt .asc ". zeile":brk
  170. 2200 beginner =$a000
  171. 2202 row .wor 0,0,0
  172. 2204 a brk
  173. 2206 zeile brk
  174. 2208 anzahl brk
  175. 2210 cosi brk
  176. 2212 spsi brk
  177. 2214 zahl .asc "...
  178.