image of READY prompt

Wang2200.org

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

# Sector 653, program filename = 'WCPD130A'
0010 REM .     WCPD130A,  00-00 (6/28/75),   12002
0100 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"
   : INIT(41)A$,B$,C$(),D$(),E$(2,1),STR(F$,4,8)
   : GOSUB 370
   : T$="Z"
0190 INIT("Z")E$(2,1),C$(),B$,D$(),A$,STR(F$,4,8)
   : GOSUB 370
   : T$="*"
   : INIT(T$)B$,D$(),A$,STR(F$,4,8),E$(2,1),C$()
   : GOSUB 370
   : T$="E"
   : INIT(STR(N$,2))A$,B$,C$(),D$(),E$(2,1),STR(F$,4,8)
   : GOSUB 370
   : NEXT I
   : FOR I=0TO 255
   : BIN(B$)=I
   : INIT(B$)T$
0310 IF VAL(T$)<>ITHEN 620
   : NEXT I
   : IF N$<>"BEG"THEN 620
   : IF E(11)<>0THEN 630
   : PRINT "OK"
   : GOTO 650
0370 FOR J=1TO 64
   : IF STR(A$,I,1)<>T$THEN 620
   : NEXT J
   : IF B$<>T$THEN 620
   : FOR J=1TO 16
   : FOR K=1TO 7
   : IF C$(J,K)<>T$THEN 620
   : NEXT K
   : NEXT J
   : FOR J=1TO 3
   : FOR K=1TO 16
   : IF STR(D$(J),K,1)<>T$THEN 620
   : NEXT K
   : NEXT J
   : FOR I=1TO 16
   : IF STR(E$(2,1),I,1)<>T$THEN 620
   : NEXT I
   : IF E$(1,2)<>" "THEN 620
0550 IF E$(2,2)<>" "THEN 620
   : FOR I=4TO 11
   : IF STR(F$,I,1)<>T$THEN 620
   : NEXT I
   : IF STR(F$,1,3)<>" "THEN 620
   : IF STR(F$,12)<>" "THEN 620
   : RETURN
0620 E(11)=E(11)+1
0630 PRINT TAB(40);E(11);"ERRORS"
   : E9$(P9)="NG"
0650 LOAD DC T#6,"WCPD140A"
0660 DEFFN'15
   : COM CLEAR
   : LOAD DC T#6,"START"