50 POKE53281,1
60 PRINT"[147][208]LEASE WAIT..."
105 DIMX,Y,T,Q,P,A,B,D,S,F,L,K,G,E,C,T$,G$,H$,A$,B$
110 DIMB$(25),C$(22),F(13),G(21),E$(9),D$(9),I$(1)
115 DIMA(24),B(24),C(24),E(20,1),V$(25),J$(13):POKE53280,3
135 O=54272:H=.002975:K=999:R$=CHR$(13)
140 FORX=1TO33:B$=B$+" ":NEXT:I$(0)="[144]":I$(1)=""
145 V$(0)="[147][144]     [196]ATA [195]W/[195]G"
150 V$(0)=V$(0)+"   [199]EAR     [204]O-[205][208][200]-[200]I  "
155 T$="    [165]    [221]     [221]"
160 T$=T$+"        [221]            [167]"
165 K$=MID$(T$,10):FORX=1TO21:V$(X)=T$:NEXT
170 T$="[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
175 V$(22)="    "+T$:V$(23)="[163][163][163][163][163]"+T$+""
180 FORX=0TO4:READE$(X):NEXT:FORX=0TO4:READD$(X):NEXT
185 FORX=1TO14:E(X,0)=10:E(X,1)=99:NEXT:E(14,1)=K
190 E(16,1)=100:E(18,1)=K:E(20,0)=10:E(18,0)=10:E(20,1)=K
195 F(5)=100:F(13)=100:FORX=0TO78:U$=U$+"[192]":NEXT
200 READB$(0),B$(1):FORX=13TO21:READB$(X):NEXT
205 FORX=0TO5:READF$(X):NEXT:N$=" N/A"
210 U=1:G=0:FORX=2TO12:B$(X)="*  ":NEXT
215 B$(5)="[195]OG[144]":GOTO335
220 PRINT"[144][215]ORKING[146]":K=VAL(B$(20))/10
225 IFK>36THENK=K*.3937
230 L=VAL(B$(18)):IFL>250THENL=L*.254
235 L=170/L:B=1:D=5:A=0:FORX=2TO4:F(X)=100
240 IFVAL(B$(X))THENF(X)=VAL(B$(X)):B=B+1
245 B$(X)="*  ":NEXT:ONBGOTO285:FORX=2TO4:FORY=XTO4
250 IFF(X)>F(Y)THENT=F(Y):F(Y)=F(X):F(X)=T
255 NEXTY,X:FORX=2TOB:B$(X)=RIGHT$(STR$(F(X)),2):NEXT
260 FORX=6TO12:F(X)=100
265 IFVAL(B$(X))THENF(X)=VAL(B$(X)):D=D+1
270 B$(X)="*  ":NEXT:ON-(D=5)GOTO285:FORX=6TO12
275 FORY=XTO12:IFF(X)>F(Y)THENT=F(Y):F(Y)=F(X):F(X)=T
280 NEXTY,X:FORX=6TOD:B$(X)=RIGHT$(STR$(F(X)),2):NEXT
285 G=(B-1)*(D-5):ON-(G=0)GOTO335:FORX=2TOB
290 FORY=DTO6STEP-1:G(A)=(F(X)/F(Y))*K
295 C$(A)=B$(X)+"/"+B$(Y):A=A+1:NEXTY,X:A=A-1
300 FORX=0TOA:FORY=XTOA:IFG(X)=<G(Y)THEN310
305 T=G(Y):G(Y)=G(X):G(X)=T:T$=C$(Y):C$(Y)=C$(X):C$(X)=T$
310 NEXTY,X:X=VAL(B$(14)):Y=VAL(B$(16))/100
315 S=(X-X*Y)*H:F=(X+X*Y)*H:X=NOT(F*G(A)>99ORL*G(A)>999)
320 G=G*(-X):ON-(G=0)GOTO335:FORX=0TOA:T=G(X)
325 A(X)=INT(.5+L*T*10)/10:B(X)=INT(.5+S*T*10)/10
330 C(X)=INT(.5+F*T*10)/10:NEXT
335 IFUTHENU=0:ONJ+1GOTO600,345,700,515
340 ONJ+1GOTO615,350
345 P=0:N=5:E=8:FORX=0TO22:PRINTV$(X):NEXT
350 X=0:PRINT"       ":IFG=0THEN375
355 FORX=0TOA:PRINTTAB(5)"[144]"B$(X+1)I$(-P)TAB(10);
360 PRINTC$(X)"                  [145]"R$TAB(16);
365 PRINTA(X)TAB(25)B(X)TAB(32);:IFF-STHENPRINTC(X);
370 PRINT:P=NOTP:NEXT:IFX>19THEN380
375 FORX=XTO20:PRINT"[144]"TAB(5)B$(X+1)TAB(9)K$:NEXT
380 V=0:P=0:PRINT"[144]"
385 Z=N-(J=3):POKE211,Z
390 W=PEEK(214)-2:X=PEEK(209)+256*PEEK(210)
395 IFASC(B$(W))<>31THEN405
400 PRINTCHR$(17*-(T<>145)-145*(T=145));:GOTO390
405 POKE213,E:C=PEEK(211):IFC=ETHENC=C-1:POKE211,C
410 M=X+C:POKEM,PEEK(M)OR128:WAIT198,1
415 T=PEEK(631):POKE198,0:POKEM,PEEK(M)AND127
416 IF T=ASC("[171]")THEN 1100
420 IFT>132ANDT<138THENIFC=ZTHENX=T-133:PRINT:GOTO495
425 ON-(T=13)GOTO450:IFT=145THENIFW<3ORC>ZTHEN410
430 IFT=17AND((W>19ORW=0)ORC>Z)ORT=148ANDW>0THEN410
435 ON-(T=19ORT=147)GOTO410:IFT=34THENT=39
440 IFT=29ANDC=EOR(T=20ORT=157)ANDC=ZTHEN410
445 PRINTCHR$(T);:ON1-(T=17ORT=145)GOTO405,385
450 POKE211,N:POKE213,E:POKE631,13:POKE198,1
455 OPEN1,0:INPUT#1,A$:CLOSE1:PRINT
460 ON-(W=0)GOTO525:IFB$(W)="*  "THEN470
465 IFLEFT$(A$,1)="*"ANDW<13THENB$(W)="*":V=1:GOTO510
470 FORX=1TOLEN(A$)
475 T$=MID$(A$,X,1):IFT$<"0"ANDT$<>" "ORT$>"9"THEN510
480 NEXT:IFVAL(A$)<E(W,0)ORVAL(A$)>E(W,1)THEN510
485 IFVAL(B$(W))<>VAL(A$)THENB$(W)=A$:V=1
490 W=W+1:ON-(W<>13ANDW<>21)GOTO385:PRINT"[145][145]":GOTO385
495 POKE213,79:U=-(X<>J):IFU+V=0THEN510
500 ON-(V=0AND((X=2ORX=3)ANDG=0))GOTO510:IFX=4THEN210
505 I=J:J=X:ONVGOTO220:ONX+1GOTO600,345,700,515
510 PRINT"[145]"TAB(N)"    [157][157][157][157]"B$(W)"[145]":GOTO385
515 P=0:N=14:E=78:T$=CHR$(34)+CHR$(34)+CHR$(20)+I$(0)
520 PRINT"[147][195]URRENT LABEL:[159]"T$F$"";:GOTO385
525 OPEN15,4,15:CLOSE15:IF ST<>0 THEN 2000
526 OPEN4,4,7:CMD4:PRINTA$R$:IFA$>""THENF$=A$
530 PRINT"[196]ATA[221][195]W/[195]G[221] [199]EAR  [221]  [204]O-[205][208][200]-[200]I  [221]51[207]VERLAP"
535 PRINTU$:FORX=0TOA:V=G(0)*S
540 Q=G(A)*F:T=G(X):Z=B(X):W=C(X)
545 PRINT" "B$(X+1)"04[221]"C$(X)"10[221]";
550 PRINTA(X)"18[221]"B(X);:T=274/ABS(Q-V)
555 IFS<FTHENPRINT"26"C(X)"32[221]";
560 Q=INT(200+(T*(Z-V))):V=-(Q>255):Q=Q-255*V
565 PRINT""CHR$(V)CHR$(Q);:FORY=0TOINT(T*(W-Z))
570 PRINTCHR$(156);:NEXT:PRINT"":NEXT
575 IFA<20THENFORX=A+2TO21:PRINT" "B$(X);:       PRINT"04[221]10[221]18[221]32[221]":NEXT
585 PRINTU$:T$="":R=1:GOTO705
590 V=35-(((B*2))*(D>6ORB>2)):FORV=VTO66
595 PRINT#4:NEXT:CLOSE4:V=0:R=0:J=I:U=1:GOTO335
600 P=0:N=0:E=3:PRINT"[147][144]"TAB(19)"[207]VERLAP"
605 PRINTTAB(6)"<"TAB(21)"[205][208][200]"TAB(38)">"
610 FORX=1TO21:PRINTTAB(5)"[221]":NEXT:PRINTV$(23)
615 X=0:PRINT"       "R$TAB(7)"     "TAB(32)"     [145]"
620 IFG=0THENPRINT"":GOTO690
625 PRINTTAB(7)B(0)TAB(33)C(A)""
630 IFG=1THENIFS=FTHENPRINT:PRINTTAB(21)"*":GOTO380
635 Y=G(0)*S:Q=G(A)*F:T=(Q-Y)/33:FORX=0TOA:G$=B$:H$=B$
640 A$=""+B$:Z=(G(X)*S-Y)/T:C=(G(X)*F-Y)/T
645 IFC<28THENH$=C$(X)+H$:GOTO660
650 IFZ>5THENG$=G$+C$(X):GOTO660
655 A$=""+C$(X)+B$
660 T$=RIGHT$(G$,Z+(Z=33))
665 IF(C-Z<=1)THENT$=T$+"*":GOTO680
670 T$=T$+D$((.125+Z-INT(Z))*4)+LEFT$(A$,INT(C)-INT(Z))
675 T$=T$+"[146]"+E$((.125+C-INT(C))*4)
680 T$=LEFT$(T$+H$,41)
685 PRINT"[144]"B$(X+1)I$(-P)TAB(6)T$:P=NOTP:NEXT
690 IFX<20THENFORX=XTO20:PRINT"[144]"B$(X+1)TAB(6)B$:NEXT
695 GOTO380
700 P=0:PRINT"[147]":T$=""
705 FORX=2TOD:J$(X)=MID$(STR$(F(X+1)-F(X)),2):NEXT
710 PRINTF$(0);:IFB=2THENPRINTN$T$R$F$(1)N$T$:GOTO725
715 FORX=2TOB-1:PRINTJ$(X);:IFX<B-1THENPRINT",";
720 NEXT:PRINTT$:T=F(B)-F(2):PRINTF$(1)T"[212]"T$
725 PRINTF$(2);:IFD=6THENPRINTN$T$R$F$(3)N$T$:GOTO740
730 FORX=6TOD-1:PRINTJ$(X);:IFX<D-1THENPRINT",";
735 NEXT:PRINTT$R$F$(3)F(D)"[212]"T$
740 PRINTF$(4);:IFB=2ANDD=6THENPRINTN$T$:GOTO750
745 PRINT((F(B)-F(2))+(F(D)-F(6)))"[212]"
750 IFRTHENPRINTU$
755 PRINTR$F$(5);:IFB=2ANDD=6THENPRINTN$;:GOTO785
760 PRINTR$R$"   ";:FORX=DTO6STEP-1:PRINT"  "B$(X);
765 NEXT:FORX=2TOB:PRINTR$R$" "B$(X)"  ";
770 FORY=DTO6STEP-1:G$=B$(X)+"/"+B$(Y):Z=0
775 IFC$(Z)<>G$THENZ=Z+1:GOTO775
780 PRINTRIGHT$(STR$(Z+1)+"  ",4);:NEXTY,X
785 ONRGOTO590:PRINTR$"[208]RESS ANY KEY TO GO ON.";
790 POKE198,0:WAIT198,1:T=PEEK(631):POKE198,0:IFT=ASC("[171]") THEN 1100
791 J=I:U=1:GOTO335
795 DATA"","[180]","[161]","[170][146]"," [146]"
800 DATA" [146]","[180][146]","[182]","[170]"," "
805 DATA"[157]","[195]WL[144]","[195]AD[144]","72 ","[214]AR[144]"
810 DATA"10 ","[195]RK[144]","170","[215]HL[144]","270","   "
815 DATA"[195]HAINWHEEL JUMPS: ","[198]RONT DERAILLEUR CAPACITY:"
820 DATA"[195]OGSET JUMPS: ","[210]EAR DERAILLEUR CAPACITY:"
825 DATA"[212]AKEUP REQUIREMENT:","[211]HIFT SEQUENCE:"
1100 PRINT"[147]":OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER,ER$:CLOSE15
1110 IFER<>63 THEN PRINT"[147]":END
1111 LOAD"HELLO CONNECT",8,1