image of READY prompt

Wang2200.org

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

# Sector 455, program filename = 'KFAM117U'
0010 REM  KFAM117U, RELEASE 5-1, (11/07/79) - COPYRIGHT WANG LABS. INC.
0050 DIM T$(3)48,T0$(4)60
   : DIM A$10,P1$9
   : DIM Q2$2,Q3$2,T2$2,T9$2,V1$8,V2$2,V3$2,V6$1,V8$1
0120 %THIS MUST BE LINE 120
0140 S1$="ISS.200SISS.254S"
   : LOAD T<LEN(S1$)/8>S1$10,0BEG 160
0160 IF S$(1)<>" "THEN SELECT #4<S$(1)>
   : IF F9$=" "THEN 380
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
0380 $OPEN #2
   : $OPEN #1
   : IF D2=2THEN 460
   : DATA SAVE DC OPEN T$#2,F,F1$
   : DATA SAVE DC $#2,END
   : LIMITS T#2,F1$,A2,E2,C2,D2
0460 DATA LOAD BA T#2,(E2)R9$()
   : STR(R9$(),4)=HEX(FD4D5558)&STR(F1$,,8)&STR(P$,,16)
   : DATA SAVE BA T$#2,(E2)R9$()
   : IF D1=0THEN DATA SAVE DC OPEN T$#1,K,K1$
   : ELSE DATA LOAD DC OPEN T#1,K1$
   : LIMITS T#1,K1$,A1,E1,C1,D1
   : Q2$=BIN(N-1,2)XOR ALL(FF)
   : Y=E2-A2-1
   : X=INT(Y/N)
   : Y=N*(X-1)
   : Q3$=BIN(Y,2)
   : BIN(V8$)=N2
   : T$(3)=STR(Q3$)&STR(V8$)&STR(T$(3))
   : BIN(STR(V1$,2))=N1
   : STR(V1$,3)=BIN(N4,2)
0670 BIN(STR(V1$,5))=N3
   : BIN(STR(V1$,6))=N7
   : V2$=HEX(0001)
   : Y=E1-A1-2
   : V3$=BIN(Y,2)
   : BIN(V6$)=N
   : T2$=HEX(0001)
   : T0=1
   : INIT(5A)T$(1)
   : INIT(FF)STR(T$(1),17)
   : T8=0
   : $PACK(F=H1$)T$(2)FROMT0,T2$,Q2$,V2$,T8,V6$,V3$,Q3$,V8$
   : STR(T$(2),18)=V1$
   : DATA SAVE DC $#1,0,T$()
   : INIT(FF)T0$()
   : INIT(00)STR(T0$(1),1,N3)
   : T9$=HEX(0001)
0870 DATA SAVE DC $#1,T9$,T0$()
   : DATA SAVE DC $#1,END
   : IF I1$="D"THEN 940
   : R9$()=HEX(A0FD)&T$()
   : DATA SAVE BA T$#2,(E2-1)R9$()
0940 $CLOSE#1
   : $CLOSE#2
   : GOSUB '200("NY"," ",1,1,"DO YOU WANT A HARD COPY PRINT-OUT OF THE FILE DE
     SCRIPTION? (Y/N)",2)
   : IF Q6$="Y"THEN 1170
   : GOTO 1060
1030 PRINT AT(1,0);HEX(07);"PRINTER REQUIRED"
   : GOSUB '254
1060 DEFFN'31
1070 SELECT PRINT 005
   : $CLOSE#4
   : PRINT HEX(03);"LOADING KFAM-7 MENU"
   : COM CLEAR Z9$
1110 LOAD T"KFAM007M"
   : ERRORGOTO 1120
1120 PRINT HEX(010A);"MOUNT ISS DISK AT ADDRESS ";S$
   : GOSUB '254
   : GOTO 1110
1170 GOSUB '44
   : IF P1$="P"THEN 1030
   : GOSUB '94
   : SELECT PRINT <S$(1)>
   : PRINT HEX(0C)
   : IF K3>0THEN PRINT HEX(0E);"WARNING -- KEY FILE TOO SMALL"
   : PRINTUSING 1270,F1$,K1$
   : PRINTUSING 1280,F0$;
   : PRINT TAB(32);
   : PRINTUSING 1280,K0$
1270 % DATA FILE NAME  ########        KEY FILE NAME   ########
1280 % DEVICE ADDRESS      ###
1290 PRINT " RECORD TYPE";TAB(23);STR(V1$,1,1);TAB(33);"KEY FILE NUMBER";TAB(5
     5);STR(K1$,6,1)
   : IF V1$>"C"THEN PRINTUSING 1320,N;
   : ELSE PRINTUSING 1320,N1;
1320 % RECORD LENGTH       ###
1330 PRINT TAB(32);
   : PRINTUSING 1350,N3
1350 % KEY LENGTH           ##
1360 IF V1$>"C"THEN PRINT "  (SECTORS)";
   : ELSE PRINTUSING 1370,N2;
1370 % BLOCKING FACTOR     ###
1380 PRINT TAB(32);
   : PRINTUSING 1400,N4
1400 % KEY POSITION      #####
1410 PRINTUSING 1440,F;
   : PRINT TAB(32);
   : PRINTUSING 1440,K
1440 % NO. OF SECTORS    #####
1442 PRINT " RECOVERY";TAB(14);
   : IF I1$="D"THEN PRINT "DON'T ";
   : PRINT TAB(20);"WRITE";TAB(33);"KEY TYPE";TAB(48);D$
   : GOTO 1070
1490 DEFFN'94
1510 $OPEN 1580,#4
1520 $GIO#4(010A02001212400040004000,A$)
   : IF STR(A$,8,1)=HEX(00)THEN RETURN
   : PRINT AT(1,0,S0);"SELECT PRINTER"
   : GOSUB '254
   : GOTO 1520
1580 PRINT AT(1,0,S0);"PRINTER HOGGED"
   : GOSUB '254
   : GOTO 1510
1640 DEFFN'44
   : P1$="   000005"
   : MAT SEARCHP1$,=S$(1)TO P1$
   : IF STR(P1$,,2)=HEX(0000)THEN P1$=" "
   : ELSE P1$="P"
   : RETURN