image of READY prompt

Wang2200.org

Listing of file='IDS2PU22' on disk='vmedia/701-2725B.wvd.zip'

# Sector 292, program filename = 'IDS2PU22'
1000 REM "IDS2PU22" - DATA FILE CROSS-REFERENCE UTILITY SET-UP MODULE
1200 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
   : COM J0$40,J1$8,J2$8,J3$8,J4$8,J5$1,J6$3,J7$4,J8$2,J9$3,J0(5),J0$(16)8
   : DIM F2$(256)1
   : E$()=" "
   : IF R3$(1)="IDS2PU28"THEN 1280
   : E$=R3$()
   : R3$()="IDS2PU28 "&E$
1280 GOSUB '32("IDS2sS74")
1290 F=0
1300 F=F+1
1310 IF F>F0THEN 1430
   : GOSUB '34(F)
   : ON FGOTO 1350,1400,1400,1400,,,,,,,,1420
   : GOTO 1300
1350 F0$=STR(E$,,8)OR ALL(20)
   : IF F0$=E$THEN 1370
   : GOSUB '39(F0$,5)
   : IF A=0THEN 1360
   : MAT REDIM E4$(256)1
   : DATA LOAD BA T#P,(A)E4$()
   : IF STR(E4$(),,4)=HEX(8201D3E3)THEN 1380
1360 GOSUB '63("The data file co","ntrol file does not exist please re-enter o
     r cancel","!")
   : GOTO 1310
1370 GOSUB '63("Illegal entry; t","here must be at least one upper case charac
     ter","!")
   : GOTO 1310
1380 MAT REDIM F$(24)83
   : DATA LOAD DA T#P,(A)F$()
   : MAT REDIM F$(E9)1
   : J8$=BIN(A,2)
   : J9$=STR(F$(),90,3)
   : CONVERT STR(F$(),10,1)TO Q
   : ON QGOTO ,1390,1390
   : GOTO 1300
1390 J0$()=STR(F$(),275)
   : J0(5)=INT((LEN(J0$())+1)/8)
   : GOTO 1300
1400 IF STR(E$(),17,1)<>"N"OR STR(E$(),42,2)<>"NN"THEN 1410
   : GOSUB '63("At least one of ","the above file types must be indicated with
      'Y' or 'y'","!")
   : F=F-2
   : GOTO 1310
1410 IF POS("YyNn"=E$)=0THEN 1310
   : E$=OR HEX(20)
   : GOTO 1300
1420 IF E$>"1"OR E$<"0"THEN 1310
   : GOTO 1300
1430 GOSUB '53("Touch EXECUTE to accept, EDIT to modify, or FN'31 to CANCEL")
   : GOSUB '34(250)
   : IF Q<>31THEN 1470
1460 LOAD T#2,R3$(1)1000,
1470 IF Q=33THEN 1290
   : IF Q<>32AND Q<>130THEN 1400
1490 $OPEN 1520,#1
   : ERRORGOTO 1520
1500 GOTO 1540
1520 KEYIN E6$,1520,1530
   : GOSUB '63("Printer not avai","lable. Wait or CANCEL"," ")
   : GOTO 1490
1530 IF E6$=HEX(1F)THEN 1460
   : GOTO 1520
1540 $OPEN #1
   : GOSUB '63(" "," "," ")
   : J0$=STR(E$(),45,8)
   : STR(J0$,9),E9$(1)=STR(F$(),22,32)
   : IF STR(E$(),17,1)="Y"THEN J0(1)=1
   : ELSE J0(1)=0
   : IF STR(E$(),42,1)="Y"THEN J0(2)=1
   : ELSE J0(2)=0
   : IF STR(E$(),43,1)="Y"THEN J0(3)=1
   : ELSE J0(3)=0
   : J1$=E$()
   : IF J1$=" "THEN J1$=ALL(00)
   : J2$=STR(E$(),9)
   : IF J2$=" "THEN J2$=ALL(FF)
1620 J3$=STR(E$(),18)
   : IF J3$=" "THEN J3$=ALL(00)
   : J4$=STR(E$(),26)
   : IF J4$=" "THEN J4$=ALL(FF)
   : J5$=STR(E$(),34)
   : J6$=STR(E$(),35)
   : J7$=STR(E$(),38)
   : CONVERT STR(E$(),44,1)TO J0(4)
   : LOAD T#2,"IDS2PU23"1000,
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
   : E$="IDS2PU22"
   : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
   : STOP "ERROR"