Compucolor.org – Virtual Media

Listing of file='STDLIB.C;03' on disk='vmedia/chip_9-sector.ccvf'

### Disk Sector 134 ###
00: 2f 2a 20 14 53 54 44 4c 49 42 20 56 30 31 2e 30   /* .STDLIB 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 135 ###
00: 52 20 42 28 30 29 20 5b 0d 0a 49 4e 54 20 4c 0d   R B(0) [..INT L.
10: 0a 43 48 41 52 20 45 28 30 29 2c 43 3b 45 3d 33   .CHAR E(0),C;E=3
20: 33 32 38 39 3b 45 28 30 29 3d 30 0d 0a 57 48 49   3289;E(0)=0..WHI
30: 4c 45 28 28 43 3d 42 28 4c 29 3d 4d 43 28 32 29   LE((C=B(L)=MC(2)
40: 29 21 3d 31 33 29 5b 0d 0a 49 46 28 43 3d 3d 31   )!=13)[..IF(C==1
50: 31 29 5b 0d 0a 4c 3d 30 0d 0a 4d 43 20 43 2c 31   1)[..L=0..MC C,1
60: 0d 0a 5d 0d 0a 45 4c 53 45 20 49 46 28 28 43 3d   ..]..ELSE IF((C=
70: 3d 31 32 37 29 2b 28 43 3d 3d 32 36 29 29 5b 0d   =127)+(C==26))[.
### Disk Sector 136 ###
00: 0a 49 46 28 4c 3e 30 29 5b 4c 3d 4c 2d 31 3b 4d   .IF(L>0)[L=L-1;M
10: 43 20 32 36 2c 31 3b 4d 43 20 27 20 27 2c 31 3b   C 26,1;MC ' ',1;
20: 4d 43 20 32 36 2c 31 3b 5d 0d 0a 5d 0d 0a 45 4c   MC 26,1;]..]..EL
30: 53 45 20 5b 4c 3d 4c 2b 31 3b 4d 43 20 43 2c 31   SE [L=L+1;MC C,1
40: 3b 5d 0d 0a 5d 0d 0a 42 28 4c 29 3d 30 0d 0a 45   ;]..]..B(L)=0..E
50: 28 30 29 3d 31 0d 0a 52 45 54 55 52 4e 20 4c 0d   (0)=1..RETURN L.
60: 0a 5d 0d 0a 50 46 54 20 43 48 41 52 20 46 28 30   .]..PFT CHAR F(0
70: 29 2c 54 28 30 29 5b 0d 0a 4d 43 28 46 2c 54 2c   ),T(0)[..MC(F,T,
### Disk Sector 137 ###
00: 31 33 29 0d 0a 5d 0d 0a 50 53 20 43 48 41 52 20   13)..]..PS CHAR
10: 42 28 30 29 0d 0a 5b 49 4e 54 20 4c 0d 0a 43 48   B(0)..[INT L..CH
20: 41 52 20 43 0d 0a 4c 3d 2d 31 0d 0a 57 48 49 4c   AR C..L=-1..WHIL
30: 45 28 28 43 3d 42 28 4c 3d 4c 2b 31 29 29 21 3d   E((C=B(L=L+1))!=
40: 30 29 4d 43 20 43 2c 31 0d 0a 52 45 54 55 52 4e   0)MC C,1..RETURN
50: 20 4c 0d 0a 5d 0d 0a 50 4c 20 43 48 41 52 20 42    L..]..PL CHAR B
60: 28 30 29 0d 0a 5b 4d 43 20 31 30 2c 31 0d 0a 50   (0)..[MC 10,1..P
70: 53 20 42 0d 0a 4d 43 20 31 33 2c 31 0d 0a 5d 0d   S B..MC 13,1..].
### Disk Sector 138 ###
00: 0a 41 4c 50 48 41 20 43 48 41 52 20 41 0d 0a 5b   .ALPHA CHAR A..[
10: 0d 0a 49 46 28 28 41 3e 3d 27 61 27 29 2a 28 41   ..IF((A>='a')*(A
20: 3c 3d 27 7a 27 29 29 52 45 54 55 52 4e 20 31 0d   <='z'))RETURN 1.
30: 0a 49 46 28 28 41 3e 3d 27 41 27 29 2a 28 41 3c   .IF((A>='A')*(A<
40: 3d 27 5a 27 29 29 52 45 54 55 52 4e 20 31 0d 0a   ='Z'))RETURN 1..
50: 5d 0d 0a 4e 55 4d 20 43 48 41 52 20 42 28 35 29   ]..NUM CHAR B(5)
60: 0d 0a 49 4e 54 20 56 28 30 29 0d 0a 5b 49 4e 54   ..INT V(0)..[INT
70: 20 4b 0d 0a 56 28 30 29 3d 30 0d 0a 57 48 49 4c    K..V(0)=0..WHIL
### Disk Sector 139 ###
00: 45 28 4b 3c 35 29 0d 0a 5b 49 46 28 28 42 28 4b   E(K<5)..[IF((B(K
10: 29 3c 27 30 27 29 2b 28 42 28 4b 29 3e 27 39 27   )<'0')+(B(K)>'9'
20: 29 29 52 45 54 55 52 4e 20 4b 0d 0a 56 28 30 29   ))RETURN K..V(0)
30: 3d 31 30 2a 56 28 30 29 2b 42 28 4b 29 2d 27 30   =10*V(0)+B(K)-'0
40: 27 0d 0a 4b 3d 4b 2b 31 0d 0a 5d 0d 0a 52 45 54   '..K=K+1..]..RET
50: 55 52 4e 20 4b 0d 0a 5d 0d 0a 41 54 4f 49 20 43   URN K..]..ATOI C
60: 48 41 52 20 42 28 30 29 0d 0a 49 4e 54 20 56 28   HAR B(0)..INT V(
70: 30 29 0d 0a 5b 49 4e 54 20 4b 2c 53 0d 0a 43 48   0)..[INT K,S..CH
### Disk Sector 140 ###
00: 41 52 20 43 0d 0a 53 3d 31 0d 0a 43 3d 42 28 30   AR C..S=1..C=B(0
10: 29 0d 0a 57 48 49 4c 45 28 28 43 3d 3d 27 20 27   )..WHILE((C==' '
20: 29 2b 28 43 3d 3d 27 2d 27 29 2b 28 43 3d 3d 27   )+(C=='-')+(C=='
30: 2b 27 29 29 0d 0a 5b 49 46 28 43 3d 3d 27 2d 27   +'))..[IF(C=='-'
40: 29 53 3d 2d 31 0d 0a 43 3d 42 28 4b 3d 4b 2b 31   )S=-1..C=B(K=K+1
50: 29 0d 0a 5d 0d 0a 4b 3d 4b 2b 4e 55 4d 28 42 2b   )..]..K=K+NUM(B+
60: 4b 2c 56 29 0d 0a 56 28 30 29 3d 53 2a 56 28 30   K,V)..V(0)=S*V(0
70: 29 0d 0a 52 45 54 55 52 4e 20 4b 0d 0a 5d 0d 0a   )..RETURN K..]..
### Disk Sector 141 ###
00: 50 4e 20 49 4e 54 20 4e 0d 0a 5b 0d 0a 4d 43 20   PN INT N..[..MC
10: 27 20 27 2c 31 0d 0a 4d 43 20 4e 2c 31 34 0d 0a   ' ',1..MC N,14..
20: 5d 0d 0a 47 4e 0d 0a 5b 43 48 41 52 20 42 28 32   ]..GN..[CHAR B(2
30: 30 29 0d 0a 49 4e 54 20 56 28 30 29 0d 0a 57 48   0)..INT V(0)..WH
40: 49 4c 45 28 31 29 0d 0a 5b 47 53 20 42 0d 0a 49   ILE(1)..[GS B..I
50: 46 28 41 54 4f 49 20 42 2c 56 29 52 45 54 55 52   F(ATOI B,V)RETUR
60: 4e 20 56 28 30 29 0d 0a 50 53 22 4e 55 4d 42 45   N V(0)..PS"NUMBE
70: 52 20 52 45 51 55 49 52 45 44 20 22 0d 0a 5d 0d   R REQUIRED "..].
### Disk Sector 142 ###
00: 0a 5d 0d 0a 43 45 51 4e 20 43 48 41 52 20 41 28   .]..CEQN CHAR A(
10: 30 29 2c 42 28 30 29 0d 0a 49 4e 54 20 4e 0d 0a   0),B(0)..INT N..
20: 5b 49 4e 54 20 4b 0d 0a 4b 3d 2d 31 0d 0a 57 48   [INT K..K=-1..WH
30: 49 4c 45 28 28 4b 3d 4b 2b 31 29 3c 4e 29 49 46   ILE((K=K+1)<N)IF
40: 28 41 28 4b 29 21 3d 42 28 4b 29 29 52 45 54 55   (A(K)!=B(K))RETU
50: 52 4e 20 30 0d 0a 52 45 54 55 52 4e 20 31 0d 0a   RN 0..RETURN 1..
60: 5d 0d 0a 49 4e 44 45 58 20 43 48 41 52 20 49 28   ]..INDEX CHAR I(
70: 30 29 0d 0a 49 4e 54 20 4c 0d 0a 43 48 41 52 20   0)..INT L..CHAR
### Disk Sector 143 ###
00: 46 28 30 29 0d 0a 49 4e 54 20 4e 0d 0a 5b 0d 0a   F(0)..INT N..[..
10: 49 46 28 4e 3c 3d 30 29 52 45 54 55 52 4e 20 31   IF(N<=0)RETURN 1
20: 0d 0a 49 46 28 4c 3c 3d 31 29 52 45 54 55 52 4e   ..IF(L<=1)RETURN
30: 20 30 0d 0a 49 4e 54 20 41 2c 44 28 30 29 0d 0a    0..INT A,D(0)..
40: 57 48 49 4c 45 28 41 2b 4e 3c 3d 4c 29 5b 0d 0a   WHILE(A+N<=L)[..
50: 44 28 30 29 3d 31 0d 0a 41 3d 41 2b 4c 2b 53 43   D(0)=1..A=A+L+SC
60: 41 4e 4e 28 49 2b 41 2c 49 2b 4c 2d 4e 2c 46 28   ANN(I+A,I+L-N,F(
70: 30 29 2c 44 29 0d 0a 49 46 28 44 28 30 29 29 52   0),D)..IF(D(0))R
### Disk Sector 144 ###
00: 45 54 55 52 4e 20 30 0d 0a 49 46 28 43 45 51 4e   ETURN 0..IF(CEQN
10: 28 49 2b 41 2c 46 2b 31 2c 4e 2d 31 29 29 52 45   (I+A,F+1,N-1))RE
20: 54 55 52 4e 20 41 0d 0a 5d 0d 0a 5d 0d 0a 4d 4f   TURN A..]..]..MO
30: 56 45 20 43 48 41 52 20 41 28 30 29 2c 42 28 30   VE CHAR A(0),B(0
40: 29 0d 0a 5b 49 4e 54 20 4b 0d 0a 49 4e 54 20 4c   )..[INT K..INT L
50: 28 30 29 0d 0a 4c 28 30 29 3d 31 0d 0a 4b 3d 53   (0)..L(0)=1..K=S
60: 43 41 4e 4e 28 41 2c 41 2b 33 32 37 36 35 2c 30   CANN(A,A+32765,0
70: 2c 4c 29 0d 0a 4d 4f 56 45 42 4c 28 41 2c 41 2b   ,L)..MOVEBL(A,A+
### Disk Sector 145 ###
00: 4b 2c 42 2d 41 29 0d 0a 52 45 54 55 52 4e 20 4b   K,B-A)..RETURN K
10: 0d 0a 5d 0d 0a 47 43 0d 0a 5b 43 48 41 52 20 46   ..]..GC..[CHAR F
20: 0d 0a 46 3d 4d 43 20 32 0d 0a 57 48 49 4c 45 28   ..F=MC 2..WHILE(
30: 4d 43 28 32 29 21 3d 31 33 29 5b 5d 0d 0a 52 45   MC(2)!=13)[]..RE
40: 54 55 52 4e 20 46 0d 0a 5d 0d 0a 4d 4f 56 45 42   TURN F..]..MOVEB
50: 4c 20 43 48 41 52 20 41 28 30 29 2c 42 28 30 29   L CHAR A(0),B(0)
60: 3b 49 4e 54 20 4e 0d 0a 5b 4d 43 28 41 2c 42 2c   ;INT N..[MC(A,B,
70: 4e 2c 37 29 5d 0d 0a 43 4f 55 4e 54 43 48 20 43   N,7)]..COUNTCH C
### Disk Sector 146 ###
00: 48 41 52 20 41 28 30 29 2c 42 28 30 29 2c 43 0d   HAR A(0),B(0),C.
10: 0a 5b 52 45 54 55 52 4e 20 4d 43 28 41 2c 42 2c   .[RETURN MC(A,B,
20: 43 2c 38 29 5d 0d 0a 53 43 41 4e 4e 20 43 48 41   C,8)]..SCANN CHA
30: 52 20 41 28 30 29 2c 42 28 30 29 2c 43 3b 49 4e   R A(0),B(0),C;IN
40: 54 20 4e 28 30 29 0d 0a 5b 52 45 54 55 52 4e 20   T N(0)..[RETURN
50: 4d 43 28 41 2c 42 2c 43 2c 4e 2c 39 29 5d 0d 0a   MC(A,B,C,N,9)]..
60: 46 49 4c 45 4e 41 4d 45 20 43 48 41 52 20 46 49   FILENAME CHAR FI
70: 4e 28 30 29 2c 46 4f 55 54 28 30 29 5b 0d 0a 49   N(0),FOUT(0)[..I
### Disk Sector 147 ###
00: 4e 54 20 4a 28 30 29 2c 58 44 2c 58 50 2c 58 56   NT J(0),XD,XP,XV
10: 2c 58 45 0d 0a 4a 28 30 29 3d 31 3b 58 45 3d 53   ,XE..J(0)=1;XE=S
20: 43 41 4e 4e 28 46 49 4e 2c 46 49 4e 2b 33 32 2c   CANN(FIN,FIN+32,
30: 30 2c 4a 29 0d 0a 4a 28 30 29 3d 31 3b 58 56 3d   0,J)..J(0)=1;XV=
40: 53 43 41 4e 4e 28 46 49 4e 2c 46 49 4e 2b 58 45   SCANN(FIN,FIN+XE
50: 2c 27 3b 27 2c 4a 29 0d 0a 4a 28 30 29 3d 31 3b   ,';',J)..J(0)=1;
60: 58 50 3d 53 43 41 4e 4e 28 46 49 4e 2c 46 49 4e   XP=SCANN(FIN,FIN
70: 2b 58 56 2c 27 2e 27 2c 4a 29 0d 0a 4a 28 30 29   +XV,'.',J)..J(0)
### Disk Sector 148 ###
00: 3d 31 3b 58 44 3d 53 43 41 4e 4e 28 46 49 4e 2c   =1;XD=SCANN(FIN,
10: 46 49 4e 2b 58 50 2c 27 3a 27 2c 4a 29 0d 0a 49   FIN+XP,':',J)..I
20: 46 28 4a 28 30 29 29 20 58 44 3d 2d 31 0d 0a 49   F(J(0)) XD=-1..I
30: 46 20 28 58 44 2b 37 3c 58 50 29 20 5b 4d 4f 56   F (XD+7<XP) [MOV
40: 45 4e 28 46 49 4e 2c 46 4f 55 54 2c 58 44 2b 37   EN(FIN,FOUT,XD+7
50: 29 3b 46 4f 55 54 3d 46 4f 55 54 2b 58 44 2b 37   );FOUT=FOUT+XD+7
60: 5d 0d 0a 45 4c 53 45 20 5b 4d 4f 56 45 4e 28 46   ]..ELSE [MOVEN(F
70: 49 4e 2c 46 4f 55 54 2c 58 50 29 3b 46 4f 55 54   IN,FOUT,XP);FOUT
### Disk Sector 149 ###
00: 3d 46 4f 55 54 2b 58 50 5d 0d 0a 49 46 20 28 58   =FOUT+XP]..IF (X
10: 50 3d 3d 58 56 29 20 5b 4d 4f 56 45 4e 28 22 2e   P==XV) [MOVEN(".
20: 43 22 2c 46 4f 55 54 2c 32 29 3b 46 4f 55 54 3d   C",FOUT,2);FOUT=
30: 46 4f 55 54 2b 32 5d 0d 0a 45 4c 53 45 20 49 46   FOUT+2]..ELSE IF
40: 28 58 50 2b 34 3c 58 56 29 20 5b 4d 4f 56 45 4e   (XP+4<XV) [MOVEN
50: 28 46 49 4e 2b 58 50 2c 46 4f 55 54 2c 34 29 3b   (FIN+XP,FOUT,4);
60: 46 4f 55 54 3d 46 4f 55 54 2b 34 5d 0d 0a 45 4c   FOUT=FOUT+4]..EL
70: 53 45 20 5b 4d 4f 56 45 4e 28 46 49 4e 2b 58 50   SE [MOVEN(FIN+XP
### Disk Sector 150 ###
00: 2c 46 4f 55 54 2c 58 56 2d 58 50 29 3b 46 4f 55   ,FOUT,XV-XP);FOU
10: 54 3d 46 4f 55 54 2b 58 56 2d 58 50 5d 0d 0a 4d   T=FOUT+XV-XP]..M
20: 4f 56 45 4e 28 46 49 4e 2b 58 56 2c 46 4f 55 54   OVEN(FIN+XV,FOUT
30: 2c 58 45 2d 58 56 2b 31 29 0d 0a 52 45 54 55 52   ,XE-XV+1)..RETUR
40: 4e 20 30 0d 0a 5d 0d 0a 4d 4f 56 45 4e 20 43 48   N 0..]..MOVEN CH
50: 41 52 20 46 28 30 29 2c 54 28 30 29 0d 0a 49 4e   AR F(0),T(0)..IN
60: 54 20 4e 20 5b 0d 0a 49 46 28 4e 29 4d 4f 56 45   T N [..IF(N)MOVE
70: 42 4c 28 46 2c 46 2b 4e 2d 31 2c 54 2d 46 29 0d   BL(F,F+N-1,T-F).
### Disk Sector 151 ###
00: 0a 5d 0d 0a 52 45 41 44 46 49 4c 45 20 43 48 41   .]..READFILE CHA
10: 52 20 4e 28 30 29 2c 57 28 30 29 2c 4c 28 30 29   R N(0),W(0),L(0)
20: 0d 0a 49 4e 54 20 55 0d 0a 5b 49 4e 54 20 4b 2c   ..INT U..[INT K,
30: 54 0d 0a 43 48 41 52 20 46 49 28 31 33 29 0d 0a   T..CHAR FI(13)..
40: 49 46 28 46 49 4c 45 4e 41 4d 45 28 4e 2c 46 49   IF(FILENAME(N,FI
50: 29 3c 30 29 20 5b 0d 0a 50 4c 22 49 4e 56 41 4c   )<0) [..PL"INVAL
60: 49 44 20 46 49 4c 45 20 4e 41 4d 45 22 3b 50 4c   ID FILE NAME";PL
70: 22 22 0d 0a 52 45 54 55 52 4e 20 2d 31 0d 0a 5d   ""..RETURN -1..]
### Disk Sector 152 ###
00: 0d 0a 49 46 28 4d 43 28 31 2c 46 49 2c 30 2c 55   ..IF(MC(1,FI,0,U
10: 2c 33 29 3c 30 29 20 5b 0d 0a 50 4c 22 46 49 4c   ,3)<0) [..PL"FIL
20: 45 20 4e 4f 54 20 46 4f 55 4e 44 22 0d 0a 4d 43   E NOT FOUND"..MC
30: 28 55 2c 36 29 0d 0a 52 45 54 55 52 4e 20 2d 31   (U,6)..RETURN -1
40: 0d 0a 5d 0d 0a 4b 3d 4d 43 28 57 2c 4c 2d 31 2c   ..]..K=MC(W,L-1,
50: 30 2c 55 2c 31 30 30 34 29 0d 0a 4d 43 28 55 2c   0,U,1004)..MC(U,
60: 36 29 0d 0a 49 46 28 57 2b 4b 3c 4c 29 52 45 54   6)..IF(W+K<L)RET
70: 55 52 4e 20 4b 0d 0a 50 4c 22 54 4f 4f 20 42 49   URN K..PL"TOO BI
### Disk Sector 153 ###
00: 47 22 0d 0a 4d 43 28 55 2c 36 29 0d 0a 52 45 54   G"..MC(U,6)..RET
10: 55 52 4e 20 2d 32 0d 0a 5d 0d 0a 57 52 49 54 45   URN -2..]..WRITE
20: 46 49 4c 45 20 43 48 41 52 20 4e 28 30 29 2c 42   FILE CHAR N(0),B
30: 28 30 29 2c 45 28 30 29 0d 0a 49 4e 54 20 55 0d   (0),E(0)..INT U.
40: 0a 5b 49 4e 54 20 4b 2c 54 2c 4c 0d 0a 43 48 41   .[INT K,T,L..CHA
50: 52 20 46 49 28 31 33 29 0d 0a 49 46 28 46 49 4c   R FI(13)..IF(FIL
60: 45 4e 41 4d 45 28 4e 2c 46 49 29 3c 30 29 20 5b   ENAME(N,FI)<0) [
70: 0d 0a 50 4c 22 49 4e 56 41 4c 49 44 20 46 49 4c   ..PL"INVALID FIL
### Disk Sector 154 ###
00: 45 20 4e 41 4d 45 22 3b 50 4c 22 22 0d 0a 52 45   E NAME";PL""..RE
10: 54 55 52 4e 20 2d 31 0d 0a 5d 0d 0a 49 46 28 4d   TURN -1..]..IF(M
20: 43 28 32 2c 46 49 2c 45 2d 42 2b 31 2c 55 2c 33   C(2,FI,E-B+1,U,3
30: 29 3c 30 29 20 5b 0d 0a 50 4c 22 55 4e 49 54 20   )<0) [..PL"UNIT
40: 31 20 4f 50 45 4e 22 0d 0a 4d 43 28 55 2c 36 29   1 OPEN"..MC(U,6)
50: 0d 0a 52 45 54 55 52 4e 20 2d 31 0d 0a 5d 0d 0a   ..RETURN -1..]..
60: 57 48 49 4c 45 28 42 3c 3d 45 29 0d 0a 5b 0d 0a   WHILE(B<=E)..[..
70: 4c 3d 45 2d 42 0d 0a 49 46 28 4c 3e 32 35 35 29   L=E-B..IF(L>255)
### Disk Sector 155 ###
00: 4c 3d 32 35 35 0d 0a 4b 3d 4d 43 28 42 2c 42 2b   L=255..K=MC(B,B+
10: 31 2c 55 2c 35 29 0d 0a 49 46 28 4b 3c 30 29 20   1,U,5)..IF(K<0)
20: 5b 4d 43 28 55 2c 36 29 3b 52 45 54 55 52 4e 20   [MC(U,6);RETURN
30: 4b 3b 5d 0d 0a 54 3d 54 2b 4c 2b 31 0d 0a 42 3d   K;]..T=T+L+1..B=
40: 42 2b 4c 2b 31 0d 0a 5d 0d 0a 4d 43 28 55 2c 36   B+L+1..]..MC(U,6
50: 29 0d 0a 52 45 54 55 52 4e 20 54 0d 0a 5d 0d 0a   )..RETURN T..]..
60: 46 4f 50 45 4e 20 49 4e 54 20 52 57 0d 0a 43 48   FOPEN INT RW..CH
70: 41 52 20 4e 28 30 29 0d 0a 49 4e 54 20 53 2c 55   AR N(0)..INT S,U
### Disk Sector 156 ###
00: 20 5b 0d 0a 52 45 54 55 52 4e 20 4d 43 28 52 57    [..RETURN MC(RW
10: 2c 4e 2c 53 2c 55 2c 33 29 5d 0d 0a 46 52 45 41   ,N,S,U,3)]..FREA
20: 44 20 43 48 41 52 20 41 28 30 29 0d 0a 49 4e 54   D CHAR A(0)..INT
30: 20 55 20 5b 0d 0a 52 45 54 55 52 4e 20 4d 43 28    U [..RETURN MC(
40: 41 2c 55 2c 34 29 5d 0d 0a 46 57 52 49 54 45 20   A,U,4)]..FWRITE
50: 43 48 41 52 20 46 28 30 29 2c 54 28 30 29 0d 0a   CHAR F(0),T(0)..
60: 49 4e 54 20 55 20 5b 0d 0a 52 45 54 55 52 4e 20   INT U [..RETURN
70: 4d 43 28 46 2c 54 2c 55 2c 35 29 5d 0d 0a 46 43   MC(F,T,U,5)]..FC
### Disk Sector 157 ###
00: 4c 4f 53 45 20 49 4e 54 20 55 20 5b 0d 0a 52 45   LOSE INT U [..RE
10: 54 55 52 4e 20 4d 43 28 55 2c 36 29 5d 0d 0a 0d   TURN MC(U,6)]...
20: 0a 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00   ................
30: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00   ................
40: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00   ................
50: 00 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   ................