0 IFZX<>0THEN6420
1 CLR:V2$="":SP$="                                       "
2 PRINT"[147][144]":GOSUB4321:DIMA(13),B(19):IF PEEK(767)=0THENPOKE766,0:SYS896:GOTO 7
3 IF PEEK(767)<>55 THEN A$="EXPB":B$="B":GOTO5
4 A$="EXPA":B$="A"
5 GOSUB 76:FORA=1TO4:IFC$(A)=""THENP=4:A=4
6 NEXT:GOTO 55
7 GOSUB 700
9 GET G$:IFG$=""THEN9
10 A=VAL(G$):IFA<1ORA>5THEN9
11 IFA<>1THEN13
12 GOTO29
13 IFA<>2THEN25
14 PRINT"       [197]XPEDITION [193][146] OR [194][146]?"
15 GETG$:IFG$=""THEN15
16 IFG$<>"A"THEN22
17 A$="EXPA":B$="A"
18 C=0:GOSUB76:D=0:FORA=1TO4:IFC$(A)=""THEND=D+1
19 NEXT:IFD=4THEN24
20 IF D=0THEN77
21 GOTO56
22 IFG$<>"B"THEN15
23 A$="EXPB":B$="B":GOTO18
24 PRINT"[147][206]O EXPEDITION IN PROGRESS[146]":FORA=1TO1200:NEXT:GOTO7
25 IFA<>4THEN92
26 GOSUB260
27 GETG$:IFG$=""THEN27
28 POKE767,0:GOTO7
29 A$="EXPA":B$="A":GOTO31
30 A$="EXPB":B$="B"
31 GOSUB76:D=0:FORA=1TO4:IFC$(A)=""THEND=D+1
32 NEXT:IFD=4THENGOSUB800:GOSUB49:FORI7=1TO4567:NEXT:GOTO50
33 IF B$="A"THEN30
34 GOSUB340
35 GETG$:IFG$=""THEN35
36 IFG$="N"THEN7
37 IFG$<>"Y"THEN35
38 PRINT"               [193] OR [194]?"
39 GETB$:IFB$<>"A"ANDB$<>"B"THEN39
42 PRINT"[145]         [196]ISBAND EXPEDITION ";B$;"[146] ?"
43 GETG$:IFG$=""THEN43
44 IFG$="N"THEN7
45 IFG$<>"Y"THEN 43
46 A$="EXP"+B$:GOSUB49:GOTO50
49 GOTO490
50 GOSUB200
51 GETG$:IFG$=""THEN51
52 M=4:PRINT"[147]      [197]NTER LEVEL OF DIFFICULTY":PRINTTAB(16)"1 THRU 9
53 [161]G$:[139]G$[178]""[167]53
54 B(19)[178][197](G$):[139]B(19)[178]0[176]B(19)[177]9[167]53
55 [139][194](767)[177]0[175]P[179][177]4[167]79
56 [141]560
57 [141]74:[141]75:[137]77
58 [153]"      (null)AME"[163]22)"(null)ITLE":[129]A[178]1[164]39:[153]"-";:[130]:[153]:[141]590:[137]60
60 [129]N[178]1[164]4:[153][163]22)G$(N):[130]:[129]N[178]1[164]4:[139]C$(N)[178]""[167]62
61 [153][200](V2$,12[170]N)"   "C$(N)[163]22)G$(N):[137]65
62 [141]620:[141]66:[139]O[178]0[167]64
63 [141]71:C$(N)[178]"":N[178]N[171]1:[137]65
64 [153][200](V2$,12[170]N)"   "C$(N)[163]22)G$(N):[141]73
65 [130]:[129]B[178]1[164]700:[130]:[142]
66 O[178]0:[139][195](C$(N))[177]10[167]O[178]1:[141]72:[142]
67 [139][195](C$(N))[178]0[167]O[178]1:[142]
68 [129]B[178]1[164]4:[139]B[178]N[167]70
69 [139]C$(B)[178]C$(N)[167]O[178]1:[153]V2$[166]13)"(null)N EXPEDITIONWAIT"[166]10):[129]E[178]1[164]1000:[130]
70 [130]:[142]
71 [153]V2$SP$V2$[163]14)"(null)NACCEPTABLEWAIT":[129]B[178]1[164]1000:[130]:[153]V2$SP$:[142]
72 [153]V2$SP$V2$[163]16)"TOO LONGWAIT":[129]B[178]1[164]1000:[130]:[142]
73 F(N)[178]0:E(N)[178]10:C(N)[178]0:D(N)[178]0:[142]
74 J[178][181](600[172]10[173]B(19)):K[178]0:[141]87:[142]
75 D$[178]"OOOOOOOOOOOOO":E$[178]D$:F$[178]D$:[129]B[178]1[164]18:B(B)[178]1:[130]:[129]B[178]1[164]13:A(B)[178]0:[130]:[142]
76 [137]  760
77 [139]B$[178]"A"[167][151]767,55:[137]79
78 [151] 767,25
79 [141]790
80 [161]G$:A[178][197](G$):[139]A[179]1[176]A[177]2[167]80
81 [139]A[178]1[167][141]810:[141]84:[147]"IQUITOS",8
83 [141]830:[141]84:[147]"AZ",8
84 [141]840:[142]
85 [144]
87 [159]4,8,4,"@:"[170]A$[170]"C,S,W"
88 [129]A[178]1[164]40:[135]B:[152]4,B:[130]:[160]4
89 [142]:[131]2,2,2,1,1,2,1,2,2,1,2,2,2,2,1,1,2,2,2,1,2,3,1,4,1,1,1,1
90 [131]2,5,1,6,2,7,1,8,2,9,2,10
92 [139]A[179][177]5[167]100
94 [147]"RES",8
100 [139]A[179][177]3[167]9
110 [137]6400
200 [153]"LOAD     *****************************"
210 [153]"      ASCLINT (null)NIVERSITY AUTHORIZES"
220 [153][163]10)"ATNMAZON EXPEDITION "B$"WAIT"
230 [153]"     *****************************"
240 [153]"            (null)RESS ANY KEY":[142]
260 [153]"LOAD          (null)RESS A KEY TO PLAY"
261 [153][163]7)"OR TURN YOUR COMPUTER OFF.":[142]
340 [153]"LOAD      (null)HERE ARE TWOWAIT EXPEDITIONS":[153]"             IN PROGRESS.
341 PRINT"      [196]O YOU WISH TO DISBAND ONE?":PRINT"              [217][146])ES [206][146])O":RETURN
490 FORB=1TO4:C$(B)="":C(B)=0:D(B)=0:E(B)=0:NEXT
491 F=0:G=0:H=0:I=0:J=0:K=0:L=0:FORB=1TO13:A(B)=0:NEXT
492 D$="":E$="":F$="":FORB=1TO19:B(B)=1:NEXT:FORB=1TO10:E$(B)="":NEXT:RETURN
560 PRINT"[147]   [193]PPLICATIONS ARE NOW BEING TAKEN"
561 PRINTTAB(8)"FOR [193]MAZON EXPEDITION "B$"[146]":GOSUB58:IF K<>0THEN77
590 G$(1)="[198]IELD ASSISTANT":G$(2)="[205]EDIC":G$(3)="[210]ADIO OPERATOR"
591 G$(4)="[199]UARD":RETURN
620 PRINTLEFT$(V2$,12+N)TAB(22)""G$(N)"[146]"
621 PRINTV2$SP$V2$"         [206]AME";:INPUTC$(N)
622 IFC$(N)<"A"ORC$(N)>"ZZ"THENRETURN
623 C$(N)=CHR$(ASC(LEFT$(C$(N),1))+128)+MID$(C$(N),2):RETURN
700 PRINT"[147]              [215]ELCOME TO    [146]"
701 PRINT"           [198]LINT [213]NIVERSITY [146]"
702 PRINT"                [217]OU MAY:"
703 PRINT"       1) [211]TART A NEW EXPEDITION"
704 PRINT"        2) [210]ESUME AN EXPEDITION"
705 PRINT"         3) [214]IEW ILLUSTRATION"
706 PRINT"           4) [197]XIT THE GAME"
707 GOSUB7070:RETURN
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
790 PRINT"[147]  1) [198]LY TO [201]QUITOS
795 [153]"  2) ASCLY TO BASE CAMP
798 RETURN
800 PRINT"[147]           [198]LINT [213]NIVERSITY"
801 PRINT"            [197]ST. [205][195][205][204][216][216][216][201][201]"
802 PRINT"             [206]IHIL, [212]EXAS"
803 GOSUB8000:RETURN
810 PRINT"[147]     [202]EEP AND BUS TO [211]AN [193]NTONIO"
811 PRINT"     [193]IR FLIGHT TO [201]QUITOS, [208]ERU":RETURN
830 GOSUB810:PRINT"    [208]ADDLE WHEEL BOAT TO BASE CAMP":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
4321 POKE53280,15:POKE53281,15:RETURN
6400 SYS32789:POKE53280,0:POKE53281,0
6410 ZX=7:LOAD"P3",8,1
6420 GETAY$:IFAY$=""THEN6420
6430 SYS32780
6440 POKE 53280,15:POKE53281,15:GOTO9
7070 PRINT"[172][191][172][191][172][191][172][191][172][191][172][191][172][191][172][191][172][191][172][191][172][191][172][191][172][191][172][191][172][191][172][191][172][191][172][191][172][191][172][191]";
7071 FORA=1TO11
7072 PRINT"[190][191]";
7073 PRINT"[191][172]";
7074 NEXT
7075 PRINT"[172][191][172][191][172][191][172][191][172][191][172][191][172][191][172][191][172][191][172][191][172][191][172][191][172][191][172][191][172][191][172][191][172][191][172][191][172][191][172][191]";
7079 PRINT"[144]":RETURN
8000 PRINT"[172][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][162][187]";
8001 FORBA=1TO22
8002 PRINT"[161][146][161]";:NEXT
8003 PRINT"[188][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][162][146][190]";
8009 PRINT"[144]":RETURN