image of READY prompt

Wang2200.org

Listing of file='WCPD220A' on disk='vmedia/701-2046C.wvd.zip'

# Sector 474, program filename = 'WCPD220A'
0010 REM .     WCPD220A,  00-00 (6/28/75),   12002
0100 DIM M$1,A$3,N$1,B$3,C$64,E$(3)
   : PRINT " TESTING ADD .........................";
   : N$="B"
   : M$="A"
   : A$,B$=HEX(000000)
   : FOR I=1TO 255
   : ADDC(A$,01)
   : ADD(B$,01)
   : IF VAL(STR(A$,3))<>ITHEN 580
   : IF STR(A$,1,2)<>HEX(0000)THEN 580
0200 IF VAL(B$)<>ITHEN 580
   : IF VAL(STR(B$,2))<>ITHEN 580
   : IF VAL(STR(B$,3))<>ITHEN 580
   : NEXT I
   : ADDC(A$,01)
   : IF A$<>HEX(000100)THEN 580
   : OR (C$,FF)
   : STR(C$,64)=HEX(15)
   : ADDC(C$,EB)
   : FOR I=1TO 64
   : IF STR(C$,I,1)<>HEX(00)THEN 580
   : NEXT I
   : OR (D$,71)
   : ADD(STR(D$,2,14),8F)
0340 IF STR(D$,1,1)<>HEX(71)THEN 580
   : IF STR(D$,16)<>HEX(71)THEN 580
   : FOR I=2TO 15
   : IF STR(D$,I,1)<>HEX(00)THEN 580
   : NEXT I
   : G$,E$(2)=HEX(0023FE81D4897801C23A14FF1E2D0056)
   : F$=HEX(FFDC01961439FD8709C21000E1DFBEA1)
0410 H$=HEX(000000D8170C8A773403DB)
   : I$=HEX(00F45219)
   : ADDC(F$,E$(2))
   : ADDC(STR(F$,1,11),H$)
   : ADD(STR(F$,13),STR(I$,2,3))
   : XOR (G$,FF)
   : ADD(E$(2),G$)
   : ADDC(E$(2),01)
   : F$=E$(2)
   : FOR I=1TO 16
   : IF STR(F$,I,1)<>HEX(00)THEN 580
   : NEXT I
0530 IF M$<>"A"THEN 580
   : IF N$<>"B"THEN 580
   : IF E(3)<>0THEN 600
   : PRINT "OK"
   : GOTO 610
0580 E(3)=E(3)+1
   : E9$(P9)="NG"
0600 PRINT TAB(40);E(3);"ERRORS"
0610 LOAD DC T#6,"WCPD230A"
0620 DEFFN'15
   : COM CLEAR
   : LOAD DC T#6,"START"