image of READY prompt

Wang2200.org

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

# Sector 403, program filename = 'IDS2PM05'
1000 REM "IDS2PM05" - MENU BATCH DOCUMENTATION MODULE
1010 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
   : R3$(1)="IDS2MM01"
   : E9$(7)="IDS2PM04"
   : S=4
   : GOSUB '32("IDS2sS13")
   : PRINT HEX(06020402000E);AT(0,7);"Menu Batch Documentation Module";HEX(0F)
     ;AT(4,49);"menu program";
   : E$()=E7$
   : F=1
   : GOSUB '36
1040 PRINT HEX(06020402000E);AT(23,21);BOX(1,35);
   : PRINTUSING " Searching for files in sector ####",C9;
   : DATA LOAD BA T#4,(C9)STR(F$(),1,256)
1060 F9=F9+1
   : IF F9<17THEN 1140
   : C9=C9+1
   : F9=0
   : DATA LOAD BA T#4,(0)STR(F$(),1,256)
   : IF C9<VAL(STR(F$(),2))THEN 1040
   : COM CLEAR C9
   : $CLOSE#1
   : LOAD T#2,R3$(1)1000,
1140 E$=STR(F$(),F9*16-7,8)
   : IF VAL(E$)=0THEN 1060
   : GOSUB '39(E$,4)
   : LIMITS T#P,E$,A,B,C,D
   : IF D<>1OR C<>8THEN 1060
   : DATA LOAD BA T#P,(A+1)STR(E$(),1,256)
   : IF STR(E$(),1,17)<>HEX(00FF1000D3452428292C30303031293D22)THEN 1060
   : IF STR(E$(),120,8)<>" "THEN 1060
   : IF R8$<STR(E$(),116,1)THEN 1060
   : IF STR(E$(),117,3)<>" "AND STR(E$(),117,3)<>R4$THEN 1060
1240 DATA LOAD BA T#4,(A+6)STR(E$(),1,256)
   : IF STR(E7$,1,1)<>" "AND STR(E$(),187,1)<>STR(E7$,1,1)THEN 1060
   : IF STR(E7$,2,3)<>" "AND STR(E7$,2,3)<>STR(E$(),188,3)THEN 1060
   : IF STR(E7$,5,4)<>" "AND STR(E7$,5,4)<>STR(E$(),191,4)THEN 1060
   : PRINT HEX(06020402000E);AT(23,21);BOX(1,35);" Printing documentation of "
     ;E$;
   : R3$(1)="IDS2PM05"
1300 E$(),E9$(5)=E$
   : LOAD T#2,"IDS2PM06"1000,
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
   : E$="IDS2PM05"
   : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
   : STOP "ERROR"