Listing of file='KFAM227U' on disk='vmedia/701-2427C.wvd.zip'
# Sector 507, program filename = 'KFAM227U' 0010 REM KFAM227U, RELEASE 5-1, (11/07/79) - COPYRIGHT WANG LABS. INC. 0120 %THIS MUST BE LINE 120 0122 DIM K$30 : LOAD T"ISS.254S"10,0BEG 150 0150 SELECT #4<S$(1)> : IF F9$=" "THEN 230 0180 PRINT AT(1,0,S0);"MOUNT PLATTERS AT THE INDICATED ADDRESSES" : GOSUB '254 : DATA LOAD BA T#1,(0)R9$() : ERRORGOTO 180 0210 DATA LOAD BA T#2,(0)R9$() : ERRORGOTO 180 0220 PRINT AT(7,0,4*S0) 0230 IF S$(1)=" "THEN 310 : GOSUB '94 : PRINT AT(7,0,2*S0);"PRINTING ERROR REPORT ..." : SELECT PRINT <S$(1)> : PRINT HEX(0C) 0310 D3=A3 : GOSUB 760 : Z=0 0350 IF D5<D4THEN 370 : GOSUB 760 0370 X=VAL(STR(D$(),D5)) : Q6$=STR(D$(),D5+1,X-1) : ON VAL(Q6$)GOTO 500 : K$=STR(Q6$,5,30) 0402 X=POS(K$<20) : IF X=0THEN 410 : STR(K$,X,1)="-" : GOTO 402 0410 X=POS(K$>7A) : IF X=0THEN 425 : STR(K$,X,1)="-" : GOTO 410 0425 PRINT "DUPLICATE KEY IGNORED" : PRINTUSING 470,K$ : PRINTUSING 480,VAL(STR(Q6$,2),2),VAL(STR(Q6$,4)) : PRINT "HEX POINTER (T4$) = "; : HEXPRINT STR(Q6$,2,3) : GOTO 530 0470 %KEY ############################## 0480 %SECTOR ##### RECORD NUMBER ### 0500 PRINTUSING 510,VAL(STR(Q6$,2),2),B 0510 %UNREADABLE SECTOR #####, ### RECORDS LOST 0530 IF S$(1)=" "THEN 720 : PRINT HEX(0A0A) 0550 D5=D5+X : Z=Z+1 : IF Z<DTHEN 350 0590 IF S$(1)=" "THEN 640 : PRINT HEX(0C) : $CLOSE#4 : SELECT PRINT 005(S0) : GOTO 660 0640 PRINT AT(7,0,4*S0) 0660 COM CLEAR E4$ : LOAD T"KFAM997U" 0690 DEFFN'31 : GOTO 590 0720 GOSUB '254 : PRINT AT(7,0,4*S0) : GOTO 550 0760 DATA LOAD BA T#0,(D3,D3)D$() : D4=VAL(D$()) : D5=2 : RETURN 0830 DEFFN'94 0840 $OPEN 910,#4 0850 $GIO#4(010102001212400040004000,A$) : IF STR(A$,8,1)=HEX(00)THEN RETURN : PRINT AT(1,0,S0);"SELECT PRINTER" : GOSUB '254 : GOTO 850 0910 PRINT AT(1,0,S0);"PRINTER HOGGED" : GOSUB '254 : GOTO 840