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"