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