image of READY prompt

Wang2200.org

Listing of file='WCPD130A' on disk='vmedia/wcs_diags.wvd.zip'

# Sector 49, program filename = 'WCPD130A'
0010 REM .   WCPD130A,   00-00 (06/28/75),   12002
   : DIM N$3,A$64,M$1,B$1,C$(16,7)1,D$(3),T$1,E$(2,2)
   : N$="BEG"
   : M$="E"
   : PRINT " TESTING INIT ........................";
   : FOR I=1TO 2
   : T$="A"
0150 INIT(41)A$,B$,C$(),D$(),E$(2,1),STR(F$,4,8)
   : GOSUB 320
   : T$="Z"
0180 INIT("Z")E$(2,1),C$(),B$,D$(),A$,STR(F$,4,8)
   : GOSUB 320
   : T$="*"
   : INIT(T$)B$,D$(),A$,STR(F$,4,8),E$(2,1),C$()
   : GOSUB 320
   : T$="E"
   : INIT(STR(N$,2))A$,B$,C$(),D$(),E$(2,1),STR(F$,4,8)
   : GOSUB 320
   : NEXT I
0270 FOR I=0TO 255
   : BIN(B$)=I
   : INIT(B$)T$
   : IF VAL(T$)<>ITHEN 430
   : NEXT I
   : IF N$<>"BEG"THEN 430
   : PRINT "OK"
   : GOTO 450
0320 FOR J=1TO 64
   : IF STR(A$,I,1)<>T$THEN 430
   : NEXT J
   : IF B$<>T$THEN 430
   : FOR J=1TO 16
   : FOR K=1TO 7
   : IF C$(J,K)<>T$THEN 430
   : NEXT K
   : NEXT J
   : FOR J=1TO 3
   : FOR K=1TO 16
   : IF STR(D$(J),K,1)<>T$THEN 430
   : NEXT K
   : NEXT J
   : FOR I=1TO 16
   : IF STR(E$(2,1),I,1)<>T$THEN 430
   : NEXT I
0390 IF E$(1,2)<>" "THEN 430
   : IF E$(2,2)<>" "THEN 430
   : FOR I=4TO 11
   : IF STR(F$,I,1)<>T$THEN 430
   : NEXT I
0410 IF STR(F$,1,3)<>" "THEN 430
   : IF STR(F$,12)<>" "THEN 430
   : RETURN
0430 E(1)=E(1)+1
0440 PRINT TAB(40);E(1);"ERRORS"
0450 LOAD DC T"WCPD140A"
0460 DEFFN'15
   : LOAD DC T"START"50