image of READY prompt

Wang2200.org

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

# Sector 1043, program filename = 'DATRAN02'
0020 PRINT AT(P1,00);"LITERAL ....... <-- TESTING",
0030 X=SPACE
0040 DIM A$100,B$100,C$100,X$1,Y$1,Z$124
0050 GOTO 1000
0100 DEFFN'40(X$,Y$)
   : I=0
0110 J=POS(STR(B$,I+1)=Y$)
   : IF J=0THEN RETURN
   : I=I+J
   : STR(B$,I,1)=X$
   : Q=Q+.09
   : PRINT AT(P1,12);INT(Q);
   : GOTO 110
0150 DEFFN'50(Z$,Z)
   : FOR I=1TO LEN(STR(B$))
   : J=VAL(STR(B$,I))
   : IF J<ZTHEN STR(B$,I,1)=STR(Z$,J+1,1)
   : NEXT I
   : RETURN
1000 RESTORE
1010 READ C$
   : IF C$="END"THEN C=1
   : A$=C$
1020 B$,A$=C$
   : $TRAN(A$,"A523")R
1030 GOSUB '40("A","5")
   : GOSUB '40("2","3")
1040 IF B$<>A$THEN E=1
2020 B$,A$=C$
   : $TRAN(A$,"5R3E")R
2030 GOSUB '40("5","R")
   : GOSUB '40("3","E")
2040 IF B$<>A$THEN E=1
3020 B$,A$=C$
   : $TRAN(A$,HEX(3447E641))R
3030 GOSUB '40("4","G")
   : GOSUB '40(HEX(E6),"A")
3040 IF B$<>A$THEN E=1
4020 B$,A$=C$
   : $TRAN(A$,"@ABCDEF")0F
4030 B$=AND ALL(0F)
   : GOSUB '50("@ABCDEF",7)
4040 IF B$<>A$THEN E=1
5020 B$,A$=C$
   : $TRAN(A$,"24680ABC3FJD@#DFJSADL;FKJSDFIWERJKLFDSKJFWIOEURUWOIREUOWIUERUUU
     J")5E
5030 B$=AND ALL(5E)
   : GOSUB '50("24680ABC3FJD@#DFJSADL;FKJSDFIWERJKLFDSKJFWIOEURUWOIREUOWIUERUU
     UJ",64)
5040 IF B$<>A$THEN E=1
8080 IF C=0THEN 1010
   : C=C+1
   : ON C-1GOTO 8100,8110,8120,8130,8140
   : GOTO 9000
8100 C$=ALL(00)
   : GOTO 1020
8110 C$=ALL(FF)
   : GOTO 1020
8120 C$=ALL(01)
   : STR(C$,,99)=ADDC$
   : GOTO 1020
8130 C$=ALL(01)
   : STR(C$,,99)=ADDC$ADDALL(64)
   : GOTO 1020
8140 C$=ALL(01)
   : STR(C$,,99)=ADDC$ADDALL(C8)
   : GOTO 1020
8800 DATA "GGGG38G5DAAJFA5POI3RE9Q843AJ5AL3REJD-1QG3A093RFJKSE","1395GJVRSGJAA
     E30A5JGKDLGE3;A498E4AJ5DGJPJRA0EURGO5JGASD9F8DFJ23425GT5J","ASGFAJG19290-
     FOIJRE5GALDKFJ1R-290E52331G39594U523KJ;KD5FSDJAFJD"
8810 DATA HEX(4741C38950239C75892305C94147409C8757465746589B73581908A134598730
     2948A742379865092378409A72509823490785904287502C987D43907852D03845903F857
     50947)
8820 DATA HEX(000102030405060708090A0B0C0D0E0F101112131415161718191A1B1C1D1E1F
     2021222324252627282930),HEX(3132333435363738393A3B3C3D3E3F)
8830 DATA HEX(404142434445464748494A4B4C4D4E4F505152535455565758595A6061626364
     65666768696A6B6C6D6E6F),HEX(707172737475767778797A7B7C7D7E7F)
8890 DATA "END"
9000 Z=SPACE
   : IF X<>ZTHEN E=1
9010 IF E<>0THEN E(P1)=E(P1)+1
9020 PRINT AT(P1,12);"...";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$