5 GRAPHICS 0¢10 DIM A$(5),D$(15),FILE$(20),DATE$(20),MON$(20),ERR$(20),NAME$(40)¢20 FILE$="D:BIRTHDAY.BAS"¢30 ERR$="ERROR IN MONTH #"¢31 GOSUB 800:GOTO 32¢32 ? CHR$(253)¢33 GOSUB 850¢100 GRAPHICS 0:? "PLEASE TYPE MONTH NUMBER (1-12)"¢105 GOSUB 500:GOTO 110¢110 TRAP 100:INPUT MONTH¢120 TSTEND=0¢130 MONTH=INT(MONTH)¢140 IF MONTH<1 OR MONTH>12 THEN ? ERR$:GOTO 100¢145 GOSUB 1000+MONTH¢150 FILE$(12)=STR$(MONTH)¢160 EOF=0¢170 TRAP 700:XIO 3,#2,4,0,FILE$¢180 TRAP 600:FOR I=0 TO 1 STEP 0¢190 INPUT #2;NAME$¢200 INPUT #2;DATE$¢210 EOF=EOF+1¢220 IF EOF=1 THEN ? "BIRTHDAY IN ";MON$;" ARE:":? ¢224 TEMP=LEN(NAME$)¢225 NAME$(TEMP+1)=" "¢226 NAME$(30)=" "¢227 NAME$(TEMP+2,30)=NAME$(TEMP+1)¢229 REM Allows user to add new principles and references¢230 ? NAME$,DATE$¢240 NEXT I¢299 REM MAKE NEW BIRTHDAY ENTRIES¢300 ? "WOULD YOU LIKE TO MAKE A NEW BIRTHDAY ENTRY":INPUT A$¢310 IF A$="N" THEN GOTO 32¢320 ? "PLEASE TYPE NAME OF PERSON"¢330 INPUT NAME$¢340 ? "PLEASE TYPE BIRTHDAY OF PERSON (MM-DD-YY)"¢350 INPUT DATE$¢360 MONTH=INT(VAL(DATE$))¢370 IF MONTH<1 OR MONTH>12 THEN ? ERR$,DATE$:GOTO 300¢380 FILE$(12)=STR$(MONTH)¢390 TRAP 400:XIO 36,#3,0,0,FILE$:OPEN #2,9,0,FILE$:GOTO 410¢400 CLOSE #2:XIO 3,#2,8,0,FILE$¢410 ? #2;NAME$¢420 ? #2;DATE$¢430 XIO 12,#2,0,0,FILE$¢440 XIO 35,#2,0,0,FILE$¢450 GOTO 300¢500 ? "01=╩┴╬╒┴╥┘"¢501 ? "02=╞┼┬╥╒┴╥┘"¢502 ? "03=═┴╥├╚"¢503 ? "04=┴╨╥╔╠"¢504 ? "05=═┴┘"¢505 ? "06=╩╒╬┼"¢506 ? "07=╩╒╠┘"¢507 ? "08=┴╒╟╒╙╘"¢508 ? "09=╙┼╨╘┼═┬┼╥"¢509 ? "10=╧├╘╧┬┼╥"¢510 ? "11=╬╧╓┼═┬┼╥"¢511 ? "12=─┼├┼═┬┼╥"¢512 RETURN ¢600 CLOSE #2:IF EOF=0 THEN ? "NO BIRTHDAYS IN ";MON$¢610 MONTH=MONTH+1¢620 IF MONTH>12 THEN MONTH=1¢630 TSTEND=TSTEND+1¢640 IF TSTEND=1 THEN GOTO 145¢650 GOTO 300¢700 EOF=0:GOTO 600¢701 REM These are a list of problems found in the book of Proverbs¢799 REM THIS IS THE TITLE PAGE.¢800 GRAPHICS 0:POSITION 5,7:? "┴╘┴╥╔á┬╔╥╘╚─┴╘┼á╞╔╠┼á╨╥╧╟╥┴═":? ¢801 POSITION 13,9:? "╨╥╧╟╥┴══┼─á┬┘":? ¢802 POSITION 10,11:? "├┴╠╓╔╬á┬«á╞╥┴╬╦╠╔╬":? ¢803 POSITION 13,14¢804 ? "This program allows you to store, file, and automatically retrieve"¢805 ? "all of your family and friends names and birthdates."¢806 ? "A future version will include a random print option."¢807 ? "The Atari trademark is used freely without permission from Atari Corporation and at my risk."¢808 FOR DELAY=1 TO 2500¢809 NEXT DELAY:RETURN ¢850 REM * XYLOPHONE SOUND¢851 FOR Z=10 TO 50¢852 FOR I=15 TO 0 STEP -0.5¢853 SOUND 0,Z,10,I¢854 NEXT I¢855 NEXT Z¢856 RETURN ¢1001 MON$="JANUARY":RETURN ¢1002 MON$="FEBRUARY":RETURN ¢1003 MON$="MARCH":RETURN ¢1004 MON$="APRIL":RETURN ¢1005 MON$="MAY":RETURN ¢1006 MON$="JUNE":RETURN ¢1007 MON$="JULY":RETURN ¢1008 MON$="AUGUST":RETURN ¢1009 MON$="SEPTEMBER":RETURN ¢1010 MON$="OCTOBER":RETURN ¢1011 MON$="NOVEMBER":RETURN ¢1012 MON$="DECEMBER":RETURN ¢3000 FILE$(12,12+LEN(STR$(MONTH)))=STR$(MONTH):? FILE$¢
