image of READY prompt

Wang2200.org

Listing of file='KFAM3104' on disk='vmedia/701-2086B.wvd.zip'

# Sector 595, program filename = 'KFAM3104'
4000 REM KFAM3104,VER.09/26/75
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(030A0A0A0A)
   : PRINT "GENERATE CODE (KFAM3104)"
   : D9$=R6$
   : GOSUB '5
   : Y$=" "
   : Y=4400
   : GOSUB '4
   : Z=4
   : IF R2$<>"A"THEN 4790
   : Z=R0
4790 CONVERT ZTO X7$,(##)
   : N1=0
4805 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 4880
   : AND (Y1$,7F)
   : X=VAL(Y1$)
   : CONVERT XTO STR(X$,8,2),(##)
   : GOTO 4900
4880 STR(X$,3,4)=STR(X$,4,4)
   : STR(X$,7,1)=","
   : A=7
4900 GOSUB '1(A)
   : IF R2$="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 R2$<>"C"THEN 5200
   : GOSUB '10(4480,22)
   : X$=HEX(4930242831293DD238313031293A)
   : GOSUB '1(14)
   : Z=3+R*R0
   : X=INT((Z-1)/64)+1
   : Z=Z-64*(X-1)
   : X$=HEX(D34930242800292C0000293DD24644293A)
5070 CONVERT XTO STR(X$,6,1),(#)
   : CONVERT ZTO STR(X$,9,2),(##)
   : GOSUB '1(17)
   : GOSUB '9
5200 X3$="XXXT #2,(R9$,R9$)"
   : IF R2$>"C"THEN 5380
   : GOSUB '50(4680," ","E0")
   : X5$="I0$(R1)=E0$(R2):"
   : GOSUB '52(4730)
   : X5$="E0$(R2)=A0$(R1):"
   : 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=R7
   : X4$="A0"
   : GOSUB '51
   : IF R2$="A"THEN 5660
   : IF R2$<>"M"THEN 5720
   : GOSUB '10(6580,28)
   : X$=HEX(A88700002428293C53382C52353EB254332428293A)
   : STR(X$,3,2)=X6$
   : GOSUB '1(21)
   : GOTO 5700
5660 GOSUB '10(6670,26)
   : X$=HEX(4B243DD3413024285231292C52332C5235293A)
   : STR(X$,5,2)=X6$
   : GOSUB '1(19)
5700 GOSUB '9
5720 GOSUB '21
   : LOAD DC T#0,"KFAM3204"4000,9990
5890 DEFFN'50(Y,Y1$,X4$)
   : Y1=30
   : IF R2$<>"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 R2$="A"THEN 6020
   : STR(X$,3,1)=HEX(BE)
6020 A=1
   : IF R2$<>"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 R2$="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
   : GOSUB '2
   : Y$=STR(D$(B),C,1)
   : STR(D$(B),C,4)=HEX(0D0000FD)
   : GOSUB '3
   : GOSUB '4
7260 STR(D$(B),C)=STR(X$,1,X1)
   : X2=65-C
   : IF X2>=X1THEN 7310
   : D$(B+1)=STR(X$,X2+1)
7310 T=T+X1
   : GOSUB '2
   : RETURN
7350 DEFFN'4
   : D$(1)=HEX(00FF)
   : PACK(####)STR(D$(1),3,2)FROMY
   : T=5
   : IF Y$=HEX(3A)THEN 7430
   : STR(D$(1),5,1)=HEX(93)
   : T=6
7430 GOSUB '2
   : RETURN
7460 DEFFN'2
   : B=INT((T-1)/64)+1
   : C=T-(B-1)*64
   : RETURN
7510 DEFFN'3
   : DATA SAVE BA T$#4,(D9$,D9$)D$()
   : RETURN
7550 DEFFN'5
   : D$(1)=HEX(40FFFFFFFFFFFFFFFFFD)
   : GOSUB '3
   : RETURN
7670 DEFFN'9
   : T=T-1
   : GOSUB '2
   : X$=HEX(0D0000)
   : IF T>240THEN 7740
   : GOSUB '1(3)
   : RETURN
7740 STR(D$(B),C,3)=X$
   : T=T+3
   : GOSUB '2
   : RETURN
7820 DEFFN'10(Y,Y1)
   : IF T+Y1<250THEN 7890
   : STR(D$(B),C,1)=HEX(FD)
   : GOSUB '3
   : STR(D$(1),1,1)=HEX(00)
   : T=2
   : GOSUB '2
7890 X$=HEX(FF)
   : PACK(####)STR(X$,2,2)FROMY
   : GOSUB '1(3)
   : RETURN
9270 DEFFN'21
   : STR(D$(B),C,1)=HEX(FE)
   : STR(D$(1),1,1)=HEX(20)
   : GOSUB '3
   : RETURN