home *** CD-ROM | disk | FTP | other *** search
/ Amiga Elysian Archive / AmigaElysianArchive.iso / bus_pers / ham.lha / ARRLDXBoot1.0 (.txt) < prev    next >
AmigaBASIC Source Code  |  1990-08-31  |  577b  |  21 lines
  1. 'ARRL DX Boot
  2. select: 
  3.   CLS:LOCATE 4,22:PRINT "ARRL INTERNATIONAL DX CONTEST"
  4.   LOCATE 7,10:PRINT"MAIN MENU"
  5.   LOCATE 9,15:PRINT"(1) Log Contacts"
  6.   LOCATE 11,15:PRINT"(2) Print Reports"
  7.   LOCATE 13,15:PRINT"(3) View Reports on Screen"
  8.   LOCATE 15,15:PRINT"(4) Quit"
  9.   LOCATE 17,10:INPUT "Select a number "; sel$
  10.   IF sel$ <> "1" AND sel$ <> "2" AND sel$ <> "3" AND sel$ <> "4" THEN select
  11.   IF sel$="1" THEN CLS:CLEAR:CHAIN "ARRLDXLog_v1.01"
  12.   IF sel$="2" THEN CLS:CLEAR:CHAIN "ARRLDXPrt_v1.0"
  13.   IF sel$="3" THEN CLS:CLEAR:CHAIN "ARRLDXScrn_v1.0"
  14.   IF sel$="4" THEN GOTO halt
  15.               
  16. halt:
  17.   CLOSE:CLS
  18.   LOCATE 10,1:PRINT TAB(30); "THAT'S ALL!"
  19.   END
  20.  
  21.