image of READY prompt

Wang2200.org

Listing of file='BDIAG7' on disk='vmedia/mvp-diag-3.5.wvd.zip'

# Sector 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"