Commodore Computer Commodore 64 Manuel d'utilisateur télécharger pdf (Page 35)

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

]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 OPEN4, 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. . .

1 2 ... 30 31 32 33 34 35 36 37 38 39 40 ... 64 65

Pas de commentaire

Commodore Computer Commodore 64 Manuel d'utilisateur Page 35