Listing of file='ISS.202M' on disk='vmedia/701-2424C.wvd.zip'
# Sector 130, program filename = 'ISS.202M' 0010 REM ISS.202M, RELEASE 5-1, (11/07/79) - THIS PROGRAM IS A COPYRIGHT PROD UCT OF WANG LABS. INC., UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED 9000 % THIS MUST BE STATEMENT 9000 9040 PRINT HEX(0306);AT(4,16);"SUBROUTINES LOADED" : PRINT AT(15,0);"AVAILABLE = ";S$; : FOR I=2TO 8 : IF S$(I)<>" "THEN PRINT " ";S$(I); : NEXT I : GOTO 9130 9120 PRINT HEX(07010A0A0A);"RE-ENTER" 9130 PRINT AT(1,0,2*S0);"ENTER OUTPUT ADDRESS" : INPUT A$ : IF A$=S$THEN 9200 : MAT SEARCHSTR(S$(),4,24),=A$TO A1$STEP 3 : IF STR(A1$,1,2)=HEX(0000)THEN 9120 9200 SELECT #1<A$> : PRINT AT(5,16);"OUTPUT ADDRESS = ";A$ : PRINT AT(15,0,S0-1) : PRINT AT(1,0,3*S0);"MOUNT OUTPUT DISK" : INPUT "KEY RETURN(EXEC) TO CONTINUE",A$ : IF B$="G"THEN 9520 9350 PRINT AT(1,0,3*S0);"ENTER FILE NAME" : INPUT A$ : LIMITS T#1,STR(A$,1,8),A,A,A,A : ERRORGOTO 9400 9390 IF A=0THEN 9420 9400 PRINT HEX(07010A0A0A);"RE-ENTER" : GOTO 9350 9420 PRINT AT(6,16);"FILE NAME = ";A$ : PRINT AT(1,0,3*S0);"SAVING ROUTINES";AT(10,0); : SAVE DC T#1,A$71,8999 : COM CLEAR B$() : STOP "ROUTINES SAVED" 9520 PRINT AT(1,0,3*S0);"ENTER FILE NAME FOR 'VARIABLES'" : INPUT A$ : LIMITS T#1,STR(A$,1,8),A,A,A,A : ERRORGOTO 9570 9560 IF A=0THEN 9590 9570 PRINT HEX(07010A0A0A);"RE-ENTER" : GOTO 9520 9590 PRINT AT(6,16);"'VARIABLE' FILE NAME = ";A$ 9610 PRINT AT(1,0,3*S0);"ENTER FILE NAME FOR 'TEXT'" : INPUT A1$ : IF A1$=A$THEN 9670 : LIMITS T#1,STR(A1$,1,8),A,A,A,A : ERRORGOTO 9670 9660 IF A=0THEN 9690 9670 PRINT HEX(07010A0A0A);"RE-ENTER" : GOTO 9610 9690 PRINT AT(7,16);"'TEXT' FILE NAME = ";A1$ : PRINT AT(1,0,3*S0);"SAVING ROUTINES";AT(10,0); : SAVE DC T#1,A$71,100 : SAVE DC T#1,A1$71,8999 : COM CLEAR B$() : STOP "ROUTINES SAVED" 9790 DEFFN'31 : PRINT HEX(03);"LOADING SYSTEM MENU" : COM CLEAR B$() : S8$="SYSTEM" : LOAD DC T#0,"ISS.002M" : ERRORPRINT AT(2,0); 9850 PRINT "MOUNT ISS SYSTEM PLATTER" : INPUT "KEY RETURN(EXEC) TO RESUME",A$ : GOTO 9790