Listing of file='TC.PPS;03' on disk='vmedia/chip_9-sector.ccvf'
### Disk Sector 43 ###
00: 2f 2a 20 14 54 43 2e 50 50 53 20 56 30 31 2e 30 /* .TC.PPS V01.0
10: 31 20 12 0d 0a 50 55 54 43 48 41 52 20 43 48 41 1 ...PUTCHAR CHA
20: 52 20 43 0d 0a 5b 49 46 28 43 3d 3d 30 29 43 3d R C..[IF(C==0)C=
30: 27 22 27 0d 0a 52 45 54 55 52 4e 20 4d 43 20 43 '"'..RETURN MC C
40: 2c 31 0d 0a 5d 0d 0a 47 45 54 43 48 41 52 0d 0a ,1..]..GETCHAR..
50: 5b 52 45 54 55 52 4e 20 4d 43 20 32 0d 0a 5d 0d [RETURN MC 2..].
60: 0a 43 48 52 44 59 0d 0a 5b 52 45 54 55 52 4e 20 .CHRDY..[RETURN
70: 4d 43 20 31 32 0d 0a 5d 0d 0a 47 53 20 43 48 41 MC 12..]..GS CHA
### Disk Sector 44 ###
00: 52 20 42 28 30 29 5b 0d 0a 49 4e 54 20 4c 0d 0a R B(0)[..INT L..
10: 43 48 41 52 20 45 28 30 29 2c 43 3b 45 3d 33 33 CHAR E(0),C;E=33
20: 32 38 39 3b 45 28 30 29 3d 30 0d 0a 57 48 49 4c 289;E(0)=0..WHIL
30: 45 28 28 43 3d 42 28 4c 29 3d 4d 43 28 32 29 29 E((C=B(L)=MC(2))
40: 21 3d 31 33 29 5b 0d 0a 49 46 28 43 3d 3d 31 31 !=13)[..IF(C==11
50: 29 5b 0d 0a 4c 3d 30 0d 0a 4d 43 20 43 2c 31 0d )[..L=0..MC C,1.
60: 0a 5d 0d 0a 45 4c 53 45 20 49 46 28 28 43 3d 3d .]..ELSE IF((C==
70: 31 32 37 29 2b 28 43 3d 3d 32 36 29 29 5b 0d 0a 127)+(C==26))[..
### Disk Sector 45 ###
00: 49 46 28 4c 3e 30 29 5b 4c 3d 4c 2d 31 3b 4d 43 IF(L>0)[L=L-1;MC
10: 20 32 36 2c 31 3b 4d 43 20 27 20 27 2c 31 3b 4d 26,1;MC ' ',1;M
20: 43 20 32 36 2c 31 3b 5d 0d 0a 5d 0d 0a 45 4c 53 C 26,1;]..]..ELS
30: 45 5b 4c 3d 4c 2b 31 3b 4d 43 20 43 2c 31 3b 5d E[L=L+1;MC C,1;]
40: 0d 0a 5d 0d 0a 42 28 4c 29 3d 30 0d 0a 45 28 30 ..]..B(L)=0..E(0
50: 29 3d 31 0d 0a 52 45 54 55 52 4e 20 4c 0d 0a 5d )=1..RETURN L..]
60: 0d 0a 50 46 54 20 43 48 41 52 20 46 28 30 29 2c ..PFT CHAR F(0),
70: 54 28 30 29 5b 0d 0a 4d 43 28 46 2c 54 2c 31 33 T(0)[..MC(F,T,13
### Disk Sector 46 ###
00: 29 0d 0a 5d 0d 0a 50 53 20 43 48 41 52 20 42 28 )..]..PS CHAR B(
10: 30 29 0d 0a 5b 49 4e 54 20 4c 0d 0a 43 48 41 52 0)..[INT L..CHAR
20: 20 43 0d 0a 4c 3d 2d 31 0d 0a 57 48 49 4c 45 28 C..L=-1..WHILE(
30: 28 43 3d 42 28 4c 3d 4c 2b 31 29 29 21 3d 30 29 (C=B(L=L+1))!=0)
40: 4d 43 20 43 2c 31 0d 0a 52 45 54 55 52 4e 20 4c MC C,1..RETURN L
50: 0d 0a 5d 0d 0a 50 4c 20 43 48 41 52 20 42 28 30 ..]..PL CHAR B(0
60: 29 0d 0a 5b 50 53 20 42 0d 0a 4d 43 20 31 33 2c )..[PS B..MC 13,
70: 31 3b 4d 43 20 31 30 2c 31 0d 0a 5d 0d 0a 41 4c 1;MC 10,1..]..AL
### Disk Sector 47 ###
00: 50 48 41 20 43 48 41 52 20 41 0d 0a 5b 0d 0a 49 PHA CHAR A..[..I
10: 46 28 28 41 3e 3d 27 61 27 29 2a 28 41 3c 3d 27 F((A>='a')*(A<='
20: 7a 27 29 29 52 45 54 55 52 4e 20 31 0d 0a 49 46 z'))RETURN 1..IF
30: 28 28 41 3e 3d 27 41 27 29 2a 28 41 3c 3d 27 5a ((A>='A')*(A<='Z
40: 27 29 29 52 45 54 55 52 4e 20 31 0d 0a 5d 0d 0a '))RETURN 1..]..
50: 4e 55 4d 20 43 48 41 52 20 42 28 35 29 0d 0a 49 NUM CHAR B(5)..I
60: 4e 54 20 56 28 30 29 0d 0a 5b 49 4e 54 20 4b 0d NT V(0)..[INT K.
70: 0a 56 28 30 29 3d 30 0d 0a 57 48 49 4c 45 28 4b .V(0)=0..WHILE(K
### Disk Sector 48 ###
00: 3c 35 29 0d 0a 5b 49 46 28 28 42 28 4b 29 3c 27 <5)..[IF((B(K)<'
10: 30 27 29 2b 28 42 28 4b 29 3e 27 39 27 29 29 52 0')+(B(K)>'9'))R
20: 45 54 55 52 4e 20 4b 0d 0a 56 28 30 29 3d 31 30 ETURN K..V(0)=10
30: 2a 56 28 30 29 2b 42 28 4b 29 2d 27 30 27 0d 0a *V(0)+B(K)-'0'..
40: 4b 3d 4b 2b 31 0d 0a 5d 0d 0a 52 45 54 55 52 4e K=K+1..]..RETURN
50: 20 4b 0d 0a 5d 0d 0a 41 54 4f 49 20 43 48 41 52 K..]..ATOI CHAR
60: 20 42 28 30 29 0d 0a 49 4e 54 20 56 28 30 29 0d B(0)..INT V(0).
70: 0a 5b 49 4e 54 20 4b 2c 53 0d 0a 43 48 41 52 20 .[INT K,S..CHAR
### Disk Sector 49 ###
00: 43 0d 0a 53 3d 31 0d 0a 43 3d 42 28 30 29 0d 0a C..S=1..C=B(0)..
10: 57 48 49 4c 45 28 28 43 3d 3d 27 20 27 29 2b 28 WHILE((C==' ')+(
20: 43 3d 3d 27 2d 27 29 2b 28 43 3d 3d 27 2b 27 29 C=='-')+(C=='+')
30: 29 0d 0a 5b 49 46 28 43 3d 3d 27 2d 27 29 53 3d )..[IF(C=='-')S=
40: 2d 31 0d 0a 43 3d 42 28 4b 3d 4b 2b 31 29 0d 0a -1..C=B(K=K+1)..
50: 5d 0d 0a 4b 3d 4b 2b 4e 55 4d 28 42 2b 4b 2c 56 ]..K=K+NUM(B+K,V
60: 29 0d 0a 56 28 30 29 3d 53 2a 56 28 30 29 0d 0a )..V(0)=S*V(0)..
70: 52 45 54 55 52 4e 20 4b 0d 0a 5d 0d 0a 50 4e 20 RETURN K..]..PN
### Disk Sector 50 ###
00: 49 4e 54 20 4e 0d 0a 5b 0d 0a 4d 43 20 27 20 27 INT N..[..MC ' '
10: 2c 31 0d 0a 4d 43 20 4e 2c 31 34 0d 0a 5d 0d 0a ,1..MC N,14..]..
20: 47 4e 0d 0a 5b 43 48 41 52 20 42 28 32 30 29 0d GN..[CHAR B(20).
30: 0a 49 4e 54 20 56 28 30 29 0d 0a 57 48 49 4c 45 .INT V(0)..WHILE
40: 28 31 29 0d 0a 5b 47 53 20 42 0d 0a 49 46 28 41 (1)..[GS B..IF(A
50: 54 4f 49 20 42 2c 56 29 52 45 54 55 52 4e 20 56 TOI B,V)RETURN V
60: 28 30 29 0d 0a 50 53 22 13 4e 55 4d 42 45 52 20 (0)..PS".NUMBER
70: 52 45 51 55 49 52 45 44 20 12 22 0d 0a 5d 0d 0a REQUIRED ."..]..
### Disk Sector 51 ###
00: 5d 0d 0a 43 45 51 4e 20 43 48 41 52 20 41 28 30 ]..CEQN CHAR A(0
10: 29 2c 42 28 30 29 0d 0a 49 4e 54 20 4e 0d 0a 5b ),B(0)..INT N..[
20: 49 4e 54 20 4b 0d 0a 4b 3d 2d 31 0d 0a 57 48 49 INT K..K=-1..WHI
30: 4c 45 28 28 4b 3d 4b 2b 31 29 3c 4e 29 49 46 28 LE((K=K+1)<N)IF(
40: 41 28 4b 29 21 3d 42 28 4b 29 29 52 45 54 55 52 A(K)!=B(K))RETUR
50: 4e 20 30 0d 0a 52 45 54 55 52 4e 20 31 0d 0a 5d N 0..RETURN 1..]
60: 0d 0a 49 4e 44 45 58 20 43 48 41 52 20 49 28 30 ..INDEX CHAR I(0
70: 29 0d 0a 49 4e 54 20 4c 0d 0a 43 48 41 52 20 46 )..INT L..CHAR F
### Disk Sector 52 ###
00: 28 30 29 0d 0a 49 4e 54 20 4e 0d 0a 5b 0d 0a 49 (0)..INT N..[..I
10: 46 28 4e 3c 3d 30 29 52 45 54 55 52 4e 20 31 0d F(N<=0)RETURN 1.
20: 0a 49 46 28 4c 3c 3d 30 29 52 45 54 55 52 4e 20 .IF(L<=0)RETURN
30: 30 0d 0a 49 4e 54 20 41 2c 44 28 30 29 0d 0a 57 0..INT A,D(0)..W
40: 48 49 4c 45 28 41 2b 4e 3c 3d 4c 29 5b 0d 0a 44 HILE(A+N<=L)[..D
50: 28 30 29 3d 31 0d 0a 41 3d 41 2b 31 2b 53 43 41 (0)=1..A=A+1+SCA
60: 4e 4e 28 49 2b 41 2c 49 2b 4c 2d 4e 2c 46 28 30 NN(I+A,I+L-N,F(0
70: 29 2c 44 29 0d 0a 49 46 28 44 28 30 29 29 52 45 ),D)..IF(D(0))RE
### Disk Sector 53 ###
00: 54 55 52 4e 20 30 0d 0a 49 46 28 43 45 51 4e 28 TURN 0..IF(CEQN(
10: 49 2b 41 2c 46 2b 31 2c 4e 2d 31 29 29 52 45 54 I+A,F+1,N-1))RET
20: 55 52 4e 20 41 0d 0a 5d 0d 0a 5d 0d 0a 4d 4f 56 URN A..]..]..MOV
30: 45 20 43 48 41 52 20 41 28 30 29 2c 42 28 30 29 E CHAR A(0),B(0)
40: 0d 0a 5b 49 4e 54 20 4b 0d 0a 49 4e 54 20 4c 28 ..[INT K..INT L(
50: 30 29 0d 0a 4c 28 30 29 3d 31 0d 0a 4b 3d 53 43 0)..L(0)=1..K=SC
60: 41 4e 4e 28 41 2c 36 35 35 33 35 2c 30 2c 4c 29 ANN(A,65535,0,L)
70: 0d 0a 4d 4f 56 45 42 4c 28 41 2c 41 2b 4b 2c 42 ..MOVEBL(A,A+K,B
### Disk Sector 54 ###
00: 2d 41 29 0d 0a 52 45 54 55 52 4e 20 4b 0d 0a 5d -A)..RETURN K..]
10: 0d 0a 47 43 0d 0a 5b 43 48 41 52 20 46 0d 0a 46 ..GC..[CHAR F..F
20: 3d 4d 43 20 32 0d 0a 57 48 49 4c 45 28 4d 43 28 =MC 2..WHILE(MC(
30: 32 29 21 3d 31 33 29 5b 5d 0d 0a 52 45 54 55 52 2)!=13)[]..RETUR
40: 4e 20 46 0d 0a 5d 0d 0a 4d 4f 56 45 42 4c 20 43 N F..]..MOVEBL C
50: 48 41 52 20 41 28 30 29 2c 42 28 30 29 3b 49 4e HAR A(0),B(0);IN
60: 54 20 4e 0d 0a 5b 4d 43 28 41 2c 42 2c 4e 2c 37 T N..[MC(A,B,N,7
70: 29 5d 0d 0a 43 4f 55 4e 54 43 48 20 43 48 41 52 )]..COUNTCH CHAR
### Disk Sector 55 ###
00: 20 41 28 30 29 2c 42 28 30 29 2c 43 0d 0a 5b 52 A(0),B(0),C..[R
10: 45 54 55 52 4e 20 4d 43 28 41 2c 42 2c 43 2c 38 ETURN MC(A,B,C,8
20: 29 5d 0d 0a 53 43 41 4e 4e 20 43 48 41 52 20 41 )]..SCANN CHAR A
30: 28 30 29 2c 42 28 30 29 2c 43 3b 49 4e 54 20 4e (0),B(0),C;INT N
40: 28 30 29 0d 0a 5b 52 45 54 55 52 4e 20 4d 43 28 (0)..[RETURN MC(
50: 41 2c 42 2c 43 2c 4e 2c 39 29 5d 0d 0a 46 49 4c A,B,C,N,9)]..FIL
60: 45 4e 41 4d 45 20 43 48 41 52 20 46 49 4e 28 30 ENAME CHAR FIN(0
70: 29 2c 46 4f 55 54 28 30 29 5b 0d 0a 49 4e 54 20 ),FOUT(0)[..INT
### Disk Sector 56 ###
00: 4a 28 30 29 2c 58 44 2c 58 50 2c 58 56 2c 58 45 J(0),XD,XP,XV,XE
10: 0d 0a 4a 28 30 29 3d 31 3b 58 45 3d 53 43 41 4e ..J(0)=1;XE=SCAN
20: 4e 28 46 49 4e 2c 46 49 4e 2b 33 32 2c 30 2c 4a N(FIN,FIN+32,0,J
30: 29 0d 0a 4a 28 30 29 3d 31 3b 58 56 3d 53 43 41 )..J(0)=1;XV=SCA
40: 4e 4e 28 46 49 4e 2c 46 49 4e 2b 58 45 2c 27 3b NN(FIN,FIN+XE,';
50: 27 2c 4a 29 0d 0a 4a 28 30 29 3d 31 3b 58 50 3d ',J)..J(0)=1;XP=
60: 53 43 41 4e 4e 28 46 49 4e 2c 46 49 4e 2b 58 56 SCANN(FIN,FIN+XV
70: 2c 27 2e 27 2c 4a 29 0d 0a 4a 28 30 29 3d 31 3b ,'.',J)..J(0)=1;
### Disk Sector 57 ###
00: 58 44 3d 53 43 41 4e 4e 28 46 49 4e 2c 46 49 4e XD=SCANN(FIN,FIN
10: 2b 58 50 2c 27 3a 27 2c 4a 29 0d 0a 49 46 28 4a +XP,':',J)..IF(J
20: 28 30 29 29 58 44 3d 2d 31 0d 0a 49 46 28 58 44 (0))XD=-1..IF(XD
30: 2b 37 3c 58 50 29 5b 4d 4f 56 45 4e 28 46 49 4e +7<XP)[MOVEN(FIN
40: 2c 46 4f 55 54 2c 58 44 2b 37 29 3b 46 4f 55 54 ,FOUT,XD+7);FOUT
50: 3d 46 4f 55 54 2b 58 44 2b 37 5d 0d 0a 45 4c 53 =FOUT+XD+7]..ELS
60: 45 5b 4d 4f 56 45 4e 28 46 49 4e 2c 46 4f 55 54 E[MOVEN(FIN,FOUT
70: 2c 58 50 29 3b 46 4f 55 54 3d 46 4f 55 54 2b 58 ,XP);FOUT=FOUT+X
### Disk Sector 58 ###
00: 50 5d 0d 0a 49 46 28 58 50 3d 3d 58 56 29 5b 4d P]..IF(XP==XV)[M
10: 4f 56 45 4e 28 22 2e 43 22 2c 46 4f 55 54 2c 32 OVEN(".C",FOUT,2
20: 29 3b 46 4f 55 54 3d 46 4f 55 54 2b 32 5d 0d 0a );FOUT=FOUT+2]..
30: 45 4c 53 45 49 46 28 58 50 2b 34 3c 58 56 29 5b ELSEIF(XP+4<XV)[
40: 4d 4f 56 45 4e 28 46 49 4e 2b 58 50 2c 46 4f 55 MOVEN(FIN+XP,FOU
50: 54 2c 34 29 3b 46 4f 55 54 3d 46 4f 55 54 2b 34 T,4);FOUT=FOUT+4
60: 5d 0d 0a 45 4c 53 45 5b 4d 4f 56 45 4e 28 46 49 ]..ELSE[MOVEN(FI
70: 4e 2b 58 50 2c 46 4f 55 54 2c 58 56 2d 58 50 29 N+XP,FOUT,XV-XP)
### Disk Sector 59 ###
00: 3b 46 4f 55 54 3d 46 4f 55 54 2b 58 56 2d 58 50 ;FOUT=FOUT+XV-XP
10: 5d 0d 0a 4d 4f 56 45 4e 28 46 49 4e 2b 58 56 2c ]..MOVEN(FIN+XV,
20: 46 4f 55 54 2c 58 45 2d 58 56 2b 31 29 0d 0a 52 FOUT,XE-XV+1)..R
30: 45 54 55 52 4e 20 30 0d 0a 5d 0d 0a 4d 4f 56 45 ETURN 0..]..MOVE
40: 4e 20 43 48 41 52 20 46 28 30 29 2c 54 28 30 29 N CHAR F(0),T(0)
50: 0d 0a 49 4e 54 20 4e 5b 0d 0a 49 46 28 4e 29 4d ..INT N[..IF(N)M
60: 4f 56 45 42 4c 28 46 2c 46 2b 4e 2d 31 2c 54 2d OVEBL(F,F+N-1,T-
70: 46 29 0d 0a 5d 0d 0a 52 45 41 44 46 49 4c 45 20 F)..]..READFILE
### Disk Sector 60 ###
00: 43 48 41 52 20 4e 28 30 29 2c 57 28 30 29 2c 4c CHAR N(0),W(0),L
10: 28 30 29 0d 0a 49 4e 54 20 55 0d 0a 5b 49 4e 54 (0)..INT U..[INT
20: 20 4b 2c 54 0d 0a 43 48 41 52 20 46 49 28 31 33 K,T..CHAR FI(13
30: 29 0d 0a 49 46 28 46 49 4c 45 4e 41 4d 45 28 4e )..IF(FILENAME(N
40: 2c 46 49 29 3c 30 29 5b 0d 0a 50 4c 22 11 49 4e ,FI)<0)[..PL".IN
50: 56 41 4c 49 44 20 46 49 4c 45 20 4e 41 4d 45 12 VALID FILE NAME.
60: 22 3b 50 4c 22 22 0d 0a 52 45 54 55 52 4e 20 2d ";PL""..RETURN -
70: 31 0d 0a 5d 0d 0a 49 46 28 4d 43 28 31 2c 46 49 1..]..IF(MC(1,FI
### Disk Sector 61 ###
00: 2c 30 2c 55 2c 33 29 3c 30 29 5b 0d 0a 50 4c 22 ,0,U,3)<0)[..PL"
10: 11 46 49 4c 45 20 4e 4f 54 20 46 4f 55 4e 44 12 .FILE NOT FOUND.
20: 22 0d 0a 4d 43 28 55 2c 36 29 0d 0a 52 45 54 55 "..MC(U,6)..RETU
30: 52 4e 20 2d 31 0d 0a 5d 0d 0a 4b 3d 4d 43 28 57 RN -1..]..K=MC(W
40: 2c 4c 2b 31 2c 30 2c 55 2c 31 30 30 34 29 0d 0a ,L+1,0,U,1004)..
50: 4d 43 28 55 2c 36 29 0d 0a 49 46 20 28 57 2b 4b MC(U,6)..IF (W+K
60: 3c 3d 4c 29 20 52 45 54 55 52 4e 20 4b 0d 0a 50 <=L) RETURN K..P
70: 4c 22 11 54 4f 4f 20 42 49 47 12 22 0d 0a 52 45 L".TOO BIG."..RE
### Disk Sector 62 ###
00: 54 55 52 4e 20 2d 32 0d 0a 5d 0d 0a 57 52 49 54 TURN -2..]..WRIT
10: 45 46 49 4c 45 20 43 48 41 52 20 4e 28 30 29 2c EFILE CHAR N(0),
20: 42 28 30 29 2c 45 28 30 29 0d 0a 49 4e 54 20 55 B(0),E(0)..INT U
30: 0d 0a 5b 49 4e 54 20 4b 2c 54 2c 4c 0d 0a 43 48 ..[INT K,T,L..CH
40: 41 52 20 46 49 28 31 33 29 0d 0a 49 46 28 46 49 AR FI(13)..IF(FI
50: 4c 45 4e 41 4d 45 28 4e 2c 46 49 29 3c 30 29 5b LENAME(N,FI)<0)[
60: 0d 0a 50 4c 22 11 49 4e 56 41 4c 49 44 20 46 49 ..PL".INVALID FI
70: 4c 45 20 4e 41 4d 45 12 22 3b 50 4c 22 22 0d 0a LE NAME.";PL""..
### Disk Sector 63 ###
00: 52 45 54 55 52 4e 20 2d 31 0d 0a 5d 0d 0a 49 46 RETURN -1..]..IF
10: 28 4d 43 28 32 2c 46 49 2c 45 2d 42 2b 31 2c 55 (MC(2,FI,E-B+1,U
20: 2c 33 29 3c 30 29 5b 0d 0a 50 4c 22 11 55 4e 49 ,3)<0)[..PL".UNI
30: 54 20 35 20 4f 50 45 4e 12 22 0d 0a 4d 43 28 55 T 5 OPEN."..MC(U
40: 2c 36 29 0d 0a 52 45 54 55 52 4e 20 2d 31 0d 0a ,6)..RETURN -1..
50: 5d 0d 0a 4b 3d 4d 43 28 42 2c 45 2c 55 2c 35 29 ]..K=MC(B,E,U,5)
60: 0d 0a 4d 43 28 55 2c 36 29 0d 0a 49 46 28 4b 3e ..MC(U,6)..IF(K>
70: 30 29 4b 3d 2d 4b 0d 0a 52 45 54 55 52 4e 20 4b 0)K=-K..RETURN K
### Disk Sector 64 ###
00: 0d 0a 5d 0d 0a 46 4f 50 45 4e 20 49 4e 54 20 52 ..]..FOPEN INT R
10: 57 0d 0a 43 48 41 52 20 4e 28 30 29 0d 0a 49 4e W..CHAR N(0)..IN
20: 54 20 53 2c 55 5b 0d 0a 52 45 54 55 52 4e 20 4d T S,U[..RETURN M
30: 43 28 52 57 2c 4e 2c 53 2c 55 2c 33 29 5d 0d 0a C(RW,N,S,U,3)]..
40: 46 52 45 41 44 20 43 48 41 52 20 41 28 30 29 0d FREAD CHAR A(0).
50: 0a 49 4e 54 20 55 20 5b 0d 0a 52 45 54 55 52 4e .INT U [..RETURN
60: 20 4d 43 28 41 2c 55 2c 34 29 5d 0d 0a 46 57 52 MC(A,U,4)]..FWR
70: 49 54 45 20 43 48 41 52 20 46 28 30 29 2c 54 28 ITE CHAR F(0),T(
### Disk Sector 65 ###
00: 30 29 0d 0a 49 4e 54 20 55 20 5b 0d 0a 52 45 54 0)..INT U [..RET
10: 55 52 4e 20 4d 43 28 46 2c 54 2c 55 2c 35 29 5d URN MC(F,T,U,5)]
20: 0d 0a 46 43 4c 4f 53 45 20 49 4e 54 20 55 5b 0d ..FCLOSE INT U[.
30: 0a 52 45 54 55 52 4e 20 4d 43 28 55 2c 36 29 5d .RETURN MC(U,6)]
40: 0d 0a 45 4e 44 4c 49 42 52 41 52 59 0d 0a 49 4e ..ENDLIBRARY..IN
50: 54 20 45 52 28 30 29 2c 43 55 2c 4c 4f 2c 50 45 T ER(0),CU,LO,PE
60: 2c 4c 50 0d 0a 49 4e 54 20 4c 4c 2c 4c 41 0d 0a ,LP..INT LL,LA..
70: 43 48 41 52 20 46 54 28 34 30 29 2c 54 54 28 38 CHAR FT(40),TT(8
### Disk Sector 66 ###
00: 30 29 0d 0a 49 4e 54 20 46 4c 2c 54 4c 0d 0a 43 0)..INT FL,TL..C
10: 48 41 52 20 4c 4e 28 31 32 38 29 2c 50 52 28 31 HAR LN(128),PR(1
20: 30 30 30 30 29 2c 4f 56 28 30 29 0d 0a 4d 41 49 0000),OV(0)..MAI
30: 4e 0d 0a 5b 43 48 41 52 20 43 0d 0a 49 4e 54 20 N..[CHAR C..INT
40: 56 28 31 29 0d 0a 4c 50 3d 31 30 30 30 30 0d 0a V(1)..LP=10000..
50: 4f 56 3d 33 33 32 37 33 0d 0a 50 52 28 30 29 3d OV=33273..PR(0)=
60: 31 30 0d 0a 57 48 49 4c 45 28 31 29 0d 0a 5b 50 10..WHILE(1)..[P
70: 53 22 15 3e 12 22 0d 0a 57 48 49 4c 45 28 28 4c S".>."..WHILE((L
### Disk Sector 67 ###
00: 4c 3d 47 53 28 4c 4e 29 29 3d 3d 30 29 5b 5d 0d L=GS(LN))==0)[].
10: 0a 50 4c 22 22 0d 0a 43 3d 4c 4e 28 30 29 0d 0a .PL""..C=LN(0)..
20: 49 46 28 43 3d 3d 27 2e 27 29 0d 0a 5b 49 46 28 IF(C=='.')..[IF(
30: 4e 55 4d 28 4c 4e 2b 31 2c 56 29 29 47 4f 28 56 NUM(LN+1,V))GO(V
40: 29 0d 0a 45 4c 53 45 20 49 46 28 28 4c 4e 28 32 )..ELSE IF((LN(2
50: 29 3d 3d 30 29 2b 28 41 4c 50 48 41 28 4c 4e 28 )==0)+(ALPHA(LN(
60: 32 29 29 3d 3d 30 29 29 0d 0a 5b 0d 0a 43 3d 4c 2))==0))..[..C=L
70: 4e 28 31 29 0d 0a 49 46 28 43 3d 3d 27 50 27 29 N(1)..IF(C=='P')
### Disk Sector 68 ###
00: 50 54 0d 0a 45 4c 53 45 20 49 46 28 43 3d 3d 27 PT..ELSE IF(C=='
10: 44 27 29 44 4c 0d 0a 45 4c 53 45 20 49 46 28 43 D')DL..ELSE IF(C
20: 3d 3d 27 4c 27 29 4f 49 0d 0a 45 4c 53 45 20 49 =='L')OI..ELSE I
30: 46 28 43 3d 3d 27 43 27 29 43 48 0d 0a 45 4c 53 F(C=='C')CH..ELS
40: 45 20 49 46 28 43 3d 3d 27 2f 27 29 46 41 0d 0a E IF(C=='/')FA..
50: 45 4c 53 45 20 49 46 28 43 3d 3d 27 52 27 29 47 ELSE IF(C=='R')G
60: 49 0d 0a 45 4c 53 45 20 49 46 28 43 3d 3d 27 57 I..ELSE IF(C=='W
70: 27 29 47 55 0d 0a 45 4c 53 45 20 49 46 28 43 3d ')GU..ELSE IF(C=
### Disk Sector 69 ###
00: 3d 27 58 27 29 52 45 54 55 52 4e 0d 0a 45 4c 53 ='X')RETURN..ELS
10: 45 20 5b 50 53 22 11 3f 3f 3f 12 22 3b 50 4c 22 E [PS".???.";PL"
20: 22 5d 0d 0a 5d 45 4c 53 45 20 53 54 0d 0a 5d 0d "]..]ELSE ST..].
30: 0a 45 4c 53 45 20 49 46 28 43 3d 3d 27 2d 27 29 .ELSE IF(C=='-')
40: 55 50 0d 0a 45 4c 53 45 20 49 46 28 43 3d 3d 27 UP..ELSE IF(C=='
50: 2b 27 29 44 4f 0d 0a 45 4c 53 45 20 49 4e 0d 0a +')DO..ELSE IN..
60: 5d 0d 0a 5d 0d 0a 50 49 20 49 4e 54 20 4e 0d 0a ]..]..PI INT N..
70: 5b 49 4e 54 20 46 2c 4c 2c 56 28 30 29 0d 0a 56 [INT F,L,V(0)..V
### Disk Sector 70 ###
00: 28 30 29 3d 4e 0d 0a 46 3d 46 43 0d 0a 4c 4f 3d (0)=N..F=FC..LO=
10: 4c 4f 2b 56 28 30 29 2d 31 0d 0a 4c 3d 43 55 2b LO+V(0)-1..L=CU+
20: 53 43 41 4e 4e 28 50 52 2b 43 55 2c 50 52 2b 50 SCANN(PR+CU,PR+P
30: 45 2c 31 30 2c 56 29 0d 0a 43 55 3d 4c 0d 0a 4c E,10,V)..CU=L..L
40: 4f 3d 4c 4f 2d 56 28 30 29 0d 0a 4d 43 20 50 52 O=LO-V(0)..MC PR
50: 2b 46 2c 50 52 2b 4c 2c 31 33 0d 0a 5d 0d 0a 46 +F,PR+L,13..]..F
60: 43 0d 0a 5b 49 4e 54 20 4b 0d 0a 49 46 28 28 4b C..[INT K..IF((K
70: 3d 43 55 29 3d 3d 30 29 52 45 54 55 52 4e 20 30 =CU)==0)RETURN 0
### Disk Sector 71 ###
00: 0d 0a 57 48 49 4c 45 28 50 52 28 4b 3d 4b 2d 31 ..WHILE(PR(K=K-1
10: 29 21 3d 31 30 29 49 46 28 4b 3c 3d 30 29 42 52 )!=10)IF(K<=0)BR
20: 45 41 4b 0d 0a 52 45 54 55 52 4e 20 4b 2b 31 0d EAK..RETURN K+1.
30: 0a 5d 0d 0a 4c 43 0d 0a 5b 49 4e 54 20 4b 0d 0a .]..LC..[INT K..
40: 4b 3d 43 55 2d 31 0d 0a 57 48 49 4c 45 28 50 52 K=CU-1..WHILE(PR
50: 28 4b 3d 4b 2b 31 29 21 3d 31 30 29 49 46 28 4b (K=K+1)!=10)IF(K
60: 3e 3d 50 45 29 42 52 45 41 4b 0d 0a 52 45 54 55 >=PE)BREAK..RETU
70: 52 4e 20 4b 0d 0a 5d 0d 0a 4e 4c 0d 0a 5b 0d 0a RN K..]..NL..[..
### Disk Sector 72 ###
00: 49 46 28 28 43 55 3d 4c 43 28 29 2b 31 29 3e 50 IF((CU=LC()+1)>P
10: 45 29 0d 0a 5b 43 55 3d 50 45 0d 0a 52 45 54 55 E)..[CU=PE..RETU
20: 52 4e 20 30 0d 0a 5d 0d 0a 52 45 54 55 52 4e 20 RN 0..]..RETURN
30: 4c 4f 3d 4c 4f 2b 31 0d 0a 5d 0d 0a 42 4c 0d 0a LO=LO+1..]..BL..
40: 5b 0d 0a 49 46 28 28 43 55 3d 46 43 28 29 2d 31 [..IF((CU=FC()-1
50: 29 3c 30 29 43 55 3d 30 0d 0a 45 4c 53 45 20 4c )<0)CU=0..ELSE L
60: 4f 3d 4c 4f 2d 31 0d 0a 5d 0d 0a 50 54 5b 0d 0a O=LO-1..]..PT[..
70: 49 4e 54 20 56 28 30 29 0d 0a 49 46 28 4c 4e 28 INT V(0)..IF(LN(
### Disk Sector 73 ###
00: 32 29 29 4e 55 4d 28 4c 4e 2b 33 2c 56 29 0d 0a 2))NUM(LN+3,V)..
10: 45 4c 53 45 20 56 28 30 29 3d 31 0d 0a 50 49 28 ELSE V(0)=1..PI(
20: 56 28 30 29 29 0d 0a 5d 0d 0a 44 4c 0d 0a 5b 49 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 0d 0a 5b 50 53 22 11 43 41 4e CU==0)..[PS".CAN
50: 4e 4f 54 20 44 45 4c 45 54 45 20 4c 49 4e 45 20 NOT DELETE LINE
60: 30 12 22 3b 50 4c 22 22 0d 0a 52 45 54 55 52 4e 0.";PL""..RETURN
70: 0d 0a 5d 0d 0a 49 46 28 4c 4e 28 32 29 3d 3d 30 ..]..IF(LN(2)==0
### Disk Sector 74 ###
00: 29 56 28 30 29 3d 31 0d 0a 45 4c 53 45 20 4e 55 )V(0)=1..ELSE NU
10: 4d 28 4c 4e 2b 33 2c 56 29 0d 0a 4c 41 3d 4c 41 M(LN+3,V)..LA=LA
20: 2d 56 28 30 29 0d 0a 46 3d 46 43 0d 0a 4c 3d 43 -V(0)..F=FC..L=C
30: 55 2b 53 43 41 4e 4e 28 50 52 2b 43 55 2c 50 52 U+SCANN(PR+CU,PR
40: 2b 50 45 2c 31 30 2c 56 29 0d 0a 4c 41 3d 4c 41 +PE,10,V)..LA=LA
50: 2b 56 28 30 29 0d 0a 4c 4f 3d 4c 4f 2d 31 0d 0a +V(0)..LO=LO-1..
60: 43 55 3d 46 2d 31 0d 0a 49 46 28 4c 3c 50 45 29 CU=F-1..IF(L<PE)
70: 4d 4f 56 45 42 4c 28 50 52 2b 4c 2b 31 2c 50 52 MOVEBL(PR+L+1,PR
### Disk Sector 75 ###
00: 2b 50 45 2c 2d 28 4c 2d 46 2b 31 29 29 0d 0a 50 +PE,-(L-F+1))..P
10: 45 3d 50 45 2d 28 4c 2d 46 2b 31 29 0d 0a 5d 0d E=PE-(L-F+1)..].
20: 0a 4f 49 0d 0a 5b 0d 0a 49 4e 54 20 4b 0d 0a 49 .OI..[..INT K..I
30: 46 28 4c 4e 28 33 29 3d 3d 30 29 52 45 54 55 52 F(LN(3)==0)RETUR
40: 4e 0d 0a 49 46 28 4c 4e 28 32 29 21 3d 30 29 0d N..IF(LN(2)!=0).
50: 0a 5b 46 4c 3d 4d 4f 56 45 28 4c 4e 2b 33 2c 46 .[FL=MOVE(LN+3,F
60: 54 29 0d 0a 49 46 28 46 54 28 30 29 3d 3d 27 5e T)..IF(FT(0)=='^
70: 27 29 46 54 28 30 29 3d 31 30 0d 0a 49 46 28 46 ')FT(0)=10..IF(F
### Disk Sector 76 ###
00: 54 28 46 4c 2d 31 29 3d 3d 27 5e 27 29 46 54 28 T(FL-1)=='^')FT(
10: 46 4c 2d 31 29 3d 31 33 0d 0a 5d 0d 0a 49 46 28 FL-1)=13..]..IF(
20: 46 4c 3d 3d 30 29 0d 0a 5b 50 4c 22 11 4c 4f 43 FL==0)..[PL".LOC
30: 41 54 45 20 57 48 41 54 3f 12 22 3b 50 4c 22 22 ATE WHAT?.";PL""
40: 0d 0a 52 45 54 55 52 4e 0d 0a 5d 0d 0a 49 46 28 ..RETURN..]..IF(
50: 4e 4c 28 29 21 3d 30 29 5b 0d 0a 49 46 28 4b 3d NL()!=0)[..IF(K=
60: 49 4e 44 45 58 28 50 52 2b 43 55 2d 31 2c 50 45 INDEX(PR+CU-1,PE
70: 2d 43 55 2b 32 2c 46 54 2c 46 4c 29 29 5b 0d 0a -CU+2,FT,FL))[..
### Disk Sector 77 ###
00: 43 55 3d 43 55 2d 32 2b 4b 0d 0a 49 46 28 50 52 CU=CU-2+K..IF(PR
10: 28 43 55 29 3d 3d 31 30 29 43 55 3d 43 55 2b 31 (CU)==10)CU=CU+1
20: 0d 0a 4c 4f 3d 43 4f 55 4e 54 43 48 28 50 52 2c ..LO=COUNTCH(PR,
30: 50 52 2b 43 55 2d 31 2c 31 30 29 0d 0a 50 49 20 PR+CU-1,10)..PI
40: 31 0d 0a 5d 0d 0a 45 4c 53 45 5b 50 53 22 11 11 1..]..ELSE[PS"..
50: 3f 12 22 3b 50 4c 22 22 5d 0d 0a 5d 0d 0a 45 4c ?.";PL""]..]..EL
60: 53 45 5b 50 53 22 11 41 54 20 42 4f 54 54 4f 4d SE[PS".AT BOTTOM
70: 12 22 3b 50 4c 22 22 5d 0d 0a 5d 0d 0a 43 48 5b .";PL""]..]..CH[
### Disk Sector 78 ###
00: 0d 0a 43 48 41 52 20 44 0d 0a 49 4e 54 20 50 2c ..CHAR D..INT P,
10: 46 2c 4c 0d 0a 49 46 28 4c 4e 28 32 29 21 3d 30 F,L..IF(LN(2)!=0
20: 29 5b 0d 0a 44 3d 4c 4e 28 32 29 0d 0a 50 3d 32 )[..D=LN(2)..P=2
30: 0d 0a 57 48 49 4c 45 28 4c 4e 28 50 3d 50 2b 31 ..WHILE(LN(P=P+1
40: 29 21 3d 44 29 5b 0d 0a 49 46 28 4c 4e 28 50 29 )!=D)[..IF(LN(P)
50: 3d 3d 30 29 5b 0d 0a 4c 4e 28 50 2b 31 29 3d 30 ==0)[..LN(P+1)=0
60: 0d 0a 42 52 45 41 4b 0d 0a 5d 0d 0a 5d 0d 0a 4c ..BREAK..]..]..L
70: 4e 28 50 29 3d 30 0d 0a 46 4c 3d 4d 4f 56 45 28 N(P)=0..FL=MOVE(
### Disk Sector 79 ###
00: 4c 4e 2b 33 2c 46 54 29 0d 0a 54 4c 3d 4d 4f 56 LN+3,FT)..TL=MOV
10: 45 28 4c 4e 2b 50 2b 31 2c 54 54 29 0d 0a 49 46 E(LN+P+1,TT)..IF
20: 28 54 4c 29 49 46 28 54 54 28 54 4c 2d 31 29 3d (TL)IF(TT(TL-1)=
30: 3d 44 29 54 4c 3d 54 4c 2d 31 0d 0a 5d 0d 0a 46 =D)TL=TL-1..]..F
40: 3d 46 43 0d 0a 4c 3d 4c 43 28 29 2d 31 0d 0a 49 =FC..L=LC()-1..I
50: 4e 54 20 4b 0d 0a 49 46 28 4b 3d 49 4e 44 45 58 NT K..IF(K=INDEX
60: 28 50 52 2b 46 2c 4c 2d 46 2b 31 2c 46 54 2c 46 (PR+F,L-F+1,FT,F
70: 4c 29 29 5b 0d 0a 43 55 3d 46 2b 4b 2d 31 0d 0a L))[..CU=F+K-1..
### Disk Sector 80 ###
00: 4d 4f 56 45 42 4c 28 50 52 2b 43 55 2b 46 4c 2c MOVEBL(PR+CU+FL,
10: 50 52 2b 50 45 2c 54 4c 2d 46 4c 29 0d 0a 50 45 PR+PE,TL-FL)..PE
20: 3d 50 45 2b 54 4c 2d 46 4c 0d 0a 49 46 28 54 4c =PE+TL-FL..IF(TL
30: 29 4d 4f 56 45 42 4c 28 54 54 2c 54 54 2b 54 4c )MOVEBL(TT,TT+TL
40: 2d 31 2c 50 52 2b 43 55 2d 54 54 29 0d 0a 5d 0d -1,PR+CU-TT)..].
50: 0a 50 49 20 31 0d 0a 5d 0d 0a 49 4e 0d 0a 5b 0d .PI 1..]..IN..[.
60: 0a 4c 4c 3d 4c 4c 2b 32 0d 0a 49 46 28 50 45 2b .LL=LL+2..IF(PE+
70: 4c 4c 3e 4c 50 29 0d 0a 5b 50 53 22 11 57 4f 4e LL>LP)..[PS".WON
### Disk Sector 81 ###
00: 27 54 20 46 49 54 12 22 3b 50 4c 22 22 0d 0a 52 'T FIT.";PL""..R
10: 45 54 55 52 4e 0d 0a 5d 0d 0a 49 46 28 4e 4c 29 ETURN..]..IF(NL)
20: 4d 4f 56 45 42 4c 28 50 52 2b 43 55 2c 50 52 2b MOVEBL(PR+CU,PR+
30: 50 45 2c 4c 4c 29 0d 0a 45 4c 53 45 5b 43 55 3d PE,LL)..ELSE[CU=
40: 43 55 2b 31 3b 4c 4f 3d 4c 4f 2b 31 5d 0d 0a 50 CU+1;LO=LO+1]..P
50: 45 3d 50 45 2b 4c 4c 0d 0a 4d 4f 56 45 42 4c 28 E=PE+LL..MOVEBL(
60: 4c 4e 2c 4c 4e 2b 4c 4c 2d 31 2c 50 52 2d 4c 4e LN,LN+LL-1,PR-LN
70: 2b 43 55 29 0d 0a 50 52 28 43 55 2b 4c 4c 2d 32 +CU)..PR(CU+LL-2
### Disk Sector 82 ###
00: 29 3d 31 33 0d 0a 50 52 28 43 55 2b 4c 4c 2d 31 )=13..PR(CU+LL-1
10: 29 3d 31 30 0d 0a 4c 41 3d 4c 41 2b 31 0d 0a 5d )=10..LA=LA+1..]
20: 0d 0a 57 48 0d 0a 5b 49 4e 54 20 46 2c 4c 2c 55 ..WH..[INT F,L,U
30: 2c 42 0d 0a 50 53 22 11 22 3b 50 4e 20 4c 4f 3b ,B..PS".";PN LO;
40: 50 53 22 20 2d 2d 2d 20 45 52 52 20 22 3b 50 4e PS" --- ERR ";PN
50: 20 45 52 28 30 29 3b 50 4c 22 12 22 0d 0a 55 3d ER(0);PL"."..U=
60: 43 55 0d 0a 46 3d 46 43 0d 0a 42 3d 55 2d 46 0d CU..F=FC..B=U-F.
70: 0a 4c 3d 4c 43 0d 0a 46 3d 46 2d 31 0d 0a 57 48 .L=LC..F=F-1..WH
### Disk Sector 83 ###
00: 49 4c 45 28 28 46 3d 46 2b 31 29 3c 4c 29 50 55 ILE((F=F+1)<L)PU
10: 54 43 48 41 52 28 50 52 28 46 29 29 3b 50 4c 22 TCHAR(PR(F));PL"
20: 22 0d 0a 57 48 49 4c 45 28 28 42 3d 42 2d 31 29 "..WHILE((B=B-1)
30: 3e 3d 30 29 50 55 54 43 48 41 52 28 27 20 27 29 >=0)PUTCHAR(' ')
40: 0d 0a 50 53 22 11 3c 12 22 3b 50 4c 22 22 0d 0a ..PS".<.";PL""..
50: 5d 0d 0a 44 4f 0d 0a 5b 49 4e 54 20 56 28 31 29 ]..DO..[INT V(1)
60: 0d 0a 49 46 28 4c 4e 28 31 29 3d 3d 30 29 56 28 ..IF(LN(1)==0)V(
70: 30 29 3d 31 0d 0a 45 4c 53 45 20 4e 55 4d 28 4c 0)=1..ELSE NUM(L
### Disk Sector 84 ###
00: 4e 2b 31 2c 56 29 0d 0a 4c 4f 3d 4c 4f 2b 56 28 N+1,V)..LO=LO+V(
10: 30 29 0d 0a 56 28 30 29 3d 56 28 30 29 2b 31 0d 0)..V(0)=V(0)+1.
20: 0a 43 55 3d 43 55 2b 53 43 41 4e 4e 28 50 52 2b .CU=CU+SCANN(PR+
30: 43 55 2c 50 52 2b 50 45 2c 31 30 2c 56 29 0d 0a CU,PR+PE,10,V)..
40: 4c 4f 3d 4c 4f 2d 56 28 30 29 0d 0a 50 49 28 31 LO=LO-V(0)..PI(1
50: 29 0d 0a 5d 0d 0a 55 50 0d 0a 5b 49 4e 54 20 56 )..]..UP..[INT V
60: 28 31 29 0d 0a 49 46 28 4c 4e 28 31 29 3d 3d 30 (1)..IF(LN(1)==0
70: 29 56 28 30 29 3d 31 0d 0a 45 4c 53 45 20 4e 55 )V(0)=1..ELSE NU
### Disk Sector 85 ###
00: 4d 28 4c 4e 2b 31 2c 56 29 0d 0a 49 46 28 28 56 M(LN+1,V)..IF((V
10: 28 30 29 3d 4c 4f 2d 56 28 30 29 29 3c 30 29 56 (0)=LO-V(0))<0)V
20: 28 30 29 3d 30 0d 0a 47 4f 28 56 29 0d 0a 5d 0d (0)=0..GO(V)..].
30: 0a 47 4f 20 49 4e 54 20 4c 28 31 29 0d 0a 5b 4c .GO INT L(1)..[L
40: 4f 3d 4c 28 30 29 0d 0a 4c 28 30 29 3d 4c 28 30 O=L(0)..L(0)=L(0
50: 29 2b 31 0d 0a 43 55 3d 53 43 41 4e 4e 28 50 52 )+1..CU=SCANN(PR
60: 2c 50 52 2b 50 45 2c 31 30 2c 4c 29 0d 0a 4c 4f ,PR+PE,10,L)..LO
70: 3d 4c 4f 2d 4c 28 30 29 0d 0a 50 49 28 31 29 0d =LO-L(0)..PI(1).
### Disk Sector 86 ###
00: 0a 5d 0d 0a 46 41 0d 0a 5b 0d 0a 50 53 22 13 22 .]..FA..[..PS"."
10: 3b 50 4e 20 4c 4f 3b 50 4e 20 4c 41 3b 50 4e 20 ;PN LO;PN LA;PN
20: 50 45 3b 50 4e 20 4c 50 2d 50 45 3b 50 4c 22 12 PE;PN LP-PE;PL".
30: 22 5d 0d 0a 53 54 0d 0a 5b 0d 0a 4c 4e 28 4c 4c "]..ST..[..LN(LL
40: 29 3d 31 33 0d 0a 4d 43 28 45 52 2c 4c 4e 2b 31 )=13..MC(ER,LN+1
50: 2c 50 52 2b 50 45 2c 50 52 2b 31 2c 31 31 29 0d ,PR+PE,PR+1,11).
60: 0a 49 46 28 43 55 3c 30 29 43 55 3d 30 3b 49 46 .IF(CU<0)CU=0;IF
70: 28 43 55 3e 50 45 29 43 55 3d 50 45 0d 0a 4c 4f (CU>PE)CU=PE..LO
### Disk Sector 87 ###
00: 3d 43 4f 55 4e 54 43 48 28 50 52 2c 50 52 2b 43 =COUNTCH(PR,PR+C
10: 55 2d 31 2c 31 30 29 0d 0a 49 46 28 4f 56 28 30 U-1,10)..IF(OV(0
20: 29 3d 3d 32 29 5b 50 55 54 43 48 41 52 20 32 35 )==2)[PUTCHAR 25
30: 35 3b 50 55 54 43 48 41 52 20 38 5d 3b 50 4c 22 5;PUTCHAR 8];PL"
40: 0f 1d 06 02 22 0d 0a 49 46 28 45 52 28 30 29 29 ...."..IF(ER(0))
50: 0d 0a 49 46 28 45 52 28 30 29 3d 3d 39 39 29 5b ..IF(ER(0)==99)[
60: 50 53 22 13 53 54 4f 50 50 45 44 12 22 3b 50 4c PS".STOPPED.";PL
70: 22 22 5d 0d 0a 45 4c 53 45 20 57 48 0d 0a 5d 0d ""]..ELSE WH..].
### Disk Sector 88 ###
00: 0a 47 49 0d 0a 5b 49 4e 54 20 4b 0d 0a 49 46 28 .GI..[INT K..IF(
10: 4c 4e 28 32 29 3d 3d 30 29 4c 4e 28 33 29 3d 30 LN(2)==0)LN(3)=0
20: 0d 0a 50 4e 20 4b 3d 52 45 41 44 46 49 4c 45 28 ..PN K=READFILE(
30: 4c 4e 2b 33 2c 50 52 2b 50 45 2b 31 2c 50 52 2b LN+3,PR+PE+1,PR+
40: 4c 50 2c 35 29 0d 0a 50 4c 22 22 0d 0a 49 46 28 LP,5)..PL""..IF(
50: 4b 3c 30 29 52 45 54 55 52 4e 0d 0a 50 45 3d 50 K<0)RETURN..PE=P
60: 45 2b 4b 0d 0a 4c 41 3d 43 4f 55 4e 54 43 48 28 E+K..LA=COUNTCH(
70: 50 52 2b 31 2c 50 52 2b 50 45 2c 31 30 29 0d 0a PR+1,PR+PE,10)..
### Disk Sector 89 ###
00: 46 41 0d 0a 5d 0d 0a 47 55 0d 0a 5b 0d 0a 46 41 FA..]..GU..[..FA
10: 0d 0a 49 46 28 4c 4e 28 32 29 3d 3d 30 29 4c 4e ..IF(LN(2)==0)LN
20: 28 33 29 3d 30 0d 0a 50 4e 20 57 52 49 54 45 46 (3)=0..PN WRITEF
30: 49 4c 45 28 4c 4e 2b 33 2c 50 52 2b 31 2c 50 52 ILE(LN+3,PR+1,PR
40: 2b 50 45 2c 35 29 0d 0a 50 4c 22 22 0d 0a 5d 0d +PE,5)..PL""..].
50: 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
60: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................
70: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ................