home *** CD-ROM | disk | FTP | other *** search
/ World of Ham Radio 1997 / WOHR97_AmSoft_(1997-02-01).iso / basic / wasgen.bas < prev    next >
BASIC Source File  |  1997-02-01  |  1KB  |  31 lines
  1. 10 REM WASGEN VERSION 851005
  2. 20 REM BY JOE KASSER G3ZCZ
  3. 25 CLS:WIDTH 80
  4. 30 INPUT "What is the name of the new WAS data file (D:NAME) ? ";L$:IF L$="" THEN 30
  5. 40 L$=L$+".WAS"
  6. 50 OPEN L$ FOR OUTPUT AS 1
  7. 60 C$=" ":M$=C$:W$=C$:B$=C$:D$=C$
  8. 70 FOR I%=1 TO 50
  9. 80 READ S$,C
  10. 90 PRINT#1,S$;",";C;",";W$;",";C$;",";B$;",";D$;",";M$
  11. 100 NEXT
  12. 110 PRINT#1,"Blank File"
  13. 120 CLOSE #1
  14. 130 GOTO 270
  15. 140 DATA"ALABAMA",4,"ALASKA",7,"ARIZONA",7,"ARKANSAS",5,"CALIFORNIA",6
  16. 150 DATA"COLORADO",0,"CONNECTICUT",1,"DELAWARE",3,"FLORIDA",4,"GEORGIA",4
  17. 160 DATA"HAWAI",6,"IDAHO",7,"ILLINOIS",9,"INDIANA",9,"IOWA",0
  18. 170 DATA"KANSAS",0,"KENTUCKY",4,"LOUISIANA",5,"MAINE",1,"MARYLAND",3
  19. 180 DATA"MASSACHUSETTS",1,"MICHIGAN",8,"MINNESOTA",0,"MISSISSIPPI",5
  20. 190 DATA "MISSOURI",0
  21. 200 DATA"MONTANA",7,"NEBRASKA",0,"NEVADA",7,"NEW HAMPSHIRE",1,"NEW JERSEY",2
  22. 210 DATA"NEW MEXICO",7,"NEW YORK",2,"N. CAROLINA",4,"N. DAKOTA",0,"OHIO",8
  23. 220 DATA"OKLAHOMA",5,"OREGON",7,"PENNSYLVANIA",3,"RHODE ISLAND",1
  24. 230 DATA"S. CAROLINA",4
  25. 240 DATA"S. DAKOTA",0,"TENNESSEE",4,"TEXAS",5,"UTAH",7,"VERMONT",1
  26. 250 DATA"VIRGINIA",4,"WASHINGTON",7,"WEST VIRGINIA",8,"WISCONSIN",9
  27. 260 DATA"WYOMING",7
  28. 270 END
  29. AS",5,"UTAH",7,"VERMONT",1
  30. 250 DATA"VIRGINIA",4,"WASHINGTON",7,"WEST VIRGINIA",8,"WISCONSIN",9
  31. 26