Listing of file='BDIAG18' on disk='vmedia/mvp-diag-3.5.wvd.zip'
# Sector 541, program filename = 'BDIAG18'
0020 PRINT AT(03,32);"I/O STMT SYNTAX <-- TESTING",
0080 S=SPACE
0090 DIM A$(1),N(1)
0110 GOTO 8980
0120 END
: END
0130 IF END THEN 110
: IF END THEN GOSUB 120
0140 INPUT X
: INPUT A$
: INPUT A$()
: INPUT X,Y,A$,A$(),STR(A$)
: INPUT "ABC"X
: INPUT "DEF",Y
: INPUT HEX(0D3AFD2C)A$
0150 KEYIN #X,A$,110,200
: KEYIN /001,A$,110,200
: KEYIN A$,110,200
: KEYIN A$,,200
: KEYIN STR(A$)
0160 LINPUT A$
: LINPUT -STR(A$,1,2)
: LINPUT "ABC"A$()
: LINPUT HEX(0D),A$()
0170 PRINT
: PRINT ,
: PRINT ;
: PRINT X
: PRINT "X,",
: PRINT HEX(0D);
: PRINT ,,;,;,,
: PRINT X*2,A$;STR(A$);A$(),"ABC";HEX(0D29)
0180 PRINT AT(X,Y,Z);"X",AT(2,3);
0190 PRINT HEXOF(A$),HEXOF(STR(A$()));X;HEXOF("ABC"),HEXOF(HEX(4142))
0200 PRINT 1,TAB(X),TAB(SIN(Y))
0210 %ABC
0215 PRINTUSING 210
: PRINTUSING A$
: PRINTUSING "A##B"
: PRINTUSING HEX(0D3AFC)
: PRINTUSING 220,X
: PRINTUSING 230,A$,A$(),STR(B$),X,Y,N(1),"ABC:";HEX(030303);2*3
: PRINTUSING 230;
0220 %#################################
0230 %A:XXXX
0240 STOP
: STOP #
: STOP "ABC"#
: STOP HEX(0DFD3A)#
0250 TRACE
: TRACE OFF
0260 MAT PRINT N
: MAT PRINT A$;N,A$,N
: MAT PRINT A$;
: MAT PRINT N,
0270 MAT INPUT X
: MAT INPUT N,A$
0280 HEXPRINT A$
: HEXPRINT A$()
: HEXPRINT A$,B$;D$
: HEXPRINT A$;
: HEXPRINT B$,
0290 DATA LOAD BTA$
: DATA LOAD BTRR$
: DATA LOAD BT(N=X)A$()
: DATA LOAD BT(L=HEX(00))A$
: DATA LOAD BT(S=0D)A$
: DATA LOAD BT(N=1,S=HEX(0D))A$
: DATA LOAD BT(L=00,S="L")A$
0300 DATA LOAD BTR(N=1,L=A$,S=B$)A$()
: DATA LOAD BT/618,A$
: DATA LOAD BTR(N=X,L=00,S=A$)#3,A$
0310 DATA SAVE BTA$
: DATA SAVE BT"ABC"
: DATA SAVE BTHEX(0D3A)
: DATA SAVE BT/418,A$
: DATA SAVE BT#X,"ABCD"
0320 DATA LOAD X
: DATA LOAD A$
: DATA LOAD A$()
: DATA LOAD N()
: DATA LOAD X,A$,N(),A$()
: DATA LOAD /518,X
: DATA LOAD #X,A$()
0330 LIST
: LIST 20
: LIST 20,
: LIST ,20
: LIST 20,20
: LIST S
: LIST S,20
: LIST S20,
: LIST '
: LIST S'
: LIST '0
: LIST #
: LIST S#
: LIST #20
: LIST #,20
: LIST #20,
: LIST #20,20
: LIST I
: LIST DC F
: LIST SDC R
: LIST SI
: LIST DT
: LIST SDT
0340 LIST V
: LIST SV
: LIST VX
: LIST SVA$
: LIST VN(
: LIST VA$(
: LIST VX,Y
: LIST VA$,B$
: LIST VN(,M(
: LIST VA$(,B$(
0350 LIST "TITLE"
: LIST SHEX(41420DFD3A)
: LIST A$
: LIST A$,
: LIST S":"V
: LIST B$#
: LIST HEX(0D)'
: LIST "ABC"20,20
8980 I=SPACE
: IF I=STHEN 9000
8990 E(18)=E(18)+1
9000 PRINT AT(03,48,16);
: IF E(18)=0THEN PRINT "OK";
: ELSE PRINT E(18);"ERRORS"
9010 LOAD DC T"BDIAG19 "