home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Elysian Archive
/
AmigaElysianArchive.iso
/
bus_pers
/
ham.lha
/
SSBoot1.2
(
.txt
)
< prev
next >
Wrap
AmigaBASIC Source Code
|
1990-09-02
|
687b
|
23 lines
'SS Boot for ARRL Sweepstakes Programs, by George R. Leone, identified below.
'These are in the public domain. Use at your own risk.
select:
CLS:LOCATE 4,28:PRINT "ARRL SWEEPSTAKES CONTEST"
LOCATE 7,10:PRINT"MAIN MENU"
LOCATE 9,15:PRINT"(1) Log Contacts"
LOCATE 11,15:PRINT"(2) Print Reports"
LOCATE 13,15:PRINT"(3) View Reports on Screen"
LOCATE 15,15:PRINT"(4) Quit"
LOCATE 17,10:INPUT "Select a number "; sel$
IF sel$ <> "1" AND sel$ <> "2" AND sel$ <> "3" AND sel$ <> "4" THEN select
IF sel$="1" THEN CLS:CLEAR:CHAIN "SSLog_v1.2"
IF sel$="2" THEN CLS:CLEAR:CHAIN "SSPrt_v1.2"
IF sel$="3" THEN CLS:CLEAR:CHAIN "SSScrn_v1.2"
IF sel$="4" THEN GOTO halt
halt:
CLOSE:CLS
LOCATE 10,1:PRINT TAB(30); "THAT'S ALL!"
END