home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 6 / 006.d81 / star (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1984-01-01  |  2.6 KB  |  84 lines
  1. 3 IFS=1THEN5
  2. 4 S=1:LOAD"ROMUSIC",8,1
  3. 5 REM STAR MAIN DISK
  4. 6 POKE53269,.:POKE808,225:IFS%>.THEN11
  5. 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]"
  6. 8 PRINT"        [201]F YOU HAVE A [202]OYSTICK,"
  7. 9 PRINT"     PLUG IT INTO [195]ONTROL [208]ORT [207]NE."
  8. 10 IFS%=0THENS%=1:LOAD"LOADSTAR.SPR",8,1
  9. 11 IFS%=1THENS%=2:LOAD"MUSIC",8,1
  10. 12 IFS%=2THENS%=3:LOAD"CE3K.M",8,1
  11. 13 POKE49,255:POKE50,47:CLR:POKE51200,.
  12. 15 POKE53281,1:POKE53280,10
  13. 20 FORI=.TO7:READS:POKE2040+I,S:NEXT
  14. 21 DATA192,193,194,195,196,197,194,198
  15. 30 V=53248:O=1:B=255:T=2:SE=V+21:SC=V+39:YD=V+23
  16. 40 POKESE,.:POKEV+29,.:POKEV+23,.:POKEV+16,.
  17. 100 PRINT"[147][142][144]           [169]              [223]
  18. 110 [153]"          STEP      TOANDANDTO      (null)
  19. 120 PRINT"         [169]      [183][184][146][162][162][184][183]      [223]
  20. 130 [153]"        STEP         (null)RIGHT$         (null)
  21. 140 PRINT"       [169]          [221][221]          [223]
  22. 150 [153]"      STEP           /EXP           (null)
  23. 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]
  24. 170 [153]
  25. 180 [129]I[178]1[164]1000:[130]:C[178]10
  26. 190 [151]49569,.:[151]49570,112:[158]49152:[129]I[178]1[164]500:[130]
  27. 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
  28. 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]
  29. 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]
  30. 315 [131]74,2,101,8,127,7,152,5,180,3,206,14,230,6,255,4
  31. 400 [153]"          (null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$
  32. 410 PRINT"          [221] COPYRIGHT 1984 [221]
  33. 420 [153]"          MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null)
  34. 425 IFPEEK(788)<>49THEN425
  35. 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]
  36. 440 [153]"          (null) PUSH SPACE BAR (null)
  37. 450 PRINT"          [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203]
  38. 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,.
  39. 456 [131]15,12,11,0,0,11,12,15,1,1
  40. 460 [143]
  41. 465 [161]A$:[139]A$[178]""[167]460
  42. 600 [151]V[170]21,.:[151]808,237
  43. 1000 [153]"LOAD";:[151]V[170]33,.:[151]V[170]31,.
  44. 1010 [153][163]13)"RIGHT$SSUE (null)UMBER 6":[153]
  45. 1020 [153][163]16);"(null)(null)ATNSTR$(null)(null)ATN(null)"
  46. 1030 [153][163]13)"(null).(null). PEEKOX 30007"
  47. 1040 [153][163]7)"(null)HREVEPORT, (null)ATN   71130-0007"
  48. 1050 [153][163]13)"(318) 868-7247"
  49. 1055 [153]:[153][163]11)"ATNCLOSE(null)ONTHLY (null)UBLICATION"
  50. 1060 [153][163]11)"TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
  51. 1070 [153][163]8)"(null)UBLISHER: ATNL (null)OMMERVIK"
  52. 1080 [153][163]10)"VALDITORS: ATNL (null)EKOVIUS"
  53. 1090 [153][163]19)"MID$IM (null)ANGHAM"
  54. 1100 [153][163]6)"(null)ROGRAMMERS: MID$IM (null)EILER"
  55. 1110 [153][163]19)"ATNLAN CHR$ARDNER"
  56. 1115 [153][163]19)"STR$ONNA (null). (null)OODY"
  57. 1120 [153][163]6)"LENIRCULATION: MID$UDI (null)ANGHAM"
  58. 1130 [153][163]19)"(null)ARY MID$ORDAN"
  59. 1140 [153][163]19)"(null)HONDA (null)EIMERS"
  60. 1145 [153][163]19)"ATNRLENE CHR$ATES"
  61. 1160 [153]:[153]
  62. 1170 [153][163]11)"<PRESS SPACE BAR>";
  63. 1180 [151]198,0:[146]198,1:[151]198,0
  64. 1185 [141] 2000
  65. 1190 [153]"LOAD(null)AUNCHING (null)ABLE OF LENONTENTS";
  66. 1200 S[178]54272:[129]I[178]0[164]24:[151]S[170]I,0:[130]
  67. 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
  68. 1210 [151]S[170]4,129
  69. 1215 [151]597,0:[143] SET HIDE FLAG TO ZERO
  70. 1220 [153]"STOPLOAD"[199](34)"HELLO"[199](34)",8":[153]"RUN"
  71. 1230 [151] 631,13:[151]632,13:[151]198,2
  72. 1240 [128]
  73. 2000 [153]"LOAD (null)CLOSEU B S C R I P T I O N S WAIT"
  74. 2020 [153]:[153]:[153]
  75. 2022 [153]"  (null)HEN YOU SUBSCRIBE, YOU WILL RECEIVE            TWO DISKS EACH MONTH."
  76. 2023 [153]:[153]
  77. 2024 [153]"  (null)NE YOU KEEP.      (null)NE YOU SEND BACK."
  78. 2025 [153]:[153]
  79. 2026 [153]:[153]"(null)(null)ATNSTR$(null)(null)ATN(null)CLOSEFURNISHES A REUSABLE MAILER AND";
  80. 2027 [153]"    PAYS POSTAGE IN BOTH DIRECTIONS."
  81. 2100 [153][163]11)"<PRESS SPACE BAR>WAIT";
  82. 2110 [151]198,0:[146]198,1:[151]198,0
  83. 2120 [142]
  84.