home *** CD-ROM | disk | FTP | other *** search
/ Rockford Magazine / Rockford_Magazine_004_19xx_-_de_Disk_1_of_2_Side_B.d64 / caveconverter (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  93 lines
  1. 0 ifi<>0then50
  2. 10 fori=0to23:readn:pokei+49152,n:next
  3. 20 input"[147]effektcave (j,n)";e$
  4. 22 print"wenn es flimmert, 30 sec warten! (128)
  5. 24 [153]"ohne flimmert,60 sec warten! (64)
  6. 30 input"name";n$
  7. 40 loadn$,8,1
  8. 50 sys49152
  9. 60 print"einen moment";
  10. 100 s=36372:n=0:t=28688
  11. 110 poke53296,1
  12. 120 ifn=1then140
  13. 130 n=1:a=int(peek(s)/16):goto150
  14. 140 n=0:a=peek(s)and15:s=s+1:print".";
  15. 150 ifa=0thenpoket,16
  16. 160 ifa=1thenpoket,20
  17. 170 ifa=2thenpoket,3
  18. 180 ifa=3thenpoket,2
  19. 190 ifa=4thenpoket,56
  20. 200 ifa=5thenpoket,42
  21. 210 ifa=6thenpoket,86
  22. 220 ifa=7thenpoket,1
  23. 230 ifa=8thenpoket,8
  24. 240 ifa=9thenpoket,48
  25. 250 ifa=10thenpoket,87
  26. 260 ifa=11thenpoket,57
  27. 270 ifa=12thenpoket,6
  28. 280 ifa=13thenpoket,4
  29. 290 ifa=14thenpoket,37
  30. 300 ifa=15thenpoket,0
  31. 310 t=t+1
  32. 320 ifs<36792then120
  33. 330 fori=0to39:poket,56:t=t+1:nexti:poke53296,0
  34. 340 t=36792:s=29568
  35. 350 pokes+0,int(peek(t+2)/100):poket+2,peek(t+2)-100*peek(s+0)
  36. 360 pokes+1,int(peek(t+2)/10):poket+2,peek(t+2)-10*peek(s+1)
  37. 370 pokes+2,peek(t+2)
  38. 380 pokes+3,int(peek(t+4)/100):poket+4,peek(t+4)-100*peek(s+3)
  39. 390 pokes+4,int(peek(t+4)/10):poket+4,peek(t+4)-10*peek(s+4)
  40. 400 pokes+5,peek(t+4)
  41. 410 pokes+6,int(peek(t+8)/100):poket+8,peek(t+8)-100*peek(s+6)
  42. 420 pokes+7,int(peek(t+8)/10):poket+8,peek(t+8)-10*peek(s+7)
  43. 430 pokes+8,peek(t+8)
  44. 440 pokes+9,int(peek(t+6)/100):poket+6,peek(t+6)-100*peek(s+9)
  45. 450 pokes+10,int(peek(t+6)/10):poket+6,peek(t+6)-10*peek(s+10)
  46. 460 pokes+11,peek(t+6)
  47. 470 pokes+13,peek(t+12)
  48. 480 pokes+20,peek(t+35)
  49. 490 pokes+21,peek(t+37)
  50. 500 pokes+22,peek(t+39)
  51. 510 pokes+23,peek(t+41)
  52. 520 pokes+24,peek(t+43)
  53. 530 pokes+26,peek(t+0)
  54. 540 pokes+33,peek(t+55)
  55. 550 pokes+39,peek(t+52)
  56. 560 pokes+40,peek(t+51)
  57. 570 pokes+44,peek(t+50)
  58. 580 pokes+15,peek(t+14)
  59. 590 pokes+12,0
  60. 600 pokes+14,0
  61. 610 pokes+16,0
  62. 620 pokes+17,0
  63. 630 pokes+18,127
  64. 640 pokes+19,15
  65. 650 pokes+25,peek(t+34)
  66. 660 pokes+27,peek(t+10)*31.875
  67. 670 pokes+28,0
  68. 680 pokes+29,240
  69. 690 pokes+30,46
  70. 700 pokes+31,44
  71. 710 pokes+32,0
  72. 720 pokes+34,10
  73. 730 pokes+35,10
  74. 740 pokes+36,0
  75. 750 pokes+37,1
  76. 760 pokes+38,2
  77. 770 pokes+41,20
  78. 780 pokes+42,20
  79. 790 pokes+43,86
  80. 800 pokes+45,20
  81. 810 pokes+46,20
  82. 820 pokes+47,24
  83. 930 ife$="j"then1000
  84. 940 pokes+39,0
  85. 950 pokes+40,16
  86. 960 pokes+44,22
  87. 1000 print:input"name";n$
  88. 1010 sys57812n$,8
  89. 1020 poke174,192:poke175,115:poke193,16:poke194,112
  90. 1030 sys62957
  91. 32000 data120,198,1,162,0,189,0,190,157,0,142,189,0,191,157,0,143,232,208,241
  92. 32001 data230,1,88,96
  93.