home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / misc2 / sign37-3.exe / WEATHER.BAS (.txt) < prev   
Encoding:
GW-BASIC  |  1990-04-19  |  4.2 KB  |  101 lines
  1. 10   KEY OFF:CLS
  2. 11   SCREEN 1
  3. 13   COLOR 1,7
  4. 20  LOCATE 22,20:PRINT"PRESS A NUMBER           <ESC> FOR MENU"
  5. 21  LOCATE 1,5:PRINT"1=SUNNY:2=CLOUDY:3=RAINY:4=SNOW
  6. 22  LOCATE 3,9:PRINT"5=HAIL:6=WINDY:7=STORMY
  7. 25  K3$=INKEY$:IF K3$="" THEN 25
  8. 26  IF ASC(K3$)=27 THEN CHAIN "MENUII2",,ALL
  9. 27   DRAW "S14"
  10. 30  L=ASC(K3$)-48:IF L>7  OR L<1 THEN 20
  11. 40  ON L GOSUB 170,190,230,260,290,320,370
  12. 45  FOR DL=0 TO 900:NEXT:CLS
  13. 50  GOTO 20
  14. 135  DRAW "S14"
  15. 170   B$="S08E3U4E5R14F7D1G1L1H6F5D1G1L1H7F6  G1L2H7F5  G1L2G2E2H6F3  G1L2H3G1
  16. 171    A$="S10U3E4R1E5R1F1D1G5E1F1D2U1F1D2U1F1D2G3"
  17. 172  C$="R7F7D1G1H3DD4G1L1H1U2D3G1L1H1U4 D3G1L1H1U3D2G1L1H1U4
  18. 175  GOSUB 2000:GOSUB 2010:GOSUB 3000:DRAW BD$:GOSUB 4000
  19. 183  DRAW "   C0M100, 70C3XB$;":GOSUB 9000
  20. 184  DRAW "   C0M100, 70  XB$;"
  21. 185  DRAW "   C0M140, 60C3XC$;":GOSUB 9000
  22. 186  DRAW "   C0M140, 60  XC$;
  23. 187       RETURN
  24. 190   B$="U2E2U3 E3u2H1L1d1G3u1E2u4H1L1G1d2G2U9H1L1G1D7G1H1U8H1L1G1D11G2L2H1L3d1F4R2d1F2d2
  25. 191   C$="U2H2U3 h3u2e1r1d1f3u1h2u4e1r1f1d2f2U9E1R1F1D7f1e1U8E1R1F1D11f2r2e1r3d1g4l2d1g2d2
  26. 192  GOSUB 3000:DRAW BD$:GOSUB 2000:GOSUB 2010:
  27. 193  GOSUB 2000:GOSUB 2010:FOR TM=1 TO 2
  28. 194  DRAW "C0S08M130,120C3XC$;C0M230,120C3XB$;":GOSUB 9000
  29. 195  DRAW "C0S08M130,120  XC$;C0M230,120 XB$;"
  30. 196  DRAW "C0S08M120,120C3XC$;C0M240,120C3XB$;":GOSUB 9000
  31. 197  DRAW "C0S08M120,120  XC$;C0M240,120 XB$;"
  32. 198  DRAW "C0S08M160,120C3XB$;C0M200,120C3XC$;":GOSUB 9000
  33. 199  DRAW "C0S08M160,120  XB$;C0M200,120 XC$;"
  34. 202  NEXT:RETURN
  35. 230  B$="R7F7D1G1H3DD4G1L1H1U2D3G1L1H1U4 D3G1L1H1U3D2G1L1H1U4
  36. 231   A$="S08E3U4E5R14F7D1G1L1H6F5D1G1L1H7F6  G1L2H7F5  G1L2G2E2H6F3  G1L2H3G1
  37. 232   C$="S08H3U4H5L14G7D1F1R1E6G5D1F1R1E7G6  F1R2E7G5  F1R2F2H2E6G3  F1R2E3F1
  38. 233  D$="L7G7D1F1E3DD4F1R1E1U2D3F1R1E1U4 D3F1R1E1U3D2F1R1E1U4
  39. 242  GOSUB 3000:DRAW BD$:GOSUB 2000:GOSUB 2010:FOR TM=1 TO 2
  40. 243  DRAW "S10C0M110, 65C3XA$;C0M250, 65C3XC$;":GOSUB 9000
  41. 244  DRAW "S10C0M110, 65  XA$;C0M250, 65  XC$;"
  42. 245  DRAW "C0M120,120C3XB$;C0M240,120C3XD$;":GOSUB 9000
  43. 246  DRAW "C0M120,120  XB$;C0M240,120  XD$;"
  44. 247  NEXT:DRAW "S14":RETURN
  45. 260  B$="R7F7D1G1H3DD4G1L1H1U2D3G1L1H1U4 D3G1L1H1U3D2G1L1H1U4
  46. 261   A$="S08E3U4E5R14F7D1G1L1H6F5D1G1L1H7F6  G1L2H7F5  G1L2G2E2H6F3  G1L2H3G1
  47. 262   C$="S08H3U4H5L14G7D1F1R1E6G5D1F1R1E7G6  F1R2E7G5  F1R2F2H2E6G3  F1R2E3F1
  48. 263  D$="L7G7D1F1E3DD4F1R1E1U2D3F1R1E1U4 D3F1R1E1U3D2F1R1E1U4
  49. 270  GOSUB 3000:DRAW BD$:GOSUB 2000:GOSUB 2010:
  50. 275  DRAW "S10C0M110, 75TA45C3XA$;C0M250, 75C3XC$;":GOSUB 9000
  51. 276  DRAW "S10C0M110, 75  XA$;C0M250, 75  XC$;TA0
  52. 277  DRAW "S10C0M110, 95TA-45C3XA$;C0M250, 95C3XC$;":GOSUB 9000
  53. 278  DRAW "S10C0M110, 95  XA$;C0M250, 95  XC$;TA0
  54. 284  DRAW "C0M120,110C3TA45XB$;C0M240,110C3XD$;":GOSUB 9000
  55. 285  DRAW "C0M120,110  XB$;C0M240,110  XD$;TA0"
  56. 286  DRAW "C0M120,110C3TA-45XB$;C0M240,110C3XD$;":GOSUB 9000
  57. 287  DRAW "C0M120,110  XB$;C0M240,110  XD$;TA0"
  58. 289  DRAW "S14":RETURN
  59. 290    D$="      R6F2D2G1H1U1H1L1F2D2G1H1U1H2L1F3D3G1H2U1H2L1  F2D2G1  H2U1H2L1G1D1F2L2H3U3E1H1U1
  60. 291    B$="      L6G2D2F1E1U1E1R1G2D2F1E1U1E2R1G3D3F1E2U1E2R1  G2D2F1  E2U1E2R1F1D1G2R2E3U3H1E1U1
  61. 295  GOSUB 3000:DRAW BD$:GOSUB 2000:GOSUB 2010:
  62. 296  DRAW "   C0M130, 65C3S10XB$;C0M230, 65C3XD$;":GOSUB 9000
  63. 297  DRAW "S10C0M130, 65  XB$;C0M230, 65  XD$;"
  64. 298  DRAW "C0M130,120C3XB$;C0M230,120C3XD$;":GOSUB 9000
  65. 299  DRAW "C0M130,120  XB$;C0M230,120  XD$;"
  66. 300  DRAW "S14":RETURN
  67. 320   A$="U5e5r1f1 D1G2E6R1f1D1G4E5R1f1D1G4E4R1f1D1G4E3R1f1D1G9l2
  68. 321   B$="U5H5L1G1 D1F2H6L1G1D1F4H5L1G1D1F4H4L1G1D1F4H3L1G1D1F9R2
  69. 324   GOSUB 3000:GOSUB 2000:GOSUB 2010:DRAW "C0M120,220C3XBD$;S10":FOR TM=1 TO 2
  70. 325  DRAW "C0M160,130C3S10XA$;C0M220,130C3XA$;":GOSUB 9000
  71. 326  DRAW "C0M160,130  XA$;C0M220,130  XA$;"
  72. 327  DRAW "C0M110,120C3   XB$;C0M170,120C3XB$;":GOSUB 9000
  73. 328  DRAW "C0M110,120  XB$;C0M170,120  XB$;"
  74. 329  NEXT:DRAW "S14":RETURN
  75. 370   A$="R5 E2R4  E3R1F1D1G2 F1 R6F1D1G1L2R3F1D1G1L4 R3F1D1G1L3R2F1D1G1L4
  76. 371   B$="L5 H2L4  H3L1G1D1F2 G1 L6G1D1F1R2L3G1D1F1R4 L3G1D1F1R3L2G1D1F1R4
  77. 375   GOSUB 3000:GOSUB 2000:GOSUB 2010:DRAW "C0M120,220C3XBD$;S10":FOR TM=1 TO 2
  78. 376  DRAW "C0M160,130C3S10XA$;C0M220,130C3XA$;":GOSUB 9000
  79. 380  DRAW "C0M160,130  XA$;C0M220,130  XA$;"
  80. 384  DRAW "C0M110,120C3   XB$;C0M170,120C3XB$;":GOSUB 9000
  81. 385  DRAW "C0M110,120  XB$;C0M170,120  XB$;"
  82. 386  NEXT:DRAW "S14":RETURN
  83. 2000  H$="L3H4U5E3R5F3D5G4L3C0BE1BU1C3R2L1BU1U3H1L2R2F1E1R2":RETURN
  84. 2010  DRAW "C0M185,100C3S16XH$;S14":RETURN
  85. 2020   PT$="U9H2F2R12E2G2D9"
  86. 2021  DRAW "C0M140,130C3S16XPT$;S14":RETURN
  87. 3000  BD$= "C0M140,150C3S18U8E2R3E1U2F2R2E2D2F1R3F2D8":RETURN
  88. 4000  IF ZZ=0 THEN ZZ=600
  89. 4002  KK=3000/ZZ
  90. 4005  R=10:FOR I=-R TO  R STEP KK
  91. 4010  TU = SQR((R*R)-(I*I))
  92. 4020  X=100+I:Y= 60-TU:DRAW "C0M=X;,=Y;":DRAW "C3":DRAW A$:DRAW "C0M=X;,=Y;":DRAW A$
  93. 4030  NEXT
  94. 4040  FOR I= R TO -R STEP -KK
  95. 4050  TU = SQR((R*R)-(I*I))
  96. 4060  X=100+I:Y= 60+TU:DRAW "C0M=X;,=Y;":DRAW "C3":DRAW A$:DRAW "C0M=X;,=Y;":DRAW A$
  97. 4070  NEXT:DRAW "M190,120  XA$;":RETURN
  98. 4071  IF ZZ=600 THEN ZZ=0
  99. 4072  RETURN
  100. 9000  FOR DL=0 TO 1500+ZZ:NEXT:RETURN
  101.