Listing of file='WCPD120A' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 630, program filename = 'WCPD120A' 0010 REM . WCPD120A, 00-00 (06/28/75), 12002 : COM N : P=1 : IF P=0THEN 320 : DIM C$64,D$(2)64,E$(1,2)64 : DIM C1$64,D1$(2)64,E1$(1,2)64 0150 C$="1234567890123456789012345678901234567890123456789012345678901234" : C1$=C$ 0170 IF C1$="1234567890123456789012345678901234567890123456789012345678901234" THEN 180 : PRINT TAB(40);"ERROR AT 80" : GOTO 320 0180 D$(1)="ABCDEFGHIJKLMNOPQRSTUVWXYZ%'$#:HGFEDCBAIJKLMNOPXWVUTSRQYZ%'$#:XPH" : D$(2)="/()*<>-^;+=,)>;,(<^=/*-+" : D1$(1)=D$(1) 0210 D1$(2)=D$(2) : FOR I=1TO 2 : IF D$(I)=D1$(I)THEN 240 : PRINT TAB(40);"ERROR AT 160" : GOTO 320 0240 NEXT I : E$(1,1)="123456789012345678901234567890123456789" : E$(1,2)="ABCDEFGHPONMLKJIQRSTUVWXXPHGOWVNFEUUTLK" : E1$(1,1)=E$(1,1) : E1$(1,2)=E$(1,2) : FOR I=1TO 2 : IF E1$(1,I)=E$(1,I)THEN 300 0290 PRINT TAB(40);"ERROR AT 220" : GOTO 320 0300 NEXT I : PRINT "OK" : LOAD DC T"WCPD130A" 0320 E(1)=E(1)+1 : LOAD DC T"WCPD130A" 0330 DEFFN'15 : LOAD DC T"START"50