Listing of file='ISS.201M' on disk='vmedia/701-2424C.wvd.zip'
# Sector 118, program filename = 'ISS.201M'
0010 REM ISS.201M, RELEASE 5-1, (11/07/79) - THIS PROGRAM IS A COPYRIGHT PROD
UCT OF WANG LABS. INC., UNAUTHORIZED REPRODUCTION OR USE IS PROHIBITED
0120 % THIS MUST BE STATEMENT 120
0160 PRINT HEX(0306);AT(5,0);
: PRINT "----------------------------------------------------------------"
: PRINT " FN KEY PROGRAM NAME FN KEY PROGRAM NAME"
: PRINT "----------------------------------------------------------------"
0200 PRINT AT(14,0);"16 NEXT MENU";TAB(32);"26 SAVE ROUTINES (LOCAL)"
: PRINT AT(15,0);"18 ERASE";TAB(32);"28 SAVE ROUTINES (GLOBAL)";
: PRINT AT(0,0);"KEY DESIRED SPECIAL FUNCTION"
: K=1
0280 PRINT AT(4,0);TAB(15);
: IF K=1THEN PRINT "SCREEN ROUTINES ( STATION #";S2;")";TAB(80)
: IF K=2THEN PRINT "DISK ROUTINES ( STATION #";S2;")";TAB(80)
: IF K=3THEN PRINT "TRANSLATION TABLES ( STATION #";S2;")";TAB(80)
: FOR I=1TO 5
: PRINT AT(I+7,0);TAB(2);STR(A1$(K,I),3,30);TAB(34);STR(A1$(K,I+5),3,30)
: NEXT I
0370 FOR I=1TO 5
: PRINT AT(I+7,1);STR(A1$(K,I),1,1);AT(I+7,33);STR(A1$(K,I+5),1,1)
: NEXT I
: PRINT AT(1,0);
0420 KEYIN A$,,440
: GOTO 420
0440 PRINT HEX(06);
: ON VAL(A$)+1GOTO 460,460,460,460,460,460,460,460,460,460,,,,,,,610,,670,,
,,,,,,750,,750,,,900
: ELSE GOTO 420
0460 CONVERT VAL(A$)TO A$,(##)
: MAT SEARCHSTR(A1$(),(K-1)*460+3,457),=STR(A$,1,2)TO A$STEP 46
: IF STR(A$,1,2)=HEX(0000)THEN 420
: A=INT(VAL(A$,2)/46)+1
: FOR I=33TO 38
: IF STR(A1$(K,A),I,1)<>" "THEN 540
: I=38
: GOTO 560
0540 MAT SEARCHSTR(A1$(),2),=STR(A1$(K,A),I,1)TO A$STEP 46
: STR(A1$(),VAL(A$,2),1)="*"
0560 NEXT I
: GOTO 370
0610 K=K+1
: IF K=4THEN K=1
: GOTO 280
0670 FOR I=1TO 10
: STR(A1$(1,I),1,1),STR(A1$(2,I),1,1),STR(A1$(3,I),1,1)=" "
: NEXT I
: GOTO 280
0750 IF STR(A$,1,1)=HEX(1A)THEN B$="L"
: ELSE B$="G"
: PRINT HEX(03);"LOADING SUBROUTINES"
: B$()="ISS.202M"
: FOR K=1TO 3
: FOR I=1TO 10
: IF STR(A1$(K,I),1,1)="*"THEN B$()=B$()&STR(A1$(K,I),39,8)
: NEXT I,K
: COM CLEAR A1$()
0860 LOAD DC T#0,<LEN(B$())/8>B$()BEG 9000
: ERRORGOSUB 960
: GOTO 860
0900 DEFFN'31
: PRINT HEX(03);"LOADING SYSTEM MENU"
: COM CLEAR B$()
: S8$="SYSTEM"
0940 LOAD DC T#0,"ISS.002M"
: ERRORGOSUB 960
: GOTO 940
0960 PRINT HEX(07010A);"MOUNT ISS DISK AT ADDRESS ";S$
: INPUT "KEY RETURN(EXEC) TO CONTINUE",A$
: RETURN