Commodore 1541 - Page 38

SAMPLE PROGRAM WRITING 10 RANDOM-ACCESS BLOCKS WITH SE
QUENTIAL FILE:
10 OPEN15,8,15
20 OPEN5,8,5,"#"
30 OPEN4,8,4,"@0:KEYS,S,W"
40 A$= "RECORD CONTENTS ff"
50 FORR=1TO10
70 PRINT#5,A$","R
90 T= 1:B= 1-
100 PRlNTfll5,"B-A;"0;T;B
110 INPUT#15,A,B$,C,D-
120 IF A = 65THENT = C:B = D:GOTO100
130 PR1NT#15."B-W:"5;O;T;B
140 PRINT#4,T","B
150 NEXT R
160 CLOSE4:CLOSE5:CLOSE15
FIND NEXT
AVAILABLE
TRACK &
BLOCK
SAMPLE PROGRAM READING BACK 10 RANDOM-ACCESS BLOCKS WITH
SEQUENTIAL FILE:
10 OPEN15,8,15
20 OPEN5,8,5,"#"
30 OPEN4,8,4,"KEYS,S.R"
40 FOR R=lTO10
50 1NPUT#4,T,B
60 PRINT#I5,"B- R:"5;0;T;B
80 !NPUTfl5,AS,X
90 IF A$<>"RECORD CONTENTS #
100 PRINTASiR
110 PRINT#l5,"B-F:"0;T;B.
120 NEXT R
130 CLOSE4:CLOSE5
CHECKS TO
MAKE SURE
DATA IS OK
OR XOR THEN STOP
140 PRINT/J15,"SO:KEYS"
150 CLOSE15
(■■KEESTHIS
TRACK & BLOCK
FOR LATER USE