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