Listing of file='TC16.PPS;02' on disk='vmedia/chip_9-sector.ccvf'
### Disk Sector 90 ###
00: 50 55 54 43 48 41 52 20 43 48 41 52 20 43 5b 49 PUTCHAR CHAR C[I
10: 46 28 43 3d 3d 30 29 43 3d 27 22 27 3b 52 45 54 F(C==0)C='"';RET
20: 55 52 4e 20 4d 43 20 43 2c 31 5d 0d 0a 47 45 54 URN MC C,1]..GET
30: 43 48 41 52 5b 52 45 54 55 52 4e 20 4d 43 20 32 CHAR[RETURN MC 2
40: 5d 0d 0a 43 48 52 44 59 5b 52 45 54 55 52 4e 20 ]..CHRDY[RETURN
50: 4d 43 20 31 32 5d 0d 0a 47 53 20 43 48 41 52 20 MC 12]..GS CHAR
60: 42 28 30 29 5b 49 4e 54 20 4c 0d 0a 43 48 41 52 B(0)[INT L..CHAR
70: 20 45 28 30 29 2c 43 3b 45 3d 33 33 32 38 39 3b E(0),C;E=33289;
### Disk Sector 91 ###
00: 45 28 30 29 3d 30 0d 0a 57 48 49 4c 45 28 28 43 E(0)=0..WHILE((C
10: 3d 42 28 4c 29 3d 4d 43 28 32 29 29 21 3d 31 33 =B(L)=MC(2))!=13
20: 29 5b 0d 0a 49 46 28 43 3d 3d 31 31 29 5b 4c 3d )[..IF(C==11)[L=
30: 30 3b 4d 43 20 43 2c 31 5d 0d 0a 45 4c 53 45 20 0;MC C,1]..ELSE
40: 49 46 28 28 43 3d 3d 31 32 37 29 2b 28 43 3d 3d IF((C==127)+(C==
50: 32 36 29 29 5b 0d 0a 49 46 28 4c 3e 30 29 5b 4c 26))[..IF(L>0)[L
60: 3d 4c 2d 31 3b 4d 43 20 32 36 2c 31 3b 4d 43 20 =L-1;MC 26,1;MC
70: 27 20 27 2c 31 3b 4d 43 20 32 36 2c 31 3b 5d 5d ' ',1;MC 26,1;]]
### Disk Sector 92 ###
00: 0d 0a 45 4c 53 45 5b 4c 3d 4c 2b 31 3b 4d 43 20 ..ELSE[L=L+1;MC
10: 43 2c 31 3b 5d 5d 0d 0a 42 28 4c 29 3d 30 3b 45 C,1;]]..B(L)=0;E
20: 28 30 29 3d 31 3b 52 45 54 55 52 4e 20 4c 5d 0d (0)=1;RETURN L].
30: 0a 50 46 54 20 43 48 41 52 20 46 28 30 29 2c 54 .PFT CHAR F(0),T
40: 28 30 29 5b 4d 43 28 46 2c 54 2c 31 33 29 5d 0d (0)[MC(F,T,13)].
50: 0a 50 53 20 43 48 41 52 20 42 28 30 29 5b 49 4e .PS CHAR B(0)[IN
60: 54 20 4c 3b 43 48 41 52 20 43 3b 4c 3d 2d 31 0d T L;CHAR C;L=-1.
70: 0a 57 48 49 4c 45 28 28 43 3d 42 28 4c 3d 4c 2b .WHILE((C=B(L=L+
### Disk Sector 93 ###
00: 31 29 29 21 3d 30 29 4d 43 20 43 2c 31 0d 0a 52 1))!=0)MC C,1..R
10: 45 54 55 52 4e 20 4c 5d 0d 0a 50 4c 20 43 48 41 ETURN L]..PL CHA
20: 52 20 42 28 30 29 5b 50 53 20 42 3b 4d 43 20 31 R B(0)[PS B;MC 1
30: 33 2c 31 3b 4d 43 20 31 30 2c 31 5d 0d 0a 41 4c 3,1;MC 10,1]..AL
40: 50 48 41 20 43 48 41 52 20 41 5b 49 46 28 28 41 PHA CHAR A[IF((A
50: 3e 3d 27 61 27 29 2a 28 41 3c 3d 27 7a 27 29 29 >='a')*(A<='z'))
60: 52 45 54 55 52 4e 20 31 0d 0a 49 46 28 28 41 3e RETURN 1..IF((A>
70: 3d 27 41 27 29 2a 28 41 3c 3d 27 5a 27 29 29 52 ='A')*(A<='Z'))R
### Disk Sector 94 ###
00: 45 54 55 52 4e 20 31 5d 0d 0a 4e 55 4d 20 43 48 ETURN 1]..NUM CH
10: 41 52 20 42 28 35 29 3b 49 4e 54 20 56 28 30 29 AR B(5);INT V(0)
20: 5b 49 4e 54 20 4b 0d 0a 56 28 30 29 3d 30 0d 0a [INT K..V(0)=0..
30: 57 48 49 4c 45 28 4b 3c 35 29 5b 49 46 28 28 42 WHILE(K<5)[IF((B
40: 28 4b 29 3c 27 30 27 29 2b 28 42 28 4b 29 3e 27 (K)<'0')+(B(K)>'
50: 39 27 29 29 52 45 54 55 52 4e 20 4b 0d 0a 56 28 9'))RETURN K..V(
60: 30 29 3d 31 30 2a 56 28 30 29 2b 42 28 4b 29 2d 0)=10*V(0)+B(K)-
70: 27 30 27 0d 0a 4b 3d 4b 2b 31 5d 0d 0a 52 45 54 '0'..K=K+1]..RET
### Disk Sector 95 ###
00: 55 52 4e 20 4b 5d 0d 0a 41 54 4f 49 20 43 48 41 URN K]..ATOI CHA
10: 52 20 42 28 30 29 3b 49 4e 54 20 56 28 30 29 5b R B(0);INT V(0)[
20: 49 4e 54 20 4b 2c 53 3b 43 48 41 52 20 43 0d 0a INT K,S;CHAR C..
30: 53 3d 31 3b 43 3d 42 28 30 29 0d 0a 57 48 49 4c S=1;C=B(0)..WHIL
40: 45 28 28 43 3d 3d 27 20 27 29 2b 28 43 3d 3d 27 E((C==' ')+(C=='
50: 2d 27 29 2b 28 43 3d 3d 27 2b 27 29 29 0d 0a 5b -')+(C=='+'))..[
60: 49 46 28 43 3d 3d 27 2d 27 29 53 3d 2d 31 0d 0a IF(C=='-')S=-1..
70: 43 3d 42 28 4b 3d 4b 2b 31 29 5d 0d 0a 4b 3d 4b C=B(K=K+1)]..K=K
### Disk Sector 96 ###
00: 2b 4e 55 4d 28 42 2b 4b 2c 56 29 3b 56 28 30 29 +NUM(B+K,V);V(0)
10: 3d 53 2a 56 28 30 29 3b 52 45 54 55 52 4e 20 4b =S*V(0);RETURN K
20: 5d 0d 0a 50 4e 20 49 4e 54 20 4e 5b 4d 43 20 27 ]..PN INT N[MC '
30: 20 27 2c 31 3b 4d 43 20 4e 2c 31 34 5d 0d 0a 47 ',1;MC N,14]..G
40: 4e 5b 43 48 41 52 20 42 28 32 30 29 3b 49 4e 54 N[CHAR B(20);INT
50: 20 56 28 30 29 0d 0a 57 48 49 4c 45 28 31 29 5b V(0)..WHILE(1)[
60: 47 53 20 42 0d 0a 49 46 28 41 54 4f 49 20 42 2c GS B..IF(ATOI B,
70: 56 29 52 45 54 55 52 4e 20 56 28 30 29 0d 0a 50 V)RETURN V(0)..P
### Disk Sector 97 ###
00: 53 22 13 4e 55 4d 42 45 52 20 52 45 51 55 49 52 S".NUMBER REQUIR
10: 45 44 20 12 22 5d 5d 0d 0a 43 45 51 4e 20 43 48 ED ."]]..CEQN CH
20: 41 52 20 41 28 30 29 2c 42 28 30 29 0d 0a 49 4e AR A(0),B(0)..IN
30: 54 20 4e 5b 49 4e 54 20 4b 0d 0a 4b 3d 2d 31 0d T N[INT K..K=-1.
40: 0a 57 48 49 4c 45 28 28 4b 3d 4b 2b 31 29 3c 4e .WHILE((K=K+1)<N
50: 29 49 46 28 41 28 4b 29 21 3d 42 28 4b 29 29 52 )IF(A(K)!=B(K))R
60: 45 54 55 52 4e 20 30 0d 0a 52 45 54 55 52 4e 20 ETURN 0..RETURN
70: 31 5d 0d 0a 49 4e 44 45 58 20 43 48 41 52 20 49 1]..INDEX CHAR I
### Disk Sector 98 ###
00: 28 30 29 3b 49 4e 54 20 4c 3b 43 48 41 52 20 46 (0);INT L;CHAR F
10: 28 30 29 3b 49 4e 54 20 4e 5b 49 46 28 4e 3c 3d (0);INT N[IF(N<=
20: 30 29 52 45 54 55 52 4e 20 31 0d 0a 49 46 28 4c 0)RETURN 1..IF(L
30: 3c 3d 30 29 52 45 54 55 52 4e 20 30 0d 0a 49 4e <=0)RETURN 0..IN
40: 54 20 41 2c 44 28 30 29 0d 0a 57 48 49 4c 45 28 T A,D(0)..WHILE(
50: 41 2b 4e 3c 3d 4c 29 5b 44 28 30 29 3d 31 0d 0a A+N<=L)[D(0)=1..
60: 41 3d 41 2b 31 2b 53 43 41 4e 4e 28 49 2b 41 2c A=A+1+SCANN(I+A,
70: 49 2b 4c 2d 4e 2c 46 28 30 29 2c 44 29 0d 0a 49 I+L-N,F(0),D)..I
### Disk Sector 99 ###
00: 46 28 44 28 30 29 29 52 45 54 55 52 4e 20 30 0d F(D(0))RETURN 0.
10: 0a 49 46 28 43 45 51 4e 28 49 2b 41 2c 46 2b 31 .IF(CEQN(I+A,F+1
20: 2c 4e 2d 31 29 29 52 45 54 55 52 4e 20 41 5d 5d ,N-1))RETURN A]]
30: 0d 0a 4d 4f 56 45 20 43 48 41 52 20 41 28 30 29 ..MOVE CHAR A(0)
40: 2c 42 28 30 29 5b 49 4e 54 20 4b 3b 49 4e 54 20 ,B(0)[INT K;INT
50: 4c 28 30 29 0d 0a 4c 28 30 29 3d 31 3b 4b 3d 53 L(0)..L(0)=1;K=S
60: 43 41 4e 4e 28 41 2c 36 35 35 33 35 2c 30 2c 4c CANN(A,65535,0,L
70: 29 0d 0a 4d 4f 56 45 42 4c 28 41 2c 41 2b 4b 2c )..MOVEBL(A,A+K,
### Disk Sector 100 ###
00: 42 2d 41 29 3b 52 45 54 55 52 4e 20 4b 5d 0d 0a B-A);RETURN K]..
10: 47 43 5b 43 48 41 52 20 46 0d 0a 46 3d 4d 43 20 GC[CHAR F..F=MC
20: 32 0d 0a 57 48 49 4c 45 28 4d 43 28 32 29 21 3d 2..WHILE(MC(2)!=
30: 31 33 29 5b 5d 0d 0a 52 45 54 55 52 4e 20 46 5d 13)[]..RETURN F]
40: 0d 0a 4d 4f 56 45 42 4c 20 43 48 41 52 20 41 28 ..MOVEBL CHAR A(
50: 30 29 2c 42 28 30 29 3b 49 4e 54 20 4e 5b 4d 43 0),B(0);INT N[MC
60: 28 41 2c 42 2c 4e 2c 37 29 5d 0d 0a 43 4f 55 4e (A,B,N,7)]..COUN
70: 54 43 48 20 43 48 41 52 20 41 28 30 29 2c 42 28 TCH CHAR A(0),B(
### Disk Sector 101 ###
00: 30 29 2c 43 5b 52 45 54 55 52 4e 20 4d 43 28 41 0),C[RETURN MC(A
10: 2c 42 2c 43 2c 38 29 5d 0d 0a 53 43 41 4e 4e 20 ,B,C,8)]..SCANN
20: 43 48 41 52 20 41 28 30 29 2c 42 28 30 29 2c 43 CHAR A(0),B(0),C
30: 3b 49 4e 54 20 4e 28 30 29 5b 52 45 54 55 52 4e ;INT N(0)[RETURN
40: 20 4d 43 28 41 2c 42 2c 43 2c 4e 2c 39 29 5d 0d MC(A,B,C,N,9)].
50: 0a 46 49 4c 45 4e 41 4d 45 20 43 48 41 52 20 46 .FILENAME CHAR F
60: 49 4e 28 30 29 2c 46 4f 55 54 28 30 29 5b 49 4e IN(0),FOUT(0)[IN
70: 54 20 4a 28 30 29 2c 58 44 2c 58 50 2c 58 56 2c T J(0),XD,XP,XV,
### Disk Sector 102 ###
00: 58 45 0d 0a 4a 28 30 29 3d 31 3b 58 45 3d 53 43 XE..J(0)=1;XE=SC
10: 41 4e 4e 28 46 49 4e 2c 46 49 4e 2b 33 32 2c 30 ANN(FIN,FIN+32,0
20: 2c 4a 29 0d 0a 4a 28 30 29 3d 31 3b 58 56 3d 53 ,J)..J(0)=1;XV=S
30: 43 41 4e 4e 28 46 49 4e 2c 46 49 4e 2b 58 45 2c CANN(FIN,FIN+XE,
40: 27 3b 27 2c 4a 29 0d 0a 4a 28 30 29 3d 31 3b 58 ';',J)..J(0)=1;X
50: 50 3d 53 43 41 4e 4e 28 46 49 4e 2c 46 49 4e 2b P=SCANN(FIN,FIN+
60: 58 56 2c 27 2e 27 2c 4a 29 0d 0a 4a 28 30 29 3d XV,'.',J)..J(0)=
70: 31 3b 58 44 3d 53 43 41 4e 4e 28 46 49 4e 2c 46 1;XD=SCANN(FIN,F
### Disk Sector 103 ###
00: 49 4e 2b 58 50 2c 27 3a 27 2c 4a 29 0d 0a 49 46 IN+XP,':',J)..IF
10: 28 4a 28 30 29 29 58 44 3d 2d 31 0d 0a 49 46 28 (J(0))XD=-1..IF(
20: 58 44 2b 37 3c 58 50 29 5b 4d 4f 56 45 4e 28 46 XD+7<XP)[MOVEN(F
30: 49 4e 2c 46 4f 55 54 2c 58 44 2b 37 29 3b 46 4f IN,FOUT,XD+7);FO
40: 55 54 3d 46 4f 55 54 2b 58 44 2b 37 5d 0d 0a 45 UT=FOUT+XD+7]..E
50: 4c 53 45 5b 4d 4f 56 45 4e 28 46 49 4e 2c 46 4f LSE[MOVEN(FIN,FO
60: 55 54 2c 58 50 29 3b 46 4f 55 54 3d 46 4f 55 54 UT,XP);FOUT=FOUT
70: 2b 58 50 5d 0d 0a 49 46 28 58 50 3d 3d 58 56 29 +XP]..IF(XP==XV)
### Disk Sector 104 ###
00: 5b 4d 4f 56 45 4e 28 22 2e 43 22 2c 46 4f 55 54 [MOVEN(".C",FOUT
10: 2c 32 29 3b 46 4f 55 54 3d 46 4f 55 54 2b 32 5d ,2);FOUT=FOUT+2]
20: 0d 0a 45 4c 53 45 49 46 28 58 50 2b 34 3c 58 56 ..ELSEIF(XP+4<XV
30: 29 5b 4d 4f 56 45 4e 28 46 49 4e 2b 58 50 2c 46 )[MOVEN(FIN+XP,F
40: 4f 55 54 2c 34 29 3b 46 4f 55 54 3d 46 4f 55 54 OUT,4);FOUT=FOUT
50: 2b 34 5d 0d 0a 45 4c 53 45 5b 4d 4f 56 45 4e 28 +4]..ELSE[MOVEN(
60: 46 49 4e 2b 58 50 2c 46 4f 55 54 2c 58 56 2d 58 FIN+XP,FOUT,XV-X
70: 50 29 3b 46 4f 55 54 3d 46 4f 55 54 2b 58 56 2d P);FOUT=FOUT+XV-
### Disk Sector 105 ###
00: 58 50 5d 0d 0a 4d 4f 56 45 4e 28 46 49 4e 2b 58 XP]..MOVEN(FIN+X
10: 56 2c 46 4f 55 54 2c 58 45 2d 58 56 2b 31 29 3b V,FOUT,XE-XV+1);
20: 52 45 54 55 52 4e 20 30 5d 0d 0a 4d 4f 56 45 4e RETURN 0]..MOVEN
30: 20 43 48 41 52 20 46 28 30 29 2c 54 28 30 29 3b CHAR F(0),T(0);
40: 49 4e 54 20 4e 5b 49 46 28 4e 29 4d 4f 56 45 42 INT N[IF(N)MOVEB
50: 4c 28 46 2c 46 2b 4e 2d 31 2c 54 2d 46 29 5d 0d L(F,F+N-1,T-F)].
60: 0a 52 45 41 44 46 49 4c 45 20 43 48 41 52 20 4e .READFILE CHAR N
70: 28 30 29 2c 57 28 30 29 2c 4c 28 30 29 3b 49 4e (0),W(0),L(0);IN
### Disk Sector 106 ###
00: 54 20 55 5b 49 4e 54 20 4b 3b 43 48 41 52 20 46 T U[INT K;CHAR F
10: 49 28 31 33 29 0d 0a 49 46 28 46 49 4c 45 4e 41 I(13)..IF(FILENA
20: 4d 45 28 4e 2c 46 49 29 3c 30 29 5b 50 4c 22 11 ME(N,FI)<0)[PL".
30: 49 4e 56 41 4c 49 44 20 46 49 4c 45 20 4e 41 4d INVALID FILE NAM
40: 45 12 22 3b 50 4c 22 22 3b 52 45 54 55 52 4e 20 E.";PL"";RETURN
50: 2d 31 5d 0d 0a 49 46 28 4d 43 28 31 2c 46 49 2c -1]..IF(MC(1,FI,
60: 30 2c 55 2c 33 29 3c 30 29 5b 50 4c 22 11 46 49 0,U,3)<0)[PL".FI
70: 4c 45 20 4e 4f 54 20 46 4f 55 4e 44 12 22 3b 4d LE NOT FOUND.";M
### Disk Sector 107 ###
00: 43 28 55 2c 36 29 3b 52 45 54 55 52 4e 20 2d 31 C(U,6);RETURN -1
10: 5d 0d 0a 4b 3d 4d 43 28 57 2c 4c 2c 30 2c 55 2c ]..K=MC(W,L,0,U,
20: 31 30 30 34 29 3b 4d 43 28 55 2c 36 29 0d 0a 49 1004);MC(U,6)..I
30: 46 28 57 2b 4b 3c 4c 29 20 52 45 54 55 52 4e 20 F(W+K<L) RETURN
40: 4b 0d 0a 50 4c 22 11 54 4f 4f 20 42 49 47 12 22 K..PL".TOO BIG."
50: 3b 52 45 54 55 52 4e 20 2d 32 5d 0d 0a 57 52 49 ;RETURN -2]..WRI
60: 54 45 46 49 4c 45 20 43 48 41 52 20 4e 28 30 29 TEFILE CHAR N(0)
70: 2c 42 28 30 29 2c 45 28 30 29 0d 0a 49 4e 54 20 ,B(0),E(0)..INT
### Disk Sector 108 ###
00: 55 5b 49 4e 54 20 4b 2c 54 2c 4c 3b 43 48 41 52 U[INT K,T,L;CHAR
10: 20 46 49 28 31 33 29 0d 0a 49 46 28 46 49 4c 45 FI(13)..IF(FILE
20: 4e 41 4d 45 28 4e 2c 46 49 29 3c 30 29 5b 50 4c NAME(N,FI)<0)[PL
30: 22 11 49 4e 56 41 4c 49 44 20 46 49 4c 45 20 4e ".INVALID FILE N
40: 41 4d 45 12 22 3b 50 4c 22 22 3b 52 45 54 55 52 AME.";PL"";RETUR
50: 4e 20 2d 31 5d 0d 0a 49 46 28 4d 43 28 32 2c 46 N -1]..IF(MC(2,F
60: 49 2c 45 2d 42 2b 31 2c 55 2c 33 29 3c 30 29 5b I,E-B+1,U,3)<0)[
70: 50 4c 22 11 55 4e 49 54 20 35 20 4f 50 45 4e 12 PL".UNIT 5 OPEN.
### Disk Sector 109 ###
00: 22 3b 4d 43 28 55 2c 36 29 3b 52 45 54 55 52 4e ";MC(U,6);RETURN
10: 20 2d 31 5d 0d 0a 4b 3d 4d 43 28 42 2c 45 2c 55 -1]..K=MC(B,E,U
20: 2c 35 29 3b 4d 43 28 55 2c 36 29 3b 49 46 28 4b ,5);MC(U,6);IF(K
30: 3e 30 29 4b 3d 2d 4b 3b 52 45 54 55 52 4e 20 4b >0)K=-K;RETURN K
40: 5d 0d 0a 46 4f 50 45 4e 20 49 4e 54 20 52 57 3b ]..FOPEN INT RW;
50: 43 48 41 52 20 4e 28 30 29 3b 49 4e 54 20 53 2c CHAR N(0);INT S,
60: 55 5b 52 45 54 55 52 4e 20 4d 43 28 52 57 2c 4e U[RETURN MC(RW,N
70: 2c 53 2c 55 2c 33 29 5d 0d 0a 46 52 45 41 44 20 ,S,U,3)]..FREAD
### Disk Sector 110 ###
00: 43 48 41 52 20 41 28 30 29 3b 49 4e 54 20 55 20 CHAR A(0);INT U
10: 5b 52 45 54 55 52 4e 20 4d 43 28 41 2c 55 2c 34 [RETURN MC(A,U,4
20: 29 5d 0d 0a 46 57 52 49 54 45 20 43 48 41 52 20 )]..FWRITE CHAR
30: 46 28 30 29 2c 54 28 30 29 3b 49 4e 54 20 55 20 F(0),T(0);INT U
40: 5b 52 45 54 55 52 4e 20 4d 43 28 46 2c 54 2c 55 [RETURN MC(F,T,U
50: 2c 35 29 5d 0d 0a 46 43 4c 4f 53 45 20 49 4e 54 ,5)]..FCLOSE INT
60: 20 55 5b 52 45 54 55 52 4e 20 4d 43 28 55 2c 36 U[RETURN MC(U,6
70: 29 5d 0d 0a 45 4e 44 4c 49 42 52 41 52 59 0d 0a )]..ENDLIBRARY..
### Disk Sector 111 ###
00: 49 4e 54 20 45 52 28 30 29 2c 43 55 2c 4c 4f 2c INT ER(0),CU,LO,
10: 50 45 2c 4c 50 0d 0a 49 4e 54 20 4c 4c 2c 4c 41 PE,LP..INT LL,LA
20: 0d 0a 43 48 41 52 20 46 54 28 34 30 29 2c 54 54 ..CHAR FT(40),TT
30: 28 38 30 29 0d 0a 49 4e 54 20 46 4c 2c 54 4c 0d (80)..INT FL,TL.
40: 0a 43 48 41 52 20 4c 4e 28 31 32 38 29 2c 50 52 .CHAR LN(128),PR
50: 28 32 30 30 30 29 2c 4f 56 28 30 29 0d 0a 4d 41 (2000),OV(0)..MA
60: 49 4e 5b 43 48 41 52 20 43 0d 0a 49 4e 54 20 56 IN[CHAR C..INT V
70: 28 31 29 0d 0a 4c 50 3d 32 30 30 30 0d 0a 4f 56 (1)..LP=2000..OV
### Disk Sector 112 ###
00: 3d 33 33 32 37 33 0d 0a 50 52 28 30 29 3d 31 30 =33273..PR(0)=10
10: 0d 0a 57 48 49 4c 45 28 31 29 5b 50 53 22 15 3e ..WHILE(1)[PS".>
20: 12 22 0d 0a 57 48 49 4c 45 28 28 4c 4c 3d 47 53 ."..WHILE((LL=GS
30: 28 4c 4e 29 29 3d 3d 30 29 5b 5d 0d 0a 50 4c 22 (LN))==0)[]..PL"
40: 22 0d 0a 43 3d 4c 4e 28 30 29 0d 0a 49 46 28 43 "..C=LN(0)..IF(C
50: 3d 3d 27 2e 27 29 0d 0a 5b 49 46 28 4e 55 4d 28 =='.')..[IF(NUM(
60: 4c 4e 2b 31 2c 56 29 29 47 4f 28 56 29 0d 0a 45 LN+1,V))GO(V)..E
70: 4c 53 45 20 49 46 28 28 4c 4e 28 32 29 3d 3d 30 LSE IF((LN(2)==0
### Disk Sector 113 ###
00: 29 2b 28 41 4c 50 48 41 28 4c 4e 28 32 29 29 3d )+(ALPHA(LN(2))=
10: 3d 30 29 29 0d 0a 5b 43 3d 4c 4e 28 31 29 0d 0a =0))..[C=LN(1)..
20: 49 46 28 43 3d 3d 27 50 27 29 50 54 0d 0a 45 4c IF(C=='P')PT..EL
30: 53 45 20 49 46 28 43 3d 3d 27 44 27 29 44 4c 0d SE IF(C=='D')DL.
40: 0a 45 4c 53 45 20 49 46 28 43 3d 3d 27 4c 27 29 .ELSE IF(C=='L')
50: 4f 49 0d 0a 45 4c 53 45 20 49 46 28 43 3d 3d 27 OI..ELSE IF(C=='
60: 43 27 29 43 48 0d 0a 45 4c 53 45 20 49 46 28 43 C')CH..ELSE IF(C
70: 3d 3d 27 2f 27 29 46 41 0d 0a 45 4c 53 45 20 49 =='/')FA..ELSE I
### Disk Sector 114 ###
00: 46 28 43 3d 3d 27 52 27 29 47 49 0d 0a 45 4c 53 F(C=='R')GI..ELS
10: 45 20 49 46 28 43 3d 3d 27 57 27 29 47 55 0d 0a E IF(C=='W')GU..
20: 45 4c 53 45 20 49 46 28 43 3d 3d 27 58 27 29 52 ELSE IF(C=='X')R
30: 45 54 55 52 4e 0d 0a 45 4c 53 45 20 5b 50 53 22 ETURN..ELSE [PS"
40: 11 3f 3f 3f 12 22 3b 50 4c 22 22 5d 5d 45 4c 53 .???.";PL""]]ELS
50: 45 20 53 54 5d 0d 0a 45 4c 53 45 20 49 46 28 43 E ST]..ELSE IF(C
60: 3d 3d 27 2d 27 29 55 50 0d 0a 45 4c 53 45 20 49 =='-')UP..ELSE I
70: 46 28 43 3d 3d 27 2b 27 29 44 4f 0d 0a 45 4c 53 F(C=='+')DO..ELS
### Disk Sector 115 ###
00: 45 20 49 4e 5d 5d 0d 0a 50 49 20 49 4e 54 20 4e E IN]]..PI INT N
10: 5b 49 4e 54 20 46 2c 4c 2c 56 28 30 29 0d 0a 56 [INT F,L,V(0)..V
20: 28 30 29 3d 4e 0d 0a 46 3d 46 43 0d 0a 4c 4f 3d (0)=N..F=FC..LO=
30: 4c 4f 2b 56 28 30 29 2d 31 0d 0a 4c 3d 43 55 2b LO+V(0)-1..L=CU+
40: 53 43 41 4e 4e 28 50 52 2b 43 55 2c 50 52 2b 50 SCANN(PR+CU,PR+P
50: 45 2c 31 30 2c 56 29 0d 0a 43 55 3d 4c 0d 0a 4c E,10,V)..CU=L..L
60: 4f 3d 4c 4f 2d 56 28 30 29 0d 0a 4d 43 20 50 52 O=LO-V(0)..MC PR
70: 2b 46 2c 50 52 2b 4c 2c 31 33 5d 0d 0a 46 43 5b +F,PR+L,13]..FC[
### Disk Sector 116 ###
00: 49 4e 54 20 4b 0d 0a 49 46 28 28 4b 3d 43 55 29 INT K..IF((K=CU)
10: 3d 3d 30 29 52 45 54 55 52 4e 20 30 0d 0a 57 48 ==0)RETURN 0..WH
20: 49 4c 45 28 50 52 28 4b 3d 4b 2d 31 29 21 3d 31 ILE(PR(K=K-1)!=1
30: 30 29 49 46 28 4b 3c 3d 30 29 42 52 45 41 4b 0d 0)IF(K<=0)BREAK.
40: 0a 52 45 54 55 52 4e 20 4b 2b 31 5d 0d 0a 4c 43 .RETURN K+1]..LC
50: 5b 49 4e 54 20 4b 0d 0a 4b 3d 43 55 2d 31 0d 0a [INT K..K=CU-1..
60: 57 48 49 4c 45 28 50 52 28 4b 3d 4b 2b 31 29 21 WHILE(PR(K=K+1)!
70: 3d 31 30 29 49 46 28 4b 3e 3d 50 45 29 42 52 45 =10)IF(K>=PE)BRE
### Disk Sector 117 ###
00: 41 4b 0d 0a 52 45 54 55 52 4e 20 4b 5d 0d 0a 4e AK..RETURN K]..N
10: 4c 5b 49 46 28 28 43 55 3d 4c 43 28 29 2b 31 29 L[IF((CU=LC()+1)
20: 3e 50 45 29 5b 43 55 3d 50 45 0d 0a 52 45 54 55 >PE)[CU=PE..RETU
30: 52 4e 20 30 5d 0d 0a 52 45 54 55 52 4e 20 4c 4f RN 0]..RETURN LO
40: 3d 4c 4f 2b 31 5d 0d 0a 42 4c 5b 49 46 28 28 43 =LO+1]..BL[IF((C
50: 55 3d 46 43 28 29 2d 31 29 3c 30 29 43 55 3d 30 U=FC()-1)<0)CU=0
60: 0d 0a 45 4c 53 45 20 4c 4f 3d 4c 4f 2d 31 5d 0d ..ELSE LO=LO-1].
70: 0a 50 54 5b 49 4e 54 20 56 28 30 29 0d 0a 49 46 .PT[INT V(0)..IF
### Disk Sector 118 ###
00: 28 4c 4e 28 32 29 29 4e 55 4d 28 4c 4e 2b 33 2c (LN(2))NUM(LN+3,
10: 56 29 0d 0a 45 4c 53 45 20 56 28 30 29 3d 31 0d V)..ELSE V(0)=1.
20: 0a 50 49 28 56 28 30 29 29 5d 0d 0a 44 4c 5b 49 .PI(V(0))]..DL[I
30: 4e 54 20 46 2c 4c 2c 56 28 31 29 0d 0a 49 46 28 NT F,L,V(1)..IF(
40: 43 55 3d 3d 30 29 5b 50 53 22 11 43 41 4e 4e 4f CU==0)[PS".CANNO
50: 54 20 44 45 4c 45 54 45 20 4c 49 4e 45 20 30 12 T DELETE LINE 0.
60: 22 3b 50 4c 22 22 0d 0a 52 45 54 55 52 4e 5d 0d ";PL""..RETURN].
70: 0a 49 46 28 4c 4e 28 32 29 3d 3d 30 29 56 28 30 .IF(LN(2)==0)V(0
### Disk Sector 119 ###
00: 29 3d 31 0d 0a 45 4c 53 45 20 4e 55 4d 28 4c 4e )=1..ELSE NUM(LN
10: 2b 33 2c 56 29 0d 0a 4c 41 3d 4c 41 2d 56 28 30 +3,V)..LA=LA-V(0
20: 29 0d 0a 46 3d 46 43 0d 0a 4c 3d 43 55 2b 53 43 )..F=FC..L=CU+SC
30: 41 4e 4e 28 50 52 2b 43 55 2c 50 52 2b 50 45 2c ANN(PR+CU,PR+PE,
40: 31 30 2c 56 29 0d 0a 4c 41 3d 4c 41 2b 56 28 30 10,V)..LA=LA+V(0
50: 29 0d 0a 4c 4f 3d 4c 4f 2d 31 0d 0a 43 55 3d 46 )..LO=LO-1..CU=F
60: 2d 31 0d 0a 49 46 28 4c 3c 50 45 29 4d 4f 56 45 -1..IF(L<PE)MOVE
70: 42 4c 28 50 52 2b 4c 2b 31 2c 50 52 2b 50 45 2c BL(PR+L+1,PR+PE,
### Disk Sector 120 ###
00: 2d 28 4c 2d 46 2b 31 29 29 0d 0a 50 45 3d 50 45 -(L-F+1))..PE=PE
10: 2d 28 4c 2d 46 2b 31 29 5d 0d 0a 4f 49 5b 49 4e -(L-F+1)]..OI[IN
20: 54 20 4b 0d 0a 49 46 28 4c 4e 28 33 29 3d 3d 30 T K..IF(LN(3)==0
30: 29 52 45 54 55 52 4e 0d 0a 49 46 28 4c 4e 28 32 )RETURN..IF(LN(2
40: 29 21 3d 30 29 5b 46 4c 3d 4d 4f 56 45 28 4c 4e )!=0)[FL=MOVE(LN
50: 2b 33 2c 46 54 29 0d 0a 49 46 28 46 54 28 30 29 +3,FT)..IF(FT(0)
60: 3d 3d 27 5e 27 29 46 54 28 30 29 3d 31 30 0d 0a =='^')FT(0)=10..
70: 49 46 28 46 54 28 46 4c 2d 31 29 3d 3d 27 5e 27 IF(FT(FL-1)=='^'
### Disk Sector 121 ###
00: 29 46 54 28 46 4c 2d 31 29 3d 31 33 5d 0d 0a 49 )FT(FL-1)=13]..I
10: 46 28 46 4c 3d 3d 30 29 5b 50 4c 22 11 4c 4f 43 F(FL==0)[PL".LOC
20: 41 54 45 20 57 48 41 54 3f 12 22 3b 50 4c 22 22 ATE WHAT?.";PL""
30: 0d 0a 52 45 54 55 52 4e 5d 0d 0a 49 46 28 4e 4c ..RETURN]..IF(NL
40: 28 29 21 3d 30 29 5b 49 46 28 4b 3d 49 4e 44 45 ()!=0)[IF(K=INDE
50: 58 28 50 52 2b 43 55 2d 31 2c 50 45 2d 43 55 2b X(PR+CU-1,PE-CU+
60: 32 2c 46 54 2c 46 4c 29 29 5b 0d 0a 43 55 3d 43 2,FT,FL))[..CU=C
70: 55 2d 32 2b 4b 0d 0a 49 46 28 50 52 28 43 55 29 U-2+K..IF(PR(CU)
### Disk Sector 122 ###
00: 3d 3d 31 30 29 43 55 3d 43 55 2b 31 0d 0a 4c 4f ==10)CU=CU+1..LO
10: 3d 43 4f 55 4e 54 43 48 28 50 52 2c 50 52 2b 43 =COUNTCH(PR,PR+C
20: 55 2d 31 2c 31 30 29 0d 0a 50 49 20 31 5d 0d 0a U-1,10)..PI 1]..
30: 45 4c 53 45 5b 50 53 22 11 11 3f 12 22 3b 50 4c ELSE[PS"..?.";PL
40: 22 22 5d 5d 0d 0a 45 4c 53 45 5b 50 53 22 11 41 ""]]..ELSE[PS".A
50: 54 20 42 4f 54 54 4f 4d 12 22 3b 50 4c 22 22 5d T BOTTOM.";PL""]
60: 5d 0d 0a 43 48 5b 43 48 41 52 20 44 0d 0a 49 4e ]..CH[CHAR D..IN
70: 54 20 50 2c 46 2c 4c 0d 0a 49 46 28 4c 4e 28 32 T P,F,L..IF(LN(2
### Disk Sector 123 ###
00: 29 21 3d 30 29 5b 44 3d 4c 4e 28 32 29 0d 0a 50 )!=0)[D=LN(2)..P
10: 3d 32 0d 0a 57 48 49 4c 45 28 4c 4e 28 50 3d 50 =2..WHILE(LN(P=P
20: 2b 31 29 21 3d 44 29 5b 49 46 28 4c 4e 28 50 29 +1)!=D)[IF(LN(P)
30: 3d 3d 30 29 5b 4c 4e 28 50 2b 31 29 3d 30 0d 0a ==0)[LN(P+1)=0..
40: 42 52 45 41 4b 5d 5d 0d 0a 4c 4e 28 50 29 3d 30 BREAK]]..LN(P)=0
50: 0d 0a 46 4c 3d 4d 4f 56 45 28 4c 4e 2b 33 2c 46 ..FL=MOVE(LN+3,F
60: 54 29 0d 0a 54 4c 3d 4d 4f 56 45 28 4c 4e 2b 50 T)..TL=MOVE(LN+P
70: 2b 31 2c 54 54 29 0d 0a 49 46 28 54 4c 29 49 46 +1,TT)..IF(TL)IF
### Disk Sector 124 ###
00: 28 54 54 28 54 4c 2d 31 29 3d 3d 44 29 54 4c 3d (TT(TL-1)==D)TL=
10: 54 4c 2d 31 5d 0d 0a 46 3d 46 43 0d 0a 4c 3d 4c TL-1]..F=FC..L=L
20: 43 28 29 2d 31 0d 0a 49 4e 54 20 4b 0d 0a 49 46 C()-1..INT K..IF
30: 28 4b 3d 49 4e 44 45 58 28 50 52 2b 46 2c 4c 2d (K=INDEX(PR+F,L-
40: 46 2b 31 2c 46 54 2c 46 4c 29 29 5b 43 55 3d 46 F+1,FT,FL))[CU=F
50: 2b 4b 2d 31 0d 0a 4d 4f 56 45 42 4c 28 50 52 2b +K-1..MOVEBL(PR+
60: 43 55 2b 46 4c 2c 50 52 2b 50 45 2c 54 4c 2d 46 CU+FL,PR+PE,TL-F
70: 4c 29 0d 0a 50 45 3d 50 45 2b 54 4c 2d 46 4c 0d L)..PE=PE+TL-FL.
### Disk Sector 125 ###
00: 0a 49 46 28 54 4c 29 4d 4f 56 45 42 4c 28 54 54 .IF(TL)MOVEBL(TT
10: 2c 54 54 2b 54 4c 2d 31 2c 50 52 2b 43 55 2d 54 ,TT+TL-1,PR+CU-T
20: 54 29 5d 0d 0a 50 49 20 31 5d 0d 0a 49 4e 5b 4c T)]..PI 1]..IN[L
30: 4c 3d 4c 4c 2b 32 0d 0a 49 46 28 50 45 2b 4c 4c L=LL+2..IF(PE+LL
40: 3e 4c 50 29 5b 50 53 22 11 57 4f 4e 27 54 20 46 >LP)[PS".WON'T F
50: 49 54 12 22 3b 50 4c 22 22 0d 0a 52 45 54 55 52 IT.";PL""..RETUR
60: 4e 5d 0d 0a 49 46 28 4e 4c 29 4d 4f 56 45 42 4c N]..IF(NL)MOVEBL
70: 28 50 52 2b 43 55 2c 50 52 2b 50 45 2c 4c 4c 29 (PR+CU,PR+PE,LL)
### Disk Sector 126 ###
00: 0d 0a 45 4c 53 45 5b 43 55 3d 43 55 2b 31 3b 4c ..ELSE[CU=CU+1;L
10: 4f 3d 4c 4f 2b 31 5d 0d 0a 50 45 3d 50 45 2b 4c O=LO+1]..PE=PE+L
20: 4c 0d 0a 4d 4f 56 45 42 4c 28 4c 4e 2c 4c 4e 2b L..MOVEBL(LN,LN+
30: 4c 4c 2d 31 2c 50 52 2d 4c 4e 2b 43 55 29 0d 0a LL-1,PR-LN+CU)..
40: 50 52 28 43 55 2b 4c 4c 2d 32 29 3d 31 33 0d 0a PR(CU+LL-2)=13..
50: 50 52 28 43 55 2b 4c 4c 2d 31 29 3d 31 30 0d 0a PR(CU+LL-1)=10..
60: 4c 41 3d 4c 41 2b 31 5d 0d 0a 57 48 5b 49 4e 54 LA=LA+1]..WH[INT
70: 20 46 2c 4c 2c 55 2c 42 0d 0a 50 53 22 11 22 3b F,L,U,B..PS".";
### Disk Sector 127 ###
00: 50 4e 20 4c 4f 3b 50 53 22 20 2d 2d 2d 20 45 52 PN LO;PS" --- ER
10: 52 20 22 3b 50 4e 20 45 52 28 30 29 3b 50 4c 22 R ";PN ER(0);PL"
20: 12 22 0d 0a 55 3d 43 55 0d 0a 46 3d 46 43 0d 0a ."..U=CU..F=FC..
30: 42 3d 55 2d 46 0d 0a 4c 3d 4c 43 0d 0a 46 3d 46 B=U-F..L=LC..F=F
40: 2d 31 0d 0a 57 48 49 4c 45 28 28 46 3d 46 2b 31 -1..WHILE((F=F+1
50: 29 3c 4c 29 50 55 54 43 48 41 52 28 50 52 28 46 )<L)PUTCHAR(PR(F
60: 29 29 3b 50 4c 22 22 0d 0a 57 48 49 4c 45 28 28 ));PL""..WHILE((
70: 42 3d 42 2d 31 29 3e 3d 30 29 50 55 54 43 48 41 B=B-1)>=0)PUTCHA
### Disk Sector 128 ###
00: 52 28 27 20 27 29 0d 0a 50 53 22 11 3c 12 22 3b R(' ')..PS".<.";
10: 50 4c 22 22 5d 0d 0a 44 4f 5b 49 4e 54 20 56 28 PL""]..DO[INT V(
20: 31 29 0d 0a 49 46 28 4c 4e 28 31 29 3d 3d 30 29 1)..IF(LN(1)==0)
30: 56 28 30 29 3d 31 0d 0a 45 4c 53 45 20 4e 55 4d V(0)=1..ELSE NUM
40: 28 4c 4e 2b 31 2c 56 29 0d 0a 4c 4f 3d 4c 4f 2b (LN+1,V)..LO=LO+
50: 56 28 30 29 0d 0a 56 28 30 29 3d 56 28 30 29 2b V(0)..V(0)=V(0)+
60: 31 0d 0a 43 55 3d 43 55 2b 53 43 41 4e 4e 28 50 1..CU=CU+SCANN(P
70: 52 2b 43 55 2c 50 52 2b 50 45 2c 31 30 2c 56 29 R+CU,PR+PE,10,V)
### Disk Sector 129 ###
00: 0d 0a 4c 4f 3d 4c 4f 2d 56 28 30 29 0d 0a 50 49 ..LO=LO-V(0)..PI
10: 28 31 29 5d 0d 0a 55 50 5b 49 4e 54 20 56 28 31 (1)]..UP[INT V(1
20: 29 0d 0a 49 46 28 4c 4e 28 31 29 3d 3d 30 29 56 )..IF(LN(1)==0)V
30: 28 30 29 3d 31 0d 0a 45 4c 53 45 20 4e 55 4d 28 (0)=1..ELSE NUM(
40: 4c 4e 2b 31 2c 56 29 0d 0a 49 46 28 28 56 28 30 LN+1,V)..IF((V(0
50: 29 3d 4c 4f 2d 56 28 30 29 29 3c 30 29 56 28 30 )=LO-V(0))<0)V(0
60: 29 3d 30 0d 0a 47 4f 28 56 29 5d 0d 0a 47 4f 20 )=0..GO(V)]..GO
70: 49 4e 54 20 4c 28 31 29 5b 4c 4f 3d 4c 28 30 29 INT L(1)[LO=L(0)
### Disk Sector 130 ###
00: 0d 0a 4c 28 30 29 3d 4c 28 30 29 2b 31 0d 0a 43 ..L(0)=L(0)+1..C
10: 55 3d 53 43 41 4e 4e 28 50 52 2c 50 52 2b 50 45 U=SCANN(PR,PR+PE
20: 2c 31 30 2c 4c 29 0d 0a 4c 4f 3d 4c 4f 2d 4c 28 ,10,L)..LO=LO-L(
30: 30 29 0d 0a 50 49 28 31 29 5d 0d 0a 46 41 5b 50 0)..PI(1)]..FA[P
40: 53 22 13 22 3b 50 4e 20 4c 4f 3b 50 4e 20 4c 41 S".";PN LO;PN LA
50: 3b 50 4e 20 50 45 3b 50 4e 20 4c 50 2d 50 45 3b ;PN PE;PN LP-PE;
60: 50 4c 22 12 22 5d 0d 0a 53 54 5b 4c 4e 28 4c 4c PL"."]..ST[LN(LL
70: 29 3d 31 33 0d 0a 4d 43 28 45 52 2c 4c 4e 2b 31 )=13..MC(ER,LN+1
### Disk Sector 131 ###
00: 2c 50 52 2b 50 45 2c 50 52 2b 31 2c 31 31 29 0d ,PR+PE,PR+1,11).
10: 0a 49 46 28 43 55 3c 30 29 43 55 3d 30 3b 49 46 .IF(CU<0)CU=0;IF
20: 28 43 55 3e 50 45 29 43 55 3d 50 45 0d 0a 4c 4f (CU>PE)CU=PE..LO
30: 3d 43 4f 55 4e 54 43 48 28 50 52 2c 50 52 2b 43 =COUNTCH(PR,PR+C
40: 55 2d 31 2c 31 30 29 0d 0a 49 46 28 4f 56 28 30 U-1,10)..IF(OV(0
50: 29 3d 3d 32 29 5b 50 55 54 43 48 41 52 20 32 35 )==2)[PUTCHAR 25
60: 35 3b 50 55 54 43 48 41 52 20 38 5d 3b 50 4c 22 5;PUTCHAR 8];PL"
70: 0f 1d 06 02 22 0d 0a 49 46 28 45 52 28 30 29 29 ...."..IF(ER(0))
### Disk Sector 132 ###
00: 0d 0a 49 46 28 45 52 28 30 29 3d 3d 39 39 29 5b ..IF(ER(0)==99)[
10: 50 53 22 13 53 54 4f 50 50 45 44 12 22 3b 50 4c PS".STOPPED.";PL
20: 22 22 5d 0d 0a 45 4c 53 45 20 57 48 5d 0d 0a 47 ""]..ELSE WH]..G
30: 49 5b 49 4e 54 20 4b 0d 0a 49 46 28 4c 4e 28 32 I[INT K..IF(LN(2
40: 29 3d 3d 30 29 4c 4e 28 33 29 3d 30 0d 0a 50 4e )==0)LN(3)=0..PN
50: 20 4b 3d 52 45 41 44 46 49 4c 45 28 4c 4e 2b 33 K=READFILE(LN+3
60: 2c 50 52 2b 50 45 2b 31 2c 50 52 2b 4c 50 2c 35 ,PR+PE+1,PR+LP,5
70: 29 0d 0a 50 4c 22 22 0d 0a 49 46 28 4b 3c 30 29 )..PL""..IF(K<0)
### Disk Sector 133 ###
00: 52 45 54 55 52 4e 0d 0a 50 45 3d 50 45 2b 4b 0d RETURN..PE=PE+K.
10: 0a 4c 41 3d 43 4f 55 4e 54 43 48 28 50 52 2b 31 .LA=COUNTCH(PR+1
20: 2c 50 52 2b 50 45 2c 31 30 29 0d 0a 46 41 5d 0d ,PR+PE,10)..FA].
30: 0a 47 55 5b 46 41 0d 0a 49 46 28 4c 4e 28 32 29 .GU[FA..IF(LN(2)
40: 3d 3d 30 29 4c 4e 28 33 29 3d 30 0d 0a 50 4e 20 ==0)LN(3)=0..PN
50: 57 52 49 54 45 46 49 4c 45 28 4c 4e 2b 33 2c 50 WRITEFILE(LN+3,P
60: 52 2b 31 2c 50 52 2b 50 45 2c 35 29 0d 0a 50 4c R+1,PR+PE,5)..PL
70: 22 22 5d 0d 0a 00 00 00 00 00 00 00 00 00 00 00 ""].............