Listing of file='WCPD010A' on disk='vmedia/701-2046C.wvd.zip'
# Sector 327, program filename = 'WCPD010A' 0010 REM . WCPD010A, 00-00 (6/28/75), 12002 0100 COM E(20) : SELECT PRINT 005 : GOSUB 320 : P9=P9+1 : GOSUB '100 : GOSUB 320 : FOR I=1TO 20 : E(I)=0 : NEXT I : LOAD DC T#6,"WCPD020A" 0200 DEFFN'15 : COM CLEAR : LOAD DC T#6,"START" 0230 DEFFN'100 : ON O8GOTO 260,280,300 : STOP "SYSTEM ERROR" 0260 SELECT PRINT 005 : RETURN 0280 SELECT PRINT 215 : RETURN 0300 SELECT PRINT 211 : RETURN 0320 PRINT HEX(0A0A); : PRINT HEX(03);"2200 HARDWARE DIAGNOSTIC - CPU" : PRINT "-------------------------------------" : RETURN