5 POKE55,.:POKE56,56:CLR:POKE53280,.:POKE53281,.:PRINT"[147]"
10 DV=PEEK(186):IFDV<8THENDV=8
30 POKE53272,31:POKE53371,0
40 AD=49152
45 SYSAD:SYSAD+12
50 SYSAD+9,0
55 PRINT"[147]"
90 BS$="[164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164][157][164]"
95 PRINT"[147]":SYSAD+9,1
100 RM=(3700/2.7)-1
105 PRINT"[158][220][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][221]"
110 PRINT"[158]"BS$""TAB(38)BS$
115 PRINT"[158][255][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][161]"
120 PRINT""TAB(11)"-[150][197][216][208][193][206][196][201][206][199] [195][207][211][205][207][211]-"
122 PRINT""TAB(8)"[154]:[150][211]ETTING UP [208]ARAMETERS[154]:"
125 PRINTTAB(2)"[156][195]OSMOS' ([193][156])GE/([200][156])UBBLE PARAMETER?":POKE198,.
130 GETA$:IFA$<>"A"ANDA$<>"H"THEN130
135 SYSAD+9,2
140 IFA$="H"THEN160
145 PRINTTAB(2)"[158][193]GE OF [195]OSMOS [156][206][207][215] [158]IN BIL/YRS: ";:L9%=5:GOSUB480:TN=Q9
150 SYSAD+9,2
155 TN=TN*1E+09:GOTO175
160 PRINTTAB(2)"[158][200]UBBLE PARAMETER [156](KM/SEC/[205]PC): ";:L9%=4:GOSUB480:HN=Q9
165 SYSAD+9,2
170 TN=(2/3)/(HN/9.81E+11)
175 PRINT"[156]([212][156])IME [212][200][197][206]/([210][156])EDSHIFT [206][207][215]?":POKE198,.
180 GETA$:IFA$<>"T"ANDA$<>"R"THEN180
185 SYSAD+9,2
190 IFA$="R"THEN230
195 PRINTTAB(2)"[158][193]GE OF [195]OSMOS [156][212][200][197][206] [158]IN BIL/YRS: ";:L9%=4:GOSUB480:TT=Q9
200 IFTT=<.03THENPRINT"[145][145][145]":GOTO195
201 SYSAD+9,2
202 PRINT:PRINTTAB(9)"[159][201]S THIS [195]ORRECT? (Y[159]/N[159])":POKE198,.
203 GOSUB525
204 IFA$="N"THEN95
205 SYSAD+9,2
210 TT=TT*1E+09:SC=(TN/TT)^(2/3):RS=SC-1:IFRS<RMTHEN255
215 SM=RM+1:TM=TN/(SM^1.5)
220 PRINT"[159][195]AN'T LOOK BACK IN TIME BEFORE":PRINTTAB(4)TM
225 SYSAD+9,2
230 PRINTTAB(2)"[158][210]EDSHIFT VALUE FOR LIGHT [156][206][207][215]: ";:L9%=5:GOSUB480:RS=Q9
235 SYSAD+9,2
237 PRINT:PRINTTAB(9)"[159][201]S THIS [195]ORRECT? (Y[159]/N[159])":POKE198,.
238 GOSUB525
239 SYSAD+9,2
240 SC=RS+1:TT=TN/(SC^1.5):IFRS<RMTHEN255
245 PRINTTAB(2)"[159][210]EDSHIFT VALUE TOO LARGE BEFORE":PRINTTAB(4)RM
250 GOTO215
255 PRINT"[147]":SYSAD+9,3
260 PRINT"[150][220][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][221]"
265 PRINTBS$""TAB(38)BS$
270 PRINT"[150][255][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][161]"
275 PRINT""TAB(12)"[159][197][216][208][193][206][196][201][206][199] [195][207][211][205][207][211]"
280 PRINT:PRINTTAB(2)"[153][193]GE [195]OSMOS [156][206][207][215]";INT(TN)/1E+09;"[159]BIL/YRS"
285 PRINTTAB(2)"[153][193]GE [195]OSMOS [156][212][200][197][206]";INT(TT)/1E+09;"[159]BIL/YRS"
290 TV=TN-TT
295 PRINT:PRINT"[153][204]IGHT TRAVEL TIME";INT(TV)/1E+09;"[159]BIL/YRS"
300 SC=(TN/TT)^(2/3)
305 PRINT"[153][211]CALE [156][206][207][215] [153]VS [156][212][200][197][206]";SC
310 RS=SC-1
315 PRINT:PRINT"[153][210]EDSHIFT SEEN [156][206][207][215]";RS
320 DT=3*TT*((TN/TT)^(1/3)-1)
325 PRINT:PRINTTAB(2)"[153][196]ISTANCE OF OBJECT [156][212][200][197][206]";INT((DT)/1E+09);"[159]B/LT/YRS"
330 DN=DT*SC
335 PRINTTAB(2)"[153][196]ISTANCE OF OBJECT [156][206][207][215]";INT((DN)/1E+09);"[159]B/LT/YRS"
340 SS=(2*(TN/TT)^(1/3)-1)
345 PRINT:PRINTTAB(2)"[153][193]WAY [156][212][200][197][206]";SS;"[159][216] SPEED/LIGHT"
350 SN=2*((TN/TT)^(1/3)-1)/(TN/TT)^(1/3)
355 PRINTTAB(2)"[153][193]WAY [156][206][207][215]";SN;"[159][216] SPEED/LIGHT"
360 HT=(2/3)/TT*9.810001*1E+11
365 PRINT:PRINT"[153][200]UBBLE PARAM. [156][212][200][197][206]";INT(HT);"[159]KM/SEC/[205]PC"
370 HN=(2/3)/TN*9.810001*1E+11
375 PRINT"[153][200]UBBLE PARAM. [156][206][207][215]";INT(HN);"[159]KM/SEC/[205]PC"
380 GOSUB3000
385 GOTO95
480 Q9$="":POKE198,.
485 GETA$
490 POKE646,RND(1)*15+1:PRINT"*[157]";:IFA$=""THEN485
495 IFA$=CHR$(13)THENPRINT" ":Q9=VAL(Q9$):RETURN
500 IF(A$=CHR$(20)ANDLEN(Q9$))THENQ9$=LEFT$(Q9$,LEN(Q9$)-1):GOTO522
505 IFLEN(Q9$)>=L9%THENSYSAD+9,4:GOTO485
510 IF(A$>="0"ANDA$<="9")ORA$="."THEN515
515 Q9$=Q9$+A$
520 PRINT""A$;:GOTO485
522 PRINT" [157][157] [157]";:GOTO485
525 POKE198,0
530 GETA$:IFA$<>"Y"ANDA$<>"N"THEN530
540 RETURN
3000 POKE214,19:PRINT:PRINTTAB(8)"[150](1[150]) [195]ALCULATE ANOTHER
3010 [153][163]8)"DEF(2DEF) (null)O (null)(null)RIGHT$(null)VAL(null)(null)VAL (null)ENU
3020 POKE198,0
3030 GETA$:IFA$<"1"ORA$>"2"THEN3030
3040 IFA$="1"THENRETURN
3050 SYSAD+15
3060 PRINT"[147]LOAD"CHR$(34)"B.UNIVERSE"CHR$(34)","DV
3070 PRINT"RUN28"
3080 POKE631,13:POKE632,13:POKE198,2:END
10000 D=PEEK(186):N$="EXPANDING":OPEN15,D,15,"S0:"+N$:CLOSE15:SAVEN$,D:END