image of READY prompt

Wang2200.org

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

# Sector 444, program filename = 'IDS2PBX0'
1000 REM "IDS2PBX0"
1160 IF F6$(17)<"^"THEN SELECT @PART"IDS2SUBM"
   : O=26
   : IF F3$<>" "AND F3$<>R4$OR R8$<F6$THEN 1190
   : IF F7$=" "THEN 1200
   : GOSUB '32("IDS2sP01")
1180 GOSUB '34(1)
   : IF E$=F7$THEN 1200
   : GOSUB '38(27," ")
   : GOTO 1180
1190 GOSUB '38(O,E8$)
   : COM CLEAR F()
   : GOSUB '40(R3$(1))
1200 F5$=E9$(1)OR ALL(20)
   : GOSUB '39(F5$,3)
   : IF Q=2THEN 1250
   : GOSUB '35("Control file for this module is not present")
   : COM CLEAR F()
   : GOSUB '40(R3$(1))
1250 E$()=" "
   : MAT REDIM E$(18)83
   : DATA LOAD DA T#P,(A)E$()
   : STR(E$(),860,3)=BIN(P)&BIN(A,2)
   : MAT REDIM E$(E8)1
   : E$(856)="X"
   : CONVERT UTO STR(E$(),77,1),(#)
   : CONVERT PTO STR(E$(),75,2),(##)
   : CONVERT ATO STR(E$(),142,5),(#####)
   : LOAD T#2,"IDS2PR25"1000,1990
1990 %
1994 GOTO 1994
3699 ON ERRORE1$,E2$GOTO 3700
3700 DEFFN'31
   : E$="IDS2PBX0"
   : IF E5$<"Y"THEN LOAD T#2,"IDS2PER1"1000,
   : STOP "ERROR"