image of READY prompt

Wang2200.org

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

# Sector 863, 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$