home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 13 / Tiger_Disk_013_19xx_Tiger-Crew-Disk_de_Side_B.d64 / ----schluss!---- (.txt) next >
Commodore BASIC  |  2023-02-26  |  2KB  |  52 lines
  1. 10 poke53280,0:poke53281,0:print"[147]"
  2. 20 print"              [213][195][195][195][195][195][195][195][195][195][195][201]
  3. 30 [153]"              peekprinttoandposnewor^newposandtocontpeek
  4. 40 print"              [194]          [194]
  5. 50 [153]"              peekau revoir!waitcontpeek
  6. 60 print"              [194] [149]   ..   [154] [194]
  7. 70 [153]"              peek verify step(NULL)(NULL)(NULL)(NULL)(NULL) cont peek
  8. 80 print"              [194] [149]   ()   [154] [194]
  9. 90 [153]"              peek verify   mid$(NULL)   cont peek
  10. 95 print"              [202][195][184][184][184][184][184][184][184][184][146][195][203]
  11. 100 [153]"poke             *************rnd
  12. 110 print"[151]            [207]    [162][162][162][162][162][162]    [208]
  13. 120 [153]"poke            usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr
  14. 130 print"[129]     druecke                [162][162][162][162][162][162]         "
  15. 140 poke198,0:wait198,1:geta$
  16. 145 ifa$=chr$(160) then 150
  17. 150 poke53280,14:poke53281,0:
  18. 160 s=54272:pokes+24,15:pokes,33 :pokes+4,17:pokes+5,15:pokes+6,64:pokes+1,128
  19. 165 pokes+7,120:pokes+8,100:pokes+12,33:pokes+13,147
  20. 170 print"[147]":v=53248:pokev+21,1
  21. 175 fors1=12288to12350:readq1:pokes1,q1:next
  22. 180 fors2=12352to12414:readq2:pokes2,q2:next
  23. 185 fors3=10416to10478:readq3:pokes3,q3:next
  24. 190 pokev+39,5 :pokev+1,68:pokev,24:pokev+1,229
  25. 195 printtab(120)"                      "
  26. 200 p=192
  27. 205 forx=0to347step3
  28. 215 rx=int(x/256):lx=x-rx*256
  29. 220 pokev,lx:pokev+16,rx
  30. 225 ifp=192then gosub330
  31. 230 ifp=193then gosub350
  32. 235 poke2040,p:poke2040,p-2: fort=1to 100:next
  33. 240 p=p+1:ifp>194thenp=192
  34. 242 for y=0to250step-5:pokev+23,19:pokev+29,23:pokev+8,y:pokev+4,y
  35. 243 pokev+2,250:nexty
  36. 245 next
  37. 250 poke646,0:end
  38. 255 data244,88,240,134,84,128,197,82,192,132,212,128,244,88,240,0,0,0
  39. 260 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  40. 265 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  41. 270 data0,0,0,0,0,0,0,0,0
  42. 280 data1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
  43. 285 data1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
  44. 290 data1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
  45. 295 data1,1,1
  46. 305 data5,2,5,2,5,2,5,2,5,2,5,2,5,2,5,2,5,2,5,2
  47. 310 data7,2,7,2,7,2,7,2,7,2,7,2,7,2,7,2,7,2,7,2
  48. 315 data8,9,8,9,8,9,8,9,8,9,8,9,8,9,8,9,8,9,8,9,8,9,8
  49. 330 pokes+4,129:pokes+4,128:return
  50. 350 pokes+11,129:pokes+11,128:return
  51. 355 pokes+15,129:pokes+15,128:return
  52.