1 CLR:DIMA(13),B(19),E$(10)
2 PRINT"[147]      [197]NTER EXPEDITION ([193] OR [194])"
4 GETKS$:IFKS$<>"A"ANDKS$<>"B"THEN4
7 AA$="EXP"+KS$:A$=AA$+AA$:GOSUB760
8 A$=AA$:GOSUB840
9 PRINTTAB(17)"[196]ONE"
10 LOAD"FLINT",8
760 OPEN2,8,2,A$+",S,R"
761 FORB=1TO4:INPUT#2,C$(B):INPUT#2,C(B):INPUT#2,F(B):INPUT#2,E(B):NEXT
762 INPUT#2,F:INPUT#2,G:INPUT#2,H:INPUT#2,I:INPUT#2,J:INPUT#2,K:INPUT#2,L
763 FORB=1TO13:INPUT#2,A(B):NEXT:INPUT#2,D$:INPUT#2,E$:INPUT#2,F$
764 FORB=1TO19:INPUT#2,B(B):NEXT:FORB=1TO10:INPUT#2,E$(B):NEXT:CLOSE 2:RETURN
840 OPEN3,8,3,"@:"+A$+",S,W"
841 FORB=1TO4:PRINT#3," "+C$(B):PRINT#3,C(B):PRINT#3,F(B):PRINT#3,E(B):NEXT
842 PRINT#3,F:PRINT#3,G:PRINT#3,H:PRINT#3,I:PRINT#3,J:PRINT#3,K:PRINT#3,L
843 FORB=1TO13:PRINT#3,A(B):NEXT:PRINT#3,D$:PRINT#3,E$:PRINT#3,F$
844 FORB=1TO19:PRINT#3,B(B):NEXT:FORB=1TO10:PRINT#3,E$(B)+" ":NEXT:CLOSE 3:RETURN