10000 '*************************************************************
10002 '*****    PC-GOLF    THE GOLFER's PROGRAM     PC-GOLF    *****
10004 '*****    Version 1.3  (C) 1982,1983,1984 Ed Chandler    *****
10006 '*************************************************************
10016 '+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
10018 '     6. QUIT. GOING TO THE 19th HOLE
10020 '+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
10021 CLS:PRINT MNU6$:PRINT:CLOSE
10030 IF ROS=0 THEN 10040
10034 DEF SEG=&H40:I%=PEEK(&H17):I%=I% AND NOT 64:POKE &H17,I% 'caps lock off
10036 DEF SEG=&H40:I%=PEEK(&H17):I%=I% AND NOT 32:POKE &H17,I% ' num lock off
10040 PRINT"This round with PC-GOLF is over.  The players"
10050 PRINT"roster, course list and data bank are A.O.K."
10070 PRINT"Now is the right time to make a backup of your"
10090 PRINT"PC-GOLF diskette.":PRINT:COLOR 0,15,0
10100 PRINT" PC-GOLF * USER SUPPORTED SOFTWARE * PC-GOLF ":PRINT:COLOR 7,0,0
10200 PRINT"If you are using PC-GOLF and find it to be of value, your"
10210 PRINT"contribution ($35.00 is suggested) will be appreciated.
10220 PRINT:PRINT SPC(15)"Ed Chandler"
10230 PRINT SPC(15)"453 Dolphin Street"
10240 PRINT SPC(15)"Melbourne Beach"
10250 PRINT SPC(15)"Florida   32951":PRINT
10260 PRINT"Regardless, whether or not you make a contribution, you are"
10270 PRINT"encouraged to copy and share this program with other golfers."
10280 PRINT:COLOR 0,15,0
10290 PRINT"  ENTER to return to DOS. You're Away! ":COLOR 7,0,0
10310 KB$=INKEY$:IF KB$=CHR$(13) THEN SYSTEM ELSE 10310
14000 '+++++     grunt work
14010 DELETE 490-9999
14020 SAVE"b:quit.asc",A
14030 RUN"b:main.bas"
15000 'for chain delete

14000 '+++++     grunt work
14010 DELETE 490-9999
14020 SAVE"b:qu