10 POKE52,32:POKE54,32:POKE56,32:POKE51,00:POKE53,00:POKE55,00:CLR:A1=PEEK(820):A3=PEEK(846):A5=PEEK(823):B1=PEEK(824):B2=PEEK(825):B3=PEEK(834):B4=PEEK(835):B5=PEEK(838):B6=PEEK(839):C1=PEEK(832):C2=PEEK(833):C3=PEEK(836):C4=PEEK(837)
24 D1=PEEK(840):D2=PEEK(860):D3=PEEK(861):D4=PEEK(862):D5=PEEK(863):E1=PEEK(850):E2=PEEK(851):E3=PEEK(853):E4=PEEK(854):E5=PEEK(852):C=100:W=59:NV=17:DIMC$(17),D(17):POKE53280,0:POKE53281,0:PRINTCHR$(14)"[147]";:GOTO43
41 A$=STR$(X)+".0":PRINTTAB(33)MID$(A$,2,3)" %":RETURN
42 PRINTTAB(32)RIGHT$(M$,2)"'"MID$(S$,2,2):RETURN
43 IFB1>WTHENB1=W
44 IFC3>WTHENC3=W
45 IFE1>WTHENE1=W
46 IFE3>WTHENE3=W
47 IFB5>WTHENB5=W
50 PRINT"[146][159]report total mission":PRINT"[154][211][212][193][210][212] [210][197][208][207][210][212]":PRINT"  [156]CALCULATE ERROR OF START";:X=A1/6:GOSUB41:PRINT"  IGNITION ERROR";:X=A3/20:GOSUB41:PRINT"[154][198][201][206][193][204][160][193][195][195][197][204][197][210][193][212][201][207][206]":PRINT"  [156]IGNITION ERROR";:X=A5/5:GOSUB41
110 PRINT"[154]docking[160]report":PRINT"  [156]TOTAL TIME";:M$=STR$(B2):S$=STR$(B1):GOSUB42:PRINT"[154]course[160]corrections[160]report":PRINT"  [156]TOTAL TIME";:M$=STR$(C4):S$=STR$(C3):GOSUB42:PRINT"  HORIZONTAL ERROR";TAB(32)C1"[157].0 %":PRINT"  VERTICAL ERROR";TAB(32)C2"[157].0 %"
170 PRINT"[154][204][213][206][193][210][160][204][193][206][196][201][206][199][160][210][197][208][207][210][212]":A$=STR$(D1):PRINT"  [156]IMPACT VELOCITY"TAB(36-LEN(A$));A$:PRINT"  DAMAGE TO CRAFT                0.0 %":PRINT"          [154]- PRESS ANY KEY -";:POKE198,0:WAIT198,1:POKE198,0
220 PRINTCHR$(14)"[147]";:PRINT"[146][154][197][216][212][210][193][160][214][197][200][201][195][213][204][193][210][160][193][195][212][201][214][201][212][217] [210][197][208][207][210][212]":PRINT"  [156]EXCURSION LENGTH";:M$=STR$(E2):S$=STR$(E1):GOSUB42:PRINT"  FLAG";:IFD2THENPRINTTAB(33)"YES":GOTO260
251 PRINTTAB(34)"NO"
260 PRINT"  TOOLS";:IFD3THENPRINTTAB(33)"YES":GOTO270
261 PRINTTAB(34)"NO":A$=STR$(D4)
270 PRINT"  MINERALS";TAB(36-LEN(A$));A$:D5=D5/2:A$=STR$(D5):PRINT"  PHOTOS";TAB(36-LEN(A$));A$:FORI=25592TO25597:W=PEEK(I):IFW<>219THENDD=DD+1
282 NEXT:A$=STR$(DD):PRINT"  HIS PHOTOS"TAB(36-LEN(A$));A$:PRINT"[154][210][197][211][212][193][210][212][160][207][198][160][204][213][206][193][210][160][205][207][196][213][204][197]":A$=STR$(E5):PRINT"  [156]ATTEMPTS"TAB(36-LEN(A$));A$:PRINT"[154]docking[160]report":PRINT"  [156]TOTAL TIME";:M$=STR$(E4):S$=STR$(E3):GOSUB42:PRINT"[154]course[160]corrections[160]report"
350 PRINT"  [156]TOTAL TIME";:M$=STR$(B6):S$=STR$(B5):GOSUB42:PRINT"  HORIZONTAL ERROR";TAB(32)B3"[157].0 %":C1=C1+1:C2=C2+1:B3=B3+1:B4=B4+1:PRINT"  VERTICAL ERROR";TAB(32)B4"[157].0 %":PV=((E2*60)+E1)*10:IFPV>3000THENPV=3000
372 PV=PV+(C/E5)+(C/A1)+(C/A3)+(C/A5)+(C/B4)+(C/D1):PV=PV+(300/((B2*60)+B1))+(300/((C4*60)+C3))+(300/((B6*60)+B5)):IFD2THENPV=PV+50
375 IFD3THENPV=PV+60
376 PV=PV+(D4*15)+(D5*15)+(DD*10):PT=INT(PV):PV=PT:PRINT"[159][198][201][206][193][204][160][205][201][211][211][201][207][206][160][212][207][212][193][204]"TAB(28)PT:PRINT"          [154]- PRESS ANY KEY -";:POKE198,0:WAIT198,1:POKE198,0:IFST<>64THEN1060
420 PRINT"[147][158]";CHR$(14);CHR$(8);TAB(12)"[212][207][208][160][208][197][210][198][207][210][205][193][206][195][197][211]":PRINT"[159]";TAB(13)"PILOT";TAB(23)"SCORE":PRINT"":POKE53280,0:POKE53281,0:OPEN15,8,15:CLOSE15:L=ST:IFL<>0THEN490
460 OPEN8,8,8,"SCORES,U,R":OPEN15,8,15:INPUT#15,L:IFL=0THEN510
490 FORI=1TO16:C$(I)="-    [164][164][164][164][164][164][164][164][164][164][164]":NEXT:GOTO540
510 FORI=1TO16:INPUT#8,C$(I):NEXT
540 CLOSE8:CLOSE15:GOSUB870:A=VAL(C$(16)):IFPV<=ATHEN1030
580 PRINTTAB(10)"[158]JOUR NAME IS ? ";
590 POKE204,0:POKE646,1:GETA$:IFA$=""THEN590
620 IFA$<>CHR$(13)ANDA$<>CHR$(20)ANDA$>CHR$(31)ANDA$<CHR$(96)THENF$=F$+A$
630 POKE204,1:IFF$>""THENPRINTA$;
650 IFA$=CHR$(20)ANDF$>""THENF$=LEFT$(F$,LEN(F$)-1)
660 IFA$<>CHR$(13)ANDLEN(F$)<12THEN590
670 IFLEN(F$)=12THENPRINT
680 POKE198,0:PRINT:PRINTTAB(10)"[145][145]                              ":POKE646,5:A$=MID$(STR$(PV),2,5):C$(17)=A$+"     ":C$(17)=LEFT$(C$(17),5):F$=F$+"[164][164][164][164][164][164][164][164][164][164][164]":C$(17)=C$(17)+LEFT$(F$,11):D=INT(NV/2)
760 P=NV-D
770 F=0:FORI=1TOP:D(I)=VAL(C$(I)):IFD(I)<VAL(C$(I+D))THENF=1:A$=C$(I):C$(I)=C$(I+D):C$(I+D)=A$
810 NEXT:IFFTHENP=P-D:GOTO770
830 D=INT(D/2):IFDTHEN760
850 GOSUB870:GOSUB950:GOTO1040
870 PRINT"":FORI=1TO9:PRINTTAB(10)I:NEXT:FORI=10TO16:PRINTTAB(9)I:NEXT:PRINT"":FORI=1TO16:PRINTTAB(13);RIGHT$(C$(I),11):NEXT:PRINT"":FORI=1TO16:PRINTTAB(25);LEFT$(C$(I),5):NEXT:RETURN
950 IFL=-128THENRETURN
960 OPEN15,8,15,"S:SCORES":OPEN8,8,8,"SCORES,U,W":FORI=1TO16:PRINT#8,C$(I):NEXT:INPUT#15,L,A$:CLOSE15:CLOSE8:POKE198,0:IFL=0THEN1040
1030 PRINTA$
1040 PRINTTAB(7)"[158]   [193]NOTHER MISSION ?"
1050 GETA$:IFA$<>"Y"ANDA$<>"N"THEN1050
1060 IFA$="Y"THENSYS49792
1070 SYS64738