image of READY prompt

Wang2200.org

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

# Sector 546, program filename = 'KFAM327U'
4000 REM KFAM327U, RELEASE 5-1, (10/15/79) - COPYRIGHT WANG LABS. INC.
4600 DIM X$40,X3$17,X4$2,X5$16
   : DIM Y$1,X6$2,X7$2,D9$2,Y1$1
   : IF F9$=" "THEN 4700
4630 PRINT AT(1,0,3*S0);"MOUNT PLATTERS AT THE INDICATED ADDRESSES"
   : INPUT "KEY RETURN (EXEC) TO RESUME",Q6$
   : PRINT AT(1,0,3*S0)
   : DATA LOAD BA T#1,(0)R9$()
   : ERRORGOTO 4630
4680 DATA LOAD BA T#2,(0)R9$()
   : ERRORGOTO 4630
4700 PRINT HEX(03);AT(4,0);"GENERATE CODE (KFAM327U)   (STATION # =";S2;")"
   : D9$=F6$
   : GOSUB '5
   : Y$=" "
   : Y=4400
   : GOSUB '4
   : Z=4
   : IF B2$<>"A"THEN 4790
   : Z=B0
4790 CONVERT ZTO X7$,(##)
   : N1=0
4805 N1=N1+1
   : X$="A0$(00)000,"
   : X4$="A0"
   : GOSUB '51
   : STR(X$,1,2)=X6$
   : STR(X$,5,2)=X7$
   : A=11
   : Y1$=STR(C$,N1,1)
   : IF Y1$=HEX(08)THEN 4880
   : AND (Y1$,7F)
   : X=VAL(Y1$)
   : CONVERT XTO STR(X$,8,3),(###)
   : GOTO 4900
4880 STR(X$,3,4)=STR(X$,4,4)
   : STR(X$,7,1)=","
   : A=7
4900 GOSUB '1(A)
   : IF B2$="A"THEN 4925
   : IF N1>1THEN 4980
4925 X4$="E0"
   : GOSUB '51
   : STR(X$,1,2)=X6$
   : GOSUB '1(A)
   : X4$="I0"
   : GOSUB '51
   : STR(X$,1,2)=X6$
   : GOSUB '1(A)
4980 IF N1<NTHEN 4805
   : GOSUB '9
   : IF B2$<>"C"THEN 5200
   : GOSUB '10(4480,22)
   : X$=HEX(4930242831293DD238313031293A)
   : GOSUB '1(14)
   : Z=3+B*B0
   : X$=HEX(D349302428292C000000293DD24644293A)
   : CONVERT ZTO STR(X$,8,3),(###)
   : GOSUB '1(17)
   : GOSUB '9
5200 X3$="XXXT #2,(B9$,B9$)"
   : IF B2$>"C"THEN 5380
   : GOSUB '50(4680," ","E0")
   : X5$="I0$(B1)=E0$(B2):"
   : GOSUB '52(4730)
   : X5$="E0$(B2)=A0$(B1):"
   : GOSUB '52(4780)
   : GOSUB '50(4840,"$","E0")
   : GOTO 5410
5380 GOSUB '50(5560,"$","A0")
   : GOTO 5440
5410 GOSUB '50(5640,"$","I0")
5440 GOSUB '50(5720," ","A0")
   : N1=B7
   : X4$="A0"
   : GOSUB '51
   : IF B2$="A"THEN 5660
   : IF B2$<>"M"THEN 5720
   : GOSUB '10(6580,24)
   : X$="K$"&HEX(3DD3)&X6$&"$(),P8,B5):"
   : GOSUB '1(17)
   : GOTO 5700
5660 GOSUB '10(6670,26)
   : X$=HEX(4B243DD3413024284231292C42332C4235293A)
   : STR(X$,5,2)=X6$
   : GOSUB '1(19)
5700 GOSUB '9
5720 GOSUB '21
   : LOAD T"KFAM337U"4000,8599
5890 DEFFN'50(Y,Y1$,X4$)
   : Y1=30
   : IF B2$<>"A"THEN 5900
   : Y1=25+6*N
5900 GOSUB '10(Y,Y1)
   : X$=X3$
   : IF Y1$="$"THEN 5980
   : STR(X$,1,3)=HEX(97A1BD)
   : GOTO 6000
5980 STR(X$,1,5)=HEX(9785BD5424)
6000 IF B2$="A"THEN 6020
   : STR(X$,3,1)=HEX(BE)
6020 A=1
   : IF B2$<>"M"THEN 6070
   : A=18
   : GOTO 6090
6070 GOSUB '1(17)
6090 N1=0
6100 N1=N1+1
   : STR(X$,A,6)="A0$(),"
   : GOSUB '51
   : STR(X$,A,2)=X6$
   : IF STR(C$,N1,1)>HEX(08)THEN 6140
   : STR(X$,A+2,1)=" "
6140 IF A=1THEN 6160
   : STR(X$,23,1)=HEX(3A)
6160 GOSUB '1(5+A)
   : IF N1<NTHEN 6100
   : GOSUB '9
   : RETURN
6250 DEFFN'51
   : CONVERT N1-1TO X6$,(##)
   : AND (X6$,0F)
   : ADDC(X6$,X4$)
   : RETURN
6340 DEFFN'52(Y)
   : GOSUB '10(Y,25)
   : X4$=HEX(0000)
   : IF B2$="A"THEN 6440
   : X$=HEX(9A2736353A)
   : GOSUB '1(5)
   : GOTO 6580
6440 N1=0
6450 N1=N1+1
   : X$=X5$
   : GOSUB '51
   : ADDC(STR(X$,1,2),X6$)
   : ADDC(STR(X$,9,2),X6$)
   : IF STR(C$,N1,1)>HEX(08)THEN 6550
   : STR(X$,3,1),STR(X$,11,1)=" "
6550 GOSUB '1(16)
   : IF N1<NTHEN 6450
6580 GOSUB '9
   : RETURN
7140 DEFFN'1(X1)
   : IF T+X1<252THEN 7260
   : Y=Y+1
   : T=T-1
   : Y$=STR(R9$(),T)
   : STR(R9$(),T)=HEX(0D0000FD)
   : GOSUB '3
   : GOSUB '4
7260 STR(R9$(),T)=STR(X$,1,X1)
   : T=T+X1
   : RETURN
7350 DEFFN'4
   : R9$(1)=HEX(00FF)
   : PACK(####)STR(R9$(1),3,2)FROMY
   : T=5
   : IF Y$=HEX(3A)THEN RETURN
   : STR(R9$(1),5,1)=HEX(93)
   : T=6
   : RETURN
7510 DEFFN'3
   : DATA SAVE BA T$#0,(D9$,D9$)R9$()
   : RETURN
7550 DEFFN'5
   : R9$(1)=HEX(40FFFFFFFFFFFFFFFFFD)
   : GOSUB '3
   : RETURN
7670 DEFFN'9
   : T=T-1
   : STR(R9$(),T,3)=HEX(0D0000)
   : T=T+3
   : RETURN
7820 DEFFN'10(Y,Y1)
   : IF T+Y1<250THEN 7890
   : STR(R9$(),T,1)=HEX(FD)
   : GOSUB '3
   : STR(R9$(),,1)=HEX(00)
   : T=2
7890 X$=HEX(FF)
   : PACK(####)STR(X$,2,2)FROMY
   : GOSUB '1(3)
   : RETURN
7950 DEFFN'21
   : STR(R9$(),T,1)=HEX(FE)
   : STR(R9$(),,1)=HEX(20)
   : GOSUB '3
   : RETURN