home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 90xx / 9010b.d64 / turbo-apfel.bas (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  8KB  |  387 lines
  1. 100 REM" ******************************
  2. 101 [143]" *                            *
  3. 102 REM" * [212]URBO-[193]PFELMAENNCHEN  [214]1.6 *
  4. 103 [143]" *                            *
  5. 104 REM" ******************************
  6. 105 :
  7. 106 [151] 52,80:[151] 56,80
  8. 107 [151] 53280,15:[151] 53281,0
  9. 108 [153]"LOAD":[151] 650,128
  10. 109 :
  11. 110 [139] A[178]0 [167] A[178]1:[147]"TURBO-APFEL.OBJ",8,1
  12. 111 :
  13. 112 K1$[178]"TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO"
  14. 113 K2$[178]"NEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEWNEW"
  15. 114 K3$[178]"                                        "
  16. 115 :
  17. 116 [143]" ------------------------------
  18. 117 REM" [211]TARTWERTE
  19. 118 [143]" ------------------------------
  20. 119 :
  21. 120 LI=-2.4:RE=1:UN=-1.25:OB=1.25
  22. 121 DX=(RE-LI)/159:DY=(UN-OB)/199
  23. 122 IT=40:POKE 254,IT
  24. 123 BK=0:C1=14:C2=6:C3=3
  25. 124 :
  26. 125 FOR I=23424 TO 23550
  27. 126 : READ J
  28. 127 : POKE I,J
  29. 128 NEXT I
  30. 129 :
  31. 130 POKE 176,70:POKE 51028,0
  32. 131 :
  33. 132 IF PEEK(2)=1 THEN GOSUB 446
  34. 133 :
  35. 134 REM" ------------------------------
  36. 135 [143]" LEFT$AUPTMENU
  37. 136 REM" ------------------------------
  38. 137 :
  39. 138 KO$[178]"(null)URBO-ATNPFELMAENNCHEN":KO[178]1
  40. 139 [141] 438
  41. 140 [153]:[153]
  42. 141 [153]"   [ 1 ]   STR$ATEN ANZEIGEN / EINGEBEN"
  43. 142 [153]
  44. 143 [153]"   [ 2 ]   PEEKILD LADEN"
  45. 144 [153]"   [ 3 ]CLOSE  PEEKILD SPEICHERN"
  46. 145 [153]
  47. 146 [153]"   [ 4 ]CLOSE  PEEKILD BERECHNEN"
  48. 147 [153]"   [ 5 ]   ATNUSSCHNITT BERECHNEN"
  49. 148 [153]
  50. 149 [153]"   [ 6 ]   PEEKILD ANZEIGEN"
  51. 150 [153]"   [ 7 ]   ASCARBEN ANZEIGEN / EINGEBEN"
  52. 151 [153]"   [ 8 ]   ASCARBROTATION 1"
  53. 152 [153]"   [ 9 ]   ASCARBROTATION 2"
  54. 153 [153]
  55. 154 [153]"   [ 0 ]   STR$IRECTORY"
  56. 155 :
  57. 156 [151] 198,0:[146] 198,1:[161] A$:[139] A$[179]"0" [176] A$[177]"9" [167] 156
  58. 157 [145] [197](A$)[170]1 [141] 164,199,226,252,279,291,375,390,416,417
  59. 158 [137] 138
  60. 159 :
  61. 160 [143]" ------------------------------
  62. 161 REM" [196]IRECTORY
  63. 162 [143]" ------------------------------
  64. 163 :
  65. 164 KO$="[196]IRECTORY":KO=0
  66. 165 GOSUB 438
  67. 166 PRINT:ZE=0
  68. 167 :
  69. 168 OPEN 15,8,15:OPEN 2,8,0,"$"         
  70. 169 :
  71. 170 INPUT#15,F$,FE$,FT$,FS$
  72. 171 IF F$="00" THEN 175
  73. 172 PRINT""F$", "FE$", "FT$", "FS$
  74. 173 GOTO 191
  75. 174 :
  76. 175 POKE 781,2:SYS 65478
  77. 176 GET A$,A$:NT$=CHR$(0):BY=13
  78. 177 :
  79. 178 GET A$,A$,L$,H$
  80. 179 IF ST THEN SYS 65484:GOTO 190
  81. 180 PRINT"  "ASC(L$+NT$)+256*ASC(H$+NT$);
  82. 181 :
  83. 182 FOR I=1 TO BY:GET A$,B$:PRINT A$B$;:NEXT I
  84. 183 :
  85. 184 PRINT
  86. 185 BY=14:ZE=ZE+1:IF ZE<19 THEN 178
  87. 186 :
  88. 187 POKE 198,0:WAIT 198,1:POKE 198,0
  89. 188 GOSUB 438:PRINT:ZE=0:GOTO 178
  90. 189 :
  91. 190 IF ZE=0 THEN 192
  92. 191 CLOSE 2:CLOSE 15
  93. 192 POKE 198,0:WAIT 198,1:POKE 198,0
  94. 193 RETURN
  95. 194 :
  96. 195 REM" ------------------------------
  97. 196 [143]" STR$ATEN ANZEIGEN/EINGEBEN
  98. 197 REM" ------------------------------
  99. 198 :
  100. 199 KO$[178]"STR$ATEN ANZEIGEN/EINGEBEN":KO[178]1
  101. 200 [141] 438:[153]:[153]
  102. 201 :
  103. 202 [153]" (null)EUE VALINGABEN FUER NEUE (null)ERTE. (null)UR"
  104. 203 [153]" (null)VAL(null)(null)(null)(null) VERAENDERT NICHTS."
  105. 204 :
  106. 205 [153]:[153]
  107. 206 [153]" (null)INKER  (null)AND   ? ";LI
  108. 207 [153]"ON"[163]16);:[133] LI
  109. 208 [153]" (null)ECHTER (null)AND   ? ";RE
  110. 209 [153]"ON"[163]16);:[133] RE
  111. 210 [153]
  112. 211 [153]" (null)NTERER (null)AND   ? ";UN
  113. 212 [153]"ON"[163]16);:[133] UN
  114. 213 [153]" (null)BERER  (null)AND   ? ";OB
  115. 214 [153]"ON"[163]16);:[133] OB
  116. 215 [153]:[153]
  117. 216 [153]" RIGHT$TERATIONSGRENZE <256?";IT
  118. 217 [153]"ON"[163]22);:[133] IT
  119. 218 [139] IT[179]1 [176] IT[177]255 [167] [153]"ON"[163]24)[200](K3$,[195]([196](IT)))"ON":IT[178]0:[137] 216
  120. 219 :
  121. 220 [142]
  122. 221 :
  123. 222 [143]" ------------------------------
  124. 223 REM" [194]ILD LADEN
  125. 224 [143]" ------------------------------
  126. 225 :
  127. 226 KO$="[194]ILD LADEN":KO=1
  128. 227 GOSUB 438:PRINT:PRINT
  129. 228 :
  130. 229 PRINT" [194]ITTE [206]AME OHNE 'AP.' ANGEBEN."
  131. 230 PRINT:PRINT:NA$=""
  132. 231 INPUT" [206]AME";NA$
  133. 232 :
  134. 233 IF NA$="" THEN RETURN
  135. 234 SYS 49182,"AP."+NA$,8,1
  136. 235 :
  137. 236 OPEN 15,8,15
  138. 237 INPUT#15,F$,FE$,FT$,FS$
  139. 238 CLOSE 15
  140. 239 :
  141. 240 PRINT" "F$", "FE$", "FT$", "FS$
  142. 241 IF F$<>"00" THEN 245
  143. 242 :
  144. 243 GOSUB 446
  145. 244 :
  146. 245 POKE 198,0:WAIT 198,1:POKE 198,0
  147. 246 RETURN
  148. 247 :
  149. 248 REM" ------------------------------
  150. 249 [143]" PEEKILD SPEICHERN
  151. 250 REM" ------------------------------
  152. 251 :
  153. 252 KO$[178]"PEEKILD SPEICHERN":KO[178]1
  154. 253 [141] 438:[153]:[153]
  155. 254 :
  156. 255 [139] [194](2)[178]1 [167] 259
  157. 256 [153]" VALS BEFINDET SICH KEIN PEEKILD IM (null)PEICHER"
  158. 257 [137] 272
  159. 258 :
  160. 259 [153]" PEEKITTE (null)AME OHNE 'AP.' ANGEBEN."
  161. 260 [153]:[153]:NA$[178]""
  162. 261 [133]" (null)AME";NA$
  163. 262 :
  164. 263 [139] NA$[178]"" [167] [142]
  165. 264 :
  166. 265 [158] 49179,"AP."[170]NA$,8
  167. 266 :
  168. 267 [159] 15,8,15
  169. 268 [132]15,F$,FE$,FT$,FS$
  170. 269 [153]" "F$", "FE$", "FT$", "FS$
  171. 270 [160] 15
  172. 271 :
  173. 272 [151] 198,0:[146] 198,1:[151] 198,0
  174. 273 [142]
  175. 274 :
  176. 275 [143]" ------------------------------
  177. 276 REM" [194]ILD BERECHNEN
  178. 277 [143]" ------------------------------
  179. 278 :
  180. 279 POKE 2,0:POKE 254,IT
  181. 280 GOSUB 452:SYS 49161
  182. 281 SYS 49170:SYS 49176
  183. 282 POKE 2,1
  184. 283 POKE 198,0:WAIT 198,1:POKE 198,0
  185. 284 GOSUB 456
  186. 285 RETURN
  187. 286 :
  188. 287 REM" ------------------------------
  189. 288 [143]" ATNUSSCHNITT BERECHNEN
  190. 289 REM" ------------------------------
  191. 290 :
  192. 291 KO$[178]"ATNUSSCHNITT BERECHNEN":KO[178]1
  193. 292 [141] 438:[153]:[153]
  194. 293 :
  195. 294 [139] [194](2)[178]1 [167] 299
  196. 295 [153]" VALS BEFINDET SICH KEIN PEEKILD IM (null)PEICHER"
  197. 296 [151] 198,0:[146] 198,1:[151] 198,0
  198. 297 [142]
  199. 298 :
  200. 299 [153]" ATNUSWAHL DES PEEKILDAUSSCHNITTES MIT DEN"
  201. 300 [153]" LEN(null)(null)(null)(null)(null)-(null)ASTEN."
  202. 301 [153]
  203. 302 [153]" +/- VERGROESSERT/VERKLEINERT DEN ATNUS-"
  204. 303 [153]" SCHNITT."
  205. 304 [153]
  206. 305 [153]" ^ BESCHLEUNIGT ALLE PEEKEWEGUNGEN."
  207. 306 [153]" (null)OCHMALIGES STR$RUECKEN HEBT DIE PEEKE-"
  208. 307 [153]" SCHLEUNIGUNGEN WIEDER AUF."
  209. 308 [153]
  210. 309 [153]" VALNDE DER ATNUSWAHL MIT (null)VAL(null)(null)(null)(null)."
  211. 310 [153]
  212. 311 [153]" ATNBBRUCH MIT (null)."
  213. 312 :
  214. 313 [151] 198,0:[146] 198,1:[161] A$
  215. 314 [139] A$[178]"Q" [167] [142]
  216. 315 :
  217. 316 [141] 452
  218. 317 [151] 24568,110:[151] 24569,111
  219. 318 X1[178]0:Y1[178]0:Y2[178]24:X2[178]Y2[172]1.6:SP[178]1:XS[178]2
  220. 319 [151] 53287,1:[151] 53288,1
  221. 320 [151] 53269,3
  222. 321 :
  223. 322 H1[178]X1[170]24
  224. 323 [151] 53249,Y1[170]50:[151] 53251,Y2[170]30
  225. 324 HI[178][194](53264) [175] 252
  226. 325 HI[178]HI[170]([171]1[172]([181](H1)[177]255))
  227. 326 HI[178]HI[170]([171]2[172]([181](X2)[177]255))
  228. 327 [151] 53264,HI
  229. 328 [151] 53248,H1 [175] 255
  230. 329 [151] 53250,X2 [175] 255
  231. 330 :
  232. 331 [151] 198,0:[146] 198,1:[161] A$
  233. 332 [139] A$[178]"^" [167] SP[178]9[171]SP:XS[178]10[171]XS
  234. 333 [139] A$[178]"" [167] 353
  235. 334 [139] A$[178]"CMD" [167] 356
  236. 335 [139] A$[178]"" [167] 359
  237. 336 [139] A$[178]"ON" [167] 362
  238. 337 [139] A$[178]"+" [167] 365
  239. 338 [139] A$[178]"-" [167] 368
  240. 339 [139] A$[179][177][199](13) [175] A$[179][177]"Q" [167] 331
  241. 340 [139] A$[178]"Q" [167] [151] 53269,0:[141] 456:[142]
  242. 341 :
  243. 342 RE[178]LI[170](X2[173]2)[172]DX:LI[178]LI[170](X1[173]2)[172]DX
  244. 343 UN[178]OB[170]Y2[172]DY:OB[178]OB[170]Y1[172]DY
  245. 344 DX[178](RE[171]LI)[173]159:DY[178](UN[171]OB)[173]199
  246. 345 :
  247. 346 [151] 53269,0:[141] 456:[141] 438
  248. 347 [153]:[153]
  249. 348 [153]" RIGHT$TERATIONSGRENZE <256?";IT
  250. 349 [153]"ON"[163]22);:[133] IT
  251. 350 [139] IT[179]1 [176] IT[177]255 [167] [153]"ON"[163]24)[200](K3$,[195]([196](IT)))"ON":IT[178]0:[137] 348
  252. 351 [137] 279
  253. 352 :
  254. 353 [139] X2[170]XS[177]319 [167] 331
  255. 354 X1[178]X1[170]SP:X2[178]X2[170]SP:[137] 322
  256. 355 :
  257. 356 [139] X1[171]XS[179]0 [167] 331
  258. 357 X1[178]X1[171]SP:X2[178]X2[171]SP:[137] 322
  259. 358 :
  260. 359 [139] Y2[170]SP[177]199 [167] 331
  261. 360 Y1[178]Y1[170]SP:Y2[178]Y2[170]SP:[137] 322
  262. 361 :
  263. 362 [139] Y1[171]SP[179]0 [167] 331
  264. 363 Y1[178]Y1[171]SP:Y2[178]Y2[171]SP:[137] 322
  265. 364 :
  266. 365 [139] Y2[170]SP[177]199 [176] X2[170]SP[172]1.6[177]319 [167] 331
  267. 366 Y2[178]Y2[170]SP:X2[178]X2[170]SP[172]1.6:[137] 322
  268. 367 :
  269. 368 [139] Y2[171]Y1[171]SP[179]2 [167] 331
  270. 369 Y2[178]Y2[171]SP:X2[178]X2[171]SP[172]1.6:[137] 322
  271. 370 :
  272. 371 [143]" ------------------------------
  273. 372 REM" [194]ILD ANZEIGEN
  274. 373 [143]" ------------------------------
  275. 374 :
  276. 375 IF PEEK(2)=1 THEN 381
  277. 376 KO$="[194]ILD ANZEIGEN":KO=1
  278. 377 GOSUB 438:PRINT:PRINT
  279. 378 PRINT" [197]S BEFINDET SICH KEIN [194]ILD IM [211]PEICHER"
  280. 379 GOTO 382
  281. 380 :
  282. 381 GOSUB 452
  283. 382 POKE 198,0:WAIT 198,1:POKE 198,0
  284. 383 GOSUB 456
  285. 384 RETURN
  286. 385 :
  287. 386 REM" ------------------------------
  288. 387 [143]" ASCARBEN ANZEIGEN/EINGEBEN
  289. 388 REM" ------------------------------
  290. 389 :
  291. 390 KO$[178]"ASCARBEN ANZEIGEN/EINGEBEN":KO[178]1
  292. 391 [141] 438:[153]:[153]
  293. 392 :
  294. 393 [153]" (null)EUE VALINGABEN FUER NEUE (null)ERTE. (null)UR"
  295. 394 [153]" (null)VAL(null)(null)(null)(null) VERAENDERT NICHTS."
  296. 395 [153]:[153]
  297. 396 [153]" ASCARBE #1?";C1
  298. 397 [153]"ON"[163]9);:[133] C1
  299. 398 [139] C1[179]0 [176] C1[177]15 [167] [153]"ON"[163]11)[200](K3$,[195]([196](C1)))"ON":C1[178]0:[137] 396
  300. 399 [153]" ASCARBE #2?";C2
  301. 400 [153]"ON"[163]9);:[133] C2
  302. 401 [139] C2[179]0 [176] C2[177]15 [167] [153]"ON"[163]11)[200](K3$,[195]([196](C2)))"ON":C2[178]0:[137] 399
  303. 402 [153]" ASCARBE #3?";C3
  304. 403 [153]"ON"[163]9);:[133] C3
  305. 404 [139] C3[179]0 [176] C3[177]15 [167] [153]"ON"[163]11)[200](K3$,[195]([196](C3)))"ON":C3[178]0:[137] 402
  306. 405 [153]
  307. 406 [153]" LEFT$INTERGRUND?";BK
  308. 407 [153]"ON"[163]12);:[133] BK
  309. 408 [139] BK[179]0 [176] BK[177]15 [167] [153]"ON"[163]14)[200](K3$,[195]([196](BK)))"ON":BK[178]0:[137] 406
  310. 409 :
  311. 410 [142]
  312. 411 :
  313. 412 [143]" ------------------------------
  314. 413 REM" [197]FFEKTE 1 & 2
  315. 414 [143]" ------------------------------
  316. 415 :
  317. 416 AD=49164:GOTO 419
  318. 417 AD=49167
  319. 418 :
  320. 419 IF PEEK(2)=1 THEN 426
  321. 420 KO$="[198]ARBROTATION"+STR$(VAL(A$)-7):KO=1
  322. 421 GOSUB 438:PRINT:PRINT
  323. 422 PRINT" [197]S BEFINDET SICH KEIN [194]ILD IM [211]PEICHER"
  324. 423 POKE 198,0:WAIT 198,1:POKE 198,0
  325. 424 RETURN
  326. 425 :
  327. 426 GOSUB 452
  328. 427 POKE 198,0:WAIT 198,1:POKE 198,0
  329. 428 SYS AD
  330. 429 POKE 198,0:WAIT 198,1:GET A$
  331. 430 IF A$<>CHR$(13) THEN 428
  332. 431 GOSUB 456
  333. 432 RETURN
  334. 433 :
  335. 434 REM" ------------------------------
  336. 435 [143]" (null)NTERPROGRAMME
  337. 436 REM" ------------------------------
  338. 437 :
  339. 438 [153]"LOAD";
  340. 439 [139] KO[179][177]0 [167] [129] I[178]1 [164] KO:[153]:[130] I
  341. 440 LE[178][195](KO$):SP[178]20[171]LE[173]2
  342. 441 [153] [163]SP);[200](K1$,LE)
  343. 442 [153] [163]SP);"";KO$;"WAITLISTRND"
  344. 443 [153] [163]SP);"LOG";[200](K2$,LE[171]1);"WAITCOS"
  345. 444 [142]
  346. 445 :
  347. 446 C[178][194](158):C3[178][194](159)
  348. 447 C1[178][181](C[173]16):C2[178]C [175] 15
  349. 448 BK[178][194](167):[158] 49173:[151] 2,1
  350. 449 IT[178][194](254)
  351. 450 [142]
  352. 451 :
  353. 452 [151] 53280,0:[151] 53281,BK
  354. 453 [158] 49152:[158] 49158,C1,C2,C3
  355. 454 [142]
  356. 455 :
  357. 456 [151] 53280,15:[151] 53281,0:[158] 49155
  358. 457 [142]
  359. 458 :
  360. 459 [143]" ------------------------------
  361. 460 REM" [211]PRITE-[196]ATEN
  362. 461 [143]" ------------------------------
  363. 462 :
  364. 463 DATA 255,255,255,192,  0,  0
  365. 464 DATA 192,  0,  0,192,  0,  0
  366. 465 DATA 192,  0,  0,192,  0,  0
  367. 466 DATA 192,  0,  0,192,  0,  0
  368. 467 DATA 192,  0,  0,192,  0,  0
  369. 468 DATA 192,  0,  0,192,  0,  0
  370. 469 DATA 192,  0,  0,192,  0,  0
  371. 470 DATA 192,  0,  0,192,  0,  0
  372. 471 DATA 192,  0,  0,192,  0,  0
  373. 472 DATA 192,  0,  0,192,  0,  0
  374. 473 DATA 192,  0,  0
  375. 474 DATA 0
  376. 475 DATA   0,  0,  3,  0,  0,  3
  377. 476 DATA   0,  0,  3,  0,  0,  3
  378. 477 DATA   0,  0,  3,  0,  0,  3
  379. 478 DATA   0,  0,  3,  0,  0,  3
  380. 479 DATA   0,  0,  3,  0,  0,  3
  381. 480 DATA   0,  0,  3,  0,  0,  3
  382. 481 DATA   0,  0,  3,  0,  0,  3
  383. 482 DATA   0,  0,  3,  0,  0,  3
  384. 483 DATA   0,  0,  3,  0,  0,  3
  385. 484 DATA   0,  0,  3,  0,  0,  3
  386. 485 DATA 255,255,255
  387.