image of READY prompt

Wang2200.org

Listing of file='ISS.001M' on disk='vmedia/701-2424C.wvd.zip'

# Sector 45, program filename = 'ISS.001M'
0010 REM  ISS.001M, 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 C$6,C1$3,Z1$3
0120 %   THIS MUST BE STATEMENT 120
0330 S1$="ISS.200SISS.220SISS.254SISS.205S"
   : LOAD DC T#0,<LEN(S1$)/8>S1$10,0BEG 350
0350 X=INT(S0/80)
   : PRINT HEX(0306)
   : GOSUB 2050
   : IF Q1$<>HEX(0000000000000000)THEN 520
   : GOSUB 630
   : GOSUB 2050
   : GOSUB 720
   : GOSUB 2050
   : GOSUB 890
   : GOSUB 2050
   : GOSUB 1030
   : GOSUB 2050
   : GOSUB 1170
   : GOSUB 2050
0520 GOSUB '200("0","5",1,0,"ENTER DESIRED FUNCTION (0 = END)",1)
   : IF Q9=0THEN 1940
   : ON Q9GOSUB 630,720,890,1030,1170
   : GOSUB 2050
   : GOTO 520
0610 GOSUB '255
0630 GOSUB '200(" "," ",8,0,"ENTER TODAYS DATE (MM/DD/YY)",2)
   : GOSUB '221(Q6$)
   : IF Q6$="E"THEN 610
   : Q1$=U9$
   : Q1=U9
   : RETURN
0720 PRINT AT(12,0);"1 - SYSTEM        4 - APPLICATION"
   : PRINT "2 - UTILITIES     5 - KFAM-7"
   : PRINT "3 - SCREEN/DISK"
   : GOSUB '200("1","5",1,0,"ENTER MENU TO LOAD",1)
   : IF Q9=1THEN S9$="SYSTEM"
   : IF Q9=2THEN S9$="UTILITIES"
   : IF Q9=3THEN S9$="SCREEN/DISK"
   : IF Q9=4THEN S9$="APPLICATION"
   : IF Q9=5THEN S9$="KFAM-7"
0830 PRINT AT(12,0,3*S0)
   : RETURN
0860 GOSUB '255
0890 PRINT AT(15,0);"SUPPORTED = 000 01D 204 211 212 213 214 215 216 217 005";
   : GOSUB '200(" "," ",3,0,"ENTER PRINTER ADDRESS (BLANK = NO PRINTER)",2)
   : PRINT AT(15,0,60);
   : S$(1)=Q6$
   : IF Q6$=" "THEN RETURN
   : MAT SEARCH"00001D204211212213214215216217005",=STR(S$(1),,3)TO A$STEP 3
   : IF STR(A$,1,2)=HEX(0000)THEN 860
   : RETURN
1010 GOSUB '255
1030 GOSUB '200(" "," ",3,0,"ENTER ISS LOADING ADDRESS",2)
   : S$=Q6$
   : GOSUB '205(0,S$,0)
   : IF Q$="I"THEN 1010
   : MAT SEARCHSTR(S$(),4),=S$TO A$STEP 3
   : IF STR(A$,1,2)=HEX(0000)THEN RETURN
   : A=VAL(A$,2)
   : STR(S$(),A+3)=STR(S$(),A+6)
   : RETURN
1170 IF POS(STR(S$(),4,78)<>HEX(00))=0THEN STR(S$(),4)=ALL(20)
   : PRINT AT(12,0,);"1 - ADD";HEX(0D0A);"2 - CHANGE ALL";HEX(0D0A);"3 - DELET
     E"
   : GOSUB '200("0","5",1,0,"ENTER DESIRED OPTION (0 = END)",1)
   : PRINT AT(12,0,)
   : IF Q9=0THEN RETURN
   : IF Q9=3THEN GOTO 1680
   : IF Q9=1THEN K=MAX(LEN(S$())/3+1,2)
   : ELSE K=2
   : IF Q9=1AND K>19THEN 1300
   : ON Q9GOTO 1370,1340
1300 PRINT AT(1,0);HEX(07);"ADDRESS TABLE FULL"
   : GOSUB '254
   : RETURN
1340 STR(S$(),4)=" "
   : PRINT AT(9+X,26,2*S0-27)
1370 PRINT AT(11+X,0);"SUPPORTED = 310 320 330 350 360 370 B10 B20 B30 B50 B60
      B70 D10 D11 D12 D13 D14 D15 D20 D21 D22 D23 D24 D25 D30 D31 D32 D33 D34
     D35 D50 D51 D52 D53 D54 D55 D60 D61 D62 D63 D64 D65 D70 D71 D72 D73 D74 D
     75";
   : FOR I=KTO 19
1400 GOSUB '200(" "," ",3,0,"ENTER DISK ADDRESS TO ADD (0 = END)",2)
   : IF Q6$<>"0"THEN 1450
   : I=19
   : GOTO 1540
1450 GOSUB '205(1,Q6$,0)
   : IF Q$="I"THEN 1640
   : IF Q6$=S$THEN 1640
   : MAT SEARCHSTR(S$(),4,LEN(STR(S$(),4))),=STR(Q6$,1,3)TO A$STEP 3
   : IF STR(A$,1,2)<>HEX(0000)THEN 1640
   : S$(I)=Q6$
   : GOSUB 1790
1540 NEXT I
1560 PRINT AT(11+X,0,);
   : IF LEN(S$())>=57THEN 1300
   : RETURN
1600 I=19
   : GOSUB 1790
   : GOTO 1170
1640 S$(I)=" "
   : GOSUB '255
   : GOTO 1400
1680 IF S$(2)=" "THEN 1870
   : S$()=S$()&"0"
   : GOSUB '200(STR(S$(),4,64),STR(S$(),68),3,1,"ENTER DISK ADDRESS TO DELETE
     (0 = END)",2)
   : STR(S$())=STR(S$(),,LEN(S$())-1)
   : IF Q6$="0"THEN 1560
   : STR(S$(),Q9*3+1)=STR(S$(),Q9*3+4)
   : GOSUB 1790
   : GOTO 1680
1790 PRINT AT(9+X,5);
   : PRINT "5  DISK ADDRESSES  - ";
   : FOR J=2TO 19
   : IF J=11THEN PRINT HEX(0D0A);TAB(26);
   : PRINT STR(S$(J));" ";
   : NEXT J
   : PRINT
   : RETURN
1870 PRINT AT(1,0);HEX(07);"NO ENTRIES TO DELETE"
   : GOSUB '254
   : RETURN
1940 SELECT #0<S$>
   : S8$=S9$
   : LOAD T"ISS.002M"
   : ERRORGOTO 1990
1990 PRINT HEX(07010A);"LOADING ADDRESS WRONG";TAB(80)
   : GOSUB '254
   : GOTO 520
2050 PRINT AT(4,5);HEX(06);"STATION #";S2
   : PRINT AT(5+X,5);"1  DATE            - ";Q1$
   : PRINT TAB(5);"2  MENU TO LOAD    - ";S9$;TAB(80)
   : PRINT TAB(5);"3  PRINTER ADDRESS - ";STR(S$(1));TAB(80)
   : PRINT TAB(5);"4  LOADING ADDRESS - ";S$
   : PRINT TAB(5);"5  DISK ADDRESSES  - ";
   : FOR I=2TO 19
   : IF I=11THEN PRINT HEX(0D0A);TAB(26);
   : PRINT STR(S$(I));" ";
2140 NEXT I
   : RETURN
2190 DEFFN'31
2200 LOAD T"ISS.000M"
   : ERRORGOTO 2210
2210 PRINT AT(1,0,S0);"MOUNT ISS DISK AT ADDRESS ";S$
   : GOSUB '254
   : GOTO 2200