Wang 2200 Virtual Media

Listing of file='IDS2PU76' on disk='vmedia/701-2725B.wvd.zip'

# Sector 383, program filename = 'IDS2PU76'
1000 REM "IDS2PU76"
   : COM CLEAR
   : LOAD T#2,"IDS2PU77"
   : ERRORE=ERR
   : IF E=48THEN LOAD T "IDS2PU77"
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
   : E$="IDS2PU76"
   : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
   : STOP "ERROR"