Compucolor.org – Virtual Media

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   ""].............