image of READY prompt

Wang2200.org

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

# Sector 604, program filename = 'KFAM3607'
0010 REM  KFAM3607, RELEASE 5-1, (11/07/79) - COPYRIGHT WANG LABS. INC.
0190 DIM D$(4)64,X$40,X3$17,X4$2,X5$16
   : DIM Y$1,X6$2,X7$2,D9$2,Y1$1
   : PRINT AT(0,0);"REORGANIZE -- GENERATE CODE   ( STATION ";S2;")"
   : D9$=B6$
   : GOSUB '5
   : Y$=" "
   : Y=4400
   : GOSUB '4
   : IF B2$="A"THEN 380
   : X$="A0$(4)64,I0$(4)64,"
   : GOSUB '1(18)
   : GOSUB '9
   : IF B2$="C"THEN 720
   : GOTO 1050
0380 CONVERT B0TO X7$,(##)
   : N1=0
0410 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 560
   : AND (Y1$,7F)
   : X=VAL(Y1$)
   : CONVERT XTO STR(X$,8,3),(###)
   : GOTO 600
0560 STR(X$,3,4)=STR(X$,4,4)
   : STR(X$,7,1)=","
   : A=7
0600 GOSUB '1(A)
   : X4$="I0"
   : GOSUB '51
   : STR(X$,1,2)=X6$
   : GOSUB '1(A)
   : IF N1<NTHEN 410
   : GOSUB '9
   : GOTO 900
0720 GOSUB '10(4480,25)
   : X$=HEX(4930242831293DD238313031293A)
   : GOSUB '1(14)
   : Z=3+B*B0
   : 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),(##)
   : GOSUB '1(17)
   : GOSUB '9
   : GOTO 1050
0900 GOSUB '10(4860,25+6*N)
   : X$="XXXT#1,(B9$,B9$)"
   : STR(X$,1,3)=HEX(97A1BD)
   : GOSUB '1(16)
   : GOSUB '50("A0")
   : X5$="I0$(B1)=A0$(Q):"
   : GOSUB '52(4980)
   : GOSUB '10(5100,25+6*N)
   : X$="XXXT$#3,(B$,B$)"
   : STR(X$,1,3)=HEX(9785BD)
   : GOSUB '1(15)
   : GOSUB '50("I0")
1050 GOSUB '21
   : LOAD DC T#0,"KFAM3707"
1150 DEFFN'50(X4$)
   : N1=0
1180 N1=N1+1
   : X$="A0$(),"
   : GOSUB '51
   : STR(X$,1,2)=X6$
   : IF STR(C$,N1,1)>HEX(08)THEN 1250
   : STR(X$,3,1)=" "
1250 GOSUB '1(6)
   : IF N1<NTHEN 1180
   : GOSUB '9
   : RETURN
1340 DEFFN'51
   : CONVERT N1-1TO X6$,(##)
   : AND (X6$,0F)
   : ADDC(X6$,X4$)
   : RETURN
1450 DEFFN'52(Y)
   : GOSUB '10(Y,25)
   : X4$=HEX(0000)
   : N1=0
1500 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 1600
   : STR(X$,3,1),STR(X$,11,1)=" "
1600 GOSUB '1(15)
   : IF N1<NTHEN 1500
   : GOSUB '9
   : RETURN
1800 DEFFN'1(X1)
   : IF T+X1<252THEN 1920
   : Y=Y+1
   : T=T-1
   : Y$=STR(D$(),T)
   : STR(D$(),T,4)=HEX(0D0000FD)
   : GOSUB '3
   : GOSUB '4
1920 STR(D$(),T)=STR(X$,,X1)
   : T=T+X1
   : RETURN
2010 DEFFN'4
   : D$(1)=HEX(00FF)
   : PACK(####)STR(D$(1),3,2)FROMY
   : T=5
   : IF Y$=HEX(3A)THEN RETURN
   : STR(D$(1),5,1)=HEX(93)
   : T=6
   : RETURN
2170 DEFFN'3
   : DATA SAVE BA T$#3,(D9$,D9$)D$()
   : RETURN
2210 DEFFN'5
   : D$(1)=HEX(40FFFFFFFFFFFFFFFFFD)
   : GOSUB '3
   : RETURN
2260 DEFFN'9
   : T=T-1
   : STR(D$(),T,3)=HEX(0D0000)
   : T=T+3
   : RETURN
2410 DEFFN'10(Y,Y1)
   : IF T+Y1<250THEN 2480
   : STR(D$(),T,1)=HEX(FD)
   : GOSUB '3
   : STR(D$(),,1)=HEX(00)
   : T=2
2480 X$=HEX(FF)
   : PACK(####)STR(X$,2,2)FROMY
   : GOSUB '1(3)
   : RETURN
2540 DEFFN'21
   : STR(D$(),T,1)=HEX(FE)
   : STR(D$(),,1)=HEX(20)
   : GOSUB '3
   : RETURN