3 IFS=1THEN5 4 S=1:LOAD"ROMUSIC",8,1 5 REM STAR MAIN DISK 6 POKE53269,.:POKE808,225:IFS%>.THEN11 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]" 8 PRINT" [201]F YOU HAVE A [202]OYSTICK," 9 PRINT" PLUG IT INTO [195]ONTROL [208]ORT [207]NE." 10 IFS%=0THENS%=1:LOAD"LOADSTAR.SPR",8,1 11 IFS%=1THENS%=2:LOAD"MUSIC",8,1 12 IFS%=2THENS%=3:LOAD"CE3K.M",8,1 13 POKE49,255:POKE50,47:CLR:POKE51200,. 15 POKE53281,1:POKE53280,10 20 FORI=.TO7:READS:POKE2040+I,S:NEXT 21 DATA192,193,194,195,196,197,194,198 30 V=53248:O=1:B=255:T=2:SE=V+21:SC=V+39:YD=V+23 40 POKESE,.:POKEV+29,.:POKEV+23,.:POKEV+16,. 100 PRINT"[147][142][144] [169] [223] 110 [153]" STEP TOANDANDTO (null) 120 PRINT" [169] [183][184][146][162][162][184][183] [223] 130 [153]" STEP (null)RIGHT$ (null) 140 PRINT" [169] [221][221] [223] 150 [153]" STEP /EXP (null) 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] 170 [153] 180 [129]I[178]1[164]1000:[130]:C[178]10 190 [151]49569,.:[151]49570,112:[158]49152:[129]I[178]1[164]500:[130] 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 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] 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] 315 [131]74,2,101,8,127,7,152,5,180,3,206,14,230,6,255,4 400 [153]" (null)TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANRIGHT$ 410 PRINT" [221] COPYRIGHT 1984 [221] 420 [153]" MID$TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN(null) 425 IFPEEK(788)<>49THEN425 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] 440 [153]" (null) PUSH SPACE BAR (null) 450 PRINT" [202][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][203] 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,. 456 [131]15,12,11,0,0,11,12,15,1,1 460 [143] 465 [161]A$:[139]A$[178]""[167]460 600 [151]V[170]21,.:[151]808,237 1000 [153]"LOAD";:[151]V[170]33,.:[151]V[170]31,. 1010 [153][163]13)"RIGHT$SSUE (null)UMBER 4":[153] 1020 [153][163]16);"(null)(null)ATNSTR$(null)(null)ATN(null)" 1030 [153][163]13)"(null).(null). PEEKOX 30007" 1040 [153][163]7)"(null)HREVEPORT, (null)ATN 71130-0007" 1050 [153][163]13)"(318) 868-7247" 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(" 1070 [153][163]8)"(null)UBLISHER: ATNL (null)OMMERVIK" 1080 [153][163]10)"VALDITORS: ATNL (null)EKOVIUS" 1090 [153][163]19)"MID$IM (null)ANGHAM" 1100 [153][163]6)"(null)ROGRAMMERS: MID$IM (null)EILER" 1110 [153][163]19)"ATNLAN CHR$ARDNER" 1115 [153][163]19)"STR$ONNA (null). (null)OODY" 1117 [153][163]19)"STR$AN (null)OBIAS" 1120 [153][163]6)"LENIRCULATION: MID$UDI (null)ANGHAM" 1130 [153][163]19)"(null)ARY MID$ORDAN" 1140 [153][163]19)"(null)HONDA (null)EIMERS" 1160 [153]:[153] 1170 [153][163]11)""; 1180 [151]198,0:[146]198,1:[151]198,0 1185 [141] 2000 1190 [153]"LOAD(null)AUNCHING (null)ABLE OF LENONTENTS"; 1200 S[178]54272:[129]I[178]0[164]24:[151]S[170]I,0:[130] 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 1210 [151]S[170]4,129 1215 [151]597,0:[143] SET HIDE FLAG TO ZERO 1220 [153]"STOPLOAD"[199](34)"HELLO"[199](34)",8":[153]"RUN" 1230 [151] 631,13:[151]632,13:[151]198,2 1240 [128] 2000 [153]"LOAD (null)CLOSEU B S C R I P T I O N S WAIT" 2020 [153]:[153]:[153] 2022 [153]" (null)HEN YOU SUBSCRIBE, YOU WILL RECEIVE TWO DISKS EACH MONTH." 2023 [153]:[153] 2024 [153]" (null)NE YOU KEEP. (null)NE YOU SEND BACK." 2025 [153]:[153] 2026 [153]:[153]"(null)(null)ATNSTR$(null)(null)ATN(null)CLOSEFURNISHES A REUSABLE MAILER AND"; 2027 [153]" PAYS POSTAGE IN BOTH DIRECTIONS." 2100 [153][163]11)"WAIT"; 2110 [151]198,0:[146]198,1:[151]198,0 2120 [142]