Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape05a_acorn_eu_1989_november.wav » SHOP

SHOP

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape05a_acorn_eu_1989_november.wav
Filename: SHOP
Read OK:
File size: 2CAF bytes
Load address: 2000
Exec address: 1900
Duplicates

There are 2 duplicate copies of this file in the archive:

File contents
   10 REM Shopping Spree
   20 REM By Peter & Deborah Wood
   30 REM (c) Electron User
   40 VDU 23,255,0,24,36,66,126,126,126,126
   50 MODE 6
   60 VDU 19,1,2,0,0,0:
   70 CLS
   80 PRINT TAB(11,1)"SHOPPING SPREE"
   90 PRINT TAB(0,2);"By Peter & -------------- Deborah Wood"
  100 PRINT TAB(0,3);
  110 FOR A=0 TO 39
  120 VDU 255;:NEXT
  130 PROCINST
  140 END
  150 DEFPROCINST
  160 FOR x=0 TO 38:PRINT TAB(x,24);CHR$(255);
  170 NEXT
  180 VDU 28,0,23,39,4:
  190 PRINT TAB(12,0)"INSTRUCTIONS"
  200 PRINT
  210 PRINT "It is very near to Christmas and it is  now time to go on your yearly shopping  spree, buying gifts for your family."
  220 PRINT "You have `15 to spend in all the shops  visited. Sounds easy, but, your family  are very difficult to buy for and are   certainly not afraid of speaking their  minds when it comes to Christmas        presents."
  240 PRINT
  250 PRINT "THE BRIEF SUMMARY GIVEN OF EACH PERSON  WILL HELP YOU DECIDE WHAT TO BUY."
  260 PRINT"YOU ARE ALSO TIMED, STARTING WHEN YOU   PRESS SPACE"
  270 PRINT TAB(10,18);"HAPPY SHOPPING!!..."
  280 PRINT TAB(12,19)"PRESS <SPACE>";
  290 REPEAT
  300 KEY$=INKEY$(1)
  310 UNTIL INKEY(-99)
  320 PROC1
  330 ENDPROC
  340 DEFPROC1
  350 CLS
  360 M=0
  370 TIME=0
  380 MONEY%=1500
  390 CASE%=0
  400 EAR%=0
  410 MUG%=0
  420 M=0
  430 B=0
  440 S=0
  450 X=0
  460 R=0
  470 BONE%=0
  480 PRINT:PRINT"             ************":PRINT
  490 PRINT "You are standing in the square, and you can see two shops,NEXT and WHSMITHS.    NEXT has a large sale sign in the windowbut you spot a particularly lovely      pencil case in the window of WHSMITHS,  in beautifully";
  500 PRINT "complimentary fluresent pink and green."
  510 PRINT:INPUT "DO YOU GO INTO SMITHS OR NEXT?(S/N)"A1$
  520 IF A1$="S" PROC2
  530 IF A1$="N" PROC3 ELSE PRINT: PRINT "INPUT-NOT ACCEPTABLE......":GOTO 510
  540 ENDPROC
  550 DEFPROC2
  560 PRINT:PRINT"             ************":PRINT
  570 PRINT
  580 PRINT "You enter SMITHS and inquire about the  cost of the pencil case, and find it is particularly expensive-`5.50-can you    afford it? Remember you still have threepresents to buy."
  590 PRINT:INPUT "DO YOU BUY THE PENCIL CASE(Y/N)?"A2$
  600 PRICE%=550
  610 IF A2$="Y" PROCBUY
  620 IF A2$="Y" AND R=1 PROC4
  630 IF A2$="N" OR A2$="Y" AND R=0 PROC5 ELSE PRINT'"INPUT-NOT ACCEPTABLE......":GOTO 590
  640 ENDPROC
  650 DEFPROC3
  660 PRINT:PRINT"             ************":PRINT
  670 PRINT "You've seen it, the bargain of the      century, but it's over at the other sideof the shop! You see several people     moving towards the earings (`4.50) whichyou know will suit your sister."
  680 PRINT:INPUT "DO YOU MAKE AN EXHIBITION OF YOURSELF BYRUNNING ACROSS THE SHOP(Y/N)?"A3$
  690 IF A3$="Y" PROC8
  700 IF A3$="N" PROC10
  710 ENDPROC
  720 DEFPROC4
  730PRINT:PRINT"             ************":PRINT
  740 CASE%=1
  750 PRINT"'You are our millionth customer in our  new store' says the cashier.You can havea `2.50 gift voucher. You feel a little hungry."
  760 PRINT:INPUT "DO YOU BUY A BOX OF SWEETS TO EAT-THOSE CREAM FILLED ONES YOU REALLY ADORE(Y/N)?"A4$
  770 IF A4$="Y" PROC6
  780 IF A4$="N" PROC7 ELSE PRINT: PRINT "INPUT-NOT ACCEPTABLE......":GOTO 760
  790 ENDPROC
  800 DEFPROC5
  810PRINT:PRINT"             ************":PRINT
  820 PRINT "Where next?-Eexactly NEXT. You have     LOADSA MONEY left, but lots of presents to buy. But, as you come out of the     store, a rather distressed looking      female is asking if anyone can lend";
  830 PRINT " her `1 to make a phone-call as she has      forgotten her purse and must be back to work in five minutes."
  840 PRINT:INPUT "THIS SEEMS A LOT OF MONEY FOR A PHONE   CALL, BUT DO YOU GIVE IT TO HER(Y/N)?"A5$
  850 IF A5$="Y" M=1 ELSE M=0
  860 PRINT
  870 PRINT"YOU NOW GO TO NEXT":PROC3
  880 ENDPROC
  890 DEFPROC6
  900PRINT:PRINT"             ************":PRINT
  910 PRINT "You buy and eat the sweets, and feel    much better.":PROC5
  920 ENDPROC
  930 DEFPROC7
  940PRINT:PRINT"             ************":PRINT
  950 PRINT "You feel very hungry, and begin to feel dizzy. The next thing you remember is a large crowd peering down at you, and    your head hurts. Your cheeks are a      rather reddish colour and you decide"
  960 PRINT "your best option is to return home as quickly as possible.":PROCEND
  970 ENDPROC
  980 DEFPROC8
  990PRINT:PRINT"             ************":PRINT
 1000 PRICE%=450
 1010 PRINT "A hand comes down on your shoulder, it  is the store detective.'Who do you thinkyou are, running like that."
 1020 IF M=1 PRINT "But it's the lady you helped earlier    and says it is Ok, and goes and gets theear-rings for you to buy and returns thepound she borrowed earlier."
 1030 IF M=1 EAR%=1 ELSE EAR%=0
 1040 PROCBUY
 1050 IF M=0 PRINT "You are in deep trouble, 'Out of this   shop immediately,' she says."
 1060 PRINT:PRINT"ANOTHER SHOP NOW.....":PROC10
 1070 ENDPROC
 1080 DEFPROC9
 1090PRINT:PRINT"             ************":PRINT
 1100 PRINT "You just make it to see someone else    lift the ear-rings off the shelf-hard   luck, Pal."
 1110PRINT:PRINT"ANOTHER SHOP NOW.....":PROC10
 1120 ENDPROC
 1130 DEFPROC10
 1140PRINT:PRINT"             ************":PRINT
 1150 PRINT "You go out into the precinct, and       consider BOOTS as your next choice-you  enter the shop."
 1160 PRINT:INPUT "WHICH DEPARTMENT DO YOU GO TO-RECORDS,  HOUSEHOLD OR PET ITEMS(R/H/P)?"A10$
 1170 IF A10$="R" PROC11
 1180IF A10$="H" PROC12
 1190IF A10$="P" PROC13 ELSE PRINT :PRINT "INPUT- NOT ACCEPTABLE.......":GOTO 1160
 1200 ENDPROC
 1210 DEF PROC11
 1220PRINT:PRINT"             ************":PRINT
 1230 PRINT "As you make your way to the record      counter, you notice a sign which says   'Buy any 2 singles get one free.' Just  at this moment a small boy rushes past"
 1240 PRINT"and snatches your carrier bag, which    contains your money."
 1250 PRINT:INPUT "DO YOU RUN AFTER HIM(Y/N)?"A11$
 1260 IF A11$="Y" PROC14
 1270 IF A11$="N" PROC15 ELSE PRINT :PRINT "INPUT- NOT ACCEPTABLE.......":GOTO 1250
 1280 ENDPROC
 1290 DEF PROC12
 1300PRINT:PRINT"             ************":PRINT
 1310 PRINT "In the household section, you find a setof mugs which are `4.50. They are       beautifully designed, but can you affordthem?"
 1320 PRINT:INPUT "DO YOU BUY THE MUGS(Y/N)?"A12$
 1330 PRICE%=450:
 1340 IF A12$="Y" PROCBUY
 1350 IF A12$="Y" AND R=1 PROC16
 1360 IF A12$="N" OR A12$="Y" AND R=0 PROC17 ELSE PRINT :PRINT "INPUT- NOT ACCEPTABLE.......":GOTO 1320
 1370 ENDPROC
 1380 DEF PROCBUY
 1390 R=1
 1400 CHANGE%=MONEY%-PRICE%
 1410 IF CHANGE% < 0 PROCNO ELSE MONEY%=CHANGE%
 1420 ENDPROC
 1430 DEF PROCNO
 1440 R=0
 1450 PRINT "YOU DO NOT HAVE SUFFICIENT MONEY...     SORRY ABOUT THAT."
 1460 ENDPROC
 1470 DEF PROC13
 1480PRINT:PRINT"             ************":PRINT
 1490 PRINT "At the pet section you see a rather nicebone for 50p, but are apprehensive over whether it it enough for your beloved   dog."
 1500 PRINT:INPUT "DO YOU BUY THE BONE(Y/N)?"A13$
 1510 PRICE%=50
 1520 IF A13$="Y" PROCBUY
 1530 IF A13$="Y" AND R=1 PROC18
 1540 IF A13$="N" OR A13$="Y" AND R=0 PROC19 ELSE PRINT :PRINT "INPUT- NOT ACCEPTABLE.......":GOTO 1500
 1550 ENDPROC
 1560 DEFPROC14
 1570PRINT:PRINT"             ************":PRINT
 1580 PRINT"You run after him shouting THIEF, and   just manage to catch his jacket as he isabout to leave the shop, and retrieve   your money."
 1590 PRINT"An elderly lady cannot thank you enough,as the boy had also stolen her handbag! She gives you `2 to say thankyou."
 1600 MONEY%=MONEY%+200
 1610 PRINT:INPUT"WHERE NOW, THE HOUSEHOLD OR PET SECTION (H/P)?"A14$
 1620 IF A14$="H" PROC12
 1630 IF A14$="P" PROC13 ELSE PRINT :PRINT "INPUT- NOT ACCEPTABLE.......":GOTO 1610
 1640 ENDPROC
 1650 DEFPROC15
 1660PRINT:PRINT"             ************":PRINT
 1670 PRINT "There is nothing for it but to return   home with what you have. On your way outof the shop, you notice a comotion, and see the small boy has been caught, and  your money is returned."
 1680 PRINT:INPUT"WHERE NOW, THE HOUSEHOLD OR PET SECTION (H/P)?"A14$
 1690 IF A14$="H" PROC12
 1700 IF A14$="P" PROC13 ELSE PRINT :PRINT "INPUT- NOT ACCEPTABLE.......":GOTO 1680
 1710 ENDPROC
 1720 DEF PROC16
 1730PRINT:PRINT"             ************":PRINT
 1740 MUG%=1
 1750 PRINT "You buy the mugs and continue onto the  pet section."
 1760 PROC13
 1770 ENDPROC
 1780 DEF PROC17
 1790PRINT:PRINT"             ************":PRINT
 1800 MUG%=0
 1810 PRINT "You do not buy the mugs but continue on to the pet section."
 1820 PROC13:ENDPROC
 1830 DEFPROC18
 1840 BONE%=1
 1850PRINT:PRINT"             ************":PRINT
 1860 PRINT "You buy the bone, and it is gift wrappedWHAT NEXT? It is 5:00pm so it is quite  late."
 1870 PRINT:INPUT"DO YOU RETURN HOME, OR GOTO ANOTHER SHOP(H/S)?"A18$
 1880 IF A18$="H" PROCEND
 1890 IF A18$="S" PROC20 ELSE PRINT: PRINT "INPUT-NOT ACCEPTABLE......":GOTO 1870
 1900 ENDPROC
 1910 DEF PROC19
 1920 BONE%=0
 1930PRINT:PRINT"             ************":PRINT
 1940 PRINT "You do not buy the bone. There is a nicepet store next door, so you go on to    there. Here is a lovely box of dog      biscuits-`2.50"
 1950 PRINT:INPUT "DO YOU BUY THE BISCUITS(Y/N)?"A19$
 1960 PRICE%=250
 1970 IF A19$="Y" PROCBUY
 1980 IF A19$="Y" AND R=1 THENPROC21
 1990 IF A19$="N" OR A19$="Y" AND R=0 PROC22 ELSE PRINT: PRINT "INPUT-NOT ACCEPTABLE......":GOTO 1950
 2000 ENDPROC
 2010 DEFPROC20
 2020PRINT:PRINT"             ************":PRINT
 2030 PRINT"You now make your way to the sweet shop.Here is a lovely box of chocolates only `4.50"
 2040 PRICE%=450
 2050 PRINT:INPUT "DO YOU BUY THE CHOCOLATES(Y/N)?"A20$
 2060 IF A20$="Y" PROCBUY
 2070 IF A20$="Y" AND R=1 PROC23
 2080 IF A20$="N" OR A20$="Y" AND R=0 PROC24 ELSE PRINT: PRINT "INPUT-NOT ACCEPTABLE......":GOTO 2050
 2090 ENDPROC
 2100DEF PROC21
 2110 PRINT:PRINT"             ************":PRINT
 2120 B=1
 2130 PRINT"You buy the biscuits and make your way  to the sweet shop.":PROC20
 2140 ENDPROC
 2150 DEFPROC22
 2160 B=0
 2170PRINT:PRINT"             ************":PRINT
 2180 PRINT"You don't buy the biscuits and make yourway to the sweetshop."
 2190 PROC20:ENDPROC
 2200 DEFPROC23
 2210PRINT:PRINT"             ************":PRINT
 2220 PRINT"As you lift the box of chocolates of theshelf, the whole pile comes tumbling to the ground!"
 2230 PRINT:INPUT"DO YOU HANG AROUND(Y/N)?"A23$
 2240 IF A23$="Y" PROC25
 2250 IF A23$="N" PROC26 ELSE PRINT'"INPUT-NOT ACCEPTABLE......":GOTO 2230
 2260 ENDPROC
 2270 DEF PROC24
 2280 PRINT "             ************":PRINT
 2290PRINT:PRINT"             ************":PRINT
 2300 PRINT "You decide not to buy the sweets, and   make your way home, hoping you have     something nice for everyone."
 2310 PROCEND
 2320 ENDPROC
 2330 DEF PROC25
 2340PRINT:PRINT"             ************":PRINT
 2350 S=1
 2360 PRINT "The shop assistant helps you to restack to shelves, and you buy the chocolates. It is late now and you must go home."
 2370 PROCEND
 2380 ENDPROC
 2390 DEFPROC26
 2400PRINT:PRINT"             ************":PRINT
 2410 MONEY%=MONEY%+450
 2420 PRINT "Just as you attempt to make a quick get away, the lady in the shop stops you.   You have to restack all the sweets      single handedly."
 2430 PRINT "You eventually leave the shop, and make your way home. Then you realise you haveleft your presents in the sweet shop,   you return to find it closed.";
 2440 PRINT "You have no time to buy anymore presentsand MUST return home."
 2450 S=0:MUG%=0:EAR%=0:PENCIL%= 0:B=0:BONE%= 0:S=0
 2460 PROCEND
 2470 ENDPROC
 2480 DEF PROCEND
 2490 PRINT:PRINT "           PRESS<SPACE>":REPEAT:LET KEY$=INKEY$(1):UNTIL INKEY(-99)
 2500 CLS
 2510 FOR A=1 TO 19
 2530 PRINT "IT'S CHRISTMAS DAY, IT'S CHRISTMAS DAY."
 2540 NEXT
 2550 FOR C=0 TO 200:VDU 19,1,RND(7),0,0,0:NEXT
 2560 CLS:VDU 19,1,2,0,0,0
 2570 PRINT :PRINT "Please use these key-words...."
 2580 PRINT "EARRINGS; PCASE; DBISCUITS; CHOCOLATES; BONE;   MUGS."
 2590 PRINT'"It is now time to give out the presents.The presents you have are..."
 2600PRINT
 2610IF CASE%=1 PRINT " PCASE";
 2620IF EAR%=1 PRINT " EARRINGS";
 2630IF MUG%=1 PRINT " MUGS";
 2640IF B=1 PRINT " DBISCUITS";
 2650IF S=1 PRINT " CHOCOLATES";
 2660IF BONE%=1 PRINT " BONE";
 2670IF S=0 AND CASE%=0 AND EAR%=0 AND MUG%=0 AND B=0 AND BONE%=0 PRINT "NOTHING...";
 2680 PRINT
 2690 PRINT "IF YOU HAVE NOTHING FOR THAT PERSON     PRESS <RETURN>"
 2700 PRINT:PRINT "IF YOU ATTEMPT TO GIVE THEM SOMETHING   YOU DO NOT HAVE YOUR FAMILY WILL NOT BE PLEASED..."
 2710 PRINT
 2720 INPUT "WHAT HAVE YOU BROUGHT FOR YOUR SISTER..."G$
 2730 IF G$="EARRINGS" AND EAR%=1 PRINT "YOUR SISTER IS VERY PLEASED...AND ALLOWSYOU TO USE HER BEETHOVEN RECORDS"
 2740 IF G$="EARRINGS" AND EAR%=1 X=X+25 ELSE PRINT "YOUR SISTER IS DISGUSTED"
 2750 INPUT'"WHAT HAVE YOU BROUGHT FOR YOUR FATHER..."F$
 2760 IF F$="PCASE" AND CASE%=1 PRINT "YOU ARE GIVEN A RISE IN POCKET MONEY."
 2770 IF F$="PCASE" AND CASE%=1 X=X + 25 ELSE PRINT "YOUR FATHER GROUNDS YOU FOR ONE MONTH."
 2780 INPUT'"WHAT HAVE YOU BROUGHT FOR YOUR MOTHER..."M$
 2790 IF M$="CHOCOLATES" AND S=1 PRINT "THANKYOU, LOVE. WHAT A NICE THOUGHT."
 2800 IF M$="CHOCOLATES" AND S=1THEN X=X + 25 ELSE PRINT "YOU CAN DO YOUR OWN COOKING AND IRONING IN FUTURE."
 2810 INPUT'"WHAT HAVE YOU BROUGHT FOR YOUR DOG..."D$
 2820 IF D$="DBISCUITS" AND B=1 PRINT "HE LICKS YOU ALL OVER YOUR FACE."
 2830 IF D$="DBISCUITS" AND B=1 X=X + 25 ELSE PRINT "YOUR DOG BITES YOU."
 2840 PRINT'"YOUR SCORE IS ";X;"%";
 2850 PRINT'"YOUR TIME IS ";TIME DIV 100;" secs"
 2860 PROCGO
 2870 ENDPROC
 2880 DEFPROCGO
 2890 PRINT'"WOULD YOU LIKE ANOTHER GO(Y/N)?"
 2900 REPEAT
 2910 KEY$=INKEY$(1)
 2920 UNTIL INKEY(-69) OR INKEY(-86)
 2930 IF INKEY(-69) CLS:GOTO 180 ELSE GOTO 2940
 2940 PRINT "BYE-BYE":END
 2950 ENDPROC

 � Shopping Spree
 � By Peter & Deborah Wood
 � (c) Electron User
(( � 23,255,0,24,36,66,126,126,126,126
2 � 6
< � 19,1,2,0,0,0:
F �
P � �11,1)"SHOPPING SPREE"
Z5 � �0,2);"By Peter & -------------- Deborah Wood"
d
 � �0,3);
n � A=0 � 39
x
 � 255;:�
�
 �INST
� �
� ��INST
�  � x=0 � 38:� �x,24);�(255);
� �
� � 28,0,23,39,4:
� � �12,0)"INSTRUCTIONS"
� �
�} � "It is very near to Christmas and it is  now time to go on your yearly shopping  spree, buying gifts for your family."
�� � "You have `15 to spend in all the shops  visited. Sounds easy, but, your family  are very difficult to buy for and are   certainly not afraid of speaking their  minds when it comes to Christmas        presents."
� �
�R � "THE BRIEF SUMMARY GIVEN OF EACH PERSON  WILL HELP YOU DECIDE WHAT TO BUY."
; �"YOU ARE ALSO TIMED, STARTING WHEN YOU   PRESS SPACE"
$ � �10,18);"HAPPY SHOPPING!!..."
 � �12,19)"PRESS <SPACE>";
" �
, KEY$=�(1)
6
 � �(-99)
@ �1
J �
T ��1
^ �
h M=0
r �=0
| MONEY%=1500
� CASE%=0
� EAR%=0
� MUG%=0
� M=0
� B=0
� S=0
� X=0
� R=0
� BONE%=0
�% �:�"             ************":�
�� � "You are standing in the square, and you can see two shops,NEXT and WHSMITHS.    NEXT has a large sale sign in the windowbut you spot a particularly lovely      pencil case in the window of WHSMITHS,  in beautifully";
�0 � "complimentary fluresent pink and green."
�1 �:� "DO YOU GO INTO SMITHS OR NEXT?(S/N)"A1$
 � A1$="S" �2
< � A1$="N" �3 � �: � "INPUT-NOT ACCEPTABLE......":� �d~A
 �
& ��2
0% �:�"             ************":�
: �
D� � "You enter SMITHS and inquire about the  cost of the pencil case, and find it is particularly expensive-`5.50-can you    afford it? Remember you still have threepresents to buy."
N. �:� "DO YOU BUY THE PENCIL CASE(Y/N)?"A2$
X PRICE%=550
b � A2$="Y" �BUY
l � A2$="Y" � R=1 �4
vI � A2$="N" � A2$="Y" � R=0 �5 � �'"INPUT-NOT ACCEPTABLE......":� �DNB
� �
� ��3
�% �:�"             ************":�
�� � "You've seen it, the bargain of the      century, but it's over at the other sideof the shop! You see several people     moving towards the earings (`4.50) whichyou know will suit your sister."
�S �:� "DO YOU MAKE AN EXHIBITION OF YOURSELF BYRUNNING ACROSS THE SHOP(Y/N)?"A3$
� � A3$="Y" �8
� � A3$="N" �10
� �
� ��4
�$�:�"             ************":�
� CASE%=1
� �"'You are our millionth customer in our  new store' says the cashier.You can havea `2.50 gift voucher. You feel a little hungry."
�^ �:� "DO YOU BUY A BOX OF SWEETS TO EAT-THOSE CREAM FILLED ONES YOU REALLY ADORE(Y/N)?"A4$
 � A4$="Y" �6
< � A4$="N" �7 � �: � "INPUT-NOT ACCEPTABLE......":� �dxB
 �
  ��5
*$�:�"             ************":�
4� � "Where next?-Eexactly NEXT. You have     LOADSA MONEY left, but lots of presents to buy. But, as you come out of the     store, a rather distressed looking      female is asking if anyone can lend";
>s � " her `1 to make a phone-call as she has      forgotten her purse and must be back to work in five minutes."
H[ �:� "THIS SEEMS A LOT OF MONEY FOR A PHONE   CALL, BUT DO YOU GIVE IT TO HER(Y/N)?"A5$
R � A5$="Y" M=1 � M=0
\ �
f �"YOU NOW GO TO NEXT":�3
p �
z ��6
�$�:�"             ************":�
�@ � "You buy and eat the sweets, and feel    much better.":�5
� �
� ��7
�$�:�"             ************":�
�� � "You feel very hungry, and begin to feel dizzy. The next thing you remember is a large crowd peering down at you, and    your head hurts. Your cheeks are a      rather reddish colour and you decide"
�H � "your best option is to return home as quickly as possible.":�END
� �
� ��8
�$�:�"             ************":�
� PRICE%=450
�t � "A hand comes down on your shoulder, it  is the store detective.'Who do you thinkyou are, running like that."
�� � M=1 � "But it's the lady you helped earlier    and says it is Ok, and goes and gets theear-rings for you to buy and returns thepound she borrowed earlier."
 � M=1 EAR%=1 � EAR%=0
	 �BUY
S � M=0 � "You are in deep trouble, 'Out of this   shop immediately,' she says."
$# �:�"ANOTHER SHOP NOW.....":�10
. �
8 ��9
B$�:�"             ************":�
Lc � "You just make it to see someone else    lift the ear-rings off the shelf-hard   luck, Pal."
V"�:�"ANOTHER SHOP NOW.....":�10
` �
j	 ��10
t$�:�"             ************":�
~h � "You go out into the precinct, and       consider BOOTS as your next choice-you  enter the shop."
�U �:� "WHICH DEPARTMENT DO YOU GO TO-RECORDS,  HOUSEHOLD OR PET ITEMS(R/H/P)?"A10$
� � A10$="R" �11
�� A10$="H" �12
�?� A10$="P" �13 � � :� "INPUT- NOT ACCEPTABLE.......":� �tHD
� �
�
 � �11
�$�:�"             ************":�
Χ � "As you make your way to the record      counter, you notice a sign which says   'Buy any 2 singles get one free.' Just  at this moment a small boy rushes past"
�D �"and snatches your carrier bag, which    contains your money."
�) �:� "DO YOU RUN AFTER HIM(Y/N)?"A11$
� � A11$="Y" �14
�@ � A11$="N" �15 � � :� "INPUT- NOT ACCEPTABLE.......":� �dbD
 �


 � �12
$�:�"             ************":�
� � "In the household section, you find a setof mugs which are `4.50. They are       beautifully designed, but can you affordthem?"
(( �:� "DO YOU BUY THE MUGS(Y/N)?"A12$
2 PRICE%=450:
< � A12$="Y" �BUY
F � A12$="Y" � R=1 �16
PQ � A12$="N" � A12$="Y" � R=0 �17 � � :� "INPUT- NOT ACCEPTABLE.......":� �ThE
Z �
d � �BUY
n R=1
x CHANGE%=MONEY%-PRICE%
�' � CHANGE% < 0 �NO � MONEY%=CHANGE%
� �
�
 � �NO
� R=0
�B � "YOU DO NOT HAVE SUFFICIENT MONEY...     SORRY ABOUT THAT."
� �
�
 � �13
�$�:�"             ************":�
҅ � "At the pet section you see a rather nicebone for 50p, but are apprehensive over whether it it enough for your beloved   dog."
�( �:� "DO YOU BUY THE BONE(Y/N)?"A13$
� PRICE%=50
� � A13$="Y" �BUY
� � A13$="Y" � R=1 �18
Q � A13$="N" � A13$="Y" � R=0 �19 � � :� "INPUT- NOT ACCEPTABLE.......":� �d\E
 �
	 ��14
"$�:�"             ************":�
,� �"You run after him shouting THIEF, and   just manage to catch his jacket as he isabout to leave the shop, and retrieve   your money."
6y �"An elderly lady cannot thank you enough,as the boy had also stolen her handbag! She gives you `2 to say thankyou."
@ MONEY%=MONEY%+200
J< �:�"WHERE NOW, THE HOUSEHOLD OR PET SECTION (H/P)?"A14$
T � A14$="H" �12
^@ � A14$="P" �13 � � :� "INPUT- NOT ACCEPTABLE.......":� �DJF
h �
r	 ��15
|$�:�"             ************":�
�� � "There is nothing for it but to return   home with what you have. On your way outof the shop, you notice a comotion, and see the small boy has been caught, and  your money is returned."
�< �:�"WHERE NOW, THE HOUSEHOLD OR PET SECTION (H/P)?"A14$
� � A14$="H" �12
�@ � A14$="P" �13 � � :� "INPUT- NOT ACCEPTABLE.......":� �tPF
� �
�
 � �16
�$�:�"             ************":�
� MUG%=1
�= � "You buy the mugs and continue onto the  pet section."
� �13
� �
�
 � �17
�$�:�"             ************":�
 MUG%=0
D � "You do not buy the mugs but continue on to the pet section."

 �13:�
&	 ��18
0 BONE%=1
:$�:�"             ************":�
D^ � "You buy the bone, and it is gift wrappedWHAT NEXT? It is 5:00pm so it is quite  late."
N< �:�"DO YOU RETURN HOME, OR GOTO ANOTHER SHOP(H/S)?"A18$
X � A18$="H" �END
b> � A18$="S" �20 � �: � "INPUT-NOT ACCEPTABLE......":� �DNG
l �
v
 � �19
� BONE%=0
�$�:�"             ************":�
�� � "You do not buy the bone. There is a nicepet store next door, so you go on to    there. Here is a lovely box of dog      biscuits-`2.50"
�, �:� "DO YOU BUY THE BISCUITS(Y/N)?"A19$
� PRICE%=250
� � A19$="Y" �BUY
� � A19$="Y" � R=1 ��21
�O � A19$="N" � A19$="Y" � R=0 �22 � �: � "INPUT-NOT ACCEPTABLE......":� �t^G
� �
�	 ��20
�$�:�"             ************":�
�] �"You now make your way to the sweet shop.Here is a lovely box of chocolates only `4.50"
� PRICE%=450
. �:� "DO YOU BUY THE CHOCOLATES(Y/N)?"A20$
 � A20$="Y" �BUY
 � A20$="Y" � R=1 �23
 O � A20$="N" � A20$="Y" � R=0 �24 � �: � "INPUT-NOT ACCEPTABLE......":� �TBH
* �
4	� �21
>% �:�"             ************":�
H B=1
RF �"You buy the biscuits and make your way  to the sweet shop.":�20
\ �
f	 ��22
p B=0
z$�:�"             ************":�
�E �"You don't buy the biscuits and make yourway to the sweetshop."
�
 �20:�
�	 ��23
�$�:�"             ************":�
�c �"As you lift the box of chocolates of theshelf, the whole pile comes tumbling to the ground!"
�& �:�"DO YOU HANG AROUND(Y/N)?"A23$
� � A23$="Y" �25
�; � A23$="N" �26 � �'"INPUT-NOT ACCEPTABLE......":� �tvH
� �
�
 � �24
�$ � "             ************":�
�$�:�"             ************":�
�u � "You decide not to buy the sweets, and   make your way home, hoping you have     something nice for everyone."
		 �END
	 �
	
 � �25
	$$�:�"             ************":�
	. S=1
	8} � "The shop assistant helps you to restack to shelves, and you buy the chocolates. It is late now and you must go home."
	B	 �END
	L �
	V	 ��26
	`$�:�"             ************":�
	j MONEY%=MONEY%+450
	t� � "Just as you attempt to make a quick get away, the lady in the shop stops you.   You have to restack all the sweets      single handedly."
	~� � "You eventually leave the shop, and make your way home. Then you realise you haveleft your presents in the sweet shop,   you return to find it closed.";
	�F � "You have no time to buy anymore presentsand MUST return home."
	�2 S=0:MUG%=0:EAR%=0:PENCIL%= 0:B=0:BONE%= 0:S=0
	�	 �END
	� �
	� � �END
	�9 �:� "           PRESS<SPACE>":�:� KEY$=�(1):� �(-99)
	� �
	� � A=1 � 19
	�0 � "IT'S CHRISTMAS DAY, IT'S CHRISTMAS DAY."
	� �
	�$ � C=0 � 200:� 19,1,�(7),0,0,0:�
 �:� 19,1,2,0,0,0

* � :� "Please use these key-words...."
> � "EARRINGS; PCASE; DBISCUITS; CHOCOLATES; BONE;   MUGS."
M �'"It is now time to give out the presents.The presents you have are..."
(�
2� CASE%=1 � " PCASE";
<� EAR%=1 � " EARRINGS";
F� MUG%=1 � " MUGS";
P� B=1 � " DBISCUITS";
Z� S=1 � " CHOCOLATES";
d� BONE%=1 � " BONE";
nE� S=0 � CASE%=0 � EAR%=0 � MUG%=0 � B=0 � BONE%=0 � "NOTHING...";
x �
�? � "IF YOU HAVE NOTHING FOR THAT PERSON     PRESS <RETURN>"
�e �:� "IF YOU ATTEMPT TO GIVE THEM SOMETHING   YOU DO NOT HAVE YOUR FAMILY WILL NOT BE PLEASED..."
� �
�3 � "WHAT HAVE YOU BROUGHT FOR YOUR SISTER..."G$
�j � G$="EARRINGS" � EAR%=1 � "YOUR SISTER IS VERY PLEASED...AND ALLOWSYOU TO USE HER BEETHOVEN RECORDS"
�C � G$="EARRINGS" � EAR%=1 X=X+25 � � "YOUR SISTER IS DISGUSTED"
�3 �'"WHAT HAVE YOU BROUGHT FOR YOUR FATHER..."F$
�E � F$="PCASE" � CASE%=1 � "YOU ARE GIVEN A RISE IN POCKET MONEY."
�Q � F$="PCASE" � CASE%=1 X=X + 25 � � "YOUR FATHER GROUNDS YOU FOR ONE MONTH."
�3 �'"WHAT HAVE YOU BROUGHT FOR YOUR MOTHER..."M$
�E � M$="CHOCOLATES" � S=1 � "THANKYOU, LOVE. WHAT A NICE THOUGHT."
�_ � M$="CHOCOLATES" � S=1� X=X + 25 � � "YOU CAN DO YOUR OWN COOKING AND IRONING IN FUTURE."
�0 �'"WHAT HAVE YOU BROUGHT FOR YOUR DOG..."D$
@ � D$="DBISCUITS" � B=1 � "HE LICKS YOU ALL OVER YOUR FACE."
> � D$="DBISCUITS" � B=1 X=X + 25 � � "YOUR DOG BITES YOU."
 �'"YOUR SCORE IS ";X;"%";
"& �'"YOUR TIME IS ";� � 100;" secs"
, �GO
6 �
@	 ��GO
J( �'"WOULD YOU LIKE ANOTHER GO(Y/N)?"
T �
^ KEY$=�(1)
h � �(-69) � �(-86)
r � �(-69) �:� �tt@ � � �D|K
| � "BYE-BYE":�
� �
�
00000000  0d 00 0a 15 20 f4 20 53  68 6f 70 70 69 6e 67 20  |.... . Shopping |
00000010  53 70 72 65 65 0d 00 14  1e 20 f4 20 42 79 20 50  |Spree.... . By P|
00000020  65 74 65 72 20 26 20 44  65 62 6f 72 61 68 20 57  |eter & Deborah W|
00000030  6f 6f 64 0d 00 1e 18 20  f4 20 28 63 29 20 45 6c  |ood.... . (c) El|
00000040  65 63 74 72 6f 6e 20 55  73 65 72 0d 00 28 28 20  |ectron User..(( |
00000050  ef 20 32 33 2c 32 35 35  2c 30 2c 32 34 2c 33 36  |. 23,255,0,24,36|
00000060  2c 36 36 2c 31 32 36 2c  31 32 36 2c 31 32 36 2c  |,66,126,126,126,|
00000070  31 32 36 0d 00 32 08 20  eb 20 36 0d 00 3c 14 20  |126..2. . 6..<. |
00000080  ef 20 31 39 2c 31 2c 32  2c 30 2c 30 2c 30 3a 0d  |. 19,1,2,0,0,0:.|
00000090  00 46 06 20 db 0d 00 50  1d 20 f1 20 8a 31 31 2c  |.F. ...P. . .11,|
000000a0  31 29 22 53 48 4f 50 50  49 4e 47 20 53 50 52 45  |1)"SHOPPING SPRE|
000000b0  45 22 0d 00 5a 35 20 f1  20 8a 30 2c 32 29 3b 22  |E"..Z5 . .0,2);"|
000000c0  42 79 20 50 65 74 65 72  20 26 20 2d 2d 2d 2d 2d  |By Peter & -----|
000000d0  2d 2d 2d 2d 2d 2d 2d 2d  2d 20 44 65 62 6f 72 61  |--------- Debora|
000000e0  68 20 57 6f 6f 64 22 0d  00 64 0d 20 f1 20 8a 30  |h Wood"..d. . .0|
000000f0  2c 33 29 3b 0d 00 6e 0f  20 e3 20 41 3d 30 20 b8  |,3);..n. . A=0 .|
00000100  20 33 39 0d 00 78 0d 20  ef 20 32 35 35 3b 3a ed  | 39..x. . 255;:.|
00000110  0d 00 82 0a 20 f2 49 4e  53 54 0d 00 8c 06 20 e0  |.... .INST.... .|
00000120  0d 00 96 0b 20 dd f2 49  4e 53 54 0d 00 a0 20 20  |.... ..INST...  |
00000130  e3 20 78 3d 30 20 b8 20  33 38 3a f1 20 8a 78 2c  |. x=0 . 38:. .x,|
00000140  32 34 29 3b bd 28 32 35  35 29 3b 0d 00 aa 06 20  |24);.(255);.... |
00000150  ed 0d 00 b4 14 20 ef 20  32 38 2c 30 2c 32 33 2c  |..... . 28,0,23,|
00000160  33 39 2c 34 3a 0d 00 be  1b 20 f1 20 8a 31 32 2c  |39,4:.... . .12,|
00000170  30 29 22 49 4e 53 54 52  55 43 54 49 4f 4e 53 22  |0)"INSTRUCTIONS"|
00000180  0d 00 c8 06 20 f1 0d 00  d2 7d 20 f1 20 22 49 74  |.... ....} . "It|
00000190  20 69 73 20 76 65 72 79  20 6e 65 61 72 20 74 6f  | is very near to|
000001a0  20 43 68 72 69 73 74 6d  61 73 20 61 6e 64 20 69  | Christmas and i|
000001b0  74 20 69 73 20 20 6e 6f  77 20 74 69 6d 65 20 74  |t is  now time t|
000001c0  6f 20 67 6f 20 6f 6e 20  79 6f 75 72 20 79 65 61  |o go on your yea|
000001d0  72 6c 79 20 73 68 6f 70  70 69 6e 67 20 20 73 70  |rly shopping  sp|
000001e0  72 65 65 2c 20 62 75 79  69 6e 67 20 67 69 66 74  |ree, buying gift|
000001f0  73 20 66 6f 72 20 79 6f  75 72 20 66 61 6d 69 6c  |s for your famil|
00000200  79 2e 22 0d 00 dc da 20  f1 20 22 59 6f 75 20 68  |y.".... . "You h|
00000210  61 76 65 20 60 31 35 20  74 6f 20 73 70 65 6e 64  |ave `15 to spend|
00000220  20 69 6e 20 61 6c 6c 20  74 68 65 20 73 68 6f 70  | in all the shop|
00000230  73 20 20 76 69 73 69 74  65 64 2e 20 53 6f 75 6e  |s  visited. Soun|
00000240  64 73 20 65 61 73 79 2c  20 62 75 74 2c 20 79 6f  |ds easy, but, yo|
00000250  75 72 20 66 61 6d 69 6c  79 20 20 61 72 65 20 76  |ur family  are v|
00000260  65 72 79 20 64 69 66 66  69 63 75 6c 74 20 74 6f  |ery difficult to|
00000270  20 62 75 79 20 66 6f 72  20 61 6e 64 20 61 72 65  | buy for and are|
00000280  20 20 20 63 65 72 74 61  69 6e 6c 79 20 6e 6f 74  |   certainly not|
00000290  20 61 66 72 61 69 64 20  6f 66 20 73 70 65 61 6b  | afraid of speak|
000002a0  69 6e 67 20 74 68 65 69  72 20 20 6d 69 6e 64 73  |ing their  minds|
000002b0  20 77 68 65 6e 20 69 74  20 63 6f 6d 65 73 20 74  | when it comes t|
000002c0  6f 20 43 68 72 69 73 74  6d 61 73 20 20 20 20 20  |o Christmas     |
000002d0  20 20 20 70 72 65 73 65  6e 74 73 2e 22 0d 00 f0  |   presents."...|
000002e0  06 20 f1 0d 00 fa 52 20  f1 20 22 54 48 45 20 42  |. ....R . "THE B|
000002f0  52 49 45 46 20 53 55 4d  4d 41 52 59 20 47 49 56  |RIEF SUMMARY GIV|
00000300  45 4e 20 4f 46 20 45 41  43 48 20 50 45 52 53 4f  |EN OF EACH PERSO|
00000310  4e 20 20 57 49 4c 4c 20  48 45 4c 50 20 59 4f 55  |N  WILL HELP YOU|
00000320  20 44 45 43 49 44 45 20  57 48 41 54 20 54 4f 20  | DECIDE WHAT TO |
00000330  42 55 59 2e 22 0d 01 04  3b 20 f1 22 59 4f 55 20  |BUY."...; ."YOU |
00000340  41 52 45 20 41 4c 53 4f  20 54 49 4d 45 44 2c 20  |ARE ALSO TIMED, |
00000350  53 54 41 52 54 49 4e 47  20 57 48 45 4e 20 59 4f  |STARTING WHEN YO|
00000360  55 20 20 20 50 52 45 53  53 20 53 50 41 43 45 22  |U   PRESS SPACE"|
00000370  0d 01 0e 24 20 f1 20 8a  31 30 2c 31 38 29 3b 22  |...$ . .10,18);"|
00000380  48 41 50 50 59 20 53 48  4f 50 50 49 4e 47 21 21  |HAPPY SHOPPING!!|
00000390  2e 2e 2e 22 0d 01 18 1e  20 f1 20 8a 31 32 2c 31  |...".... . .12,1|
000003a0  39 29 22 50 52 45 53 53  20 3c 53 50 41 43 45 3e  |9)"PRESS <SPACE>|
000003b0  22 3b 0d 01 22 06 20 f5  0d 01 2c 0e 20 4b 45 59  |";..". ...,. KEY|
000003c0  24 3d bf 28 31 29 0d 01  36 0d 20 fd 20 a6 28 2d  |$=.(1)..6. . .(-|
000003d0  39 39 29 0d 01 40 07 20  f2 31 0d 01 4a 06 20 e1  |99)..@. .1..J. .|
000003e0  0d 01 54 08 20 dd f2 31  0d 01 5e 06 20 db 0d 01  |..T. ..1..^. ...|
000003f0  68 08 20 4d 3d 30 0d 01  72 08 20 d1 3d 30 0d 01  |h. M=0..r. .=0..|
00000400  7c 10 20 4d 4f 4e 45 59  25 3d 31 35 30 30 0d 01  ||. MONEY%=1500..|
00000410  86 0c 20 43 41 53 45 25  3d 30 0d 01 90 0b 20 45  |.. CASE%=0.... E|
00000420  41 52 25 3d 30 0d 01 9a  0b 20 4d 55 47 25 3d 30  |AR%=0.... MUG%=0|
00000430  0d 01 a4 08 20 4d 3d 30  0d 01 ae 08 20 42 3d 30  |.... M=0.... B=0|
00000440  0d 01 b8 08 20 53 3d 30  0d 01 c2 08 20 58 3d 30  |.... S=0.... X=0|
00000450  0d 01 cc 08 20 52 3d 30  0d 01 d6 0c 20 42 4f 4e  |.... R=0.... BON|
00000460  45 25 3d 30 0d 01 e0 25  20 f1 3a f1 22 20 20 20  |E%=0...% .:."   |
00000470  20 20 20 20 20 20 20 20  20 20 2a 2a 2a 2a 2a 2a  |          ******|
00000480  2a 2a 2a 2a 2a 2a 22 3a  f1 0d 01 ea e0 20 f1 20  |******":..... . |
00000490  22 59 6f 75 20 61 72 65  20 73 74 61 6e 64 69 6e  |"You are standin|
000004a0  67 20 69 6e 20 74 68 65  20 73 71 75 61 72 65 2c  |g in the square,|
000004b0  20 61 6e 64 20 79 6f 75  20 63 61 6e 20 73 65 65  | and you can see|
000004c0  20 74 77 6f 20 73 68 6f  70 73 2c 4e 45 58 54 20  | two shops,NEXT |
000004d0  61 6e 64 20 57 48 53 4d  49 54 48 53 2e 20 20 20  |and WHSMITHS.   |
000004e0  20 4e 45 58 54 20 68 61  73 20 61 20 6c 61 72 67  | NEXT has a larg|
000004f0  65 20 73 61 6c 65 20 73  69 67 6e 20 69 6e 20 74  |e sale sign in t|
00000500  68 65 20 77 69 6e 64 6f  77 62 75 74 20 79 6f 75  |he windowbut you|
00000510  20 73 70 6f 74 20 61 20  70 61 72 74 69 63 75 6c  | spot a particul|
00000520  61 72 6c 79 20 6c 6f 76  65 6c 79 20 20 20 20 20  |arly lovely     |
00000530  20 70 65 6e 63 69 6c 20  63 61 73 65 20 69 6e 20  | pencil case in |
00000540  74 68 65 20 77 69 6e 64  6f 77 20 6f 66 20 57 48  |the window of WH|
00000550  53 4d 49 54 48 53 2c 20  20 69 6e 20 62 65 61 75  |SMITHS,  in beau|
00000560  74 69 66 75 6c 6c 79 22  3b 0d 01 f4 30 20 f1 20  |tifully";...0 . |
00000570  22 63 6f 6d 70 6c 69 6d  65 6e 74 61 72 79 20 66  |"complimentary f|
00000580  6c 75 72 65 73 65 6e 74  20 70 69 6e 6b 20 61 6e  |luresent pink an|
00000590  64 20 67 72 65 65 6e 2e  22 0d 01 fe 31 20 f1 3a  |d green."...1 .:|
000005a0  e8 20 22 44 4f 20 59 4f  55 20 47 4f 20 49 4e 54  |. "DO YOU GO INT|
000005b0  4f 20 53 4d 49 54 48 53  20 4f 52 20 4e 45 58 54  |O SMITHS OR NEXT|
000005c0  3f 28 53 2f 4e 29 22 41  31 24 0d 02 08 11 20 e7  |?(S/N)"A1$.... .|
000005d0  20 41 31 24 3d 22 53 22  20 f2 32 0d 02 12 3c 20  | A1$="S" .2...< |
000005e0  e7 20 41 31 24 3d 22 4e  22 20 f2 33 20 8b 20 f1  |. A1$="N" .3 . .|
000005f0  3a 20 f1 20 22 49 4e 50  55 54 2d 4e 4f 54 20 41  |: . "INPUT-NOT A|
00000600  43 43 45 50 54 41 42 4c  45 2e 2e 2e 2e 2e 2e 22  |CCEPTABLE......"|
00000610  3a e5 20 8d 64 7e 41 0d  02 1c 06 20 e1 0d 02 26  |:. .d~A.... ...&|
00000620  08 20 dd f2 32 0d 02 30  25 20 f1 3a f1 22 20 20  |. ..2..0% .:."  |
00000630  20 20 20 20 20 20 20 20  20 20 20 2a 2a 2a 2a 2a  |           *****|
00000640  2a 2a 2a 2a 2a 2a 2a 22  3a f1 0d 02 3a 06 20 f1  |*******":...:. .|
00000650  0d 02 44 b9 20 f1 20 22  59 6f 75 20 65 6e 74 65  |..D. . "You ente|
00000660  72 20 53 4d 49 54 48 53  20 61 6e 64 20 69 6e 71  |r SMITHS and inq|
00000670  75 69 72 65 20 61 62 6f  75 74 20 74 68 65 20 20  |uire about the  |
00000680  63 6f 73 74 20 6f 66 20  74 68 65 20 70 65 6e 63  |cost of the penc|
00000690  69 6c 20 63 61 73 65 2c  20 61 6e 64 20 66 69 6e  |il case, and fin|
000006a0  64 20 69 74 20 69 73 20  70 61 72 74 69 63 75 6c  |d it is particul|
000006b0  61 72 6c 79 20 65 78 70  65 6e 73 69 76 65 2d 60  |arly expensive-`|
000006c0  35 2e 35 30 2d 63 61 6e  20 79 6f 75 20 20 20 20  |5.50-can you    |
000006d0  61 66 66 6f 72 64 20 69  74 3f 20 52 65 6d 65 6d  |afford it? Remem|
000006e0  62 65 72 20 79 6f 75 20  73 74 69 6c 6c 20 68 61  |ber you still ha|
000006f0  76 65 20 74 68 72 65 65  70 72 65 73 65 6e 74 73  |ve threepresents|
00000700  20 74 6f 20 62 75 79 2e  22 0d 02 4e 2e 20 f1 3a  | to buy."..N. .:|
00000710  e8 20 22 44 4f 20 59 4f  55 20 42 55 59 20 54 48  |. "DO YOU BUY TH|
00000720  45 20 50 45 4e 43 49 4c  20 43 41 53 45 28 59 2f  |E PENCIL CASE(Y/|
00000730  4e 29 3f 22 41 32 24 0d  02 58 0f 20 50 52 49 43  |N)?"A2$..X. PRIC|
00000740  45 25 3d 35 35 30 0d 02  62 13 20 e7 20 41 32 24  |E%=550..b. . A2$|
00000750  3d 22 59 22 20 f2 42 55  59 0d 02 6c 17 20 e7 20  |="Y" .BUY..l. . |
00000760  41 32 24 3d 22 59 22 20  80 20 52 3d 31 20 f2 34  |A2$="Y" . R=1 .4|
00000770  0d 02 76 49 20 e7 20 41  32 24 3d 22 4e 22 20 84  |..vI . A2$="N" .|
00000780  20 41 32 24 3d 22 59 22  20 80 20 52 3d 30 20 f2  | A2$="Y" . R=0 .|
00000790  35 20 8b 20 f1 27 22 49  4e 50 55 54 2d 4e 4f 54  |5 . .'"INPUT-NOT|
000007a0  20 41 43 43 45 50 54 41  42 4c 45 2e 2e 2e 2e 2e  | ACCEPTABLE.....|
000007b0  2e 22 3a e5 20 8d 44 4e  42 0d 02 80 06 20 e1 0d  |.":. .DNB.... ..|
000007c0  02 8a 08 20 dd f2 33 0d  02 94 25 20 f1 3a f1 22  |... ..3...% .:."|
000007d0  20 20 20 20 20 20 20 20  20 20 20 20 20 2a 2a 2a  |             ***|
000007e0  2a 2a 2a 2a 2a 2a 2a 2a  2a 22 3a f1 0d 02 9e c8  |*********":.....|
000007f0  20 f1 20 22 59 6f 75 27  76 65 20 73 65 65 6e 20  | . "You've seen |
00000800  69 74 2c 20 74 68 65 20  62 61 72 67 61 69 6e 20  |it, the bargain |
00000810  6f 66 20 74 68 65 20 20  20 20 20 20 63 65 6e 74  |of the      cent|
00000820  75 72 79 2c 20 62 75 74  20 69 74 27 73 20 6f 76  |ury, but it's ov|
00000830  65 72 20 61 74 20 74 68  65 20 6f 74 68 65 72 20  |er at the other |
00000840  73 69 64 65 6f 66 20 74  68 65 20 73 68 6f 70 21  |sideof the shop!|
00000850  20 59 6f 75 20 73 65 65  20 73 65 76 65 72 61 6c  | You see several|
00000860  20 70 65 6f 70 6c 65 20  20 20 20 20 6d 6f 76 69  | people     movi|
00000870  6e 67 20 74 6f 77 61 72  64 73 20 74 68 65 20 65  |ng towards the e|
00000880  61 72 69 6e 67 73 20 28  60 34 2e 35 30 29 20 77  |arings (`4.50) w|
00000890  68 69 63 68 79 6f 75 20  6b 6e 6f 77 20 77 69 6c  |hichyou know wil|
000008a0  6c 20 73 75 69 74 20 79  6f 75 72 20 73 69 73 74  |l suit your sist|
000008b0  65 72 2e 22 0d 02 a8 53  20 f1 3a e8 20 22 44 4f  |er."...S .:. "DO|
000008c0  20 59 4f 55 20 4d 41 4b  45 20 41 4e 20 45 58 48  | YOU MAKE AN EXH|
000008d0  49 42 49 54 49 4f 4e 20  4f 46 20 59 4f 55 52 53  |IBITION OF YOURS|
000008e0  45 4c 46 20 42 59 52 55  4e 4e 49 4e 47 20 41 43  |ELF BYRUNNING AC|
000008f0  52 4f 53 53 20 54 48 45  20 53 48 4f 50 28 59 2f  |ROSS THE SHOP(Y/|
00000900  4e 29 3f 22 41 33 24 0d  02 b2 11 20 e7 20 41 33  |N)?"A3$.... . A3|
00000910  24 3d 22 59 22 20 f2 38  0d 02 bc 12 20 e7 20 41  |$="Y" .8.... . A|
00000920  33 24 3d 22 4e 22 20 f2  31 30 0d 02 c6 06 20 e1  |3$="N" .10.... .|
00000930  0d 02 d0 08 20 dd f2 34  0d 02 da 24 f1 3a f1 22  |.... ..4...$.:."|
00000940  20 20 20 20 20 20 20 20  20 20 20 20 20 2a 2a 2a  |             ***|
00000950  2a 2a 2a 2a 2a 2a 2a 2a  2a 22 3a f1 0d 02 e4 0c  |*********":.....|
00000960  20 43 41 53 45 25 3d 31  0d 02 ee 87 20 f1 22 27  | CASE%=1.... ."'|
00000970  59 6f 75 20 61 72 65 20  6f 75 72 20 6d 69 6c 6c  |You are our mill|
00000980  69 6f 6e 74 68 20 63 75  73 74 6f 6d 65 72 20 69  |ionth customer i|
00000990  6e 20 6f 75 72 20 20 6e  65 77 20 73 74 6f 72 65  |n our  new store|
000009a0  27 20 73 61 79 73 20 74  68 65 20 63 61 73 68 69  |' says the cashi|
000009b0  65 72 2e 59 6f 75 20 63  61 6e 20 68 61 76 65 61  |er.You can havea|
000009c0  20 60 32 2e 35 30 20 67  69 66 74 20 76 6f 75 63  | `2.50 gift vouc|
000009d0  68 65 72 2e 20 59 6f 75  20 66 65 65 6c 20 61 20  |her. You feel a |
000009e0  6c 69 74 74 6c 65 20 68  75 6e 67 72 79 2e 22 0d  |little hungry.".|
000009f0  02 f8 5e 20 f1 3a e8 20  22 44 4f 20 59 4f 55 20  |..^ .:. "DO YOU |
00000a00  42 55 59 20 41 20 42 4f  58 20 4f 46 20 53 57 45  |BUY A BOX OF SWE|
00000a10  45 54 53 20 54 4f 20 45  41 54 2d 54 48 4f 53 45  |ETS TO EAT-THOSE|
00000a20  20 43 52 45 41 4d 20 46  49 4c 4c 45 44 20 4f 4e  | CREAM FILLED ON|
00000a30  45 53 20 59 4f 55 20 52  45 41 4c 4c 59 20 41 44  |ES YOU REALLY AD|
00000a40  4f 52 45 28 59 2f 4e 29  3f 22 41 34 24 0d 03 02  |ORE(Y/N)?"A4$...|
00000a50  11 20 e7 20 41 34 24 3d  22 59 22 20 f2 36 0d 03  |. . A4$="Y" .6..|
00000a60  0c 3c 20 e7 20 41 34 24  3d 22 4e 22 20 f2 37 20  |.< . A4$="N" .7 |
00000a70  8b 20 f1 3a 20 f1 20 22  49 4e 50 55 54 2d 4e 4f  |. .: . "INPUT-NO|
00000a80  54 20 41 43 43 45 50 54  41 42 4c 45 2e 2e 2e 2e  |T ACCEPTABLE....|
00000a90  2e 2e 22 3a e5 20 8d 64  78 42 0d 03 16 06 20 e1  |..":. .dxB.... .|
00000aa0  0d 03 20 08 20 dd f2 35  0d 03 2a 24 f1 3a f1 22  |.. . ..5..*$.:."|
00000ab0  20 20 20 20 20 20 20 20  20 20 20 20 20 2a 2a 2a  |             ***|
00000ac0  2a 2a 2a 2a 2a 2a 2a 2a  2a 22 3a f1 0d 03 34 cd  |*********":...4.|
00000ad0  20 f1 20 22 57 68 65 72  65 20 6e 65 78 74 3f 2d  | . "Where next?-|
00000ae0  45 65 78 61 63 74 6c 79  20 4e 45 58 54 2e 20 59  |Eexactly NEXT. Y|
00000af0  6f 75 20 68 61 76 65 20  20 20 20 20 4c 4f 41 44  |ou have     LOAD|
00000b00  53 41 20 4d 4f 4e 45 59  20 6c 65 66 74 2c 20 62  |SA MONEY left, b|
00000b10  75 74 20 6c 6f 74 73 20  6f 66 20 70 72 65 73 65  |ut lots of prese|
00000b20  6e 74 73 20 74 6f 20 62  75 79 2e 20 42 75 74 2c  |nts to buy. But,|
00000b30  20 61 73 20 79 6f 75 20  63 6f 6d 65 20 6f 75 74  | as you come out|
00000b40  20 6f 66 20 74 68 65 20  20 20 20 20 73 74 6f 72  | of the     stor|
00000b50  65 2c 20 61 20 72 61 74  68 65 72 20 64 69 73 74  |e, a rather dist|
00000b60  72 65 73 73 65 64 20 6c  6f 6f 6b 69 6e 67 20 20  |ressed looking  |
00000b70  20 20 20 20 66 65 6d 61  6c 65 20 69 73 20 61 73  |    female is as|
00000b80  6b 69 6e 67 20 69 66 20  61 6e 79 6f 6e 65 20 63  |king if anyone c|
00000b90  61 6e 20 6c 65 6e 64 22  3b 0d 03 3e 73 20 f1 20  |an lend";..>s . |
00000ba0  22 20 68 65 72 20 60 31  20 74 6f 20 6d 61 6b 65  |" her `1 to make|
00000bb0  20 61 20 70 68 6f 6e 65  2d 63 61 6c 6c 20 61 73  | a phone-call as|
00000bc0  20 73 68 65 20 68 61 73  20 20 20 20 20 20 66 6f  | she has      fo|
00000bd0  72 67 6f 74 74 65 6e 20  68 65 72 20 70 75 72 73  |rgotten her purs|
00000be0  65 20 61 6e 64 20 6d 75  73 74 20 62 65 20 62 61  |e and must be ba|
00000bf0  63 6b 20 74 6f 20 77 6f  72 6b 20 69 6e 20 66 69  |ck to work in fi|
00000c00  76 65 20 6d 69 6e 75 74  65 73 2e 22 0d 03 48 5b  |ve minutes."..H[|
00000c10  20 f1 3a e8 20 22 54 48  49 53 20 53 45 45 4d 53  | .:. "THIS SEEMS|
00000c20  20 41 20 4c 4f 54 20 4f  46 20 4d 4f 4e 45 59 20  | A LOT OF MONEY |
00000c30  46 4f 52 20 41 20 50 48  4f 4e 45 20 20 20 43 41  |FOR A PHONE   CA|
00000c40  4c 4c 2c 20 42 55 54 20  44 4f 20 59 4f 55 20 47  |LL, BUT DO YOU G|
00000c50  49 56 45 20 49 54 20 54  4f 20 48 45 52 28 59 2f  |IVE IT TO HER(Y/|
00000c60  4e 29 3f 22 41 35 24 0d  03 52 18 20 e7 20 41 35  |N)?"A5$..R. . A5|
00000c70  24 3d 22 59 22 20 4d 3d  31 20 8b 20 4d 3d 30 0d  |$="Y" M=1 . M=0.|
00000c80  03 5c 06 20 f1 0d 03 66  1d 20 f1 22 59 4f 55 20  |.\. ...f. ."YOU |
00000c90  4e 4f 57 20 47 4f 20 54  4f 20 4e 45 58 54 22 3a  |NOW GO TO NEXT":|
00000ca0  f2 33 0d 03 70 06 20 e1  0d 03 7a 08 20 dd f2 36  |.3..p. ...z. ..6|
00000cb0  0d 03 84 24 f1 3a f1 22  20 20 20 20 20 20 20 20  |...$.:."        |
00000cc0  20 20 20 20 20 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |     ***********|
00000cd0  2a 22 3a f1 0d 03 8e 40  20 f1 20 22 59 6f 75 20  |*":....@ . "You |
00000ce0  62 75 79 20 61 6e 64 20  65 61 74 20 74 68 65 20  |buy and eat the |
00000cf0  73 77 65 65 74 73 2c 20  61 6e 64 20 66 65 65 6c  |sweets, and feel|
00000d00  20 20 20 20 6d 75 63 68  20 62 65 74 74 65 72 2e  |    much better.|
00000d10  22 3a f2 35 0d 03 98 06  20 e1 0d 03 a2 08 20 dd  |":.5.... ..... .|
00000d20  f2 37 0d 03 ac 24 f1 3a  f1 22 20 20 20 20 20 20  |.7...$.:."      |
00000d30  20 20 20 20 20 20 20 2a  2a 2a 2a 2a 2a 2a 2a 2a  |       *********|
00000d40  2a 2a 2a 22 3a f1 0d 03  b6 cd 20 f1 20 22 59 6f  |***":..... . "Yo|
00000d50  75 20 66 65 65 6c 20 76  65 72 79 20 68 75 6e 67  |u feel very hung|
00000d60  72 79 2c 20 61 6e 64 20  62 65 67 69 6e 20 74 6f  |ry, and begin to|
00000d70  20 66 65 65 6c 20 64 69  7a 7a 79 2e 20 54 68 65  | feel dizzy. The|
00000d80  20 6e 65 78 74 20 74 68  69 6e 67 20 79 6f 75 20  | next thing you |
00000d90  72 65 6d 65 6d 62 65 72  20 69 73 20 61 20 6c 61  |remember is a la|
00000da0  72 67 65 20 63 72 6f 77  64 20 70 65 65 72 69 6e  |rge crowd peerin|
00000db0  67 20 64 6f 77 6e 20 61  74 20 79 6f 75 2c 20 61  |g down at you, a|
00000dc0  6e 64 20 20 20 20 79 6f  75 72 20 68 65 61 64 20  |nd    your head |
00000dd0  68 75 72 74 73 2e 20 59  6f 75 72 20 63 68 65 65  |hurts. Your chee|
00000de0  6b 73 20 61 72 65 20 61  20 20 20 20 20 20 72 61  |ks are a      ra|
00000df0  74 68 65 72 20 72 65 64  64 69 73 68 20 63 6f 6c  |ther reddish col|
00000e00  6f 75 72 20 61 6e 64 20  79 6f 75 20 64 65 63 69  |our and you deci|
00000e10  64 65 22 0d 03 c0 48 20  f1 20 22 79 6f 75 72 20  |de"...H . "your |
00000e20  62 65 73 74 20 6f 70 74  69 6f 6e 20 69 73 20 74  |best option is t|
00000e30  6f 20 72 65 74 75 72 6e  20 68 6f 6d 65 20 61 73  |o return home as|
00000e40  20 71 75 69 63 6b 6c 79  20 61 73 20 70 6f 73 73  | quickly as poss|
00000e50  69 62 6c 65 2e 22 3a f2  45 4e 44 0d 03 ca 06 20  |ible.":.END.... |
00000e60  e1 0d 03 d4 08 20 dd f2  38 0d 03 de 24 f1 3a f1  |..... ..8...$.:.|
00000e70  22 20 20 20 20 20 20 20  20 20 20 20 20 20 2a 2a  |"             **|
00000e80  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 22 3a f1 0d 03 e8  |**********":....|
00000e90  0f 20 50 52 49 43 45 25  3d 34 35 30 0d 03 f2 74  |. PRICE%=450...t|
00000ea0  20 f1 20 22 41 20 68 61  6e 64 20 63 6f 6d 65 73  | . "A hand comes|
00000eb0  20 64 6f 77 6e 20 6f 6e  20 79 6f 75 72 20 73 68  | down on your sh|
00000ec0  6f 75 6c 64 65 72 2c 20  69 74 20 20 69 73 20 74  |oulder, it  is t|
00000ed0  68 65 20 73 74 6f 72 65  20 64 65 74 65 63 74 69  |he store detecti|
00000ee0  76 65 2e 27 57 68 6f 20  64 6f 20 79 6f 75 20 74  |ve.'Who do you t|
00000ef0  68 69 6e 6b 79 6f 75 20  61 72 65 2c 20 72 75 6e  |hinkyou are, run|
00000f00  6e 69 6e 67 20 6c 69 6b  65 20 74 68 61 74 2e 22  |ning like that."|
00000f10  0d 03 fc a2 20 e7 20 4d  3d 31 20 f1 20 22 42 75  |.... . M=1 . "Bu|
00000f20  74 20 69 74 27 73 20 74  68 65 20 6c 61 64 79 20  |t it's the lady |
00000f30  79 6f 75 20 68 65 6c 70  65 64 20 65 61 72 6c 69  |you helped earli|
00000f40  65 72 20 20 20 20 61 6e  64 20 73 61 79 73 20 69  |er    and says i|
00000f50  74 20 69 73 20 4f 6b 2c  20 61 6e 64 20 67 6f 65  |t is Ok, and goe|
00000f60  73 20 61 6e 64 20 67 65  74 73 20 74 68 65 65 61  |s and gets theea|
00000f70  72 2d 72 69 6e 67 73 20  66 6f 72 20 79 6f 75 20  |r-rings for you |
00000f80  74 6f 20 62 75 79 20 61  6e 64 20 72 65 74 75 72  |to buy and retur|
00000f90  6e 73 20 74 68 65 70 6f  75 6e 64 20 73 68 65 20  |ns thepound she |
00000fa0  62 6f 72 72 6f 77 65 64  20 65 61 72 6c 69 65 72  |borrowed earlier|
00000fb0  2e 22 0d 04 06 1a 20 e7  20 4d 3d 31 20 45 41 52  |.".... . M=1 EAR|
00000fc0  25 3d 31 20 8b 20 45 41  52 25 3d 30 0d 04 10 09  |%=1 . EAR%=0....|
00000fd0  20 f2 42 55 59 0d 04 1a  53 20 e7 20 4d 3d 30 20  | .BUY...S . M=0 |
00000fe0  f1 20 22 59 6f 75 20 61  72 65 20 69 6e 20 64 65  |. "You are in de|
00000ff0  65 70 20 74 72 6f 75 62  6c 65 2c 20 27 4f 75 74  |ep trouble, 'Out|
00001000  20 6f 66 20 74 68 69 73  20 20 20 73 68 6f 70 20  | of this   shop |
00001010  69 6d 6d 65 64 69 61 74  65 6c 79 2c 27 20 73 68  |immediately,' sh|
00001020  65 20 73 61 79 73 2e 22  0d 04 24 23 20 f1 3a f1  |e says."..$# .:.|
00001030  22 41 4e 4f 54 48 45 52  20 53 48 4f 50 20 4e 4f  |"ANOTHER SHOP NO|
00001040  57 2e 2e 2e 2e 2e 22 3a  f2 31 30 0d 04 2e 06 20  |W.....":.10.... |
00001050  e1 0d 04 38 08 20 dd f2  39 0d 04 42 24 f1 3a f1  |...8. ..9..B$.:.|
00001060  22 20 20 20 20 20 20 20  20 20 20 20 20 20 2a 2a  |"             **|
00001070  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 22 3a f1 0d 04 4c  |**********":...L|
00001080  63 20 f1 20 22 59 6f 75  20 6a 75 73 74 20 6d 61  |c . "You just ma|
00001090  6b 65 20 69 74 20 74 6f  20 73 65 65 20 73 6f 6d  |ke it to see som|
000010a0  65 6f 6e 65 20 65 6c 73  65 20 20 20 20 6c 69 66  |eone else    lif|
000010b0  74 20 74 68 65 20 65 61  72 2d 72 69 6e 67 73 20  |t the ear-rings |
000010c0  6f 66 66 20 74 68 65 20  73 68 65 6c 66 2d 68 61  |off the shelf-ha|
000010d0  72 64 20 20 20 6c 75 63  6b 2c 20 50 61 6c 2e 22  |rd   luck, Pal."|
000010e0  0d 04 56 22 f1 3a f1 22  41 4e 4f 54 48 45 52 20  |..V".:."ANOTHER |
000010f0  53 48 4f 50 20 4e 4f 57  2e 2e 2e 2e 2e 22 3a f2  |SHOP NOW.....":.|
00001100  31 30 0d 04 60 06 20 e1  0d 04 6a 09 20 dd f2 31  |10..`. ...j. ..1|
00001110  30 0d 04 74 24 f1 3a f1  22 20 20 20 20 20 20 20  |0..t$.:."       |
00001120  20 20 20 20 20 20 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |      **********|
00001130  2a 2a 22 3a f1 0d 04 7e  68 20 f1 20 22 59 6f 75  |**":...~h . "You|
00001140  20 67 6f 20 6f 75 74 20  69 6e 74 6f 20 74 68 65  | go out into the|
00001150  20 70 72 65 63 69 6e 63  74 2c 20 61 6e 64 20 20  | precinct, and  |
00001160  20 20 20 20 20 63 6f 6e  73 69 64 65 72 20 42 4f  |     consider BO|
00001170  4f 54 53 20 61 73 20 79  6f 75 72 20 6e 65 78 74  |OTS as your next|
00001180  20 63 68 6f 69 63 65 2d  79 6f 75 20 20 65 6e 74  | choice-you  ent|
00001190  65 72 20 74 68 65 20 73  68 6f 70 2e 22 0d 04 88  |er the shop."...|
000011a0  55 20 f1 3a e8 20 22 57  48 49 43 48 20 44 45 50  |U .:. "WHICH DEP|
000011b0  41 52 54 4d 45 4e 54 20  44 4f 20 59 4f 55 20 47  |ARTMENT DO YOU G|
000011c0  4f 20 54 4f 2d 52 45 43  4f 52 44 53 2c 20 20 48  |O TO-RECORDS,  H|
000011d0  4f 55 53 45 48 4f 4c 44  20 4f 52 20 50 45 54 20  |OUSEHOLD OR PET |
000011e0  49 54 45 4d 53 28 52 2f  48 2f 50 29 3f 22 41 31  |ITEMS(R/H/P)?"A1|
000011f0  30 24 0d 04 92 13 20 e7  20 41 31 30 24 3d 22 52  |0$.... . A10$="R|
00001200  22 20 f2 31 31 0d 04 9c  12 e7 20 41 31 30 24 3d  |" .11..... A10$=|
00001210  22 48 22 20 f2 31 32 0d  04 a6 3f e7 20 41 31 30  |"H" .12...?. A10|
00001220  24 3d 22 50 22 20 f2 31  33 20 8b 20 f1 20 3a f1  |$="P" .13 . . :.|
00001230  20 22 49 4e 50 55 54 2d  20 4e 4f 54 20 41 43 43  | "INPUT- NOT ACC|
00001240  45 50 54 41 42 4c 45 2e  2e 2e 2e 2e 2e 2e 22 3a  |EPTABLE.......":|
00001250  e5 20 8d 74 48 44 0d 04  b0 06 20 e1 0d 04 ba 0a  |. .tHD.... .....|
00001260  20 dd 20 f2 31 31 0d 04  c4 24 f1 3a f1 22 20 20  | . .11...$.:."  |
00001270  20 20 20 20 20 20 20 20  20 20 20 2a 2a 2a 2a 2a  |           *****|
00001280  2a 2a 2a 2a 2a 2a 2a 22  3a f1 0d 04 ce a7 20 f1  |*******":..... .|
00001290  20 22 41 73 20 79 6f 75  20 6d 61 6b 65 20 79 6f  | "As you make yo|
000012a0  75 72 20 77 61 79 20 74  6f 20 74 68 65 20 72 65  |ur way to the re|
000012b0  63 6f 72 64 20 20 20 20  20 20 63 6f 75 6e 74 65  |cord      counte|
000012c0  72 2c 20 79 6f 75 20 6e  6f 74 69 63 65 20 61 20  |r, you notice a |
000012d0  73 69 67 6e 20 77 68 69  63 68 20 73 61 79 73 20  |sign which says |
000012e0  20 20 27 42 75 79 20 61  6e 79 20 32 20 73 69 6e  |  'Buy any 2 sin|
000012f0  67 6c 65 73 20 67 65 74  20 6f 6e 65 20 66 72 65  |gles get one fre|
00001300  65 2e 27 20 4a 75 73 74  20 20 61 74 20 74 68 69  |e.' Just  at thi|
00001310  73 20 6d 6f 6d 65 6e 74  20 61 20 73 6d 61 6c 6c  |s moment a small|
00001320  20 62 6f 79 20 72 75 73  68 65 73 20 70 61 73 74  | boy rushes past|
00001330  22 0d 04 d8 44 20 f1 22  61 6e 64 20 73 6e 61 74  |"...D ."and snat|
00001340  63 68 65 73 20 79 6f 75  72 20 63 61 72 72 69 65  |ches your carrie|
00001350  72 20 62 61 67 2c 20 77  68 69 63 68 20 20 20 20  |r bag, which    |
00001360  63 6f 6e 74 61 69 6e 73  20 79 6f 75 72 20 6d 6f  |contains your mo|
00001370  6e 65 79 2e 22 0d 04 e2  29 20 f1 3a e8 20 22 44  |ney."...) .:. "D|
00001380  4f 20 59 4f 55 20 52 55  4e 20 41 46 54 45 52 20  |O YOU RUN AFTER |
00001390  48 49 4d 28 59 2f 4e 29  3f 22 41 31 31 24 0d 04  |HIM(Y/N)?"A11$..|
000013a0  ec 13 20 e7 20 41 31 31  24 3d 22 59 22 20 f2 31  |.. . A11$="Y" .1|
000013b0  34 0d 04 f6 40 20 e7 20  41 31 31 24 3d 22 4e 22  |4...@ . A11$="N"|
000013c0  20 f2 31 35 20 8b 20 f1  20 3a f1 20 22 49 4e 50  | .15 . . :. "INP|
000013d0  55 54 2d 20 4e 4f 54 20  41 43 43 45 50 54 41 42  |UT- NOT ACCEPTAB|
000013e0  4c 45 2e 2e 2e 2e 2e 2e  2e 22 3a e5 20 8d 64 62  |LE.......":. .db|
000013f0  44 0d 05 00 06 20 e1 0d  05 0a 0a 20 dd 20 f2 31  |D.... ..... . .1|
00001400  32 0d 05 14 24 f1 3a f1  22 20 20 20 20 20 20 20  |2...$.:."       |
00001410  20 20 20 20 20 20 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |      **********|
00001420  2a 2a 22 3a f1 0d 05 1e  86 20 f1 20 22 49 6e 20  |**":..... . "In |
00001430  74 68 65 20 68 6f 75 73  65 68 6f 6c 64 20 73 65  |the household se|
00001440  63 74 69 6f 6e 2c 20 79  6f 75 20 66 69 6e 64 20  |ction, you find |
00001450  61 20 73 65 74 6f 66 20  6d 75 67 73 20 77 68 69  |a setof mugs whi|
00001460  63 68 20 61 72 65 20 60  34 2e 35 30 2e 20 54 68  |ch are `4.50. Th|
00001470  65 79 20 61 72 65 20 20  20 20 20 20 20 62 65 61  |ey are       bea|
00001480  75 74 69 66 75 6c 6c 79  20 64 65 73 69 67 6e 65  |utifully designe|
00001490  64 2c 20 62 75 74 20 63  61 6e 20 79 6f 75 20 61  |d, but can you a|
000014a0  66 66 6f 72 64 74 68 65  6d 3f 22 0d 05 28 28 20  |ffordthem?"..(( |
000014b0  f1 3a e8 20 22 44 4f 20  59 4f 55 20 42 55 59 20  |.:. "DO YOU BUY |
000014c0  54 48 45 20 4d 55 47 53  28 59 2f 4e 29 3f 22 41  |THE MUGS(Y/N)?"A|
000014d0  31 32 24 0d 05 32 10 20  50 52 49 43 45 25 3d 34  |12$..2. PRICE%=4|
000014e0  35 30 3a 0d 05 3c 14 20  e7 20 41 31 32 24 3d 22  |50:..<. . A12$="|
000014f0  59 22 20 f2 42 55 59 0d  05 46 19 20 e7 20 41 31  |Y" .BUY..F. . A1|
00001500  32 24 3d 22 59 22 20 80  20 52 3d 31 20 f2 31 36  |2$="Y" . R=1 .16|
00001510  0d 05 50 51 20 e7 20 41  31 32 24 3d 22 4e 22 20  |..PQ . A12$="N" |
00001520  84 20 41 31 32 24 3d 22  59 22 20 80 20 52 3d 30  |. A12$="Y" . R=0|
00001530  20 f2 31 37 20 8b 20 f1  20 3a f1 20 22 49 4e 50  | .17 . . :. "INP|
00001540  55 54 2d 20 4e 4f 54 20  41 43 43 45 50 54 41 42  |UT- NOT ACCEPTAB|
00001550  4c 45 2e 2e 2e 2e 2e 2e  2e 22 3a e5 20 8d 54 68  |LE.......":. .Th|
00001560  45 0d 05 5a 06 20 e1 0d  05 64 0b 20 dd 20 f2 42  |E..Z. ...d. . .B|
00001570  55 59 0d 05 6e 08 20 52  3d 31 0d 05 78 1a 20 43  |UY..n. R=1..x. C|
00001580  48 41 4e 47 45 25 3d 4d  4f 4e 45 59 25 2d 50 52  |HANGE%=MONEY%-PR|
00001590  49 43 45 25 0d 05 82 27  20 e7 20 43 48 41 4e 47  |ICE%...' . CHANG|
000015a0  45 25 20 3c 20 30 20 f2  4e 4f 20 8b 20 4d 4f 4e  |E% < 0 .NO . MON|
000015b0  45 59 25 3d 43 48 41 4e  47 45 25 0d 05 8c 06 20  |EY%=CHANGE%.... |
000015c0  e1 0d 05 96 0a 20 dd 20  f2 4e 4f 0d 05 a0 08 20  |..... . .NO.... |
000015d0  52 3d 30 0d 05 aa 42 20  f1 20 22 59 4f 55 20 44  |R=0...B . "YOU D|
000015e0  4f 20 4e 4f 54 20 48 41  56 45 20 53 55 46 46 49  |O NOT HAVE SUFFI|
000015f0  43 49 45 4e 54 20 4d 4f  4e 45 59 2e 2e 2e 20 20  |CIENT MONEY...  |
00001600  20 20 20 53 4f 52 52 59  20 41 42 4f 55 54 20 54  |   SORRY ABOUT T|
00001610  48 41 54 2e 22 0d 05 b4  06 20 e1 0d 05 be 0a 20  |HAT.".... ..... |
00001620  dd 20 f2 31 33 0d 05 c8  24 f1 3a f1 22 20 20 20  |. .13...$.:."   |
00001630  20 20 20 20 20 20 20 20  20 20 2a 2a 2a 2a 2a 2a  |          ******|
00001640  2a 2a 2a 2a 2a 2a 22 3a  f1 0d 05 d2 85 20 f1 20  |******":..... . |
00001650  22 41 74 20 74 68 65 20  70 65 74 20 73 65 63 74  |"At the pet sect|
00001660  69 6f 6e 20 79 6f 75 20  73 65 65 20 61 20 72 61  |ion you see a ra|
00001670  74 68 65 72 20 6e 69 63  65 62 6f 6e 65 20 66 6f  |ther nicebone fo|
00001680  72 20 35 30 70 2c 20 62  75 74 20 61 72 65 20 61  |r 50p, but are a|
00001690  70 70 72 65 68 65 6e 73  69 76 65 20 6f 76 65 72  |pprehensive over|
000016a0  20 77 68 65 74 68 65 72  20 69 74 20 69 74 20 65  | whether it it e|
000016b0  6e 6f 75 67 68 20 66 6f  72 20 79 6f 75 72 20 62  |nough for your b|
000016c0  65 6c 6f 76 65 64 20 20  20 64 6f 67 2e 22 0d 05  |eloved   dog."..|
000016d0  dc 28 20 f1 3a e8 20 22  44 4f 20 59 4f 55 20 42  |.( .:. "DO YOU B|
000016e0  55 59 20 54 48 45 20 42  4f 4e 45 28 59 2f 4e 29  |UY THE BONE(Y/N)|
000016f0  3f 22 41 31 33 24 0d 05  e6 0e 20 50 52 49 43 45  |?"A13$.... PRICE|
00001700  25 3d 35 30 0d 05 f0 14  20 e7 20 41 31 33 24 3d  |%=50.... . A13$=|
00001710  22 59 22 20 f2 42 55 59  0d 05 fa 19 20 e7 20 41  |"Y" .BUY.... . A|
00001720  31 33 24 3d 22 59 22 20  80 20 52 3d 31 20 f2 31  |13$="Y" . R=1 .1|
00001730  38 0d 06 04 51 20 e7 20  41 31 33 24 3d 22 4e 22  |8...Q . A13$="N"|
00001740  20 84 20 41 31 33 24 3d  22 59 22 20 80 20 52 3d  | . A13$="Y" . R=|
00001750  30 20 f2 31 39 20 8b 20  f1 20 3a f1 20 22 49 4e  |0 .19 . . :. "IN|
00001760  50 55 54 2d 20 4e 4f 54  20 41 43 43 45 50 54 41  |PUT- NOT ACCEPTA|
00001770  42 4c 45 2e 2e 2e 2e 2e  2e 2e 22 3a e5 20 8d 64  |BLE.......":. .d|
00001780  5c 45 0d 06 0e 06 20 e1  0d 06 18 09 20 dd f2 31  |\E.... ..... ..1|
00001790  34 0d 06 22 24 f1 3a f1  22 20 20 20 20 20 20 20  |4.."$.:."       |
000017a0  20 20 20 20 20 20 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |      **********|
000017b0  2a 2a 22 3a f1 0d 06 2c  8b 20 f1 22 59 6f 75 20  |**":...,. ."You |
000017c0  72 75 6e 20 61 66 74 65  72 20 68 69 6d 20 73 68  |run after him sh|
000017d0  6f 75 74 69 6e 67 20 54  48 49 45 46 2c 20 61 6e  |outing THIEF, an|
000017e0  64 20 20 20 6a 75 73 74  20 6d 61 6e 61 67 65 20  |d   just manage |
000017f0  74 6f 20 63 61 74 63 68  20 68 69 73 20 6a 61 63  |to catch his jac|
00001800  6b 65 74 20 61 73 20 68  65 20 69 73 61 62 6f 75  |ket as he isabou|
00001810  74 20 74 6f 20 6c 65 61  76 65 20 74 68 65 20 73  |t to leave the s|
00001820  68 6f 70 2c 20 61 6e 64  20 72 65 74 72 69 65 76  |hop, and retriev|
00001830  65 20 20 20 79 6f 75 72  20 6d 6f 6e 65 79 2e 22  |e   your money."|
00001840  0d 06 36 79 20 f1 22 41  6e 20 65 6c 64 65 72 6c  |..6y ."An elderl|
00001850  79 20 6c 61 64 79 20 63  61 6e 6e 6f 74 20 74 68  |y lady cannot th|
00001860  61 6e 6b 20 79 6f 75 20  65 6e 6f 75 67 68 2c 61  |ank you enough,a|
00001870  73 20 74 68 65 20 62 6f  79 20 68 61 64 20 61 6c  |s the boy had al|
00001880  73 6f 20 73 74 6f 6c 65  6e 20 68 65 72 20 68 61  |so stolen her ha|
00001890  6e 64 62 61 67 21 20 53  68 65 20 67 69 76 65 73  |ndbag! She gives|
000018a0  20 79 6f 75 20 60 32 20  74 6f 20 73 61 79 20 74  | you `2 to say t|
000018b0  68 61 6e 6b 79 6f 75 2e  22 0d 06 40 16 20 4d 4f  |hankyou."..@. MO|
000018c0  4e 45 59 25 3d 4d 4f 4e  45 59 25 2b 32 30 30 0d  |NEY%=MONEY%+200.|
000018d0  06 4a 3c 20 f1 3a e8 22  57 48 45 52 45 20 4e 4f  |.J< .:."WHERE NO|
000018e0  57 2c 20 54 48 45 20 48  4f 55 53 45 48 4f 4c 44  |W, THE HOUSEHOLD|
000018f0  20 4f 52 20 50 45 54 20  53 45 43 54 49 4f 4e 20  | OR PET SECTION |
00001900  28 48 2f 50 29 3f 22 41  31 34 24 0d 06 54 13 20  |(H/P)?"A14$..T. |
00001910  e7 20 41 31 34 24 3d 22  48 22 20 f2 31 32 0d 06  |. A14$="H" .12..|
00001920  5e 40 20 e7 20 41 31 34  24 3d 22 50 22 20 f2 31  |^@ . A14$="P" .1|
00001930  33 20 8b 20 f1 20 3a f1  20 22 49 4e 50 55 54 2d  |3 . . :. "INPUT-|
00001940  20 4e 4f 54 20 41 43 43  45 50 54 41 42 4c 45 2e  | NOT ACCEPTABLE.|
00001950  2e 2e 2e 2e 2e 2e 22 3a  e5 20 8d 44 4a 46 0d 06  |......":. .DJF..|
00001960  68 06 20 e1 0d 06 72 09  20 dd f2 31 35 0d 06 7c  |h. ...r. ..15..||
00001970  24 f1 3a f1 22 20 20 20  20 20 20 20 20 20 20 20  |$.:."           |
00001980  20 20 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 22 3a  |  ************":|
00001990  f1 0d 06 86 c0 20 f1 20  22 54 68 65 72 65 20 69  |..... . "There i|
000019a0  73 20 6e 6f 74 68 69 6e  67 20 66 6f 72 20 69 74  |s nothing for it|
000019b0  20 62 75 74 20 74 6f 20  72 65 74 75 72 6e 20 20  | but to return  |
000019c0  20 68 6f 6d 65 20 77 69  74 68 20 77 68 61 74 20  | home with what |
000019d0  79 6f 75 20 68 61 76 65  2e 20 4f 6e 20 79 6f 75  |you have. On you|
000019e0  72 20 77 61 79 20 6f 75  74 6f 66 20 74 68 65 20  |r way outof the |
000019f0  73 68 6f 70 2c 20 79 6f  75 20 6e 6f 74 69 63 65  |shop, you notice|
00001a00  20 61 20 63 6f 6d 6f 74  69 6f 6e 2c 20 61 6e 64  | a comotion, and|
00001a10  20 73 65 65 20 74 68 65  20 73 6d 61 6c 6c 20 62  | see the small b|
00001a20  6f 79 20 68 61 73 20 62  65 65 6e 20 63 61 75 67  |oy has been caug|
00001a30  68 74 2c 20 61 6e 64 20  20 79 6f 75 72 20 6d 6f  |ht, and  your mo|
00001a40  6e 65 79 20 69 73 20 72  65 74 75 72 6e 65 64 2e  |ney is returned.|
00001a50  22 0d 06 90 3c 20 f1 3a  e8 22 57 48 45 52 45 20  |"...< .:."WHERE |
00001a60  4e 4f 57 2c 20 54 48 45  20 48 4f 55 53 45 48 4f  |NOW, THE HOUSEHO|
00001a70  4c 44 20 4f 52 20 50 45  54 20 53 45 43 54 49 4f  |LD OR PET SECTIO|
00001a80  4e 20 28 48 2f 50 29 3f  22 41 31 34 24 0d 06 9a  |N (H/P)?"A14$...|
00001a90  13 20 e7 20 41 31 34 24  3d 22 48 22 20 f2 31 32  |. . A14$="H" .12|
00001aa0  0d 06 a4 40 20 e7 20 41  31 34 24 3d 22 50 22 20  |...@ . A14$="P" |
00001ab0  f2 31 33 20 8b 20 f1 20  3a f1 20 22 49 4e 50 55  |.13 . . :. "INPU|
00001ac0  54 2d 20 4e 4f 54 20 41  43 43 45 50 54 41 42 4c  |T- NOT ACCEPTABL|
00001ad0  45 2e 2e 2e 2e 2e 2e 2e  22 3a e5 20 8d 74 50 46  |E.......":. .tPF|
00001ae0  0d 06 ae 06 20 e1 0d 06  b8 0a 20 dd 20 f2 31 36  |.... ..... . .16|
00001af0  0d 06 c2 24 f1 3a f1 22  20 20 20 20 20 20 20 20  |...$.:."        |
00001b00  20 20 20 20 20 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |     ***********|
00001b10  2a 22 3a f1 0d 06 cc 0b  20 4d 55 47 25 3d 31 0d  |*":..... MUG%=1.|
00001b20  06 d6 3d 20 f1 20 22 59  6f 75 20 62 75 79 20 74  |..= . "You buy t|
00001b30  68 65 20 6d 75 67 73 20  61 6e 64 20 63 6f 6e 74  |he mugs and cont|
00001b40  69 6e 75 65 20 6f 6e 74  6f 20 74 68 65 20 20 70  |inue onto the  p|
00001b50  65 74 20 73 65 63 74 69  6f 6e 2e 22 0d 06 e0 08  |et section."....|
00001b60  20 f2 31 33 0d 06 ea 06  20 e1 0d 06 f4 0a 20 dd  | .13.... ..... .|
00001b70  20 f2 31 37 0d 06 fe 24  f1 3a f1 22 20 20 20 20  | .17...$.:."    |
00001b80  20 20 20 20 20 20 20 20  20 2a 2a 2a 2a 2a 2a 2a  |         *******|
00001b90  2a 2a 2a 2a 2a 22 3a f1  0d 07 08 0b 20 4d 55 47  |*****":..... MUG|
00001ba0  25 3d 30 0d 07 12 44 20  f1 20 22 59 6f 75 20 64  |%=0...D . "You d|
00001bb0  6f 20 6e 6f 74 20 62 75  79 20 74 68 65 20 6d 75  |o not buy the mu|
00001bc0  67 73 20 62 75 74 20 63  6f 6e 74 69 6e 75 65 20  |gs but continue |
00001bd0  6f 6e 20 74 6f 20 74 68  65 20 70 65 74 20 73 65  |on to the pet se|
00001be0  63 74 69 6f 6e 2e 22 0d  07 1c 0a 20 f2 31 33 3a  |ction.".... .13:|
00001bf0  e1 0d 07 26 09 20 dd f2  31 38 0d 07 30 0c 20 42  |...&. ..18..0. B|
00001c00  4f 4e 45 25 3d 31 0d 07  3a 24 f1 3a f1 22 20 20  |ONE%=1..:$.:."  |
00001c10  20 20 20 20 20 20 20 20  20 20 20 2a 2a 2a 2a 2a  |           *****|
00001c20  2a 2a 2a 2a 2a 2a 2a 22  3a f1 0d 07 44 5e 20 f1  |*******":...D^ .|
00001c30  20 22 59 6f 75 20 62 75  79 20 74 68 65 20 62 6f  | "You buy the bo|
00001c40  6e 65 2c 20 61 6e 64 20  69 74 20 69 73 20 67 69  |ne, and it is gi|
00001c50  66 74 20 77 72 61 70 70  65 64 57 48 41 54 20 4e  |ft wrappedWHAT N|
00001c60  45 58 54 3f 20 49 74 20  69 73 20 35 3a 30 30 70  |EXT? It is 5:00p|
00001c70  6d 20 73 6f 20 69 74 20  69 73 20 71 75 69 74 65  |m so it is quite|
00001c80  20 20 6c 61 74 65 2e 22  0d 07 4e 3c 20 f1 3a e8  |  late."..N< .:.|
00001c90  22 44 4f 20 59 4f 55 20  52 45 54 55 52 4e 20 48  |"DO YOU RETURN H|
00001ca0  4f 4d 45 2c 20 4f 52 20  47 4f 54 4f 20 41 4e 4f  |OME, OR GOTO ANO|
00001cb0  54 48 45 52 20 53 48 4f  50 28 48 2f 53 29 3f 22  |THER SHOP(H/S)?"|
00001cc0  41 31 38 24 0d 07 58 14  20 e7 20 41 31 38 24 3d  |A18$..X. . A18$=|
00001cd0  22 48 22 20 f2 45 4e 44  0d 07 62 3e 20 e7 20 41  |"H" .END..b> . A|
00001ce0  31 38 24 3d 22 53 22 20  f2 32 30 20 8b 20 f1 3a  |18$="S" .20 . .:|
00001cf0  20 f1 20 22 49 4e 50 55  54 2d 4e 4f 54 20 41 43  | . "INPUT-NOT AC|
00001d00  43 45 50 54 41 42 4c 45  2e 2e 2e 2e 2e 2e 22 3a  |CEPTABLE......":|
00001d10  e5 20 8d 44 4e 47 0d 07  6c 06 20 e1 0d 07 76 0a  |. .DNG..l. ...v.|
00001d20  20 dd 20 f2 31 39 0d 07  80 0c 20 42 4f 4e 45 25  | . .19.... BONE%|
00001d30  3d 30 0d 07 8a 24 f1 3a  f1 22 20 20 20 20 20 20  |=0...$.:."      |
00001d40  20 20 20 20 20 20 20 2a  2a 2a 2a 2a 2a 2a 2a 2a  |       *********|
00001d50  2a 2a 2a 22 3a f1 0d 07  94 8f 20 f1 20 22 59 6f  |***":..... . "Yo|
00001d60  75 20 64 6f 20 6e 6f 74  20 62 75 79 20 74 68 65  |u do not buy the|
00001d70  20 62 6f 6e 65 2e 20 54  68 65 72 65 20 69 73 20  | bone. There is |
00001d80  61 20 6e 69 63 65 70 65  74 20 73 74 6f 72 65 20  |a nicepet store |
00001d90  6e 65 78 74 20 64 6f 6f  72 2c 20 73 6f 20 79 6f  |next door, so yo|
00001da0  75 20 67 6f 20 6f 6e 20  74 6f 20 20 20 20 74 68  |u go on to    th|
00001db0  65 72 65 2e 20 48 65 72  65 20 69 73 20 61 20 6c  |ere. Here is a l|
00001dc0  6f 76 65 6c 79 20 62 6f  78 20 6f 66 20 64 6f 67  |ovely box of dog|
00001dd0  20 20 20 20 20 20 62 69  73 63 75 69 74 73 2d 60  |      biscuits-`|
00001de0  32 2e 35 30 22 0d 07 9e  2c 20 f1 3a e8 20 22 44  |2.50"..., .:. "D|
00001df0  4f 20 59 4f 55 20 42 55  59 20 54 48 45 20 42 49  |O YOU BUY THE BI|
00001e00  53 43 55 49 54 53 28 59  2f 4e 29 3f 22 41 31 39  |SCUITS(Y/N)?"A19|
00001e10  24 0d 07 a8 0f 20 50 52  49 43 45 25 3d 32 35 30  |$.... PRICE%=250|
00001e20  0d 07 b2 14 20 e7 20 41  31 39 24 3d 22 59 22 20  |.... . A19$="Y" |
00001e30  f2 42 55 59 0d 07 bc 1a  20 e7 20 41 31 39 24 3d  |.BUY.... . A19$=|
00001e40  22 59 22 20 80 20 52 3d  31 20 8c f2 32 31 0d 07  |"Y" . R=1 ..21..|
00001e50  c6 4f 20 e7 20 41 31 39  24 3d 22 4e 22 20 84 20  |.O . A19$="N" . |
00001e60  41 31 39 24 3d 22 59 22  20 80 20 52 3d 30 20 f2  |A19$="Y" . R=0 .|
00001e70  32 32 20 8b 20 f1 3a 20  f1 20 22 49 4e 50 55 54  |22 . .: . "INPUT|
00001e80  2d 4e 4f 54 20 41 43 43  45 50 54 41 42 4c 45 2e  |-NOT ACCEPTABLE.|
00001e90  2e 2e 2e 2e 2e 22 3a e5  20 8d 74 5e 47 0d 07 d0  |.....":. .t^G...|
00001ea0  06 20 e1 0d 07 da 09 20  dd f2 32 30 0d 07 e4 24  |. ..... ..20...$|
00001eb0  f1 3a f1 22 20 20 20 20  20 20 20 20 20 20 20 20  |.:."            |
00001ec0  20 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 22 3a f1  | ************":.|
00001ed0  0d 07 ee 5d 20 f1 22 59  6f 75 20 6e 6f 77 20 6d  |...] ."You now m|
00001ee0  61 6b 65 20 79 6f 75 72  20 77 61 79 20 74 6f 20  |ake your way to |
00001ef0  74 68 65 20 73 77 65 65  74 20 73 68 6f 70 2e 48  |the sweet shop.H|
00001f00  65 72 65 20 69 73 20 61  20 6c 6f 76 65 6c 79 20  |ere is a lovely |
00001f10  62 6f 78 20 6f 66 20 63  68 6f 63 6f 6c 61 74 65  |box of chocolate|
00001f20  73 20 6f 6e 6c 79 20 60  34 2e 35 30 22 0d 07 f8  |s only `4.50"...|
00001f30  0f 20 50 52 49 43 45 25  3d 34 35 30 0d 08 02 2e  |. PRICE%=450....|
00001f40  20 f1 3a e8 20 22 44 4f  20 59 4f 55 20 42 55 59  | .:. "DO YOU BUY|
00001f50  20 54 48 45 20 43 48 4f  43 4f 4c 41 54 45 53 28  | THE CHOCOLATES(|
00001f60  59 2f 4e 29 3f 22 41 32  30 24 0d 08 0c 14 20 e7  |Y/N)?"A20$.... .|
00001f70  20 41 32 30 24 3d 22 59  22 20 f2 42 55 59 0d 08  | A20$="Y" .BUY..|
00001f80  16 19 20 e7 20 41 32 30  24 3d 22 59 22 20 80 20  |.. . A20$="Y" . |
00001f90  52 3d 31 20 f2 32 33 0d  08 20 4f 20 e7 20 41 32  |R=1 .23.. O . A2|
00001fa0  30 24 3d 22 4e 22 20 84  20 41 32 30 24 3d 22 59  |0$="N" . A20$="Y|
00001fb0  22 20 80 20 52 3d 30 20  f2 32 34 20 8b 20 f1 3a  |" . R=0 .24 . .:|
00001fc0  20 f1 20 22 49 4e 50 55  54 2d 4e 4f 54 20 41 43  | . "INPUT-NOT AC|
00001fd0  43 45 50 54 41 42 4c 45  2e 2e 2e 2e 2e 2e 22 3a  |CEPTABLE......":|
00001fe0  e5 20 8d 54 42 48 0d 08  2a 06 20 e1 0d 08 34 09  |. .TBH..*. ...4.|
00001ff0  dd 20 f2 32 31 0d 08 3e  25 20 f1 3a f1 22 20 20  |. .21..>% .:."  |
00002000  20 20 20 20 20 20 20 20  20 20 20 2a 2a 2a 2a 2a  |           *****|
00002010  2a 2a 2a 2a 2a 2a 2a 22  3a f1 0d 08 48 08 20 42  |*******":...H. B|
00002020  3d 31 0d 08 52 46 20 f1  22 59 6f 75 20 62 75 79  |=1..RF ."You buy|
00002030  20 74 68 65 20 62 69 73  63 75 69 74 73 20 61 6e  | the biscuits an|
00002040  64 20 6d 61 6b 65 20 79  6f 75 72 20 77 61 79 20  |d make your way |
00002050  20 74 6f 20 74 68 65 20  73 77 65 65 74 20 73 68  | to the sweet sh|
00002060  6f 70 2e 22 3a f2 32 30  0d 08 5c 06 20 e1 0d 08  |op.":.20..\. ...|
00002070  66 09 20 dd f2 32 32 0d  08 70 08 20 42 3d 30 0d  |f. ..22..p. B=0.|
00002080  08 7a 24 f1 3a f1 22 20  20 20 20 20 20 20 20 20  |.z$.:."         |
00002090  20 20 20 20 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |    ************|
000020a0  22 3a f1 0d 08 84 45 20  f1 22 59 6f 75 20 64 6f  |":....E ."You do|
000020b0  6e 27 74 20 62 75 79 20  74 68 65 20 62 69 73 63  |n't buy the bisc|
000020c0  75 69 74 73 20 61 6e 64  20 6d 61 6b 65 20 79 6f  |uits and make yo|
000020d0  75 72 77 61 79 20 74 6f  20 74 68 65 20 73 77 65  |urway to the swe|
000020e0  65 74 73 68 6f 70 2e 22  0d 08 8e 0a 20 f2 32 30  |etshop.".... .20|
000020f0  3a e1 0d 08 98 09 20 dd  f2 32 33 0d 08 a2 24 f1  |:..... ..23...$.|
00002100  3a f1 22 20 20 20 20 20  20 20 20 20 20 20 20 20  |:."             |
00002110  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 22 3a f1 0d  |************":..|
00002120  08 ac 63 20 f1 22 41 73  20 79 6f 75 20 6c 69 66  |..c ."As you lif|
00002130  74 20 74 68 65 20 62 6f  78 20 6f 66 20 63 68 6f  |t the box of cho|
00002140  63 6f 6c 61 74 65 73 20  6f 66 20 74 68 65 73 68  |colates of thesh|
00002150  65 6c 66 2c 20 74 68 65  20 77 68 6f 6c 65 20 70  |elf, the whole p|
00002160  69 6c 65 20 63 6f 6d 65  73 20 74 75 6d 62 6c 69  |ile comes tumbli|
00002170  6e 67 20 74 6f 20 74 68  65 20 67 72 6f 75 6e 64  |ng to the ground|
00002180  21 22 0d 08 b6 26 20 f1  3a e8 22 44 4f 20 59 4f  |!"...& .:."DO YO|
00002190  55 20 48 41 4e 47 20 41  52 4f 55 4e 44 28 59 2f  |U HANG AROUND(Y/|
000021a0  4e 29 3f 22 41 32 33 24  0d 08 c0 13 20 e7 20 41  |N)?"A23$.... . A|
000021b0  32 33 24 3d 22 59 22 20  f2 32 35 0d 08 ca 3b 20  |23$="Y" .25...; |
000021c0  e7 20 41 32 33 24 3d 22  4e 22 20 f2 32 36 20 8b  |. A23$="N" .26 .|
000021d0  20 f1 27 22 49 4e 50 55  54 2d 4e 4f 54 20 41 43  | .'"INPUT-NOT AC|
000021e0  43 45 50 54 41 42 4c 45  2e 2e 2e 2e 2e 2e 22 3a  |CEPTABLE......":|
000021f0  e5 20 8d 74 76 48 0d 08  d4 06 20 e1 0d 08 de 0a  |. .tvH.... .....|
00002200  20 dd 20 f2 32 34 0d 08  e8 24 20 f1 20 22 20 20  | . .24...$ . "  |
00002210  20 20 20 20 20 20 20 20  20 20 20 2a 2a 2a 2a 2a  |           *****|
00002220  2a 2a 2a 2a 2a 2a 2a 22  3a f1 0d 08 f2 24 f1 3a  |*******":....$.:|
00002230  f1 22 20 20 20 20 20 20  20 20 20 20 20 20 20 2a  |."             *|
00002240  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 22 3a f1 0d 08  |***********":...|
00002250  fc 75 20 f1 20 22 59 6f  75 20 64 65 63 69 64 65  |.u . "You decide|
00002260  20 6e 6f 74 20 74 6f 20  62 75 79 20 74 68 65 20  | not to buy the |
00002270  73 77 65 65 74 73 2c 20  61 6e 64 20 20 20 6d 61  |sweets, and   ma|
00002280  6b 65 20 79 6f 75 72 20  77 61 79 20 68 6f 6d 65  |ke your way home|
00002290  2c 20 68 6f 70 69 6e 67  20 79 6f 75 20 68 61 76  |, hoping you hav|
000022a0  65 20 20 20 20 20 73 6f  6d 65 74 68 69 6e 67 20  |e     something |
000022b0  6e 69 63 65 20 66 6f 72  20 65 76 65 72 79 6f 6e  |nice for everyon|
000022c0  65 2e 22 0d 09 06 09 20  f2 45 4e 44 0d 09 10 06  |e.".... .END....|
000022d0  20 e1 0d 09 1a 0a 20 dd  20 f2 32 35 0d 09 24 24  | ..... . .25..$$|
000022e0  f1 3a f1 22 20 20 20 20  20 20 20 20 20 20 20 20  |.:."            |
000022f0  20 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 22 3a f1  | ************":.|
00002300  0d 09 2e 08 20 53 3d 31  0d 09 38 7d 20 f1 20 22  |.... S=1..8} . "|
00002310  54 68 65 20 73 68 6f 70  20 61 73 73 69 73 74 61  |The shop assista|
00002320  6e 74 20 68 65 6c 70 73  20 79 6f 75 20 74 6f 20  |nt helps you to |
00002330  72 65 73 74 61 63 6b 20  74 6f 20 73 68 65 6c 76  |restack to shelv|
00002340  65 73 2c 20 61 6e 64 20  79 6f 75 20 62 75 79 20  |es, and you buy |
00002350  74 68 65 20 63 68 6f 63  6f 6c 61 74 65 73 2e 20  |the chocolates. |
00002360  49 74 20 69 73 20 6c 61  74 65 20 6e 6f 77 20 61  |It is late now a|
00002370  6e 64 20 79 6f 75 20 6d  75 73 74 20 67 6f 20 68  |nd you must go h|
00002380  6f 6d 65 2e 22 0d 09 42  09 20 f2 45 4e 44 0d 09  |ome."..B. .END..|
00002390  4c 06 20 e1 0d 09 56 09  20 dd f2 32 36 0d 09 60  |L. ...V. ..26..`|
000023a0  24 f1 3a f1 22 20 20 20  20 20 20 20 20 20 20 20  |$.:."           |
000023b0  20 20 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 22 3a  |  ************":|
000023c0  f1 0d 09 6a 16 20 4d 4f  4e 45 59 25 3d 4d 4f 4e  |...j. MONEY%=MON|
000023d0  45 59 25 2b 34 35 30 0d  09 74 91 20 f1 20 22 4a  |EY%+450..t. . "J|
000023e0  75 73 74 20 61 73 20 79  6f 75 20 61 74 74 65 6d  |ust as you attem|
000023f0  70 74 20 74 6f 20 6d 61  6b 65 20 61 20 71 75 69  |pt to make a qui|
00002400  63 6b 20 67 65 74 20 61  77 61 79 2c 20 74 68 65  |ck get away, the|
00002410  20 6c 61 64 79 20 69 6e  20 74 68 65 20 73 68 6f  | lady in the sho|
00002420  70 20 73 74 6f 70 73 20  79 6f 75 2e 20 20 20 59  |p stops you.   Y|
00002430  6f 75 20 68 61 76 65 20  74 6f 20 72 65 73 74 61  |ou have to resta|
00002440  63 6b 20 61 6c 6c 20 74  68 65 20 73 77 65 65 74  |ck all the sweet|
00002450  73 20 20 20 20 20 20 73  69 6e 67 6c 65 20 68 61  |s      single ha|
00002460  6e 64 65 64 6c 79 2e 22  0d 09 7e 9f 20 f1 20 22  |ndedly."..~. . "|
00002470  59 6f 75 20 65 76 65 6e  74 75 61 6c 6c 79 20 6c  |You eventually l|
00002480  65 61 76 65 20 74 68 65  20 73 68 6f 70 2c 20 61  |eave the shop, a|
00002490  6e 64 20 6d 61 6b 65 20  79 6f 75 72 20 77 61 79  |nd make your way|
000024a0  20 68 6f 6d 65 2e 20 54  68 65 6e 20 79 6f 75 20  | home. Then you |
000024b0  72 65 61 6c 69 73 65 20  79 6f 75 20 68 61 76 65  |realise you have|
000024c0  6c 65 66 74 20 79 6f 75  72 20 70 72 65 73 65 6e  |left your presen|
000024d0  74 73 20 69 6e 20 74 68  65 20 73 77 65 65 74 20  |ts in the sweet |
000024e0  73 68 6f 70 2c 20 20 20  79 6f 75 20 72 65 74 75  |shop,   you retu|
000024f0  72 6e 20 74 6f 20 66 69  6e 64 20 69 74 20 63 6c  |rn to find it cl|
00002500  6f 73 65 64 2e 22 3b 0d  09 88 46 20 f1 20 22 59  |osed.";...F . "Y|
00002510  6f 75 20 68 61 76 65 20  6e 6f 20 74 69 6d 65 20  |ou have no time |
00002520  74 6f 20 62 75 79 20 61  6e 79 6d 6f 72 65 20 70  |to buy anymore p|
00002530  72 65 73 65 6e 74 73 61  6e 64 20 4d 55 53 54 20  |resentsand MUST |
00002540  72 65 74 75 72 6e 20 68  6f 6d 65 2e 22 0d 09 92  |return home."...|
00002550  32 20 53 3d 30 3a 4d 55  47 25 3d 30 3a 45 41 52  |2 S=0:MUG%=0:EAR|
00002560  25 3d 30 3a 50 45 4e 43  49 4c 25 3d 20 30 3a 42  |%=0:PENCIL%= 0:B|
00002570  3d 30 3a 42 4f 4e 45 25  3d 20 30 3a 53 3d 30 0d  |=0:BONE%= 0:S=0.|
00002580  09 9c 09 20 f2 45 4e 44  0d 09 a6 06 20 e1 0d 09  |... .END.... ...|
00002590  b0 0b 20 dd 20 f2 45 4e  44 0d 09 ba 39 20 f1 3a  |.. . .END...9 .:|
000025a0  f1 20 22 20 20 20 20 20  20 20 20 20 20 20 50 52  |. "           PR|
000025b0  45 53 53 3c 53 50 41 43  45 3e 22 3a f5 3a e9 20  |ESS<SPACE>":.:. |
000025c0  4b 45 59 24 3d bf 28 31  29 3a fd 20 a6 28 2d 39  |KEY$=.(1):. .(-9|
000025d0  39 29 0d 09 c4 06 20 db  0d 09 ce 0f 20 e3 20 41  |9).... ..... . A|
000025e0  3d 31 20 b8 20 31 39 0d  09 e2 30 20 f1 20 22 49  |=1 . 19...0 . "I|
000025f0  54 27 53 20 43 48 52 49  53 54 4d 41 53 20 44 41  |T'S CHRISTMAS DA|
00002600  59 2c 20 49 54 27 53 20  43 48 52 49 53 54 4d 41  |Y, IT'S CHRISTMA|
00002610  53 20 44 41 59 2e 22 0d  09 ec 06 20 ed 0d 09 f6  |S DAY.".... ....|
00002620  24 20 e3 20 43 3d 30 20  b8 20 32 30 30 3a ef 20  |$ . C=0 . 200:. |
00002630  31 39 2c 31 2c b3 28 37  29 2c 30 2c 30 2c 30 3a  |19,1,.(7),0,0,0:|
00002640  ed 0d 0a 00 15 20 db 3a  ef 20 31 39 2c 31 2c 32  |..... .:. 19,1,2|
00002650  2c 30 2c 30 2c 30 0d 0a  0a 2a 20 f1 20 3a f1 20  |,0,0,0...* . :. |
00002660  22 50 6c 65 61 73 65 20  75 73 65 20 74 68 65 73  |"Please use thes|
00002670  65 20 6b 65 79 2d 77 6f  72 64 73 2e 2e 2e 2e 22  |e key-words...."|
00002680  0d 0a 14 3e 20 f1 20 22  45 41 52 52 49 4e 47 53  |...> . "EARRINGS|
00002690  3b 20 50 43 41 53 45 3b  20 44 42 49 53 43 55 49  |; PCASE; DBISCUI|
000026a0  54 53 3b 20 43 48 4f 43  4f 4c 41 54 45 53 3b 20  |TS; CHOCOLATES; |
000026b0  42 4f 4e 45 3b 20 20 20  4d 55 47 53 2e 22 0d 0a  |BONE;   MUGS."..|
000026c0  1e 4d 20 f1 27 22 49 74  20 69 73 20 6e 6f 77 20  |.M .'"It is now |
000026d0  74 69 6d 65 20 74 6f 20  67 69 76 65 20 6f 75 74  |time to give out|
000026e0  20 74 68 65 20 70 72 65  73 65 6e 74 73 2e 54 68  | the presents.Th|
000026f0  65 20 70 72 65 73 65 6e  74 73 20 79 6f 75 20 68  |e presents you h|
00002700  61 76 65 20 61 72 65 2e  2e 2e 22 0d 0a 28 05 f1  |ave are..."..(..|
00002710  0d 0a 32 19 e7 20 43 41  53 45 25 3d 31 20 f1 20  |..2.. CASE%=1 . |
00002720  22 20 50 43 41 53 45 22  3b 0d 0a 3c 1b e7 20 45  |" PCASE";..<.. E|
00002730  41 52 25 3d 31 20 f1 20  22 20 45 41 52 52 49 4e  |AR%=1 . " EARRIN|
00002740  47 53 22 3b 0d 0a 46 17  e7 20 4d 55 47 25 3d 31  |GS";..F.. MUG%=1|
00002750  20 f1 20 22 20 4d 55 47  53 22 3b 0d 0a 50 19 e7  | . " MUGS";..P..|
00002760  20 42 3d 31 20 f1 20 22  20 44 42 49 53 43 55 49  | B=1 . " DBISCUI|
00002770  54 53 22 3b 0d 0a 5a 1a  e7 20 53 3d 31 20 f1 20  |TS";..Z.. S=1 . |
00002780  22 20 43 48 4f 43 4f 4c  41 54 45 53 22 3b 0d 0a  |" CHOCOLATES";..|
00002790  64 18 e7 20 42 4f 4e 45  25 3d 31 20 f1 20 22 20  |d.. BONE%=1 . " |
000027a0  42 4f 4e 45 22 3b 0d 0a  6e 45 e7 20 53 3d 30 20  |BONE";..nE. S=0 |
000027b0  80 20 43 41 53 45 25 3d  30 20 80 20 45 41 52 25  |. CASE%=0 . EAR%|
000027c0  3d 30 20 80 20 4d 55 47  25 3d 30 20 80 20 42 3d  |=0 . MUG%=0 . B=|
000027d0  30 20 80 20 42 4f 4e 45  25 3d 30 20 f1 20 22 4e  |0 . BONE%=0 . "N|
000027e0  4f 54 48 49 4e 47 2e 2e  2e 22 3b 0d 0a 78 06 20  |OTHING...";..x. |
000027f0  f1 0d 0a 82 3f 20 f1 20  22 49 46 20 59 4f 55 20  |....? . "IF YOU |
00002800  48 41 56 45 20 4e 4f 54  48 49 4e 47 20 46 4f 52  |HAVE NOTHING FOR|
00002810  20 54 48 41 54 20 50 45  52 53 4f 4e 20 20 20 20  | THAT PERSON    |
00002820  20 50 52 45 53 53 20 3c  52 45 54 55 52 4e 3e 22  | PRESS <RETURN>"|
00002830  0d 0a 8c 65 20 f1 3a f1  20 22 49 46 20 59 4f 55  |...e .:. "IF YOU|
00002840  20 41 54 54 45 4d 50 54  20 54 4f 20 47 49 56 45  | ATTEMPT TO GIVE|
00002850  20 54 48 45 4d 20 53 4f  4d 45 54 48 49 4e 47 20  | THEM SOMETHING |
00002860  20 20 59 4f 55 20 44 4f  20 4e 4f 54 20 48 41 56  |  YOU DO NOT HAV|
00002870  45 20 59 4f 55 52 20 46  41 4d 49 4c 59 20 57 49  |E YOUR FAMILY WI|
00002880  4c 4c 20 4e 4f 54 20 42  45 20 50 4c 45 41 53 45  |LL NOT BE PLEASE|
00002890  44 2e 2e 2e 22 0d 0a 96  06 20 f1 0d 0a a0 33 20  |D...".... ....3 |
000028a0  e8 20 22 57 48 41 54 20  48 41 56 45 20 59 4f 55  |. "WHAT HAVE YOU|
000028b0  20 42 52 4f 55 47 48 54  20 46 4f 52 20 59 4f 55  | BROUGHT FOR YOU|
000028c0  52 20 53 49 53 54 45 52  2e 2e 2e 22 47 24 0d 0a  |R SISTER..."G$..|
000028d0  aa 6a 20 e7 20 47 24 3d  22 45 41 52 52 49 4e 47  |.j . G$="EARRING|
000028e0  53 22 20 80 20 45 41 52  25 3d 31 20 f1 20 22 59  |S" . EAR%=1 . "Y|
000028f0  4f 55 52 20 53 49 53 54  45 52 20 49 53 20 56 45  |OUR SISTER IS VE|
00002900  52 59 20 50 4c 45 41 53  45 44 2e 2e 2e 41 4e 44  |RY PLEASED...AND|
00002910  20 41 4c 4c 4f 57 53 59  4f 55 20 54 4f 20 55 53  | ALLOWSYOU TO US|
00002920  45 20 48 45 52 20 42 45  45 54 48 4f 56 45 4e 20  |E HER BEETHOVEN |
00002930  52 45 43 4f 52 44 53 22  0d 0a b4 43 20 e7 20 47  |RECORDS"...C . G|
00002940  24 3d 22 45 41 52 52 49  4e 47 53 22 20 80 20 45  |$="EARRINGS" . E|
00002950  41 52 25 3d 31 20 58 3d  58 2b 32 35 20 8b 20 f1  |AR%=1 X=X+25 . .|
00002960  20 22 59 4f 55 52 20 53  49 53 54 45 52 20 49 53  | "YOUR SISTER IS|
00002970  20 44 49 53 47 55 53 54  45 44 22 0d 0a be 33 20  | DISGUSTED"...3 |
00002980  e8 27 22 57 48 41 54 20  48 41 56 45 20 59 4f 55  |.'"WHAT HAVE YOU|
00002990  20 42 52 4f 55 47 48 54  20 46 4f 52 20 59 4f 55  | BROUGHT FOR YOU|
000029a0  52 20 46 41 54 48 45 52  2e 2e 2e 22 46 24 0d 0a  |R FATHER..."F$..|
000029b0  c8 45 20 e7 20 46 24 3d  22 50 43 41 53 45 22 20  |.E . F$="PCASE" |
000029c0  80 20 43 41 53 45 25 3d  31 20 f1 20 22 59 4f 55  |. CASE%=1 . "YOU|
000029d0  20 41 52 45 20 47 49 56  45 4e 20 41 20 52 49 53  | ARE GIVEN A RIS|
000029e0  45 20 49 4e 20 50 4f 43  4b 45 54 20 4d 4f 4e 45  |E IN POCKET MONE|
000029f0  59 2e 22 0d 0a d2 51 20  e7 20 46 24 3d 22 50 43  |Y."...Q . F$="PC|
00002a00  41 53 45 22 20 80 20 43  41 53 45 25 3d 31 20 58  |ASE" . CASE%=1 X|
00002a10  3d 58 20 2b 20 32 35 20  8b 20 f1 20 22 59 4f 55  |=X + 25 . . "YOU|
00002a20  52 20 46 41 54 48 45 52  20 47 52 4f 55 4e 44 53  |R FATHER GROUNDS|
00002a30  20 59 4f 55 20 46 4f 52  20 4f 4e 45 20 4d 4f 4e  | YOU FOR ONE MON|
00002a40  54 48 2e 22 0d 0a dc 33  20 e8 27 22 57 48 41 54  |TH."...3 .'"WHAT|
00002a50  20 48 41 56 45 20 59 4f  55 20 42 52 4f 55 47 48  | HAVE YOU BROUGH|
00002a60  54 20 46 4f 52 20 59 4f  55 52 20 4d 4f 54 48 45  |T FOR YOUR MOTHE|
00002a70  52 2e 2e 2e 22 4d 24 0d  0a e6 45 20 e7 20 4d 24  |R..."M$...E . M$|
00002a80  3d 22 43 48 4f 43 4f 4c  41 54 45 53 22 20 80 20  |="CHOCOLATES" . |
00002a90  53 3d 31 20 f1 20 22 54  48 41 4e 4b 59 4f 55 2c  |S=1 . "THANKYOU,|
00002aa0  20 4c 4f 56 45 2e 20 57  48 41 54 20 41 20 4e 49  | LOVE. WHAT A NI|
00002ab0  43 45 20 54 48 4f 55 47  48 54 2e 22 0d 0a f0 5f  |CE THOUGHT."..._|
00002ac0  20 e7 20 4d 24 3d 22 43  48 4f 43 4f 4c 41 54 45  | . M$="CHOCOLATE|
00002ad0  53 22 20 80 20 53 3d 31  8c 20 58 3d 58 20 2b 20  |S" . S=1. X=X + |
00002ae0  32 35 20 8b 20 f1 20 22  59 4f 55 20 43 41 4e 20  |25 . . "YOU CAN |
00002af0  44 4f 20 59 4f 55 52 20  4f 57 4e 20 43 4f 4f 4b  |DO YOUR OWN COOK|
00002b00  49 4e 47 20 41 4e 44 20  49 52 4f 4e 49 4e 47 20  |ING AND IRONING |
00002b10  49 4e 20 46 55 54 55 52  45 2e 22 0d 0a fa 30 20  |IN FUTURE."...0 |
00002b20  e8 27 22 57 48 41 54 20  48 41 56 45 20 59 4f 55  |.'"WHAT HAVE YOU|
00002b30  20 42 52 4f 55 47 48 54  20 46 4f 52 20 59 4f 55  | BROUGHT FOR YOU|
00002b40  52 20 44 4f 47 2e 2e 2e  22 44 24 0d 0b 04 40 20  |R DOG..."D$...@ |
00002b50  e7 20 44 24 3d 22 44 42  49 53 43 55 49 54 53 22  |. D$="DBISCUITS"|
00002b60  20 80 20 42 3d 31 20 f1  20 22 48 45 20 4c 49 43  | . B=1 . "HE LIC|
00002b70  4b 53 20 59 4f 55 20 41  4c 4c 20 4f 56 45 52 20  |KS YOU ALL OVER |
00002b80  59 4f 55 52 20 46 41 43  45 2e 22 0d 0b 0e 3e 20  |YOUR FACE."...> |
00002b90  e7 20 44 24 3d 22 44 42  49 53 43 55 49 54 53 22  |. D$="DBISCUITS"|
00002ba0  20 80 20 42 3d 31 20 58  3d 58 20 2b 20 32 35 20  | . B=1 X=X + 25 |
00002bb0  8b 20 f1 20 22 59 4f 55  52 20 44 4f 47 20 42 49  |. . "YOUR DOG BI|
00002bc0  54 45 53 20 59 4f 55 2e  22 0d 0b 18 1e 20 f1 27  |TES YOU.".... .'|
00002bd0  22 59 4f 55 52 20 53 43  4f 52 45 20 49 53 20 22  |"YOUR SCORE IS "|
00002be0  3b 58 3b 22 25 22 3b 0d  0b 22 26 20 f1 27 22 59  |;X;"%";.."& .'"Y|
00002bf0  4f 55 52 20 54 49 4d 45  20 49 53 20 22 3b 91 20  |OUR TIME IS ";. |
00002c00  81 20 31 30 30 3b 22 20  73 65 63 73 22 0d 0b 2c  |. 100;" secs"..,|
00002c10  08 20 f2 47 4f 0d 0b 36  06 20 e1 0d 0b 40 09 20  |. .GO..6. ...@. |
00002c20  dd f2 47 4f 0d 0b 4a 28  20 f1 27 22 57 4f 55 4c  |..GO..J( .'"WOUL|
00002c30  44 20 59 4f 55 20 4c 49  4b 45 20 41 4e 4f 54 48  |D YOU LIKE ANOTH|
00002c40  45 52 20 47 4f 28 59 2f  4e 29 3f 22 0d 0b 54 06  |ER GO(Y/N)?"..T.|
00002c50  20 f5 0d 0b 5e 0e 20 4b  45 59 24 3d bf 28 31 29  | ...^. KEY$=.(1)|
00002c60  0d 0b 68 16 20 fd 20 a6  28 2d 36 39 29 20 84 20  |..h. . .(-69) . |
00002c70  a6 28 2d 38 36 29 0d 0b  72 1f 20 e7 20 a6 28 2d  |.(-86)..r. . .(-|
00002c80  36 39 29 20 db 3a e5 20  8d 74 74 40 20 8b 20 e5  |69) .:. .tt@ . .|
00002c90  20 8d 44 7c 4b 0d 0b 7c  12 20 f1 20 22 42 59 45  | .D|K..|. . "BYE|
00002ca0  2d 42 59 45 22 3a e0 0d  0b 86 06 20 e1 0d ff     |-BYE":..... ...|
00002caf
SHOP.m0
SHOP.m1
SHOP.m2
SHOP.m4
SHOP.m5