SYSTEM 1 OR SYSTEM 2?
?SYS2

HEL-S560,

BOCES INSTRUCTIONAL NETWORK - SYSTEM 2
READY ON PORT# 20   

LIB
 NAME	 LENGTH    NAME    LENGTH    NAME    LENGTH    NAME    LENGTH	
-ASCII	    846   ADDRES     1056   ALPHA	498   ANALOG	 1803	
ANCOV	    875   ANNUIT     1975   ANVAR	595   ARITH	  670	
ASCII  F      2   ASCII*      479   AVR23      2438   BAGELS	 1115	
BALANC	    719   BALPAY     3272   BALSHT     4255   BANK	 1642	
BARD	    984   BARD1      3136   BARD2      1805   BARD3	 1066	
BARD4	   1010   BASTES     1075   BATNUM     1015   BATTLE	 2218	
BCKGMN	   4564   BIOR	     2412   BNOM1	442   BNOM2	  109	
BNOM3	    419   BNOM4       674   BNOM5	467   BOHR	 2269	
BRAIN	   2889   BUFLO      2643   CALORI	805   CAR1   F	  130	
CHISX	    940   CIRFLW     1901   CIVIL      5589   CLOUDS	 2441	
CNGRTS F      2   COBOL        84   CODBG	376   CODDV	 6495	
COIDEV	   4120   COMON      4657   COMSAV	447   CONDF	 1132	
CONSMP	   1533   COPDV1     6292   COPY	487   CORRE	  127	
COSC4  F     50   COSORT      921   COULOM	934   DAVID3 F	   10	
DECAY1	   1714   DECSN      3799   DESEM	337   DIET	 2813	
DISCNT	    486   DRFIL  F	9   DRILL      4484   DRILL1	 1081	
DROS	    897   EASY	 F	5   EFIELD     1658   ELECT1	 2188	
ELECT2	   2137   ELECT3     3472   EQUIL1     1120   EQUIL2	 1133	
EUCLID	    250   FACTOR      452   FCLEAR	420   FCOPY	  670	
FGRAPH	   1502   FILCN1       61   FILDUM	620   FILIS1	 1255	
FILIST	    473   FILOAD      840   FILREA	489   FL-DTA	 1393	
FPRINT	    567   FREQ	      602   GAME       1885   GAMGN	 2372	
GASLAW	   4145   GCD	      419   GENE1      1621   GHOST	 1656	
GLPSA1	   3450   GOFISH     1795   GOLF1      4923   GRADES	  399	
GRAPH	   1075   GRAPH2     3240   GRAZE      1893   GROUP	 1381	
GSTKVL	   1426   HARD	 F	6   HELLO2	130   HNGMAN	 2417	
HSTGR	    188   INSTMT     3076   ITEM1	564   ITEM2	 1265	
KEYSIG	    821   KINERV     1088   KINET      1309   LAWPEN	 1395	
LENSES	   1078   LIMITS     3153   LINPRO     1805   LIREG	  430	
LOCKEY	   2246   LOVE	     1214   LRGNUM	985   LUNAR	 1317	
LUNAR2	   1223   MACRO      4359   MALAR      3246   MARKET	 3313	
MASTER	   4684   MATHBB     2692   MEDIUM F	  6   MEMBR	 1565	
METRIC	    842   MIKE	 F	7   MIND1      2450   MKBUY	 2452	
MLREG	   1487   MNOCHN     7601   MONDTA F	  2   MONINS F	    1	
MONOP	   1759   MORGAG     1849   MOTION	468   MSTMND	 2583	
MUSIC2	    907   MUSIC5      998   MXTEST	726   NEWTN2	 1546	
OPER	   1658   ORBIT       674   P-NYM      1049   PHOSYN	 1998	
PI2	    983   PLOTTR     1031   PLOTWD     1471   POLICY	 2532	
POLSYS	   1836   POLUT      2572   SALFIL F	 13   SALVO	 3914	
SAP	   2571   SAVING      906   SCRMBL     1589   SETS	  859	
SIPRAC	   1138   SLITS      2529   SLITS2     4269   SLOPE	 1019	
SNELL	   1719   SPACE      1855   SPELL  F	 50   SPELL1	  748	
SQRT	    474   STA01       365   STA02	602   STA04	  349	
STA09	    741   STA12       829   STA13	705   STA20	 1775	
STA34	   1978   STABIL     3819   STATAL     1006   STATIS	  580	
STATN	   1407   STERL      2911   STOCK      4332   STOICH	 2087	
STOP	   1375   SYNNYM F	2   T-TEST     1327   TAG	 2013	
TANK	   4512   TANKIN     1645   TAXMAN     1371   TED	 3574	
TENS	    396   TEST	     1007   TIMEST     1306   TPROB	  359	
TRATP	    591   TRIFAC     1636   TRY    F	  1   TSAP	 1944	
TSAP1	   1741   TSAP2      1141   TSAP3      1764   TSAPF  F	   31	
TTT3	   3436   TWQUES      918   USECON     2165   USPOP	 2977	
VLOCTY	   1346   VOCAB  F     40   VOCAB1	831   WATBUD	  906	
WATER1	   1550   WATER2     1090   WAVES      1245   WKSHT	  773	
WORD	    870   WORD1  F     12   WORD2  F	 27   WORD3  F	   35	
WORD4  F      4   WRITER     1359   XCORUN     6281   YAHTZE	 2444	

GRO
 NAME	 LENGTH    NAME    LENGTH    NAME    LENGTH    NAME    LENGTH	
G12DMP C   6843   GIS	 C   3120   GISAID F	805   GISASO F	  153	
GISCL2 F   2827   GISCL4 F   3788   GISCTL F	  4   GISCTV F	  219	
GISGRD F   1847   GISLSE      929   GISLST     1182   GISNAM C	 3584	
GISNJV F    440   GISNYF F     32   GISNYO F   3711   GISNYV F	  384	
GISSB1 C   4054   GISSB2 C   4077   GISSB3 C   2869   SCR    F	    4	

GET-*GIS

LIST
GIS   

100  COM A,B,B2,C,C0,C1,C2,C3,C4,C5,C6,C7,C8,C9,D,D0,D1,D2,D3
110  COM E2,E6,E8,F1,F9,I,J,J6,J9,L5,L6,L7,L8,L9,M,N,P,Q,Q1,Q2
120  COM R1,R2,R4,R5,R6,S6,T4,U2,U8,U9,W2,X,Z,Z4,Z6,Z7,Z8,Z9
130  COM A$[12],B$[72],C$[4],D$[72],E$[1],F$[72],H$[4],L$[6]
140  COM N$[72],O$[1],T$[16],U$[72],Y$[12],Z$[40]
150  COM A[10],B[10],C[40],D[75],I[128],O[30],P[30],Q[10]
160  COM W[10],Z[40],I8,L3,V8,V9,B7,B8,B9
170  DIM G[90,20],J$[12]
180  REMGIS H/P2000F/C 1/2/80
190  REM The next data statement contains a list of potential names for the
200  REM GIS control file. The first one found for the user will be used."
210  REM The list is terminated with a numeric data item.
220  DATA "GISCTL","*GISCTL","$GISCTL"
230  DATA 0
240  REM Start
1000  LET V9=79.06
1010  LET U$=""
1020  LET O$=""
1030  FILES *,*
1040  DATA 0,1,2,3,4,5,6,7,8,9,10,11,12,13,22,40,60,72,80
1050  RESTORE 1040
1060  READ C0,C1,C2,C3,C4,C5,C6,C7,C8,C9,D0,D1,D2,D3,E2,Q2,E6,L9,E8
1070  LET A=L5=L6=L8=M=R4=R5=T4=U2=Z=Z4=Z5=Z8=Z9=J=L3=I8=Z6=C0
1080  LET R6=C1
1090  LET J9=L9
1100  LET J6=E6
1110  LET L7=C5
1150  REMEntry point from GISSB1, GISSB2 & GISSB3
1160  IF Z=-1 THEN 100
1170  LET B=TIM(C0)+TIM(C1)*60+TIM(C2)*1440
1180  IF  NOT Z THEN 1380
1190  IF Z4 THEN 1350
1200  REMOpen the log file
1210  ASSIGN A$,C2,X
1220  IF  NOT X THEN 1260
1230  IF X>C2 THEN 1350
1240  ENTER C1,X,X
1250  GOTO 1210
1260  IF  END #C2 THEN 1340
1270  READ #C2,Z7
1280  MAT  READ #C2;G[B8,B9]
1290  LET G[Z8,Z9]=G[Z8,Z9]+C1
1300  LET G[Z8,Z9+C1]=G[Z8,Z9+C1]+B-Z6
1310  LET Z6=B
1320  PRINT #C2,Z7
1330  MAT  PRINT #C2;G
1340  ASSIGN Y$,C2,X
1350  IF Z<C0 THEN 4500
1360  IF Z=26 THEN 2660
1370  REMOpen control file
1380  RESTORE 210
1390  READ J$
1400  ASSIGN J$,C1,Z1
1410  IF Z1<C3 THEN 1450
1420  IF TYP(C0)=C2 THEN 1390
1430  PRINT "There is no GISCTL file available."
1440  STOP 
1450  IF T4 THEN 2290
1460  READ #C1;B$
1470  IF B$="/" THEN 1460
1480  IF B$="//" THEN 1530
1490  IF B$="<" THEN 1510
1500  PRINT B$;LIN(C0);
1510  PRINT LIN(-C1);

1130 PRINT "FUCK YOU"

RUN

FUCK YOU
LOWER HUDSON REGIONAL COMPUTER CENTER


Guidance Information System. [GIS]

GIS is a registered trademark of Time Share Corporation.


January 1984

STOP

1140 PRINT "This program has been taken over by the MOSTLY PROGRAMMESRS"
1142 PRINT "YOU HAVE NO CONTROL ANYMORE!!!!!!!"
RUN
GIS   

FUCK YOU
This program has been taken over by the MOSTLY PROGRAMMESRS
YOU HAVE NO CONTROL ANYMORE!!!!!!!
LOWER HUDSON REGIONAL COMPUTER CENTER


Guidance Information System. [GIS]

GIS is a registered trademark of Time Share Corporation.


January 1984


Copyrigh

STOP

BYE

27 MINUTES OF TERMINAL TIME USED

