Listing of file='WCPD120A' on disk='vmedia/701-2046C.wvd.zip'
# Sector 539, program filename = 'WCPD120A' 0010 REM . WCPD120A, 00-00 (6/28/75), 12002 0100 COM N : P=1 : IF P=0THEN 400 : DIM C$64,D$(2)64,E$(1,2)64 : DIM C1$64,D1$(2)64,E1$(1,2)64 : C$="1234567890123456789012345678901234567890123456789012345678901234" : C1$=C$ 0170 IF C1$="1234567890123456789012345678901234567890123456789012345678901234" THEN 200 : PRINT TAB(40);"ERROR 1" : GOTO 400 0200 D$(1)="ABCDEFGHIJKLMNOPQRSTUVWXYZ%'$#:HGFEDCBAIJKLMNOPXWVUTSRQYZ%'$#:XPH" : D$(2)="/()*<>-^;+=,)>;,(<^=/*-+" : D1$(1)=D$(1) : D1$(2)=D$(2) : FOR I=1TO 2 : IF D$(I)=D1$(I)THEN 280 : PRINT TAB(40);"ERROR 2" 0270 GOTO 400 0280 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 370 0350 PRINT TAB(40);"ERROR 3" : GOTO 400 0370 NEXT I : PRINT "OK" : LOAD DC T#6,"WCPD130A" 0400 E9$(P9)="NG" : LOAD DC T#6,"WCPD130A" 0420 DEFFN'15 : COM CLEAR : LOAD DC T#6,"START"