Wang 2200 Virtual Media

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

# Sector 689, program filename = 'IDS2PM06'
1000 REM "IDS2PM06" - MENU BATCH DOCUMENTATION SET-UP MODULE
1005 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
   : GOSUB '39(E9$(5),4)
   : LOAD T#P,E9$(5)1000,1005BEG 1020
1020 R3$(1)="\C4\CF\CE\D4\CC\CF\C1\C4"
   : GOSUB 1000
   : R3$(1)="IDS2PM05"
   : LOAD T#2,"IDS2PM03"1000,
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
   : E$="IDS2PM06"
   : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
   : STOP "ERROR"