Listing of file='ISS.002M' on disk='vmedia/701-2424C.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