home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 10 / 010.d81 / introductions (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  5KB  |  109 lines
  1. 0 iflf>0then63000
  2. 1 rem:*********************************
  3. 2 rem:                                *
  4. 3 rem:        introductions           *
  5. 4 rem:                                *
  6. 5 rem:   (c) 1984 by tom jeffries     *
  7. 6 rem:                                *
  8. 7 rem:                                *
  9. 8 rem:*********************************
  10. 9 gosub60000:rem:
  11. 10 s=54272:forl=stos+24:pokel,0:next:pokes+24,31:pokes+23,244:fort=1to100:next
  12. 14 poke53281,0:poke53280,6
  13. 15 print"[147][208]lease wait...[201]'m composing..":fordl=1to500:nextdl
  14. 20 forad=49160to49202:readda:pokead,da:next
  15. 21 poke53280,2:poke53281,5
  16. 22 print"[147] [158]   [207].[203].   [201]'m finished composing."
  17. 24 print"      [206]ow just take a listen..."
  18. 30 data120,173,224,3,174,225,3,172,226,3,141,4,212,142,11,212,140,18,212,88,96
  19. 40 data206,224,3,206,225,3,206,226,3,32,8,192,238,224,3,238,225,3,238,226,3,96
  20. 50 pokes,96:pokes+1,22:pokes+7,195:pokes+8,16:pokes+14,48:pokes+15,4
  21. 60 pokes+5,35:pokes+6,166:pokes+12,35:pokes+13,166:pokes+19,35:pokes+20,166
  22. 70 pokes+22,1:poke992,67:poke993,65:poke994,33:pokes+3,1:pokes+10,1
  23. 80 pokes+18,33:fort=1to150:pokes+22,t:next:pokes+18,32:pokes+22,90:pokes+14,112
  24. 90 pokes+18,33:fort=1to130:next:pokes+18,32:pokes+14,180:pokes+18,33
  25. 95 fort=1to130:next
  26. 100 pokes+18,32:pokes+22,1:pokes+14,251:pokes+18,33:fort=1to150:pokes+22,t:next
  27. 110 pokes+18,32:pokes+22,90:pokes+14,71:pokes+15,5:pokes+18,33:fort=1to130:next
  28. 120 pokes+18,32:pokes+14,152:pokes+18,33:fort=1to140:next:pokes+18,32
  29. 130 pokes+14,237:sys49160:fort=1to180:next:pokes+3,8:pokes+10,8
  30. 140 fort=1to80:next:sys49181:fort=1to160:next:pokes+3,1:pokes+10,1
  31. 150 sys49160:fort=1to80:next:sys49181:fort=1to160:next:pokes+3,8:pokes+10,8
  32. 160 sys49160:fort=1to80:next:sys49181:fort=1to160:next:pokes+3,1:pokes+10,1
  33. 170 sys49160:fort=1to160:next:pokes+3,8:pokes+10,8:pokes+14,71:pokes+15,6
  34. 180 fort=1to100:next:sys49181:fort=1to270:next:poke992,17:poke993,17
  35. 185 a=50:b=37:c=31:pokes+6,249:pokes+13,249:pokes+20,249:poke994,17
  36. 188 print"          to"
  37. 190 pokes,60:pokes+1,a:pokes+7,162:pokes+8,b:pokes+14,165:pokes+15,c
  38. 192 print"        [201][206][212][210][207][196][213][195][212][201][207][206][211]"
  39. 193 print"                by"
  40. 194 print"            [212]om [202]effries"
  41. 200 sys49160:fort=1to200:next:sys49181:fort=1to21:a=a-1:b=b-1:c=c-1:pokes+1,a
  42. 210 pokes+8,b:pokes+15,c:next:pokes+14,48:pokes+15,4:pokes+17,8:pokes+20,242
  43. 215 pokes,119:pokes+1,7:pokes+7,251:pokes+8,4:pokes+6,165:pokes+13,165
  44. 217 gosub220:goto280
  45. 220 pokes+18,65:fort=1to170:next:pokes+17,1:fort=1to75:next:pokes+18,64
  46. 230 fort=1to170:next:pokes+17,8:pokes+18,65:fort=1to75:next:pokes+18,64
  47. 240 fort=1to170:next:pokes+17,1:pokes+18,65:fort=1to75:next:pokes+18,64
  48. 250 fort=1to170:next:pokes+17,8:pokes+18,65:fort=1to75:next:pokes+18,64
  49. 260 fort=1to170:next:pokes+17,1:pokes+18,65:fort=1to75:next:pokes+18,64
  50. 270 fort=1to170:next:pokes+17,8:pokes+18,65:fort=1to75:next:pokes+18,64:return
  51. 280 pokes+4,33:pokes+11,33:fort=1to300:next:pokes+4,32:pokes+11,32
  52. 290 pokes,97:pokes+1,8:pokes+7,152:pokes+8,5:x=25:y=18:z=15
  53. 300 pokes+4,33:pokes+11,33:fort=1to100:next:pokes+4,32:pokes+11,32
  54. 310 fort=1to180:next:pokes+14,35:pokes+15,3:gosub220:pokes+18,32:fort=1to30:next
  55. 320 pokes+18,33:fort=1to100:next:forx=3to255step2.5:pokes+15,x:next
  56. 350 pokes+14,48:pokes+15,4:gosub220:pokes,251:pokes+1,4:pokes+7,247:pokes+8,9
  57. 360 pokes+4,33:pokes+11,33:fort=1to300:next:pokes+4,32:pokes+11,32
  58. 370 pokes,97:pokes+1,8:pokes+7,152:pokes+8,5:x=25:y=18:z=15
  59. 380 pokes+4,33:pokes+11,33:fort=1to100:next:pokes+4,32:pokes+11,32
  60. 390 fort=1to180:next:pokes+14,35:pokes+15,3:gosub220
  61. 400 pokes+6,249:pokes+13,249:pokes+20,249
  62. 410 pokes,30:pokes+1,x:pokes+7,209:pokes+8,y:pokes+14,210:pokes+15,z
  63. 420 pokes+3,8:pokes+10,8:sys49160:fort=1to200:next:sys49181:forr=1to15
  64. 430 x=x-1:y=y-1:z=z-1:pokes+1,x:pokes+8,y:pokes+15,z:next:pokes+20,241
  65. 440 pokes+14,48:pokes+15,4:gosub220:pokes,251:pokes+1,4:pokes+7,125:pokes+8,2
  66. 450 pokes+4,33:pokes+11,33:fort=1to250:next:pokes+6,242:pokes+13,242
  67. 455 pokes+4,32:pokes+11,32:fort=1to10:next
  68. 460 pokes,97:pokes+1,8:pokes+7,152:pokes+8,5
  69. 470 pokes+4,33:pokes+11,33:fort=1to100:next:pokes+4,32:pokes+11,32
  70. 480 fort=1to180:next:pokes+14,35:pokes+15,3:gosub220:pokes+18,32:pokes+23,244
  71. 490 pokes+6,247:pokes+13,247:pokes+20,247:a=200:b=150:c=126:fort=1to30:next
  72. 500 poke992,17:poke993,17:poke994,17:pokes+18,65:fort=20to120step2:pokes+22,t
  73. 505 next:fort=120to20step-2:pokes+22,t:next:pokes+18,64:fort=1to100:next
  74. 510 pokes,165:pokes+1,a:pokes+7,96:pokes+8,b:pokes+14,225:pokes+15,c
  75. 511 pokes+23,4:pokes+22,200
  76. 520 sys49160:fort=1to100:next:fort=1to186:a=a-1:b=b-.75:c=c-.63:pokes+1,a
  77. 530 pokes+8,b:pokes+15,c:next:pokes+1,31:pokes+8,22:pokes+15,8:fort=1to100:next
  78. 540 sys49181:fort=1to30:next:sys49160:fort=1to100:next
  79. 550 sys49181:fort=1to180:next:sys49160:fort=1to75:next
  80. 560 sys49181:fort=1to180:next:sys49160:fort=1to75:next
  81. 570 sys49181:fort=1to180:next:sys49160:fort=1to75:next:sys49181
  82. 580 fort=1to40:next:pokes,135:pokes+1,33:pokes+7,31:pokes+8,21:pokes+14,97
  83. 590 sys49160:fort=1to70:next:sys49181:fort=1to550:next:pokes,15:pokes+1,67
  84. 600 pokes+7,135:pokes+8,33:pokes+14,48:pokes+15,4:poke992,33:poke993,33
  85. 610 poke994,33:sys49160:fort=1to100:next:sys49181
  86. 620 :
  87. 630 fordl=1to600:nextdl
  88. 640 poke53280,6:poke53281,0
  89. 650 print"[147][215]ant to play it again, [211]am?"
  90. 660 poke198,0:wait198,1:getk$:ifk$<>"y"andk$<>"n"thenpoke53280,rnd(1)*15:goto660
  91. 670 ifk$="y"then clr:goto10
  92. 680 goto 63000
  93. 60000 t$="               ":c=0:c$="":print"[147]":poke53281,0
  94. 60030 printspc(12)""t$:printspc(12)" [201]ntroductions [146]"
  95. 60051 printspc(12)""t$:print:printtab(18)"by"
  96. 60060 print:printspc(13)"[212]om [202]effries"
  97. 60070 print:printspc(12)"[195]opyright 1985"
  98. 60080 print:print:print:print"     [204][207][193][196][211][212][193][210] is not public domain."
  99. 60090 print:print"  [208]lease respect the author's rights."
  100. 60100 print:print"      [208]ress space bar to continue."
  101. 60110 forcc=1to48:getk$:ifk$=" "then60130
  102. 60120 ifcc=1thenprintmid$(c$,c+2,1)"[145][145]";:c=not(c)
  103. 60125 next:goto60100
  104. 60130 printc$:return
  105. 63000 rem    connect back to l.s.
  106. 63001 iflf=0thenlf=1:load"menu.sp1",8,1
  107. 63002 print"[147]load"chr$(34)"payload"chr$(34)",8":print"run"
  108. 63004 poke198,0:poke631,13:poke632,13:poke198,2:end
  109.