home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib33b.dsk / START.ANALYSIS.bas < prev    next >
BASIC Source File  |  2023-02-26  |  8KB  |  122 lines
  1. 1  REM  ***********************
  2. 2  REM  * START.ANALYSIS      *
  3. 3  REM  * ENERGY SQUEEZER     *
  4. 4  REM  * BY VERN L. MASTEL   *
  5. 5  REM  * COPYRIGHT (C) 1988  *
  6. 6  REM  * MICROSPARC, INC     *
  7. 7  REM  * CONCORD, MA 01742   *
  8. 8  REM  ***********************
  9. 10  REM  39 "="  
  10. 20  DIM A$(50):LINE$ = "======================================="
  11. 30  HOME : FOR X = 1 TO 23: PRINT "*": NEXT 
  12. 40  VTAB 1: FOR X = 1 TO 39: PRINT "*";: NEXT 
  13. 50  FOR X = 1 TO 23: HTAB 39: PRINT "*": NEXT 
  14. 60  VTAB 23: FOR X = 1 TO 39: PRINT "*";: NEXT 
  15. 70  VTAB 5: HTAB 10: PRINT "ENERGY SQUEEZER": PRINT 
  16. 80  HTAB 11: PRINT "-SELECT LIVING ZONE": PRINT 
  17. 90  HTAB 11: PRINT "-ENTER WORKSHEET DATA": PRINT 
  18. 100  HTAB 11: PRINT "-RUN THE ANALYSIS": PRINT ;: VTAB 21: HTAB 12: PRINT "COPYRIGHT (C) 1988": HTAB 13: PRINT "MICROSPARC, INC"
  19. 110 A =  PEEK(64435):B =  PEEK(64448): IF A = 6  AND (B >223  AND B <240)  OR (A = 6  AND B = 0)  THEN  VTAB 14: HTAB 7: PRINT "MAKE SURE CAPS LOCK IS DOWN!"
  20. 120  HTAB 8: VTAB 17: PRINT "PRESS RETURN TO CONTINUE";: GET A$
  21. 130  NORMAL : POKE 34,0: HOME : RESTORE :V = 2:H = 1:B = 2
  22. 140  PRINT LINE$
  23. 150  FOR X = 1 TO 16: READ A$(X): PRINT A$(X): NEXT X
  24. 160  VTAB 2: FOR X = 1 TO 16: READ A$(X +16): HTAB 12: PRINT A$(X +16): NEXT X
  25. 170  VTAB 2: FOR X = 1 TO 16: READ A$(X +32): HTAB 26: PRINT A$(X +32): NEXT X
  26. 180  PRINT LINE$
  27. 190  VTAB 20: PRINT "USE THE <- -> ARROWS TO SELECT THE STATE"
  28. 200  PRINT : HTAB 6: PRINT "YOU ARE IN AND PRESS RETURN"
  29. 210  INVERSE : VTAB V: HTAB H: PRINT A$(B -1)
  30. 220 K =  PEEK(49152): IF K <128  THEN 220
  31. 230  POKE 49168,0: NORMAL : VTAB V: HTAB H: PRINT A$(B -1): IF K = 141  THEN 350
  32. 240  IF K = 136  OR K = 139  THEN V = V -1:B = B -1: GOSUB 270
  33. 250  IF K = 138  OR K = 149  THEN V = V +1:B = B +1: GOSUB 310
  34. 260  GOTO 210
  35. 270  IF B = 1  THEN B = 49:V = 17:H = 26
  36. 280  IF B = 33  THEN V = 17:H = 12
  37. 290  IF B = 17  THEN V = 17:H = 1
  38. 300  RETURN 
  39. 310  IF V = 18  THEN V = 2:H = 12
  40. 320  IF B = 34  THEN V = 2:H = 26
  41. 330  IF B = 50  THEN V = 2:H = 1:B = 2
  42. 340  RETURN 
  43. 350 B = B -1
  44. 360  HOME :AE = (B >5  AND B <9)  OR (B = 14)  OR (B = 15)  OR (B >16  AND B <20)  OR (B = 28)  OR (B = 37)
  45. 370  PRINT : PRINT : IF   NOT AE  THEN  HTAB 5: PRINT "SELECT THE CITY NEAREST YOU"
  46. 380  PRINT LINE$
  47. 390  RESTORE : FOR X = 1 TO 48: READ S$: NEXT 
  48. 400  IF B = 1  THEN 420
  49. 410  FOR X = 1 TO (6 *(B -1)): READ S$: NEXT 
  50. 420  FOR X = 1 TO 6: READ A$
  51. 430  IF A$ >"0"  AND A$ <"7"  THEN B$ = A$:A$ = " ":AE = 1
  52. 440  IF A$ = "/"  THEN A$ = " "
  53. 450  PRINT : HTAB 10: PRINT A$:A$(X) = A$
  54. 460  NEXT : PRINT : PRINT LINE$: IF AE  THEN 490
  55. 470  PRINT : PRINT "USE THE <- -> ARROWS TO SELECT THE CITY"
  56. 480  PRINT : HTAB 11: PRINT "PRESS 'B' TO BACKUP": GOTO 500
  57. 490  VTAB 20: CALL  -958: PRINT "AUTOMATIC ENTRY PRESS RETURN TO CONTINUE": PRINT : HTAB 11: PRINT "PRESS 'B' TO BACKUP";: GET A$: ON A$ = "B" GOTO 130: GOTO 600
  58. 500 V = 6:B = 2
  59. 510  INVERSE : VTAB V: HTAB 10: PRINT A$(B -1)
  60. 520 K =  PEEK(49152): IF K <128  THEN 520
  61. 530  POKE 49168,0: NORMAL : VTAB V: HTAB 10: PRINT A$(B -1): IF K = 141  THEN 580
  62. 540  IF K = 136  OR K = 139  THEN V = V -2:B = B -1: IF V = 4  THEN V = 16:B = 7
  63. 550  IF K = 138  OR K = 149  THEN V = V +2:B = B +1: IF V = 18  THEN V = 6:B = 2
  64. 560  IF K = 194  THEN 130
  65. 570  GOTO 510
  66. 580 B = B -1: IF  LEN(A$(B)) <2  THEN B = B +1: GOTO 510
  67. 590 M = ( VAL( RIGHT$(A$(B),1))) *10: GOTO 610
  68. 600 M =  VAL(B$) *10
  69. 610  POKE 6,M: HOME : VTAB 10: HTAB 15: PRINT "PLEASE WAIT"
  70. 620  PRINT : PRINT : PRINT "LOADING DATA ENTRY AND ANALYSIS PROGRAM"
  71. 630  PRINT  CHR$(4)"RUN ANALYZER"
  72. 640  DATA  ALABAMA,ARIZONA,ARKANSAS,CALIFORNIA,COLORADO,CONNECTICUT,DELAWARE,FLORIDA,GEORGIA,IDAHO,ILLINOIS,INDIANA,IOWA,KANSAS,KENTUCKY,LOUISIANA,MAINE
  73. 650  DATA  MARYLAND,MASSACHUSETTS,MICHIGAN,MINNESOTA,MISSISSIPPI,MISSOURI,MONTANA,NEBRASKA,NEVADA,NEW HAMPSHIRE,NEW JERSEY,NEW MEXICO,NEW YORK,NORTH CAROLINA
  74. 660  DATA  NORTH DAKOTA,OHIO,OKLAHOMA,OREGON,PENNSYLVANIA,RHODE ISLAND,SOUTH CAROLINA,SOUTH DAKOTA,TENNESEE,TEXAS,UTAH,VERMONT,VIRGINIA,WASHINGTON,WEST VIRGINIA,WISCONSIN,WYOMING
  75. 670  DATA  HUNTSVILLE-2,BIRMINGHAM-2,TUSCALOOSA-2,MOBILE-1,DOTHAN-1,MONTGOMERY-2
  76. 680  DATA  FLAGSTAFF-3,PHOENIX-1,TUSCON-1,WILCOX-2,PRESCOTT-3,NEEDLES-2 
  77. 690  DATA  LITTLE ROCK-2,JONESBORO-3,TEXARKANA-2,FT. SMITH-2,FAYETTEVILLE-3,EL DORADO-2
  78. 700  DATA  SAN FRANSISCO-2,SANTA BARBARA-1,SAN DIEGO-1,REDDING-3,FRESNO-2,BISHOP-3
  79. 710  DATA  PUEBLO-3,STERLING-4,LAMAR-3,COLORADO SPRINGS-3,GRAND JUNCTION-5,DENVER-4
  80. 720  DATA  4,THE ENTIRE STATE,/,>  IS  ZONE  4,/,/
  81. 730  DATA  3,THE ENTIRE STATE,/,>  IS  ZONE  3,/,/
  82. 740  DATA  1,THE ENTIRE STATE,/,>  IS  ZONE  1,/,/
  83. 750  DATA  ATLANTA-2,AUGUSTA-2,SAVANNAH-1,ALBANY-1,VALDOSTA-1,GAINESVILLE-2
  84. 760  DATA  COUER D'ALENE-4,BOISE-5,TWIN FALLS-5,POCATELLO-5,LEWISTON-4,/
  85. 770  DATA  ROCKFORD-4,CHICAGO-4,PEORIA-4,SPRINGFIELD-3,ALTON-3,VINCENNES-3 
  86. 780  DATA  GARY-4,FORT WAYNE-4,INDIANAPOLIS-4,EVANSVILLE-3,COLUMBUS-3,LAFAYETTE-4
  87. 790  DATA  MASON CITY-5,WATERLOO-4,DAVENPORT-4,SIOUX CITY-4,DESMOINES-4,KELLERTON-4
  88. 800  DATA  3,THE ENTIRE STATE,/,>  IS  ZONE  3,/,/
  89. 810  DATA  5,THE ENTIRE STATE,/,>  IS  ZONE  5,/,/
  90. 820  DATA  SHREVEPORT-2,MONROE-2,ALEXANDRIA-1,LAKECHARLES-1,NEW ORLEANS-1,BATON ROUGE-1
  91. 830  DATA  5,THE ENTIRE STATE,/,>  IS   ZONE  5,/,/
  92. 840  DATA  3,THE ENTIRE STATE,/,>  IS  ZONE  3,/,/
  93. 850  DATA  4,THE ENTIRE STATE,/,>  IS  ZONE  4,/,/
  94. 860  DATA  SAGINAW-4,KALAMAZOO-4,DETRIOT-4,TRAVERSE CITY-5,ESCANABA-5,SAULT ST. MARIE-5
  95. 870  DATA  CROOKSTON-6,INT'L FALLS-6,DULUTH-5,MINNEAPOLIS-5,MARSHALL-5,AUSTIN-5
  96. 880  DATA  TUPELO-2,COLUMBUS-2,JACKSON-2,HATTIESBURG-1,BILOXI-1,NATCHEZ-1
  97. 890  DATA  KANSAS CITY-3,ST. LOUIS-3,SPRINGFIELD-3,SIKESTON-3,ST. JOSEPH-4,KIRKSVILLE-4
  98. 900  DATA  GLASGOW-5,GLENDIVE-5,BILLINGS-4,GREAT FALLS-4,MISSOULA-4,KALISPELL-4
  99. 910  DATA  SCOTTSBLUFF-5,NORTH PLATTE-4,LINCOLN-4,GRAND ISLAND-4,VALENTINE-4,MC COOK-4
  100. 920  DATA  AUSTIN-5,ELKO-5,RENO-4,GLENDALE-3,LAS VEGAS-2,TONOPAH-3  
  101. 930  DATA  CONCORD-4,MANCHESTER-4,SANFORD-4,LEBANON-5,LITTLETON-5,BERLIN-5
  102. 940  DATA  3,THE ENTIRE STATE,/,>  IS  ZONE  3,/,/
  103. 950  DATA  LAS CRUCES-2,SANTA FE-3,ROSWELL-2,ALBUQUERQUE-3,CARLSBAD-2,/
  104. 960  DATA  NEW YORK CITY-3,ALBANY-4,SYRACUSE-4,BUFFALO-4,WATERTOWN-5,GLENFALLS-5
  105. 970  DATA  WINSTON-SALEM-2,RALEIGH-2,CHARLOTTE-2,COLUMBIA-2,ASHEVILLE-3,FAYETTEVILLE-2
  106. 980  DATA  MINOT-6,GRAND FORKS-6,BISMARCK-5,DICKINSON-5,FARGO-5,WILLISTON-5
  107. 990  DATA  TOLEDO-4,CLEVELAND-4,COLUMBUS-3,ZANESVILLE-3,CINCINNATI-3,PORTSMOUTH-3
  108. 1000  DATA  TULSA-3,OKLAHOMA CITY-3,BLACKWELL-3,LAWTON-2,DURANT-2,FT. SMITH-2
  109. 1010  DATA  PORTLAND-3,SALEM-3,PENDLETON-3,EUGENE-3,BEND-4,BURNS-4
  110. 1020  DATA  LANCASTER-3,PHILADELPHIA-3,PITTSBURGH-4,NEW CASTLE-4,WILLIAMSPORT-4,SCRANTON-4
  111. 1030  DATA  5,THE ENTIRE STATE,/,>  IS  ZONE  5,/,/
  112. 1040  DATA  GREENVILLE-2,CHARLESTON-1,COLUMBIA-2,FLORENCE-2,HILTON HEAD-1,ORANGEBURG-2
  113. 1050  DATA  WATERTOWN-5,SIOUX FALLS-4,RAPID CITY-4,PIERRE-5,LEAD-5,MOBRIDGE-5
  114. 1060  DATA  MEMPHIS-2,NASHVIILLE-2,KNOXVILLE-2,CHATTANOOGA-3,COOKVILLE-3,MANCHESTER-3
  115. 1070  DATA  AMARILLO-3,EL PASO-2,ODESSA-2,FT. WORTH-2,HOUSTON-1,LAREDO-1
  116. 1080  DATA  PROVO-5,OGDEN-5,SALT LAKE CITY-5,RICHFIELD-5,GREEN RIVER-4,CEDAR CITY-4
  117. 1090  DATA  BRATTLEBORO-4,BENNIGTON-4,BURLINGTON-5,MONTPELIER-5,NEWPORT-5,/
  118. 1100  DATA  RICHMOND-2,NORFOLK-2,ARLINGTON-3,ROANOKE-3,DANVILLE-3,CHARLOTTESVILLE-3
  119. 1110  DATA  /,SPOKANE-4,YAKIMA-4,OLYMPIA-3,SEATTLE-3,/
  120. 1120  DATA  FAIRMONT-4,CHARLESTON-3,HUNTINGTON-3,PARKERSBURG-3,ELKINS-3,CUMBERLAND-3
  121. 1130  DATA  RHINELANDER-5,EAU CLAIRE-5,LACROSSE-5,MADISON-4,WAUKESHA-4,APPLETON-5
  122. 1140  DATA  LANDER-6,CASPAR-5,ROCK SPRINGS-5,SHERIDAN-4,CODY-5,CHEYENNE-5