**":GOTO 70
5350 A%=0:A%=LEN(LDATE$):FIXDATE$="XXXXXXXX"
5360 RXX%=0:FOR I2%=1 TO A%:C%=ASC(MID$(LDATE$,I2%,1)
5380 IF C%=32
=LEFT$(FIX
XXXXXXXX*** THAT FILE ALREADY EXISTS ****** NO COLONS IN FILE NAME *** *** NO COMMAS IN FILE NAME ***, *** NO SPACES IN FILE NAME *** *** NO BACK SLASHES IN FILE NAME ***\ *** NO SLASHES IN FILE NAME ***/ *** NO PERIODS IN FILE NAME ***.File Name To Store Your Expense Codes?***  NO EXPENSE CODE FILES ON THAT DISK ****** NOT ACCEPTABLE ****** PRESS 'S' TO SET UP NEW LIST OF CATEGORIES ***:*.CDEYOUR FILES ARE:  ON  *** CAN'T FIND  AT LINE # ERROR #*** THAT FILE NOT ON THIS DISK ****** DISK FULL! DELETE CK.DOC ****** THAT DRIVE NOT AVAILABLE ****** THAT DRIVE NOT READY ****** CAN'T FIND DISK DRIVE FILE. ***ITEM #  DESCRIPTION                          CODE       MAX AMT.ALPHABETICAL LIST OF EXPENSE CATEGORIES BY MESSAGE.MSG.MSG ***         *** UNDER FILE NAME: *** I'M SAVING YOUR CATEGORY MESSAGES IN ALPHA ORDER ***$$####,.## ITEM #  CODE  DESCRIPTION                              MAX AMTALPHABETICAL LIST OF EXPENSE CATEGORIES BY ABBREVIATION.ABV.ABV ***    ***  UNDER THE FILE NAME:  *** I'M SAVING CATEGORY ABBREVIATIONS IN ALPHA ORDER *****   --- SORTING - *.MAXR*** TOO BIG ****** NEED A NUMBER LARGER THAN ZERO *** ?For Line # MAX DOLLARSMESSAGE EntryCODE EntryAQ  QUIT ChangesV  VIEW The List AgainA  ANOTHER EntryD  DOLLARS ChangeM  MESSAGE ChangeC  CODE Change   Message:   Max. Dollars: $   Code: )NUMBER Of Entry To Change ?VQ  Q     QUIT  V     VIEW List From Beginning  C     CHANGE An EntryRETURN  CONTINUE Listing$$#####,\                                    \\     \ (##)    LINE #  CODE          MESSAGE                    MAX $'S EXPECTED        HERE'S WHAT YOU CHOSE:10000MISCELLANEOUS CHECKSMSC*** I NEED A NUMBER (WITHOUT $'S) LARGER THAN ZERO ***No Dollar Signs Or CommasLargest AMT You're Likely To Write This Check For? e.g. 'RENT PAID' or 'REFUNDS RECEIVED'MESSAGE For This Abbreviation?|||| CATEGORY AVAILABLE |///*** NO SPACES ****** TOO LONG ***         (e.g. RENT or REFUND/ For REFUNDS))  CATEGORY Abbreviation (7 Char. Max.)?  ///  When Done (ANY KEY To Go To PREVIOUS Menu  Press  RETURN To PROCEED, orO*** MUST B A LETTER 'A' TO 'L' ***DISK Drive To Store Expense Categories?.CDE:XCKMMSCD0X  EXIT To The Operating SystemM  MAIN MenuC  CHANGE Or Add To Your ListS  SET UP Your List The First TimeD  DISPLAY Your Income and Expense ListDISKDRVEI  THIS IS THE FILE TO SET THE CATEGORIES OF EXPENSES & INCOME )