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