image of READY prompt

Wang2200.org

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

# Sector 350, program filename = 'KFAM0104'
0010 REM KFAM0104,VER.11/08/76
0200 RETURN
0205 COM T0$7,V9,V7$8
0212 COM V0(3),T2(3),T1(3),V0$(3)2,T$(3)8,T6$(3)16,T4$(3)3,T7$(3)30,V3$(3)1,V8
     (3)
   : COM V6,T3$3,T6$1,T7$30,V,T2,V7,Q6,V1
0220 COM V3$2,V2$2,Q3$2,V1$8,V2$(4)2,V8$1,V6$1,Q2$2,V5$(4)1,Q0$4,T2$2,T0,T8$(4
     )1,V4$(4)2
   : COM Q,T1,V0$2,T$8,T2$(8)2,Q2,Q$1,T9,T1$30,T9$2,V0
0226 COM T1$(1)2,T6,T4$3,T0$(4)60,T4,T3$(1)33,T3,T5,V9$2,T
0545 ADDC(V9$,V0$)
   : DATA LOAD DA T#T1,(V9$,V9$)T9$,T0$()
   : RETURN
0645 Q2=99
   : V9$=T2$
   : FOR T3=T0TO 1STEP -1
   : GOSUB 545
   : T2$(T3)=T9$
   : MAT SEARCHT0$()<1,V7>,>STR(T1$,1,T4)TO T1$()STEP T5
   : T=VAL(STR(T1$(1),2))-T5
   : IF T>0THEN 720
   : T=V1
0720 MAT COPY T0$()<T,T5>TO T3$()
   : V9$=STR(T3$(1),T4+1,2)
   : IF Q2<99THEN 785
0735 BIN(STR(T$,T3))=T
   : NEXT T3
   : T7$=T1$
   : V=2
   : IF STR(T1$,1,T4)=STR(T3$(1),1,T4)THEN 770
   : V=3
0770 RETURN
0785 MAT COPY T0$()<V1,1>TO T1$()
   : IF T1$(1)=HEX(FF)THEN 810
   : Q2=Q2+1
   : GOTO 735
0810 Q2=0
   : GOTO 735
0830 T4=VAL(STR(V1$,5))
   : T5=T4+3
   : V6=VAL(STR(V1$,6))
   : V7=T5*V6
   : V1=V7-T5+1
   : RETURN
0870 Q$=" "
   : IF T6<1THEN 914
   : IF T6=T9THEN 922
0876 IF T6>3THEN 914
   : IF V9=0THEN 914
   : IF V0$(T6)>HEX(FF)THEN 914
   : IF T9=0THEN 890
   : GOSUB 944
   : IF V3$(T9)="A"THEN 890
   : GOSUB 1015
0890 T9=T6
   : GOSUB 960
   : IF V3$(T9)="X"THEN 900
   : GOSUB '210(T9)
0900 GOSUB 1045
   : GOSUB 830
   : T9$=HEX(FF)
   : GOTO 930
0914 RETURN CLEAR
0916 Q$="X"
   : RETURN
0922 IF STR(Q0$,V0,1)="X"THEN 200
   : GOSUB '210(T9)
   : GOSUB 1045
0930 INIT(FF)V4$(V0)
   : RETURN
0944 T4$(T9)=T4$
   : T7$(T9)=T7$
   : MAT COPY T2$()TO T6$()<16*(T9-1)+1,16>
   : T$(T9)=T$
   : RETURN
0960 T4$=T4$(T9)
   : T7$=T7$(T9)
   : MAT COPY T6$()<16*(T9-1)+1,16>TO T2$()
   : T$=T$(T9)
   : V0$=V0$(T9)
   : T1=T1(T9)
   : T2=T2(T9)
   : V0=V0(T9)
   : RETURN
0982 IF V3$(T9)="X"THEN 200
0984 GOSUB '211(T9)
   : GOSUB 1015
   : RETURN
1015 DATA SAVE DA T$#T1,(V0$,V9$)Q2$,Q3$,V5$(),V8$,V1$,V2$,V3$,V6$,T2$,T0,T8$(
     ),Q0$,V4$(),V2$()
   : RETURN
1045 DATA LOAD DA T#T1,(V0$,V9$)Q2$,Q3$,V5$(),V8$,V1$,V2$,V3$,V6$,T2$,T0,T8$()
     ,Q0$,V4$(),V2$()
   : RETURN
1070 T6=VAL(T4$)*256+VAL(STR(T4$,2))
   : DBACKSPACE #T2,BEG
   : IF T6=0THEN 200
   : DSKIP #T2,T6S
   : RETURN
1082 Q=VAL(STR(T4$,3))
   : Q$,T8$(V0)=" "
   : IF Q6=0THEN 200
   : IF V3$(T9)="X"THEN 200
   : V4$(V0)=T4$
   : RETURN
1098 MAT SEARCHV4$(),=STR(T4$,1,2)TO T1$()STEP 2
   : IF T1$(1)=HEX(0000)THEN 200
   : Q$="B"
   : T8$(V0)="9"
   : RETURN CLEAR
1108 GOTO 982
1120 DEFFN'232(T6,Q6,T1$)
   : GOSUB 870
   : GOSUB 645
   : T4$=STR(T3$(1),T4+1,3)
   : T8$(V0)="2"
   : IF V<>2THEN 3005
   : IF T4$>HEX(FF)THEN 3005
   : GOSUB 1098
   : GOSUB 1082
   : GOSUB 982
   : GOTO 1070
1175 DEFFN'235(T6,Q6)
   : GOSUB 870
   : INIT(00)T1$
   : Q$="5"
   : GOTO 1265
1215 DEFFN'237(T6,Q6)
   : GOSUB 870
   : T=VAL(STR(T$,1))
   : IF T8$(V0)=" "THEN 1275
   : IF T8$(V0)>HEX(40)THEN 3035
   : T1$=T7$
1265 GOSUB 645
1275 T=T+T5
   : IF T2$(1)=T9$THEN 1305
   : V9$=T2$(1)
   : GOSUB 545
1305 IF T>V1THEN 1365
   : MAT COPY T0$()<T,T5>TO T3$()
   : IF T3$(1)>HEX(FF)THEN 1365
1325 T4$=STR(T3$(1),T4+1,3)
   : IF T4$>HEX(FF)THEN 3000
   : GOSUB 1098
   : T7$=STR(T3$(1),1,T4)
   : BIN(STR(T$,1))=T
   : T2$(1)=T9$
   : GOSUB 1082
   : GOSUB 982
   : GOTO 1070
1365 T3=1
1370 T3=T3+1
   : IF T3>T0THEN 3060
   : V9$=T2$(T3)
   : GOSUB 545
   : T=VAL(STR(T$,T3))
   : T=T+T5
   : IF T>V1THEN 1370
   : MAT COPY T0$()<T,T5>TO T3$()
   : IF T3$(1)>HEX(FF)THEN 1370
1420 BIN(STR(T$,T3))=T
   : IF T3=1THEN 1325
   : V9$=STR(T3$(1),T4+1,2)
   : GOSUB 545
   : MAT COPY T0$()<1,T5>TO T3$()
   : T3=T3-1
   : T=1
   : T2$(T3)=T9$
   : GOTO 1420
1480 DEFFN'236(T6,Q6)
   : GOSUB 870
   : T1$=HEX(FF)
   : GOSUB 645
   : GOTO 1325
1526 DEFFN'238(T6)
   : Q6=0
   : GOSUB 870
   : GOTO 982
2620 DEFFN'230(T6,T7,Q2,Q3,V7$,T6$)
   : IF T6<1THEN 916
   : IF T6>3THEN 916
   : IF V9>0THEN 2840
   : INIT(FF)V0$()
   : INIT(00)T0$
2695 IF STR(T0$,T7+1,1)>HEX(00)THEN 916
   : IF STR(T0$,Q2+1,1)>HEX(00)THEN 916
   : IF Q2=T7THEN 916
   : DATA LOAD DC OPEN T#Q2,V7$
   : STR(V7$,5,1)="K"
   : CONVERT Q3TO STR(V7$,6,1),(#)
   : GOSUB '211(T6)
   : LIMITS T#T7,V7$,T,V,T3
   : V=INT(T/256)
   : BIN(V0$)=V
   : BIN(STR(V0$,2))=T-256*V
2764 T1(T6),T1=T7
   : T2(T6),T2=Q2
   : GOSUB '210(T6)
   : GOSUB 1045
   : T9=T6
   : T=POS(Q0$>41)
   : IF T>0THEN 2826
   : IF T6$="A"THEN 2792
   : IF T6$<>"X"THEN 2832
   : IF Q0$<>" "THEN 2826
2792 V0,V0(T6)=POS(Q0$=20)
   : IF V0=0THEN 2832
   : V3$(T6),STR(Q0$,V0,1)=T6$
   : INIT(FF)V4$(V0)
   : T8$(V0)="O"
   : V8(T6)=.5
   : V0$(T6)=V0$
   : T9=T6
   : GOSUB 830
   : STR(T0$,T1+1,1)=HEX(01)
   : STR(T0$,T2+1,1)=HEX(01)
   : V9=V9+1
   : Q$=" "
   : GOTO 984
2826 Q$="C"
   : GOTO 2898
2832 Q$="X"
   : GOTO 2898
2840 IF V0$(T6)<HEX(FF)THEN 916
   : IF T9=0THEN 2695
   : GOSUB 944
   : IF V3$(T9)="A"THEN 2855
   : GOSUB 1015
2855 T9=0
   : GOTO 2695
2875 DEFFN'239(T6)
   : GOSUB 870
   : STR(T0$,T1+1,1),STR(T0$,T2+1,1)=HEX(00)
   : V9=V9-1
   : INIT(FF)V0$(T9)
   : STR(Q0$,V0,1)=" "
   : T8$(V0)="Z"
2898 GOSUB 984
   : T9=0
   : RETURN
3000 T8$(V0)="N"
3005 Q$="N"
   : GOTO 982
3035 T8$(V0)="X"
   : Q$="X"
   : GOTO 982
3060 IF Q$="5"THEN 3000
   : T8$(V0),Q$="E"
   : GOTO 982
3072 %#