Listing of file='DATRAN01' on disk='vmedia/mvp-diag-2.6.2.wvd.zip'
# Sector 3113, program filename = 'DATRAN01' 0020 PRINT AT(P1,00);"SYNTAX ........ <-- TESTING", 0030 X=SPACE 0040 DIM A$(1)2 0050 FOR I=1TO 5000 : NEXT I 0080 GOTO 9000 0100 $TRAN(A$,B$) : $TRAN(A$,B$)56 : $TRAN(A$,B$)EFR : $TRAN(A$,B$)R 0110 $TRAN(A$,"ENDDATA STOP RESTORE THEN ") : $TRAN(A$,"ENDDATA STOP RESTORE THEN ")R : $TRAN(A$,"#($*&DEFFNGOSUB ")4CR : $TRAN(A$,"#$@(*&#$")FF 0120 $TRAN(A$,HEX(46)) : $TRAN(Z$,HEX(56))R : $TRAN(Z$,HEX(45FF))4F : $TRAN(Z$,HEX(46FDCB))DFR 0130 $TRAN(STR(A$())," ") : $TRAN(STR(A$(),,4)," ")R : $TRAN(STR(A$(),50000)," SDLKFJ")4FR : $TRAN(STR(B$,SQR(3)),HEX(46))EE 0140 $TRAN(A$(),A$()) : $TRAN(A$(),STR(B$,SQR(81))) : $TRAN(A$(),STR(L$,1+SQR(POS(M$<>STR(G$,LEN(G$)))+3)))FFR : $TRAN(A$()," ")FE 9000 Z=SPACE : IF X<>ZTHEN E=1 9010 IF E<>0THEN E(P1)=E(P1)+1 9020 PRINT AT(P1,16,16); : IF E(P1)=0THEN PRINT "OK" : ELSE PRINT E(P1);"ERRORS" 9030 P1=P1+1 : IF P1>P9THEN P1=0 : CONVERT P1TO STR(P$,7,2),(##) : LOAD DC TP$