image of READY prompt

Wang2200.org

Listing of file='IDS2PI00' on disk='vmedia/701-2717B.wvd.zip'

# Sector 773, program filename = 'IDS2PI00'
1000 REM "IDS2PI00" - "START" PROGRAM EDIT/DOCUMENT ACCESS SECURITY MODULE
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
   : IF E6$>HEX(02)THEN LOAD T#2,R3$(1)1000,
   : ELSE G=VAL(E6$)
   : GOSUB '32("IDS2sSC0")
   : E$()=E9$(3)
   : PRINT AT(0,7);HEX(020402000E22);"START";HEX(22);" Program Editor - Access
      Security Control Module";HEX(0F);AT(11,42);"program to be"
1040 IF G=0THEN E$="created"
   : ELSE IF G=1THEN E$="revised"
   : ELSE IF G=2THEN E$="documented"
   : PRINT AT(11,53);E$
1060 F6$(12)="N"
   : GOSUB '34(1)
   : F6$(12)="Y"
   : IF E$<>" "THEN 1080
   : GOSUB '35("START module name must be non-blank")
   : GOTO 1060
1080 P=4
   : IF STR(E$,,4)="IDS2"OR STR(E$,,4)="ids2"THEN P=2
   : LIMITS T#P,E$,A,B,C,D
   : ERRORCONVERT PTO F9$,(#)
   : GOSUB '38(44,F9$)
   : GOSUB '34(250)
   : IF Q=31THEN LOAD T#2,R3$(1)1000,
   : E$=" "
   : GOTO 1060
1085 IF G=0THEN 1300
   : DATA LOAD BA T#4,(A+1)STR(F$(),1,256)
   : E4$()=HEX(00FF1000A2E92022)
   : IF STR(F$(),1,8)=STR(E4$(),1,8)THEN 1120
   : GOSUB '35("Specified file is not an IDEAS START program")
   : GOTO 1060
1120 DATA LOAD BA T#4,(A+2)STR(F$(),1,256)
   : IF STR(F$(),69,3)=" "OR STR(F$(),69,3)=R4$THEN 1140
   : GOSUB '35("Another user has exclusive edit and documentatation rights")
   : GOTO 1060
1140 IF R8$>=STR(F$(),68,1)THEN 1160
   : GOSUB '35("Your user class is not authorized to edit or document this fil
     e")
   : GOTO 1060
1160 IF STR(F$(),72,8)=" "THEN 1200
   : PRINT HEX(06020400000E);AT(15,6);BOX(1,67);" Please enter the password as
     sociated with this program"
   : GOSUB '34(2)
   : PRINT AT(15,6,66);BOX(-1,-67)
1190 IF E$=STR(F$(),72,8)THEN 1200
   : GOSUB '63("Invalid password"," - Enter new file name, CANCEL, or touch EX
     ECUTE to try again","!")
   : GOTO 1060
1200 E9$(3)=E$()
   : E6$=BIN(G)
   : ON GGOTO 1230,1240
   : LOAD T#2,"IDS2PI01"1000,
1230 LOAD T#2,"IDS2PI02"1000,
1240 LOAD T#2,"IDS2PI02"1000,
1300 IF D=0THEN 1200
   : GOSUB '35("START program already exists - Please CANCEL or enter new name
     ")
   : GOTO 1060
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
   : E$="IDS2PI00"
   : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
   : STOP "ERROR"