home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 7 / Commodore_Disc_07_19xx_-_de.d64 / main (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  10KB  |  165 lines
  1. 100 poke55,0:poke56,48:poke646,15:poke53280,11:poke53281,0
  2. 110 forx=832to865:readq:pokex,q:next:sys832:poke55,0:poke56,64:poke53280,12
  3. 120 data120,169,51,133,1,169,0,133,95,133,90,133,88,169,208,133,96,169,240,133
  4. 130 data89,169,224,133,91,32,191,163,169,55,133,1,88,96
  5. 140 poke850,160:poke56576,peek(56576)and252:poke53272,8:poke648,192
  6. 150 print"[155][147]   you are going to enjoy :":print"       l o i s a i d a"
  7. 160 print"   \  marxims productions";chr$(142);chr$(8):poke53281,0
  8. 170 readze:ifze=-1thenprintchr$(142);chr$(8):goto840
  9. 180 fort=0to7:readq:poke57344+ze*8+t,q:next:goto170
  10. 190 data64,,,,,,,,,65,,,,2,10,10,38,42,66,,10,170,170,106,169,170,154,67
  11. 200 data170,170,154,170,169,170,170,106,68,,160,170,154,166,170,154,170,69,,,
  12. 210 data128,160,160,104,168,70,,,2,2,2,10,10,58,71,,,128,128,128,160,96,172,72
  13. 220 data250,202,202,202,250,250,62,62,73,175,163,163,163,175,175,188,188,74,14
  14. 230 data15,15,11,11,3,3,2,75,170,154,170,166,170,250,255,255,76,170,170,154,170
  15. 240 data170,106,169,250,77,170,166,170,170,170,154,170,175,78,170,170,154,170
  16. 250 data170,175,255,255,79,176,240,240,240,240,192,192,128,80,255,207,170,42,42
  17. 260 data42,10,10,81,255,255,255,207,170,154,170,169,82,255,255,255,255,207,170
  18. 270 data166,170,83,255,255,255,255,250,170,170,166,84,255,255,255,250,170,154
  19. 280 data170,170,85,255,250,170,104,168,168,160,160,86,170,170,9,,,,,,87,170,169
  20. 290 data154,170,,,,,88,170,170,154,170,,,,,89,170,154,192,,,,,,90,40,170,154
  21. 300 data170,166,170,170,40,91,,,1,1,5,5,21,21,92,21,85,85,85,85,85,85,85,93,84
  22. 310 data85,85,85,85,85,85,85,95,85,85,85,85,85,85,85,85,99,21,21,5,5,1,1,,,100
  23. 320 data85,85,85,85,85,85,85,21,101,85,85,85,85,85,85,85,84,102,84,84,80,80,64
  24. 330 data64,,,94,,,64,64,80,80,84,84,103,48,,195,,12,48,3,12,104,192,48,3,204,
  25. 340 data60,,12,105,192,,48,3,48,192,48,12,106,3,192,,48,,192,,12,107,192,3,,48
  26. 350 data,192,,3
  27. 360 data1,124,134,134,254,134,134,,,2,254,134,254,132,134,254,,,3,124,142,128
  28. 370 data128,142,124,,,4,252,134,134,134,134,252,,,5,254,128,240,128,254,254,,
  29. 380 data6,254,128,248,192,128,128,,,7,124,130,128,142,134,126,,,8,134,134,254
  30. 390 data134,134,134,,,9,60,24,16,16,24,60,,,10,62,12,12,12,12,72,48,,11,142,156
  31. 400 data160,192,184,156,,,12,128,128,128,128,128,252,,,13,206,238,182,134,134
  32. 410 data134,,,14,198,230,182,158,142,142,,,15,48,206,134,134,206,48,,,16,252
  33. 420 data142,252,128,128,128,,,17,120,134,134,134,158,124,6,,18,248,142,142,248
  34. 430 data144,142,,,19,60,96,64,60,12,248,,,20,254,28,24,24,24,24,,,21,134,70,70
  35. 440 data70,70,60,,,22,134,198,70,102,44,24,,,23,134,134,134,166,220,140,,,24
  36. 450 data134,76,48,48,76,134,,,25,130,70,44,24,16,16,,,26,254,6,12,120,192,254,,
  37. 460 data40,,192,60,18,17,8,8,4,41,,6,60,72,136,16,16,32,42,4,4,4,68,136,136,80
  38. 470 data32,43,32,32,32,34,17,17,10,4,28,60,66,153,161,161,153,66,60,-1
  39. 480 data,,,,,,,,,,,,,255,,7,255,224,31,241,248,63,241,252,127,255,254,127,255
  40. 490 data254,255,255,255,255,255,255,255,254,,255,255,255,255,255,255,127,255
  41. 500 data254,127,255,254,63,255,252,31,255,248,7,255,224,,255,,,,,,,,,,,,,,,255,
  42. 510 data7,255,224,31,241,240,63,241,224,127,255,192,127,255,128,255,255,,255
  43. 520 data254,,255,252,,255,254,,255,255,,127,255,128,127,255,192,63,255,224,31
  44. 530 data255,240,7,255,224,,255,,,16,,,56,,,56,16,,56,56,16,56,56,56,56,56,56,56
  45. 540 data56,56,56,56,56,56,56,56,56,56,56,108,56,56,,56,56,8,108,56,16,,56,104
  46. 550 data16,108,32,,16,8,16,32,,4,16,32,32,72,,,16,,,,16,,,56,,,56,16,,56,56,16
  47. 560 data56,56,56,56,56,56,56,56,56,56,56,56,56,56,56,56,56,56,108,56,56,,56,,16
  48. 570 data108,56,,,108,64,16,32,16,32,16,,32,,4,24,40,16,4,,,16,,,,,,,,,,,124,,
  49. 580 data254,,1,255,,1,79,192,1,79,224,1,79,240,1,239,56,1,255,28,,254,4,,254,,
  50. 590 data124,,,124,,,108,,,110,48,,199,120,,193,216,,49,8,1,96,,1,224,,,,,,,,
  51. 600 data124,,,254,,1,255,,1,79,192,1,79,224,1,79,240,1,239,56,1,255,28
  52. 610 data,254,4,,254,,,124,,,124,,,236,,1,204,,3,140,,55,6,,54,3,,28,5,128,12,7
  53. 620 data128,48,,,240,,,255,4,60,63,15,253,63,255,240,15,191,192,15,191
  54. 630 data,13,255,,13,255,,3,255,192,3,245,192,3,247,192,7,253,240,3,255,240,3
  55. 640 data255,240,3,243,248,3,240,248,,240,42,,240,32,,48,,,52,34,48,,,240,32,
  56. 650 data255,4,60,63,15,253,63,255,240,15,191,192,15,191,,13,255,,13,255,,3,255
  57. 660 data192,3,255,192,35,247,192,7,253,240,3,255,240,3,255,242,3,243,248,3,246
  58. 670 data250,,240,32,,240,34,,48,136,,52,,,52,34,,48,,,240,32,,240,42,3,240,248
  59. 680 data3,243,248,3,255,240,3,255,240,7,253,240,3,247,192,3,245,192,3,255,192
  60. 690 data13,255,,13,255,,15,191,,15,191,192,63,255,240,63,15,253,255,4,60,240,,
  61. 700 data48,,,,52,,,48,136,,240,34,,240,32,3,240,250,3,243,248,3,255,242,3,255
  62. 710 data240,7,253,240,35,247,192,3,245,192,3,255,192,13,255,,13,255,,15,191,,15
  63. 720 data191,192,63,255,240,63,15,253,255,4,60,240,32,,48,,,,,,,,13,,,60,,3,240,
  64. 730 data63,192,,127,,3,255,,15,247,,15,247,8,253,239,226,253,239,232,253,239
  65. 740 data224,253,239,232,15,247,,15,247,2,3,255,,,127,,,63,192,,3,240,,,60,,,13
  66. 750 data,,,,,13,,,60,,3,240,,63,192,,127,,3,255,,15,247,2,15,247,,253,239,224
  67. 760 data253,239,226,253,239,232,253,239,226,15,247,8,15,247,,3,255,,,127,,,63
  68. 770 data192,,3,240,,,60,,,13,,60,,,60,,,60,,,60,,,255,,,215,,,215,,3,255,192,3
  69. 780 data255,192,3,255,192,7,215,208,15,125,240,15,255,240,15,255,240,15,60,240
  70. 790 data63,60,252,60,40,60,48,8,12,240,8,15,192,2,3,64,128,1,64,128,1,192,8,3
  71. 800 data240,3,15,48,8,15,60,40,60,63,60,252,15,60,240,15,255,240,15,255,240,15
  72. 810 data125,240,7,215,208,19,255,224,3,255,192,3,255,192,,215,,,215,,,255,,,60
  73. 820 data,,60,,,60,,,60,,202,2,255,255,,3,255,128,2,180,128,,56,224,32,179,,,47
  74. 830 data128,2,15,130,,15,192,,,240,,,60,,,1
  75. 840 fori=0to768step64:m=m+1:foru=0to62:readx:poke50176+i+u,x:nextu:nexti
  76. 850 foru=0to62:readx:poke51072+u,x:poke51200+u,0:next:fori=0to34:readx
  77. 860 poke51219+i,x:next:forp=0to64step64:fori=0to60step3:foru=0to2
  78. 870 poke51452+u-i-p,peek(50304+i+u+p):nextu:nexti:nextp
  79. 880 data64,65,66,67,67,68,69,64,70,67,67,67,67,67,67,71,72,67,67,67,67,67,67,73
  80. 890 data74,75,76,67,67,77,78,79,64,80,81,82,83,84,85,64,64,64,86,87,88,89,64,64
  81. 900 data64,64,64,64,64,64,64,64,90,64,64,64,91,92,93,94,64,64,64,64,95,95,95,95
  82. 910 data64,64,64,64,99,100,101,102,91,92,93,94,64,64,64,64,95,95,95,95,64,103
  83. 920 data64,64,99,100,101,102,64,104,105,106,64,64,64,64,64,64,104,107
  84. 930 data1,1,17,10,9,31,5,45,4,73,15,57,17,99,17,113,13,130,28,14,25,82,28,133
  85. 940 data35,130,35,15,36,36,42,17,43,51,44,3,38,86,57,32,60,49,49,84,58,131,62
  86. 950 data69,81,19,77,46,75,89,63,110,69,115,6,16,1,127,1,54,1,118,10,78,10,107
  87. 960 data23,6,24,47,24,74,23,118,29,30,36,59,35,109,48,20,50,36,49,53,46,69,44
  88. 970 data92,50,98,55,77,57,15,74,1,66,17,68,64,80,56,80,94,64,133,80,133
  89. 980 data48,48,,192,60,48,204,204,48,48,,204,48,48,204,204,,,12,12,51,12,63,51
  90. 990 data12,12,,51,12,12,51,51,48,48,,12,240,48,204,204,48,48,204,48,48,204,204,
  91. 1000 data,,48,48,204,48,252,204,12,12,51,12,12,51,51,,,48,48,12,240,48,204,204
  92. 1010 data48,252,48,48,204,204,,,,48,48,192,60,48,204,204,48,48,,204,48,48,204
  93. 1020 fori=0to111:readx:poke51904+i,x:next:fori=0to113:readx:poke52032+i,x:next
  94. 1030 fori=0to95:readx:poke52352+i,x:next:fori=0to127:poke53120+i,0:next
  95. 1040 fori=0to42step3:foru=0to2:poke53120+i+u,170:poke53184+i+u,170:nextu:i=i+3
  96. 1050 nexti:fori=0to79:readx:poke52992+i,x:poke57728+i,x:next
  97. 1060 data204,48,72,132,132,132,132,72,48,16,48,80,144,24,24,24,24,48,72,136,8,16
  98. 1070 data80,160,92,112,136,4,8,24,4,200,48,8,24,40,72,136,252,8,8,124,128,128
  99. 1080 data184,8,4,152,96,56,68,128,176,200,132,72,48,156,96,4,8,48,24,32,64,48
  100. 1090 data72,72,48,72,132,72,48,56,68,132,72,56,8,144,96
  101. 1100 dimpk(10):dimmi(10):dimn$(10):u=10:fori=0to10:pk(i)=100+u*10:u=u-1:mi(i)=2
  102. 1110 n$(i)="amiga fascination":next:poke699,6:poke691,9:poke692,0
  103. 1120 gosub1450:print"[147][152]    ()[157][157]*+ arxims productions presents :"
  104. 1130 print"  l    o    i    s    a    i    d    a"
  105. 1140 print"[151]    written    and    styled    by  :"
  106. 1150 print"      \  t h o m a s    m a r x":poke198,0
  107. 1160 getg$:ifg$=""then1160
  108. 1170 print"[147]  please choose   your   difficulty :":d=4:o=0:m=o
  109. 1180 print"   n ovice      a dvanced    e xpert"
  110. 1190 getg$:ifg$<>"n"andg$<>"a"andg$<>"e"then1190
  111. 1200 ifg$="a"thend=11
  112. 1210 ifg$="e"thend=19
  113. 1220 gosub1480
  114. 1230 d=d+1:m=m+1:poke729,d:print"[147]     >>>>  a t t e n t i o n !!  <<<<"
  115. 1240 print"         rescue the victims in "
  116. 1250 print"            your  mission :";m
  117. 1260 print"     rescued persons till now: ";o:fori=oto3000:next:poke646,9
  118. 1270 print"[147]":poke674,peek(45):poke675,peek(46):sys22203:poke45,peek(674)
  119. 1280 poke46,peek(675):o=o+peek(734)-48+(peek(733)-48)*10+(peek(732)-48)*100
  120. 1290 gosub1450:ifpeek(698)=0then1230
  121. 1300 print"[147]     the enemies destroyed your ship."
  122. 1310 print"  the number of rescued persons is :";o
  123. 1320 print"     you succeded in ";m;" missions":fori=0to5000:next
  124. 1330 ifo<pk(9)then1380
  125. 1340 fori=9to0step-1:ifpk(i)>othenl=i+1:i=0
  126. 1350 next:if0>pk(0)thenl=0
  127. 1360 fori=9tolstep-1:n$(i+1)=n$(i):pk(i+1)=pk(i)
  128. 1370 mi(i+1)=mi(i):next:n$(l)=a$:pk(l)=o:mi(l)=m
  129. 1380 print"[147][153] \ \  g r e a t  h e r o s  l i s t \ \"
  130. 1390 fori=0to9:poke214,4+i*2:poke211,4:printn$(i);:poke211,25:printpk(i);
  131. 1400 poke211,33:printmi(i):next:print"        \  marxims   productions"
  132. 1410 fori=0to720step80:fort=0to21:poke55416+i+t,1:nextt:fort=22to29
  133. 1420 poke55416+i+t,0:nextt:fort=30to39:poke55416+i+t,7:nextt:next:poke198,0
  134. 1430 getg$:ifg$=""then1430
  135. 1440 goto1120
  136. 1450 poke699,7:sys24576:poke706,208:poke707,104:poke708,0:poke53270,200
  137. 1460 poke703,2:poke704,0:poke705,7:poke700,12:poke701,11:poke702,15
  138. 1470 poke53265,19:return
  139. 1480 print"[147]    enter name :  ................":fori=1to16:poke722,0
  140. 1490 getg$:ifg$=""then1490
  141. 1500 b=asc(g$):ifb=32orb=13orb=20then1520
  142. 1510 ifb<47orb>91then1490
  143. 1520 ifb<>20then1550
  144. 1530 i=i-1:poke722+i,32:ifi=0theni=1
  145. 1540 poke722,i:poke49329+i,46:poke722,i-1:goto1490
  146. 1550 ifb=13theni=16:goto1580
  147. 1560 poke722+i,b:ifb>63thenb=b-64
  148. 1570 poke49329+i,b:poke722,i
  149. 1580 next:a$="":fori=1topeek(722):a$=a$+chr$(peek(722+i)):next:return
  150. 1590 ***********************************
  151. 1600 *                                 *
  152. 1610 *      (c) copyright   by :       *
  153. 1620 *                                 *
  154. 1630 *      marxims  productions       *
  155. 1640 *                                 *
  156. 1650 *      veilchenstrasse 56         *
  157. 1660 *                                 *
  158. 1670 *      4 3 7 0  m a r l           *
  159. 1680 *                                 *
  160. 1690 *      music composed by:         *
  161. 1700 *                                 *
  162. 1710 *      (c) skinny soft            *
  163. 1720 *                                 *
  164. 1730 ***********************************
  165.