Grocery List

Source Code

    1 CLS : PRINT "TURN ON TS2040 NOW--WHEN READY, PRESS ANY KEY": PAUSE 0
    2 REM LINES 10 THROUGH 25 PERMIT SUBSTITUTION OF 100 DIFFERENT ITEMS BUT NEW STRING WILL HAVE TO BE TYPED IN FROM SCRATCH & RE-SAVED
    3 GO SUB 1000
    5 GO TO 30
   10 DIM A$(100,25)
   15 FOR G=1 TO 100
   20 INPUT "GROCERY ITEM?";A$(G)
   25 NEXT G
   30 LPRINT "G R O C E R Y   L I S T";''"CHECK BESIDE CURRENT NEEDS": FOR G=1 TO 100: LPRINT G;"  ";A$(G): NEXT G
   35 LPRINT ''"________________________________"
   40 POKE 23658,8: GO SUB 2000
   45 INPUT "READY FOR 6 PERSONALIZED COPIES?  Y/N?",Q$
   46 IF Q$="" THEN GO TO 45
   47 IF Q$="N" THEN GO SUB 2050
   48 FOR Z=1 TO 6: LPRINT "G R O C E R Y   L I S T";''"CHECK BESIDE CURRENT NEEDS": FOR G=1 TO 100: LPRINT G;"  ";A$(G): NEXT G: LPRINT ''"________________________________": NEXT Z
   50 STOP 
 1000 BEEP 1,-30: PAPER 1: INK 7: PRINT AT 7,10;"H A T E";AT 10,10;"T H A T";AT 13,10;"S T O R E";AT 16,10;"C H O R E";AT 19,13;"???"
 1005 PAUSE 300: CLS 
 1010 BEEP .05,10: BEEP .05,20: BEEP .05,30: PAPER 6: INK 2: PRINT ''"BRIGHTEN UP WITH A "
 1015 PRINT ''"PERSONALIZED CHECKLIST--SAVE "
 1020 PRINT ''"TIME, MONEY, AND ANNOYANCE WITH"
 1025 PRINT ''"A GROCERY LIST CUSTOMIZED TO    YOUR LIFESTYLE"
 1030 PAUSE 480: CLS 
 1035 PRINT ''"TIME--OVER A PERIOD OF THREE    MONTHS YOU WILL BUY THE SAME    ITEMS OVER AND OVER BUT NOT     EVERY ITEM EVERY WEEK."
 1040 PRINT ''"MONEY--NO MORE WANDERING AROUND THE STORE TO SEE WHAT CATCHES   YOUR EYE."
 1045 PRINT ''"ANNOYANCE--NO WONDERING WHAT YOU FORGOT AND RECALLING BACK HOME"
 1050 PRINT AT 21,0;"PRESS ANY KEY": PAUSE 0: CLS 
 1060 PRINT ''"FIRST, WE'LL LPRINT A SAMPLE OF 100 COMMON NEEDS.  LOOK IT OVER AND CIRCLE THOSE ITEMS THAT DO  NOT FIT UNCOMMON YOU."
 1070 PRINT ''"SECOND, YOU CAN TAILOR THE LIST TO YOUR BUYING."
 1080 PRINT ''"NEXT, LPRINT 6 COPIES SO THERE'SA FRESH ONE FOR EACH OF NEXT    SIX WEEKS."
 1090 PRINT ''"FINALLY, SAVE PROGRAM WITH YOUR CUSTOMIZED LIST SO IT WILL COME UP RUNNING TO LPRINT SUBSEQUENT WEEKS' LISTS SANS COMMERCIALS."
 1100 PRINT AT 21,0;"PRESS ANY KEY": PAUSE 0: CLS 
 1110 RETURN 
 2000 CLS : REM PERSONALIZING A$
 2010 PRINT ''"WHY PERSONALIZE?"
 2020 PRINT ''"TAKE ITEM #63.  SUPPOSE YOU     HAVE NO GREED FOR THE WEED?     YOU CAN SUBSTITUTE YOUR OWN     CHOICE IN THAT SLOT."
 2030 PRINT '"IN ADDITION, LOOK AT #56-NEEDLE OR #57-THREAD, #96-LENSCARE, #97-NAIL POLISH, #99-HAIRSPRAY."
 2035 PRINT '"IS THIS YOU??"
 2040 PRINT '"MIGHT RAZORBLADES OR SHAVING    CREAM  MORE PRACTICALLY  FILL   THOSE SLOTS? BEER? WINE? COLAS?"
 2045 PRINT AT 21,0;"PRESS ANY KEY": PAUSE 0
 2050 CLS : PRINT AT 5,8;"CUSTOMIZING"
 2055 PRINT ''"ANSWER NONE TO 1ST INPUT TO GET MORE COPIES UNCHANGED." 
 2060 INPUT "WHICH ITEM NUMBER?",G$
 2065 IF G$="NONE" THEN GO TO 45
 2068 LET G=VAL G$
 2070 INPUT "NEW PURCHASE FOR THIS SLOT",S$
 2080 LET A$(G)=S$
 2090 INPUT "MORE SUBSTITUTIONS? Y/N";R$
 2100 IF R$="" THEN GO TO 2090
 2110 IF R$<>"Y" THEN GO TO 30
 2120 IF R$="Y" THEN GO TO 2050
 9997 STOP 
 9998 PRINT "THIS SAVE WILL IMMEDIATELY LPRINT YOUR GROCERY LIST ON LOADING": SAVE "GROCLIST" LINE 30
 9999 PRINT "THIS SAVE BEGINS WITH PROGRAM   INTRODUCTION": SAVE "GROCLIST" LINE 1