image of READY prompt

Wang2200.org

Listing of file='KFAM917U' on disk='vmedia/701-2427C.wvd.zip'

# Sector 841, program filename = 'KFAM917U'
0010 REM  KFAM917U, RELEASE 5-1, (11/07/79) - COPYRIGHT WANG LABS. INC.
0120 %THIS MUST BE LINE 120
0130 COM E4$3,D,D$(4)64,D3,D4,B,P2$2
   : DIM X1$2,X$64
   : LOAD T"ISS.254S"10,0BEG 160
0160 IF F9$=" "THEN 240
   : PRINT AT(1,0,S0);"MOUNT PLATTERS AT THE INDICATED ADDRESSES"
0190 GOSUB '254
   : DATA LOAD BA T#1,(0)R9$()
   : ERRORGOTO 190
0210 DATA LOAD BA T#2,(0)R9$()
   : ERRORGOTO 190
0240 X=E2-1
   : DATA LOAD BA T#2,(X,Y)R9$()
   : MAT COPY R9$()<3,144>TO T$()
   : $UNPACK(F=H1$)T$(2)TO T0,T2$,Q2$,V2$,T8,V6$,V3$,Q3$,V8$
   : V1$=STR(T$(2),18)
   : INIT(5A)T$(1)
   : INIT(FF)STR(T$(1),17)
   : T8=0
   : T0=1
   : T2$,V2$,T9$=HEX(0001)
   : E4$=Q2$
   : STR(E4$,3)=V8$
   : INIT(FF)P2$
   : ADDC(P2$,V6$)
   : XOR (P2$,FF)
   : IF D1>0THEN 580
0430 $GIO#1,(70A04000870B,X$)
   : GOSUB '41(V3$)
   : Z=X+2
   : $OPEN #1
   : DATA LOAD BA T#1,(0)R9$()
   : GOSUB '41(STR(R9$(1),3))
   : Y=X
   : GOSUB '41(STR(R9$(1),5))
   : IF Z>X-YTHEN 970
   : DATA SAVE DC OPEN T$#1,Z,K1$
   : LIMITS T#1,K1$,A1,E1,X
   : $CLOSE#1
0580 DATA LOAD DC OPEN T#1,K1$
   : $PACK(F=H1$)T$(2)FROMT0,T2$,P2$,V2$,T8
   : DATA SAVE DC $#1,0,T$()
   : T4=VAL(STR(V1$,5))
   : T5=T4+3
   : V4$=HEX(A000A003)
   : BIN(STR(V4$,2))=T4
   : V7=T5*INT(240/T5)
   : V1=V7-T5+1
   : INIT(FF)T0$()
   : INIT(00)STR(T0$(1),1,T4)
   : DATA SAVE DC $#1,T9$,T0$()
   : DATA SAVE DC $#1,END
   : V7$(1)=F1$
   : T1=1
   : T2=2
   : V0=4
   : DATA LOAD DC OPEN T#2,F1$
   : V0$=BIN(A1,2)
0810 T8$="O"
   : Q$=" "
   : V8=.5
   : T9=1
   : T6$=BIN(T9)
   : LOAD T"KFAM217U"
0900 DEFFN'41(X1$)
   : IF STR(X$,11,1)<>HEX(D0)THEN AND (STR(X1$,1,1),7F)
   : X=VAL(X1$,2)
   : RETURN
0970 $CLOSE#1
   : Q6$="NO SPACE ON DISK FOR KEY FILE"
   : GOSUB '248(0,0,4)
   : PRINT Q6$
   : E=1
1040 DEFFN'31
   : COM CLEAR E4$
   : LOAD T"KFAM997U"