image of READY prompt

Wang2200.org

Listing of file='IDS2SUB4' on disk='vmedia/701-2715B.wvd.zip'

# Sector 815, program filename = 'IDS2SUB4'
0764 X=0
   : GOSUB 732
   : STR(E3$(),C-1,E)=HEX(FF)&F$()
0782 DEFFN'42(F5$,J)
   : GOSUB 521
   : V,K=FN2(10)
   : GOSUB 489
   : O=20
   : M=POS(STR(E1$(V),53)>R8$)
   : ON MGOTO 442
   : IF J<1OR M<>2THEN 797
   : F$()=" "
   : IF F1$(V)=" "THEN 795
   : GOSUB '59(V,J,F1$(V),0)
   : P=C
   : GOSUB 556
0795 X=1
   : GOSUB 952
0797 IF J>0THEN F$()=STR(E$(),J,FN2(13))
   : GOSUB 768
   : V=K
   : IF MOD(T,4)>1THEN F5$,F3$=STR(F1$(K),FNP(0))
   : J=0
   : IF F1$(K)<>" "THEN J=1
   : O=21
   : V=K
   : IF F$()<>" "THEN 810
   : IF J=0THEN 442
   : J=3
0810 GOSUB 489
   : IF T=0THEN 835
   : GOSUB 596
   : IF V=KAND J=1AND STR(E4$(),,FN1(24))=STR(F1$(V),,FN1(24))THEN J=2
   : STR(E4$(),FNP(0))=F5$
   : IF T>1AND T<>4THEN 830
   : GOSUB 529
   : STR(E4$(),FNP(0))=HEX(FF)&F$()
   : IF J>1THEN GOSUB 636
   : X=2
   : IF J<3THEN GOSUB 635
   : IF Q=0THEN 693
   : ON JGOSUB 636
   : GOTO 848
0830 IF J>0AND E4$()<>F1$(V)OR J=3THEN GOSUB 636
   : X=SGN(POS(HEX(0205)=STR(E1$(V),12)))+1
   : IF J<3AND E4$()<>F1$(V)OR J=0THEN GOSUB 635
   : IF Q=0THEN 853
   : IF V=KTHEN F5$=F3$
   : ELSE F3$=F5$
0835 V=V+1
   : IF V<=MTHEN 810
   : V=K
   : GOSUB 489
   : GOSUB 529
   : GOSUB 764
   : V=K
   : IF MOD(J,2)=0THEN 848
   : F$()=" "
   : GOSUB 529
   : F3$=STR(F1$(V),FNP(0))
   : IF F3$<>F5$THEN GOSUB 764
0848 FOR V=KTO M
   : F1$(V)=" "
   : NEXT V
   : GOTO 693
0853 M=V
   : FOR V=MTO KSTEP -1
   : GOSUB 489
   : IF T=0THEN 862
   : GOSUB 596
   : STR(E4$(),FNP(0))=F5$
   : X=1
   : IF J>0AND E4$()<>F1$(V)THEN GOSUB 637
   : X=3
   : IF V<MAND E4$()<>F1$(V)THEN GOSUB 635
0862 NEXT V
   : H=0
   : GOTO 693