image of READY prompt

Wang2200.org

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

# Sector 146, program filename = 'KFAM234S'
0010 REM  KFAM234S, RELEASE 5-1, (11/07/79) - COPYRIGHT WANG LABS. INC.
0026 COM @V,@Q,@Q6$64,@Q6,@Q7,@Q8,@Q9,@Q8$20,@Q0$(16),@T5$10,@V$18,@T
   : @V=2
   : @Q=0
   : @T=0
   : @V$=HEX(5001A002A002A0025004A001A002A002A001)
   : @T5$=HEX(A003A01EA001A008A002)
   : @Q8$=HEX(A002A00450015002)
   : STR(@Q8$,9)=STR(@Q8$,7)
0580 IF @T=0THEN @T=S2
   : ELSE GOTO 584
   : RETURN
0584 $BREAK1
   : GOTO 580
0590 @T=0
   : RETURN
0609 ADDC(V9$,V0$)
   : DATA LOAD DA T#T1,(V9$)T9$,T0$()
   : RETURN
0645 T7$=T1$
   : V9$=T2$
   : FOR T3=T0TO 1STEP -1
   : GOSUB 609
   : T2$(T3)=T9$
   : MAT SEARCHSTR(T0$(),,V7),>STR(T7$,,T4)TO V9$STEP T5
   : T=VAL(V9$,2)-T5
   : IF T<1THEN T=V1
   : $UNPACK(F=V4$)T0$()<T>TO T1$,T4$
   : V9$=T4$
   : IF V>6THEN Q2=SGN(255-VAL(STR(T0$(),V1)))*(Q2+1)
   : BIN(STR(T$,T3))=T
   : NEXT T3
   : RETURN
0723 V=4
0726 IF T9<1THEN 810
   : IF T6<>T9THEN 810
0735 ON V0GOTO 744,,744
   : RETURN
0744 $OPEN #T1
   : GOSUB 873
   : IF Q2>0THEN 2890
   : INIT(FF)STR(T$(1),2*S2+15,2)
   : T8$=STR(T$(1),S2)
   : DATA SAVE DA T#T1,(V0$)V,T$()
   : $CLOSE#T1,#T2
   : RETURN
0810 IF V0$(T6)=" "THEN 2908
   : GOSUB 858
   : T9=T6
   : $UNPACK(F=@Q8$)V0$(T9)TO V0$,V4$,V0,T1,T2,T4,T5,V7,V1
   : $UNPACK(F=@T5$)T5$(T9)TO T4$,T7$,T8$,T$,T2$()
   : T9$=HEX(FF)
   : ON V0GOTO 735,846,735
0846 GOSUB 873
   : GOTO 735
0858 IF T9>0THEN $PACK(F=@T5$)T5$(T9)FROMT4$,T7$,T8$,T$,T2$()
   : RETURN
0873 DATA LOAD DA T#T1,(V0$)Q2,T$()
   : $UNPACK(F=@V$)T$(2)TO T0,T2$
   : RETURN
0900 IF ABS(Q-1)=1THEN 909
   : STR(T$(1),2*S2+15,2)=T4$
0909 STR(T$(1),S2,1)=T8$
0915 DATA SAVE DA T$#T1,(V0$)0,T$()
   : RETURN
0927 Q$=" "
   : Q=VAL(STR(T4$,3))
   : T6=VAL(T4$,2)
   : DBACKSPACE #T2,BEG
   : IF T6>0THEN DSKIP #T2,T6S
   : RETURN
0954 ON V0GOTO 960,,960
   : RETURN
0960 MAT SEARCHT$()<17,32>,=STR(T4$,1,2)TO V9$STEP 2
   : IF V9$=HEX(0000)OR VAL(V9$,2)/2=S2THEN RETURN
   : Q$="B"
   : T8$="9"
   : RETURN CLEAR
0970 GOSUB 909
   : $BREAK10
   : RETURN
1431 ON V0GOTO 909,,909
   : RETURN
1443 IF T3=1THEN GOSUB 1524
   : IF T=V1THEN 1461
   : T6=V1-T
   : MAT COPY -T0$()<T,T6>TO -T0$()<T+T5,T6>
1461 $PACK(F=V4$)T0$()<T,T5>FROMT1$,T3$
   : RETURN
1473 $UNPACK(F=STR(@V$,5))T$(2)<4>TO Q2$,V2$,T8,V6$,V3$,Q3$,V8$
   : RETURN
1480 V9$=T9$ADDCV0$
   : DATA SAVE DA T$#T1,(V9$)T9$,T0$()
   : RETURN
1490 V9$=V2$ADDCV0$
   : T0$()=@Q0$()
   : DATA SAVE DA T$#T1,(V9$,V9$)V2$,T0$()
   : @Q0$()=HEX(A0FDFDFD)
   : DATA SAVE BA T$#T1,(V9$)@Q0$()
   : STR(@Q0$(),2,2)=V2$ADDCHEX(03)
   : V9$=V3$ADDCV0$ADDCHEX(02)
   : DATA SAVE BA T$#T1,(V9$)@Q0$()
   : RETURN
1524 IF V=7THEN 1602
   : ADDC(T3$,01)
   : IF STR(T3$,3)<=V8$THEN 1596
   : Q2$=ADDCV6$
   : T3$=STR(Q2$)&HEX(01)
1596 STR(T$(3),3*S2-2,3)=T3$
1602 T4$=T3$
   : RETURN
1626 DEFFN'234(T6,Q,T1$,V)
   : V=7
   : GOSUB 726
   : GOSUB 1473
   : IF STR(T4$,1,2)>Q3$THEN 2974
   : IF STR(T4$,3,1)>V8$THEN 2974
   : T3$=T4$
   : GOTO 1686
1662 DEFFN'233(T6,Q,T1$,V)
   : V=8
   : GOSUB 726
   : GOSUB 1473
   : T4$,T3$=STR(T$(3),3*S2-2)
   : IF STR(T3$,3)<V8$THEN 1686
   : IF Q2$<Q3$THEN 1688
   : IF VAL(Q2$)<255THEN 2923
   : GOTO 1688
1686 GOSUB 954
1688 IF V0<3THEN 2974
   : IF VAL(T1$)=255THEN 2974
   : Q2=1
   : GOSUB 645
   : IF T1$=T7$THEN 2935
   : T1$=T7$
   : T=T+T5
   : IF Q2=0THEN 1905
   : IF Q2>8THEN 2923
   : V9$=V2$ADDCBIN(Q2)
   : IF V3$<V9$THEN 2923
   : GOSUB 580
1761 ADDC(V2$,01)
   : INIT(FF)@Q0$()
   : Q2,T6=INT(V8*V7/T5+.6)*T5
   : IF T<V7-Q2+T5THEN 1791
   : Q2=Q2-T5
1791 Q3=V7-Q2+1
   : STR(@Q0$(),,Q2)=STR(T0$(),Q3)
   : STR(T0$(),Q3)=ALL(FF)
   : IF Q2=T6THEN 1845
   : T=T-(V7-Q2)
   : IF T=Q2+1THEN 1830
   : MAT COPY -@Q0$()<T,Q2+1-T>TO -@Q0$()<T+T5,Q2+1-T>
1830 IF T3=1THEN GOSUB 1524
   : $PACK(F=V4$)@Q0$()<T,T5>FROMT1$,T3$
   : GOTO 1851
1845 GOSUB 1443
1851 T1$=STR(@Q0$(),,T4)
   : T3$=V2$
   : GOSUB 1480
   : GOSUB 1490
   : T3=T3+1
   : IF T3>T0THEN 1944
   : V9$=T2$(T3)
   : GOSUB 609
   : T=VAL(STR(T$,T3))+T5
   : IF STR(T0$(),V1)<HEX(FF)THEN 1761
   : GOSUB 590
1905 GOSUB 1443
   : GOSUB 1480
1912 T8=T8+1
   : $PACK(F=@V$)T$(2)FROMT0,T2$,Q2$,V2$,T8
   : T8$,V7$="3"
   : IF V0=3THEN 1928
   : GOSUB 915
   : GOTO 927
1928 $TRAN(STR(T$(1),1,16),V7$)R
   : GOSUB 900
   : GOTO 927
1944 ADDC(V2$,01)
   : @Q0$()=ALL(FF)
   : STR(@Q0$(),,T5)=ALL(00)
   : STR(@Q0$(),T4+1,2)=T2$
   : $PACK(F=V4$)STR(@Q0$(),T5+1,T5)FROMT1$,T3$
   : GOSUB 1490
   : T0=T3
   : T2$=V2$
   : GOSUB 590
   : GOTO 1912
2890 $CLOSE#T1,#T2
2894 $BREAK2
   : GOSUB 873
   : IF Q2>0THEN 2894
   : GOTO 735
2908 RETURN CLEAR
2911 Q$="X"
   : RETURN
2923 T8$,Q$="S"
   : GOTO 1431
2935 T8$,Q$="D"
   : GOTO 1431
2947 T8$="2"
   : GOTO 2956
2953 T8$="N"
2956 Q$="N"
   : GOTO 1431
2974 Q$="X"
   : T8$="X"
   : GOTO 1431
2989 IF V=4THEN 2953
   : T8$,Q$="E"
   : GOTO 1431