190 lines
6.8 KiB
Plaintext
190 lines
6.8 KiB
Plaintext
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
|
||
|
||
|