APPENDIX ELEVEN



182            B6             DATAD
     The data element being read. Registers the number of the ele-
     ment in that line, say the tenth item in a DATA statement.

183,184       B7,B8           DATALN
     DATA statement line number; the BASIC line number of a DATA
     statement being currently read. The RESTORE statement sets the
     locations (and 182, above) back to zero. You can do the same
     with a POKE. Here's a program which demonstrates these loca-
     tions from Steve Rockower, Atari SIG. CompuServe.

     10 REM DEMONSTRATES 182- 184($B6-$B8) AS SU
        BSTITUTES FOR RESTORE
     20 REM 182 ($B6) POINTS TO ITEM OF A LINE T
        O BE READ NEXT
     30 REM DATA STATEMENTS HAVE ELEMENT NAME SE
        QUENTIALLV AND
     40 REM NUMBER IN CURRENT LINE
     50 DIM C$(2),A$(20):C$=CHR$(125)
     100 DATA ONE-1, TWO-2, THREE-3, FOUR-4, 0
     110 DATA FIVE-1, SIX-2, SEVEN-3, EIGHT-4, 0
     120 DATA <9-1>,<10-2>,<11-3>,<12-4>,1
     150 PRINT C$:RESTORE 100
     160 READ A$:IF A$="0" THEN 200
     170 IF PEEK(182)=1 THEN PRINT :PRINT "READI
         NG LINE: ";PEEK(183)+256*PEEK(184)
     180 IF A$="1" THEN 300
     190 PRINT "#";PEEK(182);" "; A$;"{3 SPACES}"
         ;:GOTO 160
     200 PRINT :GOTO 160
     300 PRINT :PRINT
     310 TRAP 400:PRINT "WHICH DATA LINE (1,2, O
         R 3)";:INPUT DATALINE
     320 PRINT "WHICH ITEM (1,2,3, OR 4)";:INPUT
         ITEM
     330 LET DATALINE=90+10*DATALINE
     340 POKE 184,INT(DATALINE/256):POKE 183,DAT
         ALINE-INT(DATALINE/256)
     350 POKE 182,ITEM-1
     360 READ A$:PRINT A$
     370 GOTO 310
     400 END

190            BE             SAVCUR
     Saves current line address.

192            C0             IOCMD
     I/O command.

193            C1             IODVC
     I/O device.