5 POKE55,.:POKE56,56:CLR
10 DV=PEEK(186):IFDV<8THENDV=8
12 POKE53371,0
15 PRINT"[147]":POKE53280,0:POKE53281,0
17 TQ=TI
18 GOSUB60000
20 SYS57812"UNIVERSE FONT",DV,0:POKE780,.:POKE781,.:POKE782,56:SYS65493
25 POKE53272,31
26 SYS57812"UNIVERSE SFX",DV,0:POKE780,.:POKE781,.:POKE782,192:SYS65493
27 IFTI<TQ+100THEN27
28 AD=49152:POKE53371,0:DV=PEEK(186):IFDV<8THENDV=8
29 SYSAD:SYSAD+12
40 PRINT"[147][154]       [204][207][193][196][211][212][193][210] [208][210][207][213][196][204][217] [208][210][197][211][197][206][212][211]"
42 PRINT"[129]   [176][192][192][192][174][176][192][192][192][174][176][192][192][192][174][174]@[176][192][189][174]@@@[176]@[176]@[176][192][192][192][174]
44 [153]"   (null)@@@@(null)@@@(null)-TAN=TANEXP-TAN<@@/TAN=TANEXP@@@/TANTANTAN^
46 PRINT"   [173][192][192][192][189][173][192][192][192][189][189]@[173][192][189][189]@[173][192][174]@@[177]@@@@@[173][192][192][192][189]
50 [153]" ^@@@ORORTAN^@OR@=@^@@@ORORTANTANTAN^ORTANTANTAN^ORTANTANTAN^ORTANTANTAN^
52 PRINT" [221]@@@[221][221]@[221]@[221]@[221]@[173][174]@[176][189][171][192][192][179]@[171][192][178][192][189][173][192][192][192][174][171][192][192][179]
54 [153]" /TANTANTANEXPEXP@/TANEXP@>@@/TANEXP@/TANTANTANEXPEXP@/TANEXP/TANTANTANEXP/TANTANTANEXP
56 PRINT"[155]  [193]STRONOMY [208]ROGRAMS BY [195][207][210][203][217] [195][207][195][200][210][193][206]
60 [153]"         1  (null)(null)(null)ATN(null) (null)(null)LENATN(null)(null)(null)
62 PRINT"         2  [195][210][193][212][197][210] [205][193][203][197][210]
64 [153]"         3  (null)(null)(null)(null)(null) - (null)(null)(null)STR$(null)(null)(null)
66 PRINT"         4  [211][200][207][207][212][201][206][199] [211][212][193][210][211]
68 [153]"         5  (null)LEFT$VAL VAL(null)(null)ATN(null)STR$RIGHT$(null)CHR$ LEN(null)(null)(null)(null)(null)
70 PRINT"         6  [194][193][195][203] [212][207] [204][207][193][196][211][212][193][210]
80 [151]198,0
82 [161]A$:[139]A$[179]"1"[176]A$[177]"6"[167]82
90 [145][197](A$)[137]100,102,104,106,108,40000
100 F$[178]"LUNAR LOCATOR":[137]110
102 F$[178]"CRATER MAKER":[137]110
104 F$[178]"SUNUP-DOWN":[137]110
106 F$[178]"SHOOTING STARS":[137]110
108 F$[178]"EXPANDING"
110 [158]AD[170]15
146 [153]"LOADSTOPLOAD"[199](34)F$[199](34)","DV
148 [153]"RUN"
150 [151]631,13:[151]632,13:[151]198,2:[128]
10000 D[178][194](186):N$[178]"B.UNIVERSE":[159]15,D,15,"S0:"[170]N$:[160]15:[148]N$,D:[128]
40000 [158]AD[170]15
40002 [129]I[178]8[164]29:[151]820[170]I,I:[130]:[139]DV[177]8[175]DV[179]30[167][151]828,DV:[151]820[170]DV,8
40010 A$[178]"PRESENTER":[141]40030:A$[178]"HELLO CONNECT":[141]40030
40020 [153]"LOAD":[151]53272,23:[151]186,8:[151]2048,0:[151]44,8:[151]43,1:[128]
40030 [129]J[178]8[164]29:I[178][194](820[170]J):[139]I[178]14[167][130]
40040 [160]2:[159]2,I,2:[160]2:[139]ST[167]40060
40050 [160]15:[159]15,I,15,"R0:"[170]A$[170]"="[170]A$:[132]15,ER:[160]15:[139]ER[178]63[167]40070
40060 [130]:[142]
40070 A$[178]"HELLO CONNECT":Q$[178][199](34):[151]646,[194](53281):[153]"LOAD":[151]53272,23
40080 [153]"LOADP(null)2048,0:P(null)44,8:P(null)43,1:P(null)56,160:P(null)55,0:CLR:L(null)"Q$A$Q$","I
40090 [153]"RUN:":[151]631,13:[151]632,13:[151]198,2:[128]
60000 [153]"LOAD":Z$[178]" PRINT#                                      ":[151]214,10:[153]
60010 [153]" LISTFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFRE":[129]I[178]0[164]11:[153]Z$:[130]
60020 [153]" POKEPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPRINT#"
60030 Z$(0)[178]"LEN(null)(null)(null)(null)'(null) (null)(null)RIGHT$(null)VAL(null)(null)VAL
60040 Z$(2)="BY [195]ORKY [195]OCHRAN
60050 Z$(4)[178]"(C) 1998 BY MID$ & ASC (null)UBLISHING, RIGHT$NC."
60060 Z$(6)[178]"(null)HIS PROGRAM IS NOT SHAREWARE
60070 Z$(7)="OR IN THE PUBLIC DOMAIN."
60080 Z$(9)="1-800-594-3370 OR 1-318-221-8718
60090 [151]214,12:[153]:[129]I[178]0[164]9:[153][163]20[171]([195](Z$(I))[173]2))""Z$(I):[130]:[142]