image of READY prompt

Wang2200.org

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

# Sector 199, program filename = 'IDS2PS51'
1000 REM "IDS2PS51" - Release 2.1 - SCREEN/REPORT FILING UTILITY
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
   : COM D1,C5$1,J1$3,J2$4
   : D1=0
   : C5$=STR(R3$(1),6,1)
   : IF POS("SRB"=C5$)=0THEN 1215
   : J2=0
   : IF C5$="S"AND E0$="IDS2sS50"THEN J2=1
   : IF C5$="R"OR C5$="B"AND E0$="IDS2sR14"THEN J2=1
   : IF J2=0THEN E$()=" "
   : IF J2=0THEN 1020
1017 GOSUB 1140
   : GOSUB '63("Process complete","d - 'EDIT' for another filing operation or
     FN'31 to cancel"," ")
   : GOSUB '34(250)
   : IF Q=31THEN 1215
   : IF Q=33THEN 1020
   : GOTO 1017
1020 IF J2>0THEN 1025
   : IF C5$<>"S"THEN 1022
   : GOSUB '32("IDS2sS50")
   : GOTO 1025
1022 GOSUB '32("IDS2sR14")
   : IF C5$="R"THEN E$="Report"
   : ELSE E$="Batch"
   : GOSUB '45(11,E$)
   : GOSUB '45(12,E$)
1025 F6$(11)="N"
   : FOR I=19TO 21
   : PRINT AT(I,0,80)
   : NEXT I
   : IF STR(E$(),13,3)<>" "THEN GOTO 1035
   : IF C5$="S"THEN GOSUB '45(5,E9$(2))
   : ELSE GOSUB '45(5,E9$(6))
1035 GOSUB 1140
   : F6$(11),F6$(12)="N"
1040 F=0
1050 F=F+1
   : IF F>F0THEN 1200
   : IF F<>1THEN 1060
   : GOSUB '43(F)
   : IF E$=" "THEN GOSUB '45(1,"2")
1060 F6$(53)="Y"
   : F6$(52)="N"
   : E3$=HEX(1F)
   : GOSUB '34(F)
   : F6$(53)="N"
   : IF E6$=HEX(1F)THEN 1215
   : IF F6$(52)="Y"THEN 1050
   : ON FGOTO 1080,1100,,,,,,,,1180
   : GOTO 1050
1080 IF Q>0AND Q<6THEN 1090
   : GOSUB '35("Option must be 1 - 5")
   : GOSUB '45(1," ")
   : GOTO 1060
1090 J1=Q
   : IF J1<4THEN 1050
   : F=5
   : GOTO 1060
1100 IF VER(E$,"D##")=3OR VER(E$,"3##")=3OR VER(E$,"B##")=3THEN 1110
1105 GOSUB '35("Invalid disk address")
   : GOTO 1060
1110 MAT REDIM F$(9)83
   : DIM J$8
   : J$="IDS2fs  "
   : A=(R0-#PART)/16+1
   : IF A>0THEN CONVERT ATO STR(J$,7,2),(##)
   : LIMITS T#2,J$,A,B,C,D
   : IF A>0THEN DATA LOAD DA T#2,(A)F$()
   : ELSE F$()=" "
   : MAT REDIM F$(E9)1
   : IF E$=STR(F$(),45*#PART-11,3)THEN 1135
1120 MAT SEARCHF$()<45*#PART-17,45>,=STR(E$,1,3)TO F9$STEP 3
   : IF F9$>HEX(0000)THEN 1130
   : GOSUB '35("Disk address is not in your IDEAS device table")
   : GOTO 1060
1130 D1=(VAL(F9$,2)+2)/3
   : LIMITS T#D1,"JUNK",A,B,C,D
   : ERRORGOSUB '35("Disk error on specified device, key EXEC to continue")
   : GOSUB '34(250)
   : IF Q=31THEN 1215
   : F=2
   : GOTO 1060
1132 GOTO 1050
1135 GOSUB '35("Archive address must be different from screen/report address")
   : E$=" "
   : GOTO 1060
1140 X=VAL(STR(E1$(2),48),2)*VAL(STR(E1$(2),43),2)
   : Y=0
   : FOR I=0TO VAL(STR(E1$(2),43),2)-1
   : DATA LOAD BA T#2,(VAL(STR(E1$(2),55),2)+I*VAL(STR(E1$(2),46),2))E4$()
   : Y=Y+VAL(STR(E4$(),9),2)
   : NEXT I
   : GOSUB '55(3,Y*100/X)
   : GOSUB '55(4,X-Y)
   : RETURN
1180 IF E$=" "OR E$=R4$THEN 1200
   : GOSUB '35("You cannot select another user ID's screens/reports")
   : GOTO 1060
1200 GOSUB '53("Touch EXECUTE to accept, EDIT to modify, or FN'31 to cancel")
   : GOSUB '34(250)
   : IF Q=33THEN 1040
   : IF Q<>31THEN 1220
1215 COM CLEAR D1
   : LOAD T#2,R3$(1)1000,
1220 IF Q<>32THEN 1200
   : IF STR(E$(),21,8)<STR(E$(),13,8)THEN STR(E$(),21,8)=STR(E$(),13,8)
   : J1$=STR(E$(),30,3)
   : J2$=STR(E$(),33,4)
   : GOSUB '43(1)
   : IF Q>3AND Q<6THEN 1230
   : IF Q>0AND Q<6THEN 1228
   : F=1
   : GOTO 1080
1228 GOSUB '43(2)
   : IF D1=0THEN 1229
   : IF VER(E$,"D##")=3OR VER(E$,"3##")=3OR VER(E$,"B##")=3THEN 1230
1229 F=2
   : GOTO 1105
1230 ON J1GOTO ,,1250,1260,1260,1260
1240 IF POS("RB"=C5$)>0THEN LOAD T#2,"IDS2PR52"1000,
   : ELSE LOAD T#2,"IDS2PS52"1000,
1250 IF POS("RB"=C5$)>0THEN LOAD T#2,"IDS2PR53"1000,
   : ELSE LOAD T#2,"IDS2PS53"1000,
1260 GOSUB '63("Caution !  If yo","u are sure you want to delete, touch EXEC.
      If not, touch EDIT","!")
   : GOSUB '34(250)
   : IF Q=32THEN 1240
   : IF Q=33THEN 1040
   : GOTO 1260
2000 STOP #
   : ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
   : E$="IDS2PS51"
   : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
   : STOP "ERROR"