image of READY prompt

Wang2200.org

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

# Sector 693, program filename = 'KFAM517U'
0010 REM  KFAM517U, RELEASE 5-1, (11/07/79) - COPYRIGHT WANG LABS. INC.
0120 %THIS MUST BE LINE 120
0130 DIM T8$(4)1,V5$(4)1,V4$(4)2,V2$(4)2,A0$4,V5$1
   : LOAD T"ISS.254S"10,0BEG 150
0150 IF F9$=" "THEN 220
0170 PRINT AT(1,0,S0);"MOUNT PLATTERS AT THE INDICATED ADDRESSES"
   : GOSUB '254
   : DATA LOAD BA T#1,(0)R9$()
   : ERRORGOTO 170
0200 DATA LOAD BA T#2,(0)R9$()
   : ERRORGOTO 170
0220 IF F6=4THEN 300
   : DATA LOAD DA T#1,(A1,X)Q2$,Q3$,V5$,V8$,V0$,V1$,V2$,V3$,V6$,T2$,T0
   : $PACK(F=STR(H1$,15))T$(3)FROMQ2$,V5$
   : C=2
   : GOTO 470
0300 $OPEN #1
   : DATA LOAD DA T#1,(A1,X)Q2$,Q3$,V5$(),V8$,V1$,V2$,V3$,V6$,T2$,T0,T8$(),A0$
     ,V4$(),V2$()
   : IF A0$=" "THEN 380
   : PRINT "KFAM-4 FILE BUSY"
   : E=1
   : $CLOSE#1
   : GOTO 1140
0380 A0$="X"
   : DATA SAVE DA T$#1,(A1,X)Q2$,Q3$,V5$(),V8$,V1$,V2$,V3$,V6$,T2$,T0,T8$(),A0
     $,V4$(),V2$()
   : $CLOSE#1
   : FOR X=1TO 4
   : STR(T$(3),3*X-2,3)=STR(V2$(X))&V5$(X)
   : NEXT X
   : C=5
0470 INIT(5A)T$(1)
   : INIT(FF)STR(T$(1),17)
   : FOR X=CTO 16
   : STR(T$(3),3*X-2,3)=STR(Q3$)&V8$
   : NEXT X
   : STR(T$(2),18)=V1$
   : V0$=BIN(A1,2)
   : T4=VAL(STR(T$(2),22))
   : T5=T4+3
   : V4$=HEX(A000A003)
   : BIN(STR(V4$,2))=T4
   : V7=T5*INT(240/T5)
   : V1=V7-T5+1
   : V9$=T2$
   : FOR T3=T0TO 1STEP -1
   : GOSUB 1010
   : T2$(T3)=T9$
   : V9$=STR(T0$(1),T4+1)
   : NEXT T3
   : INIT(01)T$
   : T8=-1
0740 T8=T8+INT((POS(-T0$()<FF)-1)/T5)+1
0760 T3=T3+1
   : IF T3>T0THEN 1060
   : V9$=T2$(T3)
   : GOSUB 1010
   : T=VAL(STR(T$,T3))
   : T=T+T5
   : IF T>V1THEN 760
   : $UNPACK(F=V4$)T0$()<T>TO T1$,T4$
   : IF T1$>HEX(FF)THEN 760
0870 BIN(STR(T$,T3))=T
   : IF T3=1THEN 740
   : V9$=T4$
   : GOSUB 1010
   : $UNPACK(F=V4$)T0$()TO T1$,T4$
   : T3=T3-1
   : T=1
   : T2$(T3)=T9$
   : GOTO 870
1010 ADDC(V9$,V0$)
   : DATA LOAD DA T#1,(V9$)T9$,T0$()
   : RETURN
1060 $PACK(F=H1$)T$(2)FROMT0,T2$,Q2$,V2$,T8,V6$,V3$,Q3$,V8$
   : DATA LOAD DC OPEN T#1,K1$
   : DATA SAVE DC $#1,0,T$()
   : X=VAL(V2$,2)
   : DSKIP #1,XS
   : DATA SAVE DC $#1,END
1140 LOAD T"KFAM997U"
1160 DEFFN'31
   : GOTO 1140