Listing of file='BDIAG7 ' on disk='vmedia/mvp-diag-3.5.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"