User`s manual

70 PRINT# IS, "B-P:" 5: (L-I)'" 64 \. P~sition to 0, 64, 128, or 192
80 PRINT# 5, AS "," L
90 NEXT L
100T=I: S=I
110 PR]NT# IS, "B-A:" 0; T; S
120 ]NPUT# IS, A, BS, C, D
s.
]30 IF A=65 THEN T=C: S=D: GOTO ] 10
140 PR]NT# IS, "B-W:" 5; 0; T; S
150 PRINT# 4, T "," S
160 NEXT R
170 CLOSE 4: CLOSE 5: CLOSE 15
SAMPLE PROGRAM READING BACK 10 RANDOM-ACCESS BLOCKS W]TH
4 RECORDS EACH:
10 OPEN IS, 8, 15
20 OPEN 5, 8, 5, "#
30 OPEN 4, 8,4, "KEYS,S,R"
40 FOR R=I TO 10
50 ]NPUT#4, T, S
60 PRINT# ] 5, "B-R:" 5; 0; T; S
70 FOR L=1 TO 4
80 PR]NT# ]5, "B-P:" 5; (L-l)* 64
85 ]NPUT# 5, AS, X
90 IF AS< > "Record Contents #" OR X=L THEN STOP
100 NEXT L
110 PRINT# IS, "B-F:" 0; T; S
120 NEXT R
130 CLOSE4: CLOSE 5
140PRINT# 15, "SO:KEYS"
150 CLOSE 15
USERl and USER2
The user commands are generally designed to work with machine language
(see the next chapter for more on this). The USERI and USER2 commands are
special versions of the BLOCK-READand BLOCK-WRITEcommands, but. . .
32