image of READY prompt

Wang2200.org

Listing of file='ISS.010U' on disk='vmedia/701-2423D.wvd.zip'

# Sector 165, program filename = 'ISS.010U'
0010 REM  ISS.010U, RELEASE 5-1, (11/07/79) - COPYRIGHT WANG LABS. INC.
0050 COM N$8,E,E1,M$7,O$,I1$3
   : DIM Z$(3)83,Z1$3
0120 %   THIS MUST BE STATEMENT 120
0160 DEFFNG(G)=INT(SPACE/238)*14
   : S1$="ISS.200SISS.254SISS.050S"
   : LOAD DC T#0,<LEN(S1$)/8>S1$10,0BEG 290
0290 GOSUB '50(1)
   : $UNPACK(F=HEX(A003A00850025002A007))Z$(Z1)TO I1$,N$,E,E1,M$
0320 GOSUB '60("CREATE REFERENCE FILE",5)
0340 PRINT AT(13,0);"1 - CREATE"
   : PRINT "2 - EDIT"
   : PRINT "3 - PRINT";
   : F=0
   : GOSUB '200("1","3",1,0,"ENTER OPTION",1)
   : F=1
   : PRINT AT(13,0,3*S0)
   : S1$="CREATEEDIT  PRINT"
   : O$=STR(S1$,Q9*6-5,6)
   : GOSUB '44
   : IF O$="PRINT"AND P$="P"THEN 1090
   : IF O$="EDIT"THEN GOSUB '60("EDIT REFERENCE FILE",4)
0460 IF O$="PRINT"THEN GOSUB '60("PRINT REFERENCE FILE",3)
   : GOSUB '61("FILE NAME",N$,"80"," ")
   : GOSUB '61("DISK ADDRESS",I1$,"81","DISK")
   : GOSUB '61("TYPE",M$,"84"," ")
   : IF O$<>"PRINT"THEN GOSUB '62("EXTRA SECTOR DEFAULT",E,"83")
   : IF O$="CREATE"THEN GOSUB '62("NUMBER OF ENTRIES",E1,"82")
0540 GOSUB '70
   : SELECT #1<I1$>
0580 PRINT HEX(010A);"MOUNT INPUT PLATTER"
   : GOSUB '254
   : LIMITS T#1,N$,A1,A1,A1,A2
   : ERRORPRINT HEX(07)
   : GOTO 580
0620 IF O$<>"CREATE"AND A2<>2THEN 1180
   : IF O$="CREATE"AND A2<>0THEN 1260
   : IF O$<>"CREATE"THEN E1=(A1-2)*14
   : IF E1>FNG(G)THEN 1220
0680 LOAD DC T#0,"ISS.011U"
   : ERRORGOTO 1130
0700 DEFFN'15
   : RETURN CLEAR ALL
0715 IF F=0THEN 340
   : PRINT AT(1,0,3*S0);
   : GOTO 540
0780 DEFFN'80
   : Q6$=N$
   : GOSUB '200(" "," ",8,0,"ENTER REFERENCE FILE NAME",3)
   : Z$,N$=Q6$
   : RETURN
0830 DEFFN'81
   : GOSUB '40("ENTER DISK ADDRESS")
   : Z$,I1$=Z1$
   : RETURN
0880 DEFFN'82
   : GOSUB '200("1","994",3,0,"ENTER NUMBER OF ENTRIES",1)
   : Z,E1=-INT(-Q9/14)*14
   : RETURN
0930 DEFFN'83
   : GOSUB '200("-1","250",3,0,"ENTER THE DEFAULT FOR NUMBER OF EXTRA SECTORS
      (-1 = SAME)",1)
   : Z,E=Q9
   : RETURN
0980 DEFFN'84
   : PRINT AT(14,0);"1 - OLD/OLD     3 - OLD/NEW"
   : PRINT "2 - NEW/NEW     4 - NEW/OLD";
   : GOSUB '200("1","4",1,0,"ENTER TYPE",1)
   : S1$="OLD/OLDNEW/NEWOLD/NEWNEW/OLD"
   : Z$,M$=STR(S1$,Q9*7-6,7)
   : PRINT AT(14,0,2*S0)
   : RETURN
1090 PRINT HEX(010A07);"PRINTER REQUIRED"
   : GOSUB '254
   : GOTO 320
1130 PRINT HEX(010A07);"MOUNT ISS DISK AT ADDRESS ";S$
   : GOSUB '254
   : F9$="M"
   : GOTO 680
1180 PRINT HEX(010A07);"FILE ";N$;" IS NOT AN ACTIVE DATA FILE"
   : GOSUB '254
   : GOTO 540
1220 PRINT HEX(07010A);"CURRENT MEMORY SIZE TO SMALL BY";E1-FNG(G);"ENTRIES"
   : GOSUB '254
   : GOTO 540
1260 PRINT HEX(010A07);"FILE ";N$;" ALREADY EXISTS ON PLATTER"
   : GOSUB '254
   : GOTO 540
1320 DEFFN'51
   : $PACK(F=HEX(A003A00850025002A007))Z$(Z1)FROMI1$,N$,E,E1,M$
   : RETURN
1380 DEFFN'31
   : PRINT HEX(03)
   : COM CLEAR N$
1410 LOAD DC T#0,"ISS.100M"
   : ERRORGOTO 1420
1420 PRINT HEX(010A);"MOUNT ISS DISK AT ADDRESS ";S$
   : GOSUB '254
   : GOTO 1410