image of READY prompt

Wang2200.org

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