home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 1 / 001.d81 / star (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  3KB  |  80 lines
  1. 5 rem pipeline cover
  2. 6 poke53269,.:poke808,225:ifs%>.then11
  3. 7 poke53281,.:poke53280,.:print"[147]         [208][204][197][193][211][197][160][212][213][210][206][160][214][207][204][213][205][197][160][207][206]"
  4. 8 print"        [201]f you have a [202]oystick,"
  5. 9 print"     plug it into [195]ontrol [208]ort [207]ne."
  6. 10 ifs%=0thens%=1:load"loadstar.spr",8,1
  7. 11 ifs%=1thens%=2:load"music",8,1
  8. 12 ifs%=2thens%=3:load"ce3k.m",8,1
  9. 13 poke49,255:poke50,47:clr:poke51200,.
  10. 15 poke53281,1:poke53280,10
  11. 20 fori=.to7:reads:poke2040+i,s:next
  12. 21 data192,193,194,195,196,197,194,198
  13. 30 v=53248:o=1:b=255:t=2:se=v+21:sc=v+39:yd=v+23
  14. 40 pokese,.:pokev+29,.:pokev+23,.:pokev+16,.
  15. 100 print"[147][142][144]           [169]              [223]
  16. 110 [153]"          step      toandandto      (NULL)
  17. 120 print"         [169]      [183][184][146][162][162][184][183]      [223]
  18. 130 [153]"        step         (NULL)right$         (NULL)
  19. 140 print"       [169]          [221][221]          [223]
  20. 150 [153]"      step           /exp           (NULL)
  21. 160 print"      [152][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]
  22. 170 [153]
  23. 180 [129]i[178]1[164]1000:[130]:c[178]10
  24. 190 [151]49569,.:[151]49570,112:[158]49152:[129]i[178]1[164]500:[130]
  25. 300 [129]s[178].[164]7:[151]sc[170]s,c:[151]v[170]s[170]s,165:[151]v[170]s[170]s[170]o,114:[151]se,[194](se)[176]t[174]s
  26. 305 [135]x,c:[129]i[178]114[164]65[169][171](t[170]t):[151]v[170]s[170]s[170]o,i:[130]
  27. 310 [129]i[178]165[164]x[169][180](x[171]165)[172]t:[151]v[170]s[170]s,i:[130]:[151]sc[170]s,c:[151]53280,c:[130]
  28. 315 [131]74,2,101,8,127,7,152,5,180,3,206,14,230,6,255,4
  29. 400 [153]"          (NULL)tantantantantantantantantantantantantantantantanright$
  30. 410 print"          [221] copyright 1984 [221]
  31. 420 [153]"          mid$tantantantantantantantantantantantantantantantan(NULL)
  32. 425 ifpeek(788)<>49then425
  33. 430 print"[145][145][145][145][145][145]          [213][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][201]
  34. 440 [153]"          (NULL) push space bar (NULL)
  35. 450 print"          [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]
  36. 455 r[178]v[170]17:c[178]128:[134]c(9):[129]i[178].[164]9:[135]c(i):[130]:[151]v[170]32,.
  37. 456 [131]15,12,11,0,0,11,12,15,1,1
  38. 460 [143]
  39. 465 [161]a$:[139]a$[178]""[167]460
  40. 600 [151]v[170]21,.:[151]808,237
  41. 1000 [153]"load";:[151]v[170]33,.:[151]v[170]31,.
  42. 1010 [153][163]13)"(NULL)remiere right$ssue":[153]
  43. 1020 [153][163]16);"(NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)"
  44. 1030 [153][163]12)"3811 (NULL)t. (NULL)incent"
  45. 1040 [153][163]9)"(NULL)hreveport, (NULL)atn   71108"
  46. 1050 [153][163]13)"(318) 868-7247"
  47. 1060 [153]:[153][163]9)"atnclose(NULL)oftalk (NULL)ublication":[153][163]9)"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab("
  48. 1070 [153][163]8)"(NULL)ublisher: atnl (NULL)ommervik"
  49. 1080 [153][163]10)"valditors: atnl (NULL)ekovius"
  50. 1090 [153][163]19)"mid$im (NULL)angham"
  51. 1100 [153][163]6)"(NULL)rogrammers: mid$im (NULL)eiler"
  52. 1110 [153][163]19)"mid$oel valllis (NULL)ea":[153][163]19)"atnlan chr$ardner"
  53. 1115 [153][163]19)"str$onna (NULL). (NULL)oody"
  54. 1120 [153][163]6)"lenirculation: mid$udi (NULL)angham"
  55. 1130 [153][163]19)"(NULL)ary mid$ordan"
  56. 1140 [153][163]19)"(NULL)honda (NULL)eimers"
  57. 1150 [153][163]19)"peekarbara peekurns":[153][163]19)"peekrenda str$illman"
  58. 1160 [153]:[153]
  59. 1170 [153][163]11)"<press space bar>";
  60. 1180 [151]198,0:[146]198,1:[151]198,0
  61. 1185 [141] 2000
  62. 1190 [153]"load(NULL)aunching (NULL)able of lenontents";
  63. 1200 s[178]54272:[129]i[178]0[164]24:[151]s[170]i,0:[130]
  64. 1205 [151]s[170]5,240:[151]s[170]6,253:[151]s,0:[151]s[170]1,4:[151]s[170]23,241:[151]s[170]24,31
  65. 1210 [151]s[170]4,129
  66. 1220 [153]"stopload"[199](34)"hello"[199](34)",8":[153]"run"
  67. 1230 [151] 631,13:[151]632,13:[151]198,2
  68. 1240 [128]
  69. 2000 [153]"load (NULL)closeu b s c r i p t i o n s wait"
  70. 2010 [153]:[153]:[153][163]5)"$39.95 for six monthly issues"
  71. 2020 [153]:[153]:[153]:[153][163]3)"$69.95 for twelve monthly issues"
  72. 2022 [153]"  (NULL)hen you subscribe, you will receive            two disks each month."
  73. 2023 [153]
  74. 2024 [153]"  (NULL)ne you keep.      (NULL)ne you send back."
  75. 2026 [153]:[153]"(NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)closefurnishes a reusable mailer and";
  76. 2027 [153]"    pays postage in both directions."
  77. 2100 [153][163]11)"<press space bar>wait";
  78. 2110 [151]198,0:[146]198,1:[151]198,0
  79. 2120 [142]
  80.