image of READY prompt

Wang2200.org

Listing of file='KFAM3603' on disk='vmedia/701-2049C.wvd.zip'

# Sector 555, program filename = 'KFAM3603'
4000 REM KFAM3603,VER.02/24/76
4600 DIM D$(4)64,X$40,X3$17,X4$2,X5$16
   : DIM Y$1,X6$2,X7$2,D9$2,Y1$1
   : PRINT HEX(01)
   : PRINT "REORGANIZE -- GENERATE CODE"
   : D9$=R6$
   : GOSUB '5
   : Y$=" "
   : Y=4400
   : GOSUB '4
   : IF R2$="A"THEN 4790
   : X$="A0$(4)64,I0$(4)64,"
   : GOSUB '1(18)
   : GOSUB '9
4765 IF R2$="C"THEN 5130
   : GOTO 5480
4790 CONVERT R0TO X7$,(##)
   : N1=0
4820 N1=N1+1
   : X$="A0$(00)00,"
   : X4$="A0"
   : GOSUB '51
   : STR(X$,1,2)=X6$
   : STR(X$,5,2)=X7$
   : A=10
   : Y1$=STR(C$,N1,1)
   : IF Y1$=HEX(08)THEN 4970
   : AND (Y1$,7F)
   : X=VAL(Y1$)
   : CONVERT XTO STR(X$,8,2),(##)
   : GOTO 5010
4970 STR(X$,3,4)=STR(X$,4,4)
   : STR(X$,7,1)=","
   : A=7
5010 GOSUB '1(A)
   : X4$="I0"
   : GOSUB '51
   : STR(X$,1,2)=X6$
   : GOSUB '1(A)
   : IF N1<NTHEN 4820
   : GOSUB '9
   : GOTO 5330
5130 GOSUB '10(4480,25)
   : X$=HEX(4930242831293DD238313031293A)
   : GOSUB '1(14)
   : Z=3+R*R0
   : X=INT((Z-1)/64)+1
   : Z=Z-64*(X-1)
   : X$=HEX(D34930242800292C0000293DD24644293A)
   : CONVERT XTO STR(X$,6,1),(#)
   : CONVERT ZTO STR(X$,9,2),(##)
5270 GOSUB '1(17)
   : GOSUB '9
   : GOTO 5480
5330 GOSUB '10(4860,25+6*N)
   : X$="XXXT#1,(R9$,R9$)"
   : STR(X$,1,3)=HEX(97A1BD)
   : GOSUB '1(16)
   : GOSUB '50("A0")
   : X5$="I0$(R1)=A0$(Q):"
   : GOSUB '52(4980)
   : GOSUB '10(5100,25+6*N)
   : X$="XXXT$#3,(R$,R$)"
   : STR(X$,1,3)=HEX(9785BD)
5450 GOSUB '1(15)
   : GOSUB '50("I0")
5480 GOSUB '21
   : LOAD DC T#0,"KFAM3703"4000,9990
5580 DEFFN'50(X4$)
   : N1=0
5610 N1=N1+1
   : X$="A0$(),"
   : GOSUB '51
   : STR(X$,1,2)=X6$
   : IF STR(C$,N1,1)>HEX(08)THEN 5680
   : STR(X$,3,1)=" "
5680 GOSUB '1(6)
   : IF N1<NTHEN 5610
   : GOSUB '9
   : RETURN
5770 DEFFN'51
   : CONVERT N1-1TO X6$,(##)
   : AND (X6$,0F)
   : ADDC(X6$,X4$)
   : RETURN
5880 DEFFN'52(Y)
   : GOSUB '10(Y,25)
   : X4$=HEX(0000)
   : N1=0
5930 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 6030
   : STR(X$,3,1),STR(X$,11,1)=" "
6030 GOSUB '1(15)
   : IF N1<NTHEN 5930
   : GOSUB '9
   : RETURN
6230 DEFFN'1(X1)
   : IF T+X1<252THEN 6350
   : Y=Y+1
   : T=T-1
   : GOSUB '2
   : Y$=STR(D$(B),C,1)
   : STR(D$(B),C,4)=HEX(0D0000FD)
   : GOSUB '3
   : GOSUB '4
6350 STR(D$(B),C)=STR(X$,1,X1)
   : X2=65-C
   : IF X2>=X1THEN 6400
   : D$(B+1)=STR(X$,X2+1)
6400 T=T+X1
   : GOSUB '2
   : RETURN
6440 DEFFN'4
   : D$(1)=HEX(00FF)
   : PACK(####)STR(D$(1),3,2)FROMY
   : T=5
   : IF Y$=HEX(3A)THEN 6520
   : STR(D$(1),5,1)=HEX(93)
   : T=6
6520 GOSUB '2
   : RETURN
6550 DEFFN'2
   : B=INT((T-1)/64)+1
   : C=T-(B-1)*64
   : RETURN
6600 DEFFN'3
   : DATA SAVE BA T$#3,(D9$,D9$)D$()
   : RETURN
6640 DEFFN'5
   : D$(1)=HEX(40FFFFFFFFFFFFFFFFFD)
   : GOSUB '3
   : RETURN
6690 DEFFN'9
   : T=T-1
   : GOSUB '2
   : X$=HEX(0D0000)
   : IF T>240THEN 6760
   : GOSUB '1(3)
   : RETURN
6760 STR(D$(B),C,3)=X$
   : T=T+3
   : GOSUB '2
   : RETURN
6840 DEFFN'10(Y,Y1)
   : IF T+Y1<250THEN 6910
   : STR(D$(B),C,1)=HEX(FD)
   : GOSUB '3
   : STR(D$(1),1,1)=HEX(00)
   : T=2
   : GOSUB '2
6910 X$=HEX(FF)
   : PACK(####)STR(X$,2,2)FROMY
   : GOSUB '1(3)
   : RETURN
6970 DEFFN'21
   : STR(D$(B),C,1)=HEX(FE)
   : STR(D$(1),1,1)=HEX(20)
   : GOSUB '3
   : RETURN