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