Listing of file='BDIAG7' on disk='vmedia/732-0050A.wvd.zip'
# Sector 279, program filename = 'BDIAG7'
0000 DATA 1
: DATA 2,3
0010 DATA 4
0020 PRINT AT(7,00);"DATA,READ,RSTOR <-- TESTING",
0080 S=SPACE
0090 DIM X(32)
0100 IF 0<1THEN 110
: DATA LOAD X
: DATA SAVE BT/005,X$
0110 FOR I=1TO 32
: READ X
: IF X<>ITHEN 8990
: NEXT I
0115 RESTORE
: READ X
: IF X<>1THEN 8990
0120 FOR I=32TO 1STEP -1
: RESTORE I
: READ X
: IF X<>ITHEN 8990
: NEXT I
0130 RESTORE 0
: READ X(1),X(2),X(3),X(4),X(5),X(6),X(7),X(8),X(9),X(10),X(11),X(12),X(13)
,X(14),X(15),X(16),X(17),X(18),X(19),X(20),X(21),X(22),X(23),X(24),X(25),
X(26),X(27),X(28),X(29),X(30),X(31),X(32)
: FOR I=1TO 32
: IF X(I)<>ITHEN 8990
: NEXT I
0140 RESTORE LINE0
: READ X
: IF X<>1THEN 8990
0150 FOR I=32TO 4STEP -1
: RESTORE LINE10,I-3
: READ X
: IF X<>ITHEN 8990
: NEXT I
0160 RESTORE LINE9999,255
: ERRORIF ERR<>70THEN 8990
: GOTO 300
0165 GOTO 8990
0200 DATA 5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,2
9
0300 A$=" "
: RESTORE LINE9999,0
: FOR I=1TO 5
: READ STR(A$,I)
: NEXT I
: IF A$<>"ABCDE"THEN 8990
0310 READ A$
: ERRORIF ERR<>70THEN 8990
: GOTO 400
0320 GOTO 8990
0400 RESTORE 1000
: ERRORIF ERR<>70THEN 8990
: GOTO 410
0405 GOTO 8990
0410 RESTORE LINE9999,4
: READ A$
: IF A$<>"DEF"THEN 8990
8980 I=SPACE
: IF I=STHEN 9000
8990 E(7)=E(7)+1
9000 PRINT AT(7,16,16);
: DATA 30
: IF E(7)=0THEN PRINT "OK"
: ELSE PRINT E(7);"ERRORS"
: DATA 31,32
9010 LOAD DC T"BDIAG8"
9999 DATA "A",HEX(420DFDFCFFFE3A),"C"
: PRINT ":";HEX(97225A22FD)
: DATA "DEF","E"