Listing of file='WCPD160A' on disk='vmedia/701-2046C.wvd.zip'
# Sector 134, program filename = 'WCPD160A' 0010 REM . WCPD160A, 00-00 (6/28/75), 12002 0100 COM N,P : IF P=0THEN 370 : DIM Z$20,X$(1,2)26,C(2) : DATA "ABC",150,"DEF",.06E+5 : DATA "12345678901234567890",3,4 : DATA "ABCDEFGHIJKLMNOPQRSTUVWXYZ" : DATA "ABCDEFGHIJKLMNOPQRSTUVWXYZ" : READ A$,A,B$,B : READ Z$,C(1),C(2) 0190 FOR I=1TO 2 : READ X$(1,I) : NEXT I : IF A$="ABC"THEN 240 : GOTO 330 0240 IF B$="DEF"THEN 260 : GOTO 330 0260 IF A+B=6150THEN 280 : GOTO 330 0280 IF Z$="12345678901234567890"THEN 300 : GOTO 330 0300 IF C(1)+C(2)=7THEN 320 : GOTO 330 0320 IF X$(1,1)=X$(1,2)THEN 360 0330 E9$(P9)="NG" : PRINT TAB(40);"ERROR 1" : LOAD DC T#6,"WCPD170A" 0360 PRINT "OK" 0370 LOAD DC T#6,"WCPD170A" 0380 DEFFN'15 : COM CLEAR : LOAD DC T#6,"START"