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