Data Storage and Display System

Gallery

Source Code

   1 PRINT AT 6,9;"DO NOT HIT %R%U%N"
   2 PRINT AT 8,1;"%Y%O%U% %H%A%V%E% %L%O%S%T% %D%A%T%A% %S%I%N%C%E% %L%A%S%T"
   3 PRINT AT 10,5;"%L%O%A%D%I%N%G% %F%R%O%M% %C%A%S%S%E%T%T%E"
   4 PRINT AT 13,4;"REENTER AND USE %G%O%T%O% %5%0"
   5 STOP 
 100 FAST 
 105 CLS 
 108 PRINT 
 110 PRINT "%D%A%T%A% %S%T%O%R%A%G%E% %A%N%D% %D%I%S%P%L%A%Y% %S%Y%S%T%E%M   COPYRIGHT 1982 BY AL BANDY      FOR:%Z%X%-%P%A%N%D%I%N%G%,%L%T%D%.,BOX 25" 
 112 PRINT TAB 7;"NEWTON,NC  28658"
 120 PRINT AT 7,11;"%M%E%N%U"
 125 PRINT AT 9,0;"1-OPEN A NEW FILE"
 128 PRINT "2-LIST FILE TITLES"
 130 PRINT "3-ENTER DATA INTO EXISTING FILE 4-CORRECT A POINT IN A FILE     5-TABULAR LISTING OF A FILE     6-GRAPH A FILE"
 136 PRINT "7-SAVE ON TO TAPE"
 137 PRINT "8-%C%L%O%S%E% %O%U%T% %A% %F%I%L%E"
 138 PRINT "9-%E%N%D"
 140 PRINT 
 145 PRINT " %T%O%U%C%H% %J%O%B% %N%U%M%B%E%R% %D%E%S%I%R%E%D"
 150 GOSUB 1900
 160 IF U$="1" THEN GOTO 300
 162 IF U$="2" THEN GOTO 550
 164 IF U$="3" THEN GOTO 450
 166 IF U$="4" THEN GOTO 600
 168 IF U$="5" THEN GOTO 700
 170 IF U$="6" THEN GOTO 750
 174 IF U$="7" THEN GOTO 850
 175 IF U$="8" THEN GOTO 200
 176 IF U$="9" THEN GOTO 900
 180 GOTO 150
 200 CLS 
 205 GOSUB 1300
 208 PRINT 
 210 PRINT "WHICH FILE DO YOU NEED CLOSED ?"
 215 INPUT I
 220 FOR J=1 TO 60
 225 LET D(I,J)=0
 230 NEXT J
 235 LET N(I)=0
 240 LET Q$(I)=""
 250 GOTO 100
 300 CLS 
 305 LET I=0
 310 LET I=I+1
 320 IF N(I)=0 THEN GOTO 330
 325 GOTO 310
 330 PRINT "WHAT IS THE TITLE OF FILE ";I
 335 INPUT Q$(I)
 340 PRINT TAB 4;Q$(I)
 350 PRINT "HOW MANY POINTS WILL YOU ENTER   INTO FILE NUMBER ";I;" ?"
 360 INPUT N(I)
 363 IF N(I)>60 THEN PRINT "  %O%N%L%Y% %6%0% %P%O%I%N%T%S% %C%A%N% %B%E% %E%N%T%E%R%E%D%."
 366 IF N(I)>60 THEN GOTO 350
 370 CLS 
 380 LET J=0
 390 LET J=J+1
 395 IF J=N(I)+1 THEN GOTO 100
 400 GOSUB 1000
 405 GOTO 390
 450 CLS 
 453 GOSUB 1300
 456 PRINT 
 460 PRINT "ENTER DATA INTO WHICH FILE NO.?"
 465 INPUT I
 467 CLS 
 470 PRINT "NUMBER ";I;" IS ";Q$(I)
 475 PRINT 
 480 PRINT N(I);" POINTS HAVE BEEN ENTERED."
 485 LET J=N(I)
 490 PRINT "%H%O%W% %M%A%N%Y% %M%O%R%E% %P%O%I%N%T%S% %D%O% %Y%O%U% %W%I%S%H %T%O% %E%N%T%E%R% %?"
 500 INPUT A
 505 LET N(I)=N(I)+A
 510 IF N(I)>60 THEN GOTO 530
 512 CLS 
 515 GOTO 390
 530 LET N(I)=N(I)-A
 535 PRINT "%O%N%L%Y% %6%0% %P%O%I%N%T%S% %C%A%N% %B%E% %E%N%T%E%R%E%D"
 540 GOTO 475
 550 CLS 
 555 GOSUB 1300
 570 GOTO 1800
 600 CLS 
 602 GOSUB 1300
 604 PRINT 
 605 PRINT "CORRECTION IN WHICH FILE NUMBER?";
 610 INPUT I
 620 GOSUB 1400
 625 PRINT 
 630 PRINT 
 640 PRINT "WHICH POINT NUMBER IS INCORRECT ?";
 645 INPUT J
 650 PRINT J
 655 PRINT "WHAT IS THE CORRECT DATA ?"
 660 INPUT D(I,J)
 670 GOSUB 1200
 680 GOTO 100
 700 CLS 
 703 GOSUB 1300
 704 PRINT 
 705 PRINT "WHICH FILE NUMBER DO YOU WANT    LISTED ?";
 710 INPUT I
 715 GOSUB 1400
 720 GOTO 1800
 750 CLS 
 753 GOSUB 1300
 755 PRINT 
 760 PRINT "WHICH FILE NUMBER DO YOU WANT    GRAPHED ?"
 765 INPUT I
 770 GOTO 1500
 850 CLS 
 860 PRINT AT 3,1;"%D%O% %Y%O%U% %N%E%E%D% %T%O% %R%E%T%U%R%N% %T%O% %M%E%N%U% %?"
 862 PRINT TAB 12;"%(%Y% %O%R% %N%)"
 865 PRINT AT 7,5;"IF %N IS TOUCHED THEN THE"
 867 PRINT AT 9,1;"%D%A%T%A% %S%T%O%R%A%G%E% %A%N%D% %D%I%S%P%L%A%Y% %S%Y%S%T%E%M"
 868 PRINT AT 11,9;"WILL BE SAVED."
 870 GOSUB 1900
 875 LET A$="DS AND DS"
 880 IF U$="N" THEN SAVE A$
 890 GOTO 100
 900 CLS 
 910 PRINT AT 4,0;"%D%O% %Y%O%U% %N%E%E%D% %T%O% %R%E%T%U%R%N% %T%O% %M%E%N%U% %?"
 913 PRINT TAB 12;"%(%Y% %O%R% %N%)"
 920 PRINT 
 925 PRINT "IF %N IS TOUCHED THEN THE PROGRAM";TAB 12;"WILL %E%N%D."
 930 GOSUB 1900
 940 IF U$<>"N" THEN GOTO 100
 945 PRINT 
 950 PRINT "%T%H%E% %P%R%O%G%R%A%M% %H%A%S% %E%N%D%E%D"
 955 PRINT 
 960 PRINT "ENTER %G%O%T%O% %5%0 IF NEED TO CONT."
 970 STOP 
1000 PRINT AT 0,0;"                                ";
1010 PRINT "      FILE ";I;" IS ";Q$(I);"      "
1020 PRINT "CURRENT RANGE IS ";D(I,L(I));" TO ";D(I,H(I))
1035 SCROLL 
1040 PRINT "WHAT IS DATA POINT-";J
1045 INPUT D(I,J)
1050 GOSUB 1200
1060 PRINT AT 21,0;"     DATA POINT ";J;" IS ";D(I,J)
1070 RETURN 
1200 IF D(I,J)>D(I,H(I)) THEN LET H(I)=J
1210 IF D(I,J)<D(I,L(I)) THEN LET L(I)=J
1220 RETURN 
1300 LET I=0
1305 PRINT TAB 10;"%F%I%L%E% %T%I%T%L%E%S"
1310 LET I=I+1
1320 IF I=F+1 THEN RETURN 
1330 PRINT I;"-";Q$(I);
1335 LET I=I+1
1340 IF I=F+1 THEN RETURN 
1345 PRINT TAB 16;I;"-";Q$(I)
1350 GOTO 1310
1400 CLS 
1402 LET V=0
1404 FOR J=1 TO N(I)
1406 LET V=V+D(I,J)
1408 NEXT J
1410 PRINT AT 1,4;"FILE NUMBER ";I;" IS ";Q$(I)
1415 PRINT "RANGE IS FROM ";D(I,L(I));" TO ";D(I,H(I))
1417 PRINT "DATA MEAN=";V/N(I);"  SUM=";V
1418 PRINT 
1420 LET J=1
1425 PRINT J;"=";D(I,J);
1430 IF J=N(I) THEN RETURN 
1440 LET J=J+1
1446 PRINT TAB 8;J;"=";D(I,J);
1448 IF J=N(I) THEN RETURN 
1450 LET J=J+1
1456 PRINT TAB 16;J;"=";D(I,J);
1458 IF J=N(I) THEN RETURN 
1460 LET J=J+1
1466 PRINT TAB 24;J;"=";D(I,J)
1468 IF J=N(I) THEN RETURN 
1470 LET J=J+1
1475 GOTO 1425
1500 LET V=0
1502 FOR J=1 TO N(I)
1505 LET E(J)=D(I,J)
1507 LET V=V+D(I,J)
1508 GOSUB 1200
1510 NEXT J
1520 LET X=E(H(I))-E(L(I))
1523 IF X=0 THEN PRINT "ALL DATA EQUAL:CANNOT BE GRAPHED"
1528 IF X=0 THEN GOTO 1800
1530 IF X>37 THEN LET Z=1
1533 IF X>=24 AND X<=37 THEN GOTO 1600
1536 IF X<24 THEN LET Z=2
1540 FOR J=1 TO N(I)
1550 IF Z=1 THEN LET E(J)=E(J)/1.5
1555 IF Z=2 THEN LET E(J)=E(J)*1.5
1560 NEXT J
1570 GOTO 1520
1600 CLS 
1610 PRINT "FILE ";I;" IS ";Q$(I);" :SUM=";V
1620 PRINT " LOW=";D(I,L(I));" HIGH=";D(I,H(I));" MEAN=";V/N(I)
1625 PRINT " CLOSING=";D(I,N(I));"  (NUMBER ";N(I);" )"
1628 PRINT AT 0,0;""
1630 FOR K=1 TO 19
1631 PRINT "\: "
1633 NEXT K
1635 SLOW 
1637 PRINT AT 20,0;"\''1\''\''\''10\''\''\''20\''\''\''30\''\''\''40\''\''\''50\''\''\''60"
1640 FOR J=1 TO N(I)
1650 FOR K=4 TO (INT (E(J)-E(L(I))+4))
1655 PLOT J+1,K
1660 NEXT K
1665 NEXT J
1668 FAST 
1670 GOTO 1800
1800 PRINT AT 21,1;"%P%R%E%S%S% %E%N%T%E%R% %T%O% %R%E%T%U%R%N% %T%O% %M%E%N%U"
1810 INPUT K$
1820 GOTO 100
1900 SLOW 
1903 IF INKEY$<>"" THEN GOTO 1903
1905 IF INKEY$="" THEN GOTO 1905
1910 LET U$=INKEY$
1915 FAST 
1920 RETURN 
2000 PRINT AT 8,3;"THIS IS THE INITIALIZATION"
2010 PRINT AT 10,4;"TO DIMENSION THE MEMORY."
2020 PRINT AT 13,5;"ENTER %G%O%T%O% %5%0 TO CONT."
2030 LET F=25
2040 DIM D(F,60)
2043 DIM E(60)
2045 DIM H(F)
2046 DIM N(F+1)
2049 DIM Q$(F,10)
2050 DIM L(F)
2052 FOR I=1 TO F
2055 LET L(I)=1
2058 LET H(I)=1
2060 NEXT I
2090 STOP