Wang 2200 Virtual Media

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

# Sector 935, program filename = 'IDS2PM02'
1000 REM "IDS2PM02" - MENU DOCUMENTATION SET-UP MODULE
1005 P=4
   : IF STR(E9$(5),,4)="IDS2"OR STR(E9$(5),,4)="ids2"THEN P=2
   : LOAD T#P,E9$(5)1000,1005BEG 1020
1020 R3$(1)="\C4\CF\CE\D4\CC\CF\C1\C4"
   : GOSUB 1000
   : R3$(1)="IDS2MM01"
   : LOAD T#2,"IDS2PM03"1000,
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
   : E$="IDS2PM02"
   : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
   : STOP "ERROR"