Listing of file='ISS.002M' on disk='vmedia/701-2423D.wvd.zip'
# Sector 65, program filename = 'ISS.002M'
0010 REM ISS.002M, RELEASE 5-1, (11/07/79) - THIS PROGRAM IS A COPYRIGHT PROD
UCT OF WANG LABS. INC., UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED
0070 DIM D$(5)30,B$(3)83,B$1,A1$8
0120 % THIS MUST BE STATEMENT 120
0140 S1$="ISS.254S"
: LOAD DC T#0,<LEN(S1$)/8>S1$10,0BEG 170
0170 A1$="ISS.001M"
: A3$="CONFIGURATION"
: IF S8$<>"SYSTEM"THEN 500
: GOSUB 950
: D$(1)="01 ISS UTILITIES"
: D$(2)="02 SCREEN/DISK SUBROUTINES"
: D$(3)="03 APPLICATIONS"
: D$(4)="04 KFAM-7"
: D$(5)="31 RE-START SYSTEM"
: PRINT HEX(0306);AT(4,18);"SYSTEM MENU ( STATION # =";S2;")"
0320 PRINT "---------------------------------------------------------------"
: PRINT " FN KEY PROGRAM NAME FN KEY PROGRAM NAME"
: PRINT "---------------------------------------------------------------"
: PRINT TAB(5);D$(1);TAB(36);D$(3)
: PRINT TAB(5);D$(2);TAB(36);D$(4)
: PRINT TAB(36);D$(5)
0380 PRINT AT(1,0);"SELECT SUB-MENU"
0400 KEYIN B$
: IF B$=HEX(1F)THEN GOSUB '31
: IF B$<HEX(01)OR B$>HEX(04)THEN 400
: IF B$=HEX(01)THEN S8$="UTILITIES"
: IF B$=HEX(02)THEN S8$="SCREEN/DISK"
: IF B$=HEX(03)THEN S8$="APPLICATION"
: IF B$=HEX(04)THEN S8$="KFAM-7"
0500 IF S8$="UTILITIES"THEN A2$="ISS.100M"
: IF S8$="SCREEN/DISK"THEN A2$="ISS.200M"
: IF S8$="APPLICATION"THEN A2$="ISS.000A"
: IF S8$="KFAM-7"THEN A2$="KFAM007M"
: PRINT HEX(03);AT(6,10);"* * * * * * * * * * * * * * * * * * * * * *"
: PRINT TAB(10);"* *"
0570 PRINT TAB(10);"* *"
: PRINT TAB(10);"* *"
: PRINT TAB(10);"* * * * * * * * * * * * * * * * * * * * * *"
: PRINT AT(8,30-LEN(S8$));"LOADING ";S8$;" MENU"
0620 LIMITS T#0,A2$,A,A,A,A
: IF A=1THEN 710
: A1$="ISS.002M"
: S8$="SYSTEM"
: A3$="MENU"
: PRINT HEX(010A07);"NOT AVAILABLE ON CURRENT DISK"
: GOSUB '254
: GOTO 620
0710 A1$="ISS.001M"
: A3$="CONFIGURATION"
: GOSUB 950
0750 LOAD DC T#0,A2$
: ERRORGOTO 760
0760 PRINT HEX(010A);"MOUNT ISS DISK AT ADDRESS ";S$
: GOSUB '254
: GOTO 750
0830 LIMITS T#0,"ISS.000D",A,A1,A1,A1
: IF A1<>2THEN 1070
: DATA SAVE DC OPEN T#0,(12)A$
: ERRORPRINT AT(1,0);"UNABLE TO OPEN STATION # ";S2
: GOSUB '254
: LOAD DC T#0,"START"
0860 DSKIP #0,10S
: DATA SAVE DC #0,END
: LIMITS T#0,A$,A0,A1,A1,A1
: COPY T#0,(A,A+9)TO T#0,(A0)
: GOTO 970
0950 A$="ISS.000D"
: CONVERT S2TO STR(A$,5,3),(###)
0970 DATA LOAD DC OPEN T#0,A$
: ERRORGOTO 830
0980 DATA LOAD DC #0,B$()
: $PACK(F=HEX(A0085003A003A00B))B$(1)FROMQ1$,Q1,S$,S9$
: $PACK(F=HEX(A003))B$(2)FROMS$()
: DBACKSPACE #0,1S
: DATA SAVE DC #0,B$()
: RETURN
1070 PRINT AT(1,0,80);"MASTER DEFAULT FILE NOT AVAILABLE"
: GOSUB '254
1090 DEFFN'31
1100 PRINT HEX(03);"LOADING SYSTEM ";A3$
: LOAD DC T#0,A1$
: ERRORGOTO 1120
1120 PRINT HEX(010A);"MOUNT ISS DISK AT ADDRESS ";S$
: GOSUB '254
: GOTO 1100