image of READY prompt

Wang2200.org

Listing of file='ddu.005' on disk='vmedia/701-2720C.wvd.zip'

# Sector 721, program filename = 'ddu.005'
1040 COM J9$1,K8$(1)100,C0$3
1045 COM S0$(1)1,T1$(80)1
   : LOAD T"DDA.DAT"0,0BEG 1055
1055 LOAD T"SE.SUBS"3800,4000BEG 1065
1065 C9$(1)="ddu.005"
   : PRINT HEX(03);
   : GOSUB '128("Definition File Utilities - Convert IDEAS-2 File",1,99,20)
   : PRINT AT(1,0);BOX(0,80);AT(20,0);BOX(0,80);
   : IF STR(K9$,1,6)=" "THEN 1405
   : IF VAL(STR(K9$,7,1))<1OR VAL(STR(K9$,8,1))<8THEN 1405
   : IF STR(K9$,7,2)<>" "THEN 1105
   : C3$="@MENU   "
   : GOTO 1165
1105 IF STR(K9$,VAL(STR(K9$,7,1)),8)<>" "THEN 1115
   : C3$="@MENU   "
   : GOTO 1120
1115 C3$=STR(K9$,VAL(STR(K9$,7,1)),8)
   : GOTO 1120
1120 C8=VAL(STR(K9$,7,1))
   : C9=VAL(STR(K9$,8,1))
   : MAT COPY -K9$<C8+8,C9-8>TO -K9$<C8,C9-8>
   : STR(K9$,C8+C9-8,8)="@MENU   "
1165 PRINT AT(12,0,160);
   : GOSUB '128("   EXEC/RUN - Continue",22,51,0)
   : GOSUB '128("CANCEL/EDIT - Terminate",23,51,0)
1175 GOSUB '100(HEX(F218010150)," ")
   : IF R1=0THEN 1535
   : IF R1=1THEN 1200
   : GOSUB '128("Invalid key; Ignored",99,0,20)
   : GOTO 1175
1200 IF POS("3BD"=STR(C1$,1))*POS("123567"=STR(C1$,2))*POS("012345"=STR(C1$,3)
     )=0THEN 1430
   : SELECT #2<C1$>
   : C0$(2)=C0$(5)
   : OR (C0$(2),20)
   : LIMITS T#2,C0$(2),C0(1),C0(2),C0(3),C0(4)
   : IF C0(4)<>2THEN 1445
   : DATA LOAD DA T#2,(C0(1))C4$()
   : ERRORGOTO 1445
1240 IF STR(C4$(),1,1)<>"\E3"THEN 1445
   : CONVERT STR(C4$(),10,1)TO J1
   : IF J1>4THEN 1460
   : GOSUB '140(2,"150151")
   : IF R9$<>HEX(00)THEN 1475
   : LOAD T<R9>R9$()7050,7999BEG 1255
1255 GOSUB '150("1 ")
   : C9$(2)="Open"
   : IF M<>0THEN 1505
   : GOSUB '151("EQ","1",C0$(1)," "," "," "," ")
   : C9$(2)="Find"
   : IF M=52THEN 1370
   : IF M<>0THEN 1505
   : PRINT AT(21,0,);HEX(07);
   : C0$="NO "
1300 GOSUB '101(HEX(F218010150)," ")
   : IF R1<>1THEN 1320
   : IF C0$="NO "THEN 1165
   : IF C0$="YES"THEN 1335
1320 GOSUB '128("Invalid response; Retry",99,0,20)
   : GOTO 1300
1335 GOSUB '140(1,"156")
   : IF R9$<>HEX(00)THEN 1475
   : LOAD T<R9>R9$()7050,7999BEG 1350
1350 GOSUB '156("AL")
   : COM CLEAR J9$
   : LOAD T"ddu.005d"
1370 GOSUB '140(1,"156")
   : IF R9$<>HEX(00)THEN 1475
   : LOAD T<R9>R9$()7050,7999BEG 1385
1385 GOSUB '156("AL")
   : COM CLEAR J9$
   : LOAD T"ddu.005a"
1405 GOSUB '128("Program not properly initialized; Press any key to Cancel",99
     ,0,20)
   : KEYIN J8$
   : C3$="@MENU   "
   : GOTO 1560
1430 GOSUB '128("Invalid device address; Re-specify",99,0,20)
   : GOTO 1175
1445 GOSUB '128("Invalid IDEAS-2 control file; Re-specify",99,0,20)
   : GOTO 1175
1460 GOSUB '128("Invalid IDEAS-2 file type; Re-specify",99,0,20)
   : GOTO 1175
1475 PRINT HEX(07);
   : GOSUB '128("Error in selecting definition access software",23,1,20)
   : GOSUB '128("   Press any key to cancel",24,1,20)
   : KEYIN J8$
   : GOTO 1535
1505 GOSUB '140(1,"160")
   : IF R9$<>HEX(00)THEN 1560
   : LOAD T<R9>R9$()7050,7999BEG 1520
1520 GOSUB '160(1,C9$(1),C9$(2))
   : GOTO 1560
1535 GOSUB '140(1,"156")
   : IF R9$<>HEX(00)THEN 1560
   : LOAD T<R9>R9$()7050,7999BEG 1550
1550 GOSUB '156("AL")
1560 C5$=C3$
   : COM CLEAR J8$
   : LOAD TC5$
2000 DEFFN'100(S9$,S0$)
   : S4=1
   : S3=03
   : S2=0
   : S1=0
   : T0$=" "
   : IF POS(S9$=F2)>0THEN T0$=STR(S9$,POS(S9$=F2)+1,4)
   : RESTORE LINE2026
   : GOSUB '129("DATA",0)
   : T9=0
   : FOR T4=1TO 03
   : ON T4GOSUB 2011,2016,2021
   : NEXT T4
   : T9=-1
   : T3=S4
2007 ON T3GOSUB 2011,2016,2021
   : ON R1GOTO ,,,,2009,2010
   : RETURN
2009 T3=MOD(T3+1,S3+1)
   : IF T3=0THEN T3=S4
   : GOTO 2007
2010 T3=MOD(T3-1,S3+1)
   : IF T3<S4THEN GOTO 2010
   : GOTO 2007
2011 GOSUB '126(06,46,08,01,00,001,C0$(5),S0$,"X",1,T9,".....6")
   : C0$(5)=T1$()
   : RETURN
2016 GOSUB '126(08,46,03,01,00,001,C1$,S0$,"X",1,T9,".....6")
   : C1$=T1$()
   : RETURN
2021 GOSUB '126(10,46,08,01,00,001,C0$(1),S0$,"X",1,T9,".....6")
   : C0$(1)=T1$()
   : RETURN
2026 DATA 04,03,00,"Enter required information:"
   : DATA 06,08,00,"IDEAS-2 data file name:"
   : DATA 08,08,00,"IDEAS-2 control file device address:"
   : DATA 10,08,00,"Definition file name:"
   : DATA 0,0,0," "
2200 DEFFN'101(S9$,S0$)
   : S4=1
   : S3=01
   : S2=0
   : S1=0
   : T0$=" "
   : IF POS(S9$=F2)>0THEN T0$=STR(S9$,POS(S9$=F2)+1,4)
   : RESTORE LINE2216
   : GOSUB '129("DATA",0)
   : T9=0
   : FOR T4=1TO 01
   : ON T4GOSUB 2211
   : NEXT T4
   : T9=-1
   : T3=S4
2207 ON T3GOSUB 2211
   : ON R1GOTO ,,,,2209,2210
   : RETURN
2209 T3=MOD(T3+1,S3+1)
   : IF T3=0THEN T3=S4
   : GOTO 2207
2210 T3=MOD(T3-1,S3+1)
   : IF T3<S4THEN GOTO 2210
   : GOTO 2207
2211 GOSUB '126(14,41,03,01,01,001,C0$,S0$,"A",1,T9,".....6")
   : C0$=T1$()
   : RETURN
2216 DATA 13,12,00,"This file definition already exists,"
   : DATA 14,15,00,"Do you wish to overwrite?"
   : DATA 14,46,00,"(YES/NO)"
   : DATA 0,0,0," "