5 POKE55,.:POKE56,56:CLR
10 DV=PEEK(186):IFDV<8THENDV=8
15 POKE53280,0:POKE53281,0:PRINT"[147]"
16 POKE53371,0
25 POKE53272,31
30 AD=49152
35 SYSAD:SYSAD+12
37 BL$="[153][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
40 EE$="                                       "
42 DIMLR(16)
105 ZZ=0
107 PRINT"[147]":PRINTTAB(4)"[158] [205] [197] [212] [197] [207] [210]    [212] [210] [193] [195] [203][160][197][160][210] ":SYSAD+9,11
110 PRINT"[153][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
115 PRINT"[159][205]ASS [158]([203][199].):";:L9%=27:GOSUB900:MM=Q9
120 IFMM=<0THENPRINT"[145][145][145]":GOTO115
125 PRINT:PRINT"[159][201]TS [196]ENSITY [158]([203][199]/PER CU.[205]):";:L9%=9:GOSUB900:D=Q9
130 IFD=<0THENPRINT"[145][145][145]":GOTO125
135 PRINT:PRINT"[159][201]TS [214]ELOCITY [158](KM/SEC):";:L9%=4:GOSUB900:V=Q9
140 IFV=<0THENPRINT"[145][145][145]":GOTO135
145 PRINT:PRINT"[159][218]ENITH [193]NGLE [158]([219]):";:L9%=6:GOSUB900:Z=Q9
150 IFZ=<0THENPRINT"[145][145][145]":GOTO145
155 PRINT:PRINT"[159][212]IME [201]NCREMENTS [158]SEC (.01/.1/1) :";:L9%=4:GOSUB900:DT=Q9
160 IFDT=<0THENPRINT"[145][145][145]":GOTO155
170 PRINT:PRINT"[150]    [201]S [196]ATA [197]NTRY [195]ORRECT [156][[153][217]ES[156]-[153][206]O[156]]?":POKE198,.
175 GETA$:IFA$<>"Y"ANDA$<>"N"THEN175
180 IFA$="N"THEN105
182 SYSAD+9,12
185 GOSUB375:PRINT:GOSUB420
190 A=1.2:L=.001:G=1:HO=.2
195 H1=500000:SG=HO/(2*G*H1)
200 H=155000:T=0:FM=10:FL=FM
205 M=MM:V=V*1000:IM=0:D=D+IM
210 RE=6371000:ZR=Z*3.14159/180
215 VV=-V*COS(ZR):VH=V*SIN(ZR)
220 I=INT(H/10000)
225 IFI>15THENI=15
230 FR=(H/10000)-I
235 R=10^(LR(I)*(1-FR)+FR*LR(I+1))
240 A2=(G*A*R*V*V)/(M*D*D)^.33333
245 GV=9.81/(1+H/RE)^2
250 AV=-GV-A2*VV/V+VH*VH/(RE+H)
255 AH=-A2*VH/V-VV*VH/(RE+H)
260 MO=SG*M*V*A2
265 IFFL=FMTHENGOSUB315
270 T=T+DT:S=S+VH*DT*RE/(RE+H)
275 H=H+VV*DT:M=M-MO*DT
280 VV=VV+AV*DT:VH=VH+AH*DT
285 V=SQR(VH*VH+VV*VV)
290 IFH<=0ORH>160000ORM<=0THEN460
310 FL=FL+1:GOTO220
315 FORI=217TO242:POKEI,PEEK(I)OR128:NEXTI
320 POKE214,18:PRINT:PRINTEE$:SYSAD+9,13
325 PRINT"[145]"INT(.5+T*10)/10;
330 PRINTTAB(4)"[153]"INT(.5+S/1000);
335 PRINTTAB(10)"[154]"INT(.5+H/1000);
340 PRINTTAB(15)"[150]"INT(.5+V/100)/10;
345 PRINTTAB(22)"[158]"INT(.5+A2);
350 PRINTTAB(29)"[156]"INT(.5+100*M/MM);
355 LV=.5*V*V*MO*L*1E+10/(H*H)
360 MV=6.8-1.086*LOG(LV)
365 PRINTTAB(33)"[155]"INT(.5+10*MV)/10
370 FL=0:RETURN
375 REM   LOG(DENSITY) OF ATMOSPHERE
385 FORI=0TO16:READLR(I):NEXT
390 DATA.09,-.38,-1.05,-1.74,-2.39
395 DATA-2.98,-3.50,-4.07,-4.72
400 DATA-5.45,-6.30,-7.00,-7.62
405 DATA-7.97,-8.32,-8.67,-8.81
410 RETURN
420 POKE214,14:PRINT:PRINT"[153]     [199][210][207][213][206][196] [212][210][193][195][203] [146]    [158] [193][212][205][207][211][208][200][197][210][201][195][193][204] "
425 PRINT"[212]IME [153][212]RACK [154][193]LT [150][211]PEED  [158][196]ECEL  [156][205]ASS [155][193]BSOL"
430 PRINT"(S)  [153](KM) [154](KM) [150](KM/S) [158](M/S/S) [156](%) [155]MAG.[144]"
435 PRINTBL$
440 PRINT""BL$
455 RETURN
460 GOSUB675
470 GOSUB955
560 GOSUB3000
565 RESTORE:GOTO105
675 PRINT"[147]":SYSAD+9,14
680 PRINT:PRINT"[156]  [198][201][206][193][204] [198][201][199][213][210][197][211] ON [208][210][197][196][201][195][212][197][196] [207][194][202][197][195][212]"
685 PRINT:PRINT"[153]     [199][210][207][213][206][196] [212][210][193][195][203] [146]   [158] [193][212][205][207][211][208][200][197][210][201][195][193][204] "
690 PRINT"[212]IME [153][212]RACK [154][193]LT [150][211]PEED  [158][196]ECEL  [156][205]ASS [155][193]BSOL"
695 PRINT"(S)  [153](KM) [154](KM) [150](KM/S) [158](M/S/S) [156](%) [155]MAG"
700 PRINTBL$
705 PRINT:PRINT"[145]"INT(.5+T*10)/10;
710 PRINTTAB(4)"[153]"INT(.5+S/1000);
715 PRINTTAB(10)"[154]"INT(.5+H/1000);
720 PRINTTAB(15)"[150]"INT(.5+V/100)/10;
725 PRINTTAB(22)"[158]"INT(.5+A2);
730 PRINTTAB(29)"[156]"INT(.5+100*M/MM);
735 LV=.5*V*V*MO*L*1E+10/(H*H)
740 MV=6.8-1.086*LOG(LV)
745 PRINTTAB(33)"[155]"INT(.5+10*MV)/10
750 PRINTBL$
755 RETURN
900 Q9$="":POKE198,.
905 GETA$
910 POKE646,RND(1)*15+1:PRINT"*[157]";:IFA$=""THEN905
915 IFA$=CHR$(13)THENPRINT" ":Q9=VAL(Q9$):SYSAD+9,8:RETURN
920 IF(A$=CHR$(20)ANDLEN(Q9$))THENQ9$=LEFT$(Q9$,LEN(Q9$)-1):GOTO950
925 IFLEN(Q9$)>=L9%THENSYSAD+9,20:GOTO905
930 IF(A$>="0"ANDA$<="9")ORA$="."THEN940
935 GOTO905
940 Q9$=Q9$+A$
945 PRINT""A$;:SYSAD+9,12:GOTO905
950 PRINT" [157][157] [157]";:GOTO905
955 IFM<=0ANDINT(.5+H/1000)>=70THEN1000
960 IFM<=0ANDINT(.5+H/1000)>=30ANDINT(.5+H/1000)<=70THEN1030
965 IFM<=0ANDINT(.5+H/1000)>=6ANDINT(.5+H/1000)<30THEN1190
970 IFM<=0ANDINT(.5+H/1000)>=1ANDINT(.5+H/1000)<6THEN1240
975 IFH<=0ANDINT(.5+100*M/MM)>=50THEN1090
980 IFH<=0ANDINT(.5+100*M/MM)<=49ANDINT(.5+100*M/MM)>25THEN1120
990 IFH<=0ANDINT(.5+100*M/MM)>=1ANDINT(.5+100*M/MM)<25THEN1060
995 IFINT(.5+H/1000)>=160THEN1150
1000 PRINT:PRINT"[158] [207]BJECT BURNED UP[159]";INT(.5+H/1000);"[158]KILOMETERS HIGH!"
1005 PRINT" [201]T COULD ONLY HAVE BEEN SEEN UNDER"
1010 PRINT" CLEAR, DARK SKIES. [217]OU HAD TO BE"
1015 PRINT" LOOKING IN ITS DIRECTION. [193] BRIEF"
1017 PRINT" STREAK OF LIGHT IN THE NIGHT SKY."
1020 PRINT" [218][201][208]! [212]HE MOST COMMON OF OBJECTS THAT"
1022 PRINT" ADDS TONS TO EARTH'S MASS DAILY."
1023 PRINT" [201]F YOU COULD SEE THIS ONE AT ALL!"
1025 RETURN
1030 PRINT:PRINT"[158] [212]HIS ONE WOULD HAVE CAUGHT MANY"
1035 PRINT" PEOPLE'S ATTENTION! [193] BRIGHT TO VERY"
1040 PRINT"[160]BRIGHT STREAK ACROSS THE SKY. [212]HESE"
1045 PRINT" TYPES ARE COMMONLY ASSOCIATED WITH"
1050 PRINT" METEOR SHOWERS, WHICH ARE MOST OFTEN"
1051 PRINT" LOCATED IN A CONSTELLATION. [212]HE"
1052 PRINT" DEBRIS FROM COMETS THAT CROSS THE"
1053 PRINT" EARTH'S ORBIT, AS THEY ORBIT THE SUN."
1054 PRINT" [194]URNED UP AT [159]";INT(.5+H/1000);"[158]KILOMETERS"
1055 RETURN
1060 PRINT:PRINT"[158] [201][212]'[211] [193][210][205][193][199][197][196][196][207][206]! [206]OT QUITE. [194]UT [196][213][195][203]!"
1065 PRINT" [207]BJECT STRUCK THE GROUND [150][210]ED [200]OT!"
1070 PRINT"[158] [212]OTAL MASS OF OBJECT LEFT [159]";INT(.5+100*M/MM);"[158]PERCENT"
1072 PRINT" [193] VERY NICE SOUVENIR, IF IT LANDED"
1074 PRINT" ON YOUR PROPERTY! [213]NLESS IT HIT THE"
1075 PRINT" HOUSE! [201]MPACT SPEED [159]";INT(.5+V/100)/10;"[158]KM/SECOND."
1080 PRINT" [207]NLY LOCAL DAMAGE WAS DONE. [211]MALL ONE!"
1082 PRINT" [195]ATCH A FALLING STAR AND PUT IT IN"
1084 PRINT" YOUR POCKET, [201]'M ON FIR[210][210][197][197][197][193][193][193][200][200][200][200][200]!"
1085 RETURN
1090 PRINT:PRINT"[158] [212]HIS ONE CAUSED A LOT OF DAMAGE! [205]ADE"
1095 PRINT" A VERY LARGE HOLE SOMEWHERE! [193] MASS"
1100 PRINT" DISRUPTION TO THE ENVIROMENT!"
1105 PRINT"[153] [212]OTAL MASS LEFT=[159]";INT(.5+100*M/MM)"[158]%"
1107 PRINT" [212]HE DESTRUCTION OF [208]ARIS IN THAT"
1108 PRINT" MOVIE WAS VERY MUCH LIKE THIS.
1109 [153]" (null)O DUCKING HERE!"
1110 [153]" RIGHT$MPACT SPEED=OPEN";[181](.5[170]V[173]1000);"SYSKM/HOUR"
1111 [153]"PRINT (null)HERE WOULD BE NO ESCAPE POSSIBLE!"
1115 [142]
1120 [153]:[153]"SYS (null)HIS ONE COULD WIPE OUT A SMALL CITY"
1125 [153]" OR LARGE TOWN, DEPENDING ON ITS"
1130 [153]" IRON AND NICKLE CONTENT. RIGHT$T WOULD"
1135 [153]"CLOSEBE VERY DESTRUCTIVE! RIGHT$F IT HIT IN"
1140 [153]" WATER NEAR SHORE THE WAVE IT CREATED"
1145 [153]" WOULD BE MUCH LIKE THE RIGHT$MPACT MOVIE'S"
1147 [153]" WAVE SCENE. (null)HE REMAINING MASS WOULD"
1148 [153]" DETERMINE THE SIZE AND DEPTH OF THE"
1149 [153]" CRATER THAT IT CREATED ON IMPACT!"
1150 [142]
1155 [153]:[153]"SYS RIGHT$TS ANGLE WASN'T STEEP ENOUGH. (null)ICE"
1160 [153]"SIGHT TO WATCH IT TEAR THROUGH THE"
1165 [153]"ATMOSPHERE. (null)HESE LARGE OBJECTS ARE"
1170 [153]"CALLED GREAT FIREBALLS! LEFT$ENCE THE"
1175 [153]"PHRASE CHR$REAT PEEKALLS OF ASCIRE! CHR$ET IT!"
1180 [153]"(null)ERIOUSLY! RIGHT$T'S AWE-INSPIRING TO SEE."
1182 [153]" (null)HEY HAVE EVEN BEEN VIDEO TAPED, AND"
1183 [153]" SEEN DURING DAYLIGHT HOURS!"
1185 [142]
1190 [153]:[153]"SYS (null)HE LINES AT THE LOCAL POLICE STATION"
1195 [153]" LIGHT UP TONIGHT! (null)HIS ONE WOULD HAVE"
1200 [153]" BRIGHTENED AT LEAST A THIRD TO HALF OF"
1205 [153]" THE SKY! (null)OU WOULD HAVE TIME TO LOOK"
1210 [153]" UP TO SEE IT DIE OUT, AND/OR EXPLODE!"
1215 [153]" (null)HESE ARE FAIRLY RARE SIGHTS AND"
1220 [153]" VERY BEAUTIFUL TO OBSERVE. (null)ERSEID'S"
1225 [153]" ANNUAL METEOR SHOWER IS THE BEST FOR"
1230 [153]" THESE TYPES OF METEORS."
1235 [142]
1240 [153]:[153]"SYS (null)OULD HAVE STARTED A PANIC AMONG"
1245 [153]" THOSE WHO HAVE SEEN EITHER OR BOTH OF"
1250 [153]" THE CURRENT MOVIES DEALING WITH"
1255 [153]" IMPACTS TO EARTH. (null)ANY OF THESE TYPES"
1260 [153]" OF METEORS EXPLODE INTO FRAGMENTS,"
1265 [153]" LEAVING WHAT ARE CALLED STREWNFIELDS:"
1270 [153]" VALLLIPTICAL SHAPED AREAS FILLED WITH"
1275 [153]" METEORITES FROM THE MAIN BODY. ATNLLENDE"
1280 [153]" (null)EXICO 1969 IS A FAMOUS STREWNFIELD."
1290 [142]
3000 [151]214,20:[153]:[153][163]8)"OPEN(1OPEN) (null)RY ANOTHER ONE
3010 PRINTTAB(8)"[159](2[159]) [212]O [213][206][201][214][197][210][211][197] [205]ENU
3020 [151]198,0
3030 [161]A$:[139]A$[179]"1"[176]A$[177]"2"[167]3030
3040 [139]A$[178]"1"[167][142]
3050 [158]AD[170]15
3060 [153]"LOADSTOPLOAD"[199](34)"B.UNIVERSE IV"[199](34)","DV
3070 [153]"RUN28"
3080 [151]631,13:[151]632,13:[151]198,2:[128]
10000 D[178][194](186):N$[178]"METEORS":[159]15,D,15,"S0:"[170]N$:[160]15:[148]N$,D:[128]