image of READY prompt

Wang2200.org

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

# Sector sector 1080, program filename = 'DATRAN03'
0020 PRINT AT(P1,00);"VARIABLE ...... <-- TESTING",
0030 X=SPACE
0040 DIM A$100,B$100,C$100,Z$124,X$1,Y$1,M$124
0050 GOTO 1000
0100 DEFFN'40(Z$,Z)
   : H=0
0130 H=H+2
   : IF H>ZTHEN RETURN
   : X$=STR(Z$,H-1)
   : Y$=STR(Z$,H)
   : IF X$=" "AND Y$=" "THEN RETURN
   : I=0
0140 J=POS(STR(B$,I+1)=Y$)
   : IF J=0THEN 130
   : I=I+J
   : STR(B$,I,1)=X$
   : Q=Q+.09
   : PRINT AT(P1,12);INT(Q);
   : GOTO 140
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$
   : M$="A523"
   : $TRAN(A$,M$)R
1030 GOSUB '40(M$,124)
1040 IF B$<>A$THEN E=1
1050 B$,A$=C$
   : M$="A523"
   : $TRAN(A$,STR(M$,1,4))R
1060 GOSUB '40(M$,4)
1070 IF B$<>A$THEN E=1
2020 B$,A$=C$
   : M$="5R3E"
   : $TRAN(A$,M$)R
2030 GOSUB '40(M$,124)
2040 IF B$<>A$THEN E=1
3020 B$,A$=C$
   : M$=HEX(3447E641)
   : $TRAN(A$,STR(M$,,4))R
3030 GOSUB '40(M$,4)
3040 IF B$<>A$THEN E=1
4020 B$,A$=C$
   : M$="@ABCDEF"
   : $TRAN(A$,STR(M$,,7))0F
4030 B$=AND ALL(0F)
   : GOSUB '50(M$,7)
4040 IF B$<>A$THEN E=1
5020 B$,A$=C$
   : M$="24680ABC3FJD@#DFJSADL;FKJSDFIWERJKLFDSKJFWIOEURUWOIREUOWIUERUUUJ"
   : $TRAN(A$,STR(M$,,64))5E
5030 B$=AND ALL(5E)
   : GOSUB '50(M$,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$