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