home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh5x / sh59b.d64 / op.holz (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  6KB  |  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 "]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.