SHOPPING LIST

00000000: 01 08 1C 08 28 23 99 22  93 22 3A 97 35 33 32 38  |....(#.".":.5328|
00000010: 30 2C 30 3A 97 35 33 32  38 31 2C 30 00 4D 08 2D  |0,0:.53281,0.M.-|
00000020: 23 99 A3 37 29 22 11 11  11 11 11 11 11 11 11 11  |#..7)"..........|
00000030: 1C 2A 2A 2A 20 9E CF CE  C5 A0 CD CF CD C5 CE D4  |.*** ...........|
00000040: 2C D0 CC C5 C1 D3 C5 20  1C 2A 2A 2A 22 00 65 08  |,...... .***".e.|
00000050: 32 23 8F 20 53 45 54 20  55 50 20 43 4F 4E 44 49  |2#. SET UP CONDI|
00000060: 54 49 4F 4E 53 00 71 08  37 23 99 20 C7 28 31 34  |TIONS.q.7#. .(14|
00000070: 29 00 8B 08 3C 23 99 22  9A 22 3A 50 B2 30 3A 49  |)...<#.".":P.0:I|
00000080: B2 30 3A 51 24 B2 C7 28  33 34 29 00 A1 08 41 23  |.0:Q$..(34)...A#|
00000090: 86 20 4C 49 28 39 39 39  29 2C 4D 24 28 39 39 39  |. LI(999),M$(999|
000000A0: 29 00 B7 08 46 23 86 20  4C 24 28 39 39 39 29 2C  |)...F#. L$(999),|
000000B0: 53 44 24 28 31 38 29 00  D7 08 4B 23 4E 31 B2 31  |SD$(18)...K#N1.1|
000000C0: 30 3A 53 50 24 B2 22 20  20 20 20 20 20 20 20 20  |0:SP$."         |
000000D0: 20 22 3A 50 46 B2 34 00  27 09 50 23 5A 31 24 B2  | ":PF.4.'.P#Z1$.|
000000E0: 22 13 11 11 11 11 11 11  11 11 11 11 11 11 11 11  |"...............|
000000F0: 11 11 11 11 11 11 11 11  22 3A 59 24 B2 22 20 20  |........":Y$."  |
00000100: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000110: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000120: 20 20 20 20 20 20 22 00  68 09 55 23 43 31 24 B2  |      ".h.U#C1$.|
00000130: 22 9E 22 3A 43 32 24 B2  22 1E 22 3A 50 38 24 B2  |".":C2$.".":P8$.|
00000140: C7 28 31 34 29 3A 50 39  24 B2 C7 28 31 35 29 3A  |.(14):P9$..(15):|
00000150: 8F 20 43 31 24 2C 43 32  24 41 52 45 20 54 45 58  |. C1$,C2$ARE TEX|
00000160: 54 20 43 4F 4C 4F 52 53  00 A3 09 5A 23 53 44 24  |T COLORS...Z#SD$|
00000170: 28 30 29 B2 22 93 11 12  9A 20 20 20 20 20 20 20  |(0)."....       |
00000180: 53 20 48 20 4F 20 50 20  50 20 49 20 4E 20 47 20  |S H O P P I N G |
00000190: 20 20 4C 20 49 20 53 20  54 20 20 20 20 20 20 20  |  L I S T       |
000001A0: 1E 11 22 00 BA 09 5F 23  51 B2 30 3A 45 44 B2 30  |.."..._#Q.0:ED.0|
000001B0: 3A 42 4B B2 30 3A 4B 42  B2 30 00 D6 09 64 23 81  |:BK.0:KB.0...d#.|
000001C0: 20 58 B2 30 20 A4 20 39  39 39 3A 4C 24 28 58 29  | X.0 . 999:L$(X)|
000001D0: B2 22 A6 22 3A 82 00 F0  09 69 23 52 B2 31 3A 8D  |.".":....i#R.1:.|
000001E0: 20 39 32 32 30 3A 52 B2  30 3A 89 20 39 34 32 30  | 9220:R.0:. 9420|
000001F0: 00 02 0A 6E 23 8F 20 53  55 42 52 4F 55 54 49 4E  |...n#. SUBROUTIN|
00000200: 45 53 00 42 0A 73 23 8F  20 52 45 4D 4F 56 45 20  |ES.B.s#. REMOVE |
00000210: 52 45 56 45 52 53 45 20  50 52 49 4E 54 20 46 52  |REVERSE PRINT FR|
00000220: 4F 4D 20 53 43 52 45 45  4E 20 C4 DD 20 41 4E 44  |OM SCREEN .. AND|
00000230: 20 43 4C 4F 53 45 20 47  41 50 20 49 4E 20 4C 49  | CLOSE GAP IN LI|
00000240: 53 54 00 58 0A 78 23 45  52 B2 C3 28 53 44 24 28  |ST.X.x#ER..(SD$(|
00000250: 5A 51 AB 51 29 29 AB 31  00 76 0A 7D 23 53 44 24  |ZQ.Q)).1.v.}#SD$|
00000260: 28 5A 51 AB 51 29 B2 C9  28 53 44 24 28 5A 51 AB  |(ZQ.Q)..(SD$(ZQ.|
00000270: 51 29 2C 45 52 29 00 86  0A 82 23 81 20 53 B2 30  |Q),ER)....#. S.0|
00000280: 20 A4 20 49 AB 31 00 A0  0A 87 23 8B 20 5A 51 B2  | . I.1....#. ZQ.|
00000290: 4C 49 28 53 29 A7 20 54  B2 53 3A 53 B2 49 AB 31  |LI(S). T.S:S.I.1|
000002A0: 00 A6 0A 8C 23 82 00 B6  0A 91 23 81 20 53 B2 54  |....#.....#. S.T|
000002B0: 20 A4 20 49 AB 31 00 D6  0A 96 23 4C 24 28 53 29  | . I.1....#L$(S)|
000002C0: B2 4C 24 28 53 AA 31 29  3A 4C 49 28 53 29 B2 4C  |.L$(S.1):LI(S).L|
000002D0: 49 28 53 AA 31 29 00 E4  0A 9B 23 82 3A 49 B2 49  |I(S.1)....#.:I.I|
000002E0: AB 31 3A 8E 00 FC 0A A0  23 8F 20 44 45 4C 45 54  |.1:.....#. DELET|
000002F0: 45 20 53 55 42 52 4F 55  54 49 4E 45 00 31 0B A5  |E SUBROUTINE.1..|
00000300: 23 99 20 5A 31 24 3B 43  32 24 22 9E 91 C4 45 4C  |#. Z1$;C2$"...EL|
00000310: 45 54 45 20 D7 48 49 43  48 20 C9 54 45 4D 20 23  |ETE .HICH .TEM #|
00000320: 20 3A 20 20 20 20 20 12  9D 9D 9D 9D 22 3B 4E 4D  | :     .....";NM|
00000330: 24 00 48 0B AA 23 A1 20  5A 24 3A 8B 20 5A 24 B2  |$.H..#. Z$:. Z$.|
00000340: 22 22 A7 20 39 31 33 30  00 69 0B AF 23 8B 20 5A  |"". 9130.i..#. Z|
00000350: 24 B2 C7 28 31 33 29 A7  20 39 31 36 30 3A 8F 20  |$..(13). 9160:. |
00000360: 43 41 52 52 2E 52 45 54  2E 00 90 0B B4 23 8B 20  |CARR.RET.....#. |
00000370: 5A 24 B2 C7 28 31 33 33  29 A7 20 52 B2 31 3A 8D  |Z$..(133). R.1:.|
00000380: 20 39 32 32 30 3A 8E 3A  8F 20 43 41 4E 43 45 4C  | 9220:.:. CANCEL|
00000390: 00 C7 0B B9 23 8B 20 5A  24 B3 22 30 22 B0 20 5A  |....#. Z$."0". Z|
000003A0: 24 B1 22 39 22 A7 20 39  31 32 35 3A 8F 20 43 48  |$."9". 9125:. CH|
000003B0: 45 43 4B 20 46 4F 52 20  4E 55 4D 45 52 49 43 41  |ECK FOR NUMERICA|
000003C0: 4C 20 49 4E 50 55 54 00  F5 0B BE 23 8B 20 C3 28  |L INPUT....#. .(|
000003D0: 4E 4D 24 29 B1 32 20 A7  20 39 31 32 35 3A 8F 20  |NM$).2 . 9125:. |
000003E0: 43 48 45 43 4B 20 46 4F  52 20 4D 41 58 2E 4F 46  |CHECK FOR MAX.OF|
000003F0: 20 33 20 23 53 00 20 0C  C3 23 4E 4D 24 B2 4E 4D  | 3 #S. ..#NM$.NM|
00000400: 24 AA 5A 24 3A 89 20 39  31 32 35 3A 8F 20 42 55  |$.Z$:. 9125:. BU|
00000410: 49 4C 44 20 54 48 45 20  49 54 45 4D 20 4E 4F 2E  |ILD THE ITEM NO.|
00000420: 00 2E 0C C8 23 5A 51 B2  C5 28 4E 4D 24 29 00 6B  |....#ZQ..(NM$).k|
00000430: 0C CD 23 8B 20 5A 51 B3  51 AA 31 20 B0 20 5A 51  |..#. ZQ.Q.1 . ZQ|
00000440: B1 50 20 A7 20 8D 20 39  35 34 30 3A 8D 20 39 32  |.P . . 9540:. 92|
00000450: 32 30 3A 89 20 39 34 36  35 3A 8F 20 49 53 20 49  |20:. 9465:. IS I|
00000460: 54 20 4F 4E 20 53 43 52  45 45 4E 00 A0 0C D2 23  |T ON SCREEN....#|
00000470: 8B 20 C8 28 53 44 24 28  5A 51 AB 51 29 2C 31 29  |. .(SD$(ZQ.Q),1)|
00000480: B3 B1 22 12 22 A7 20 89  20 39 34 36 35 3A 8F 20  |..".". . 9465:. |
00000490: 49 53 20 49 54 20 44 45  4C 45 41 54 41 42 4C 45  |IS IT DELEATABLE|
000004A0: 00 BF 0C D7 23 8D 20 39  30 38 30 3A 4C 24 28 49  |....#. 9080:L$(I|
000004B0: 29 B2 22 A6 22 3A 4C 49  28 49 29 B2 30 3A 8E 00  |).".":LI(I).0:..|
000004C0: CD 0C DC 23 8B 20 51 B2  30 20 A7 20 8E 00 E8 0C  |...#. Q.0 . ....|
000004D0: E1 23 8C 3A 8F 20 42 41  43 4B 20 55 50 20 53 55  |.#.:. BACK UP SU|
000004E0: 42 52 4F 55 54 49 4E 45  00 F0 0C E6 23 50 B2 30  |BROUTINE....#P.0|
000004F0: 00 02 0D EB 23 8B 20 51  B2 31 38 20 A7 20 39 32  |....#. Q.18 . 92|
00000500: 30 35 00 20 0D F0 23 81  20 58 B2 31 20 A4 20 51  |05. ..#. X.1 . Q|
00000510: AB 31 38 3A 87 20 41 24  3A 50 B2 50 AA 31 3A 82  |.18:. A$:P.P.1:.|
00000520: 00 32 0D F5 23 51 B2 51  AB 31 38 3A 8D 20 39 33  |.2..#Q.Q.18:. 93|
00000530: 35 35 00 38 0D FA 23 8E  00 57 0D FF 23 8F 20 49  |55.8..#..W..#. I|
00000540: 4E 49 54 49 41 4C 49 5A  45 20 46 55 4E 43 54 49  |NITIALIZE FUNCTI|
00000550: 4F 4E 20 4D 45 4E 55 00  6F 0D 04 24 46 31 24 B2  |ON MENU.o..$F1$.|
00000560: 22 C3 41 4E 43 45 4C 22  3A 4E 4D 24 B2 22 22 00  |".ANCEL":NM$."".|
00000570: 7A 0D 09 24 8D 20 39 33  33 30 00 80 0D 0E 24 8E  |z..$. 9330....$.|
00000580: 00 A6 0D 13 24 8F 20 55  50 44 41 54 45 20 53 45  |....$. UPDATE SE|
00000590: 4C 45 43 54 49 4F 4E 20  41 4E 44 20 49 54 45 4D  |LECTION AND ITEM|
000005A0: 20 43 4F 55 4E 54 00 D1  0D 18 24 99 5A 31 24 3B  | COUNT....$.Z1$;|
000005B0: 22 91 9E D3 45 4C 45 43  54 20 C9 54 45 4D 20 23  |"...ELECT .TEM #|
000005C0: 20 3A 20 20 20 20 20 12  9D 9D 9D 9D 22 3B 4E 4D  | :     .....";NM|
000005D0: 24 00 EF 0D 1D 24 99 22  13 1C 11 11 22 3B A3 32  |$....$."....";.2|
000005E0: 39 29 22 12 20 23 49 54  45 4D 53 3D 22 3B 49 00  |9)". #ITEMS=";I.|
000005F0: F5 0D 22 24 8E 00 15 0E  27 24 81 20 58 B2 31 20  |.."$....'$. X.1 |
00000600: A4 20 33 30 30 30 3A 82  3A 8F 20 44 45 4C 41 59  |. 3000:.:. DELAY|
00000610: 20 4C 4F 4F 50 00 1B 0E  2C 24 8E 00 4A 0E 31 24  | LOOP...,$..J.1$|
00000620: A1 20 41 24 3A 8B 20 41  24 B2 22 22 A7 20 39 32  |. A$:. A$."". 92|
00000630: 36 35 3A 8F 20 57 41 49  54 20 46 4F 52 20 41 20  |65:. WAIT FOR A |
00000640: 4B 45 59 20 53 54 52 4F  4B 45 00 50 0E 36 24 8E  |KEY STROKE.P.6$.|
00000650: 00 75 0E 3B 24 8F 20 55  50 44 41 54 45 20 44 49  |.u.;$. UPDATE DI|
00000660: 53 50 4C 41 59 20 41 46  54 45 52 20 53 45 4C 45  |SPLAY AFTER SELE|
00000670: 43 54 49 4F 4E 00 7F 0E  40 24 99 22 13 22 3B 00  |CTION...@$.".";.|
00000680: A9 0E 45 24 81 20 58 B2  31 20 A4 20 5A 51 AB 51  |..E$. X.1 . ZQ.Q|
00000690: 3A 99 22 11 22 3B 3A 82  3A 8B 20 5A 51 B1 39 39  |:.".";:.:. ZQ.99|
000006A0: 39 20 A7 20 99 22 1D 22  3B 00 B9 0E 46 24 8B 20  |9 . .".";...F$. |
000006B0: 4D B3 B1 31 A7 39 32 39  30 00 DD 0E 47 24 99 22  |M..1.9290...G$."|
000006C0: 11 11 1D 1D 1D 1D 22 3B  53 44 24 28 5A 51 AB 51  |......";SD$(ZQ.Q|
000006D0: 29 3B 4D 24 28 49 29 3A  4D B2 30 3A 8E 00 F7 0E  |);M$(I):M.0:....|
000006E0: 4A 24 99 22 11 11 1D 1D  1D 1D 22 3B 53 44 24 28  |J$."......";SD$(|
000006F0: 5A 51 AB 51 29 3A 8E 00  0C 0F 4F 24 8F 20 53 43  |ZQ.Q):....O$. SC|
00000700: 52 45 45 4E 20 44 49 53  50 4C 41 59 00 19 0F 54  |REEN DISPLAY...T|
00000710: 24 99 20 53 44 24 28 30  29 00 42 0F 59 24 81 20  |$. SD$(0).B.Y$. |
00000720: 58 B2 31 20 A4 20 31 38  3A 8B 20 53 44 24 28 58  |X.1 . 18:. SD$(X|
00000730: 29 B2 22 A6 22 A7 20 58  B2 31 38 3A 89 20 39 33  |).".". X.18:. 93|
00000740: 32 35 00 6C 0F 5E 24 8B  20 51 AA 58 B3 31 30 A7  |25.l.^$. Q.X.10.|
00000750: 20 99 22 1D 9E 22 3B 51  AA 58 3B 22 1E 22 3B 53  | ."..";Q.X;".";S|
00000760: 44 24 28 58 29 3A 89 20  39 33 32 35 00 9D 0F 63  |D$(X):. 9325...c|
00000770: 24 8B 51 AA 58 B3 31 30  30 20 A7 20 99 22 9E 22  |$.Q.X.100 . ."."|
00000780: 3B 51 AA 58 3B 22 1E 9D  9D 9D 9D 20 1D 1D 1D 22  |;Q.X;"..... ..."|
00000790: 3B 53 44 24 28 58 29 3A  89 39 33 32 35 00 C0 0F  |;SD$(X):.9325...|
000007A0: 68 24 99 22 9D 9E 22 3B  51 AA 58 3B 22 1E 9D 9D  |h$."..";Q.X;"...|
000007B0: 9D 9D 9D 20 1D 1D 1D 1D  22 3B 53 44 24 28 58 29  |... ....";SD$(X)|
000007C0: 00 C6 0F 6D 24 82 00 D4  0F 72 24 8B 20 52 B2 31  |...m$....r$. R.1|
000007D0: 20 A7 20 8E 00 15 10 77  24 46 44 24 B2 22 11 1C  | . ....w$FD$."..|
000007E0: 12 46 32 92 1E C4 45 4C  45 54 45 20 1C 12 46 33  |.F2...ELETE ..F3|
000007F0: 92 1E D7 52 4F 4E 47 23  20 1C 12 46 35 92 1E C2  |...RONG# ..F5...|
00000800: 41 43 4B 20 55 50 20 1C  12 46 37 92 1E C1 44 56  |ACK UP ..F7...DV|
00000810: 41 4E 43 45 22 00 4C 10  7C 24 46 45 24 B2 22 20  |ANCE".L.|$FE$." |
00000820: 1C 12 46 38 92 1E D2 45  54 55 52 4E 20 54 4F 20  |..F8...ETURN TO |
00000830: C8 2E C1 2E CC 2E 1C 12  46 31 92 1E C9 54 45 4D  |........F1...TEM|
00000840: 20 57 49 54 48 20 CD 45  4D 4F 91 22 00 70 10 81  | WITH .EMO.".p..|
00000850: 24 8D 20 39 32 34 30 3A  99 20 5A 31 24 3B 46 44  |$. 9240:. Z1$;FD|
00000860: 24 3A 99 46 45 24 3A 97  20 31 39 38 2C 30 3A 8E  |$:.FE$:. 198,0:.|
00000870: 00 92 10 86 24 8F 20 52  45 41 44 20 54 48 45 20  |....$. READ THE |
00000880: 4E 45 58 54 20 47 52 4F  55 50 20 4F 46 20 44 41  |NEXT GROUP OF DA|
00000890: 54 41 00 9E 10 8B 24 47  43 B2 B8 28 30 29 00 BE  |TA....$GC..(0)..|
000008A0: 10 90 24 81 20 58 B2 31  20 A4 20 31 38 3A 53 44  |..$. X.1 . 18:SD|
000008B0: 24 28 58 29 B2 22 A6 22  3A 82 3A 58 B2 31 00 C7  |$(X).".":.:X.1..|
000008C0: 10 95 24 87 20 41 24 00  E4 10 9A 24 8B 20 C3 28  |..$. A$....$. .(|
000008D0: 41 24 29 B1 33 35 20 A7  20 41 24 B2 C8 28 41 24  |A$).35 . A$..(A$|
000008E0: 2C 33 35 29 00 02 11 9F  24 8B 20 41 24 B2 22 45  |,35)....$. A$."E|
000008F0: 4E 44 22 A7 20 45 44 B2  31 3A 8D 20 39 33 39 35  |ND". ED.1:. 9395|
00000900: 3A 8E 00 1C 11 A4 24 53  44 24 28 58 29 B2 41 24  |:.....$SD$(X).A$|
00000910: 3A 58 B2 58 AA 31 3A 50  B2 50 AA 31 00 34 11 A9  |:X.X.1:P.P.1.4..|
00000920: 24 8B 20 50 B2 51 AA 31  38 20 A7 3A 8D 20 39 33  |$. P.Q.18 .:. 93|
00000930: 39 35 3A 8E 00 3F 11 AE  24 89 20 39 33 36 35 00  |95:..?..$. 9365.|
00000940: 4D 11 B3 24 8B 20 4B 42  B2 30 A7 20 8E 00 5B 11  |M..$. KB.0. ..[.|
00000950: B8 24 81 20 58 B2 30 20  A4 20 49 00 7C 11 BD 24  |.$. X.0 . I.|..$|
00000960: 8B 20 4C 49 28 58 29 B3  51 AA 31 20 B0 20 4C 49  |. LI(X).Q.1 . LI|
00000970: 28 58 29 B1 50 20 A7 20  39 34 31 35 00 9F 11 C2  |(X).P . 9415....|
00000980: 24 53 44 24 28 4C 49 28  58 29 AB 51 29 B2 22 12  |$SD$(LI(X).Q).".|
00000990: 1C 22 AA 53 44 24 28 4C  49 28 58 29 AB 51 29 00  |.".SD$(LI(X).Q).|
000009A0: A7 11 C7 24 82 3A 8E 00  AD 11 CC 24 8C 00 D8 11  |...$.:.....$....|
000009B0: D1 24 8B 20 41 24 B2 22  54 22 A7 20 43 31 24 B2  |.$. A$."T". C1$.|
000009C0: 22 22 3A 43 32 24 B2 22  22 3A 8D 20 36 35 35 33  |"":C2$."":. 6553|
000009D0: 35 3A 89 20 39 34 33 30  00 F3 11 D6 24 43 50 B2  |5:. 9430....$CP.|
000009E0: 37 3A 50 31 24 B2 22 BA  22 3A 50 32 24 B2 22 A3  |7:P1$.".":P2$.".|
000009F0: A3 A3 22 00 04 12 DB 24  50 33 24 B2 22 A4 A4 A4  |.."....$P3$."...|
00000A00: A4 A4 20 22 00 14 12 E0  24 50 43 B2 31 3A 89 20  |.. "....$PC.1:. |
00000A10: 39 34 34 35 00 2C 12 E5  24 8F 20 4D 41 49 4E 20  |9445.,..$. MAIN |
00000A20: 50 52 4F 47 52 41 4D 20  4C 4F 4F 50 00 4B 12 EA  |PROGRAM LOOP.K..|
00000A30: 24 8B 20 42 4B B2 31 A7  20 8D 20 39 31 38 30 3A  |$. BK.1. . 9180:|
00000A40: 42 4B B2 30 3A 89 20 39  34 36 35 00 5C 12 EF 24  |BK.0:. 9465.\..$|
00000A50: 8B 20 45 44 B2 31 A7 20  39 36 31 30 00 67 12 F4  |. ED.1. 9610.g..|
00000A60: 24 8D 20 39 33 35 35 00  7D 12 F9 24 8D 20 39 33  |$. 9355.}..$. 93|
00000A70: 30 30 3A 52 B2 30 3A 8D  20 39 32 32 30 00 94 12  |00:R.0:. 9220...|
00000A80: FE 24 A1 20 5A 24 3A 8B  20 5A 24 B2 22 22 A7 20  |.$. Z$:. Z$."". |
00000A90: 39 34 37 30 00 A9 12 01  25 8B 5A 24 B2 C7 28 31  |9470....%.Z$..(1|
00000AA0: 33 33 29 A7 8D 39 36 30  31 00 BF 12 03 25 8B 20  |33)..9601....%. |
00000AB0: 5A 24 B3 C7 28 31 33 33  29 A7 20 39 35 30 35 00  |Z$..(133). 9505.|
00000AC0: D4 12 05 25 8B 5A 24 B2  C7 28 31 34 30 29 A7 31  |...%.Z$..(140).1|
00000AD0: 30 30 30 30 00 F5 12 08  25 8B 20 5A 24 B2 C7 28  |0000....%. Z$..(|
00000AE0: 31 33 34 29 A7 20 8D 20  39 32 32 30 3A 8F 20 43  |134). . 9220:. C|
00000AF0: 41 4E 43 45 4C 00 20 13  0D 25 8B 20 5A 24 B2 C7  |ANCEL. ..%. Z$..|
00000B00: 28 31 33 36 29 A7 20 4E  31 B2 33 3A 51 B2 50 3A  |(136). N1.3:Q.P:|
00000B10: 89 20 39 34 35 30 3A 8F  20 41 44 56 41 4E 43 45  |. 9450:. ADVANCE|
00000B20: 00 35 13 12 25 8F 20 44  45 4C 45 54 45 20 41 4E  |.5..%. DELETE AN|
00000B30: 20 49 54 45 4D 00 6A 13  17 25 8B 20 5A 24 B2 C7  | ITEM.j..%. Z$..|
00000B40: 28 31 33 37 29 A7 20 8D  20 39 32 32 30 3A 44 B2  |(137). . 9220:D.|
00000B50: 31 3A 4E 4D 24 B2 22 22  3A 8D 20 39 31 32 35 3A  |1:NM$."":. 9125:|
00000B60: 44 B2 30 3A 89 20 39 34  36 35 00 A4 13 1C 25 8B  |D.0:. 9465....%.|
00000B70: 5A 24 B2 C7 28 31 33 35  29 A7 4E 31 B2 34 3A 42  |Z$..(135).N1.4:B|
00000B80: 4B B2 31 3A 4B 42 B2 31  3A 4E 4D 24 B2 22 22 3A  |K.1:KB.1:NM$."":|
00000B90: 45 44 B2 30 3A 89 39 34  35 30 3A 8F 20 42 41 43  |ED.0:.9450:. BAC|
00000BA0: 4B 20 55 50 00 C5 13 21  25 8B 20 5A 24 B2 C7 28  |K UP...!%. Z$..(|
00000BB0: 31 33 29 A7 20 39 35 32  35 3A 8F 20 43 41 52 52  |13). 9525:. CARR|
00000BC0: 2E 52 45 54 2E 00 F6 13  26 25 8B 5A 24 B3 22 30  |.RET....&%.Z$."0|
00000BD0: 22 B0 5A 24 B1 22 39 22  A7 39 34 37 30 3A 8F 20  |".Z$."9".9470:. |
00000BE0: 64 7C 20 46 4F 52 20 4E  55 4D 45 52 49 43 41 4C  |d| FOR NUMERICAL|
00000BF0: 20 49 4E 50 55 54 00 1F  14 2B 25 8B C3 28 4E 4D  | INPUT...+%..(NM|
00000C00: 24 29 B1 32 A7 39 34 37  30 3A 8F 20 C4 DC 20 46  |$).2.9470:. .. F|
00000C10: 4F 52 20 4D 41 58 2E 20  4F 46 20 33 20 23 53 00  |OR MAX. OF 3 #S.|
00000C20: 4F 14 30 25 4E 4D 24 B2  4E 4D 24 AA 5A 24 3A 8D  |O.0%NM$.NM$.Z$:.|
00000C30: 39 32 34 30 3A 89 39 34  37 30 3A 8F 20 42 55 49  |9240:.9470:. BUI|
00000C40: 4C 44 20 54 48 45 20 49  54 45 4D 20 4E 4F 2E 00  |LD THE ITEM NO..|
00000C50: 5D 14 35 25 5A 51 B2 C5  28 4E 4D 24 29 00 93 14  |].5%ZQ..(NM$)...|
00000C60: 3A 25 8B 5A 51 B3 51 AA  31 B0 5A 51 B1 50 A7 39  |:%.ZQ.Q.1.ZQ.P.9|
00000C70: 35 34 30 3A 8F 20 49 53  20 49 54 20 43 55 52 52  |540:. IS IT CURR|
00000C80: 45 4E 54 4C 59 20 4F 4E  20 54 48 45 20 53 43 52  |ENTLY ON THE SCR|
00000C90: 45 45 4E 00 9E 14 3F 25  89 20 39 35 35 35 00 E4  |EEN...?%. 9555..|
00000CA0: 14 44 25 99 5A 31 24 3B  22 91 91 12 22 3B 43 32  |.D%.Z1$;"...";C2|
00000CB0: 24 3B 22 20 20 20 20 20  20 2A 20 2A 20 4E 55 4D  |$;"      * * NUM|
00000CC0: 42 45 52 20 4F 55 54 20  4F 46 20 52 41 4E 47 45  |BER OUT OF RANGE|
00000CD0: 20 20 2A 20 2A 20 20 20  20 20 20 90 22 3A 4E 4D  |  * *      .":NM|
00000CE0: 24 B2 22 22 00 FC 14 49  25 99 5A 31 24 3B 22 91  |$.""...I%.Z1$;".|
00000CF0: 91 22 3B 59 24 3A 8B 44  B2 31 A7 8E 00 0C 15 4E  |.";Y$:.D.1.....N|
00000D00: 25 49 B2 49 AB 31 3A 89  39 36 30 30 00 43 15 53  |%I.I.1:.9600.C.S|
00000D10: 25 8B C8 28 53 44 24 28  5A 51 AB 51 29 2C 31 29  |%..(SD$(ZQ.Q),1)|
00000D20: B2 22 12 22 A7 8D 39 30  38 30 3A 8F 20 57 41 53  |."."..9080:. WAS|
00000D30: 20 49 54 20 53 45 4C 45  43 54 45 44 20 42 45 46  | IT SELECTED BEF|
00000D40: 4F 52 45 00 52 15 54 25  8B 4D B3 B1 31 A7 39 35  |ORE.R.T%.M..1.95|
00000D50: 36 32 00 60 15 55 25 4D  24 28 49 29 B2 4D 45 24  |62.`.U%M$(I).ME$|
00000D60: 00 A1 15 58 25 4C 24 28  49 29 B2 53 44 24 28 5A  |...X%L$(I).SD$(Z|
00000D70: 51 AB 51 29 AA 4D 24 28  49 29 3A 4C 49 28 49 29  |Q.Q).M$(I):LI(I)|
00000D80: B2 5A 51 3A 89 20 39 35  36 35 3A 8F 20 50 55 54  |.ZQ:. 9565:. PUT|
00000D90: 20 49 54 45 4D 20 4F 4E  20 54 48 45 20 4C 49 53  | ITEM ON THE LIS|
00000DA0: 54 00 D5 15 5A 25 4C 24  28 49 29 B2 53 44 24 28  |T...Z%L$(I).SD$(|
00000DB0: 5A 51 AB 51 29 3A 4C 49  28 49 29 B2 5A 51 3A 8F  |ZQ.Q):LI(I).ZQ:.|
00000DC0: 20 50 55 54 20 49 54 45  4D 20 4F 4E 20 54 48 45  | PUT ITEM ON THE|
00000DD0: 20 4C 49 53 54 00 04 16  5D 25 8F 20 43 48 41 4E  | LIST...]%. CHAN|
00000DE0: 47 45 20 53 43 52 45 45  4E 20 44 49 53 50 4C 41  |GE SCREEN DISPLA|
00000DF0: 59 20 4F 46 20 49 54 45  4D 20 54 4F 20 52 45 56  |Y OF ITEM TO REV|
00000E00: 45 52 53 45 00 21 16 62  25 53 44 24 28 5A 51 AB  |ERSE.!.b%SD$(ZQ.|
00000E10: 51 29 B2 22 12 1C 22 AA  53 44 24 28 5A 51 AB 51  |Q)."..".SD$(ZQ.Q|
00000E20: 29 00 2C 16 67 25 8D 20  39 32 38 30 00 3C 16 6C  |).,.g%. 9280.<.l|
00000E30: 25 8B 49 B2 39 39 38 A7  39 35 39 30 00 47 16 71  |%.I.998.9590.G.q|
00000E40: 25 89 20 39 36 30 30 00  85 16 76 25 99 5A 31 24  |%. 9600...v%.Z1$|
00000E50: 3B 22 91 91 12 22 3B 43  32 24 3B 22 20 20 20 20  |;"...";C2$;"    |
00000E60: D4 48 41 54 20 57 41 53  20 54 48 45 20 4C 41 53  |.HAT WAS THE LAS|
00000E70: 54 20 49 54 45 4D 2D 4D  41 58 20 39 39 39 20 20  |T ITEM-MAX 999  |
00000E80: 20 20 20 90 22 00 AD 16  7B 25 4C 24 28 49 AA 31  |   ."...{%L$(I.1|
00000E90: 29 B2 22 A6 22 3A 81 58  B2 31 A4 31 35 30 30 3A  |).".":.X.1.1500:|
00000EA0: 82 3A 4E 31 B2 31 30 3A  89 39 36 31 30 00 C3 16  |.:N1.10:.9610...|
00000EB0: 80 25 49 B2 49 AA 31 3A  8D 39 32 32 30 3A 89 39  |.%I.I.1:.9220:.9|
00000EC0: 34 37 30 00 FB 16 81 25  99 5A 31 24 3A 85 22 91  |470....%.Z1$:.".|
00000ED0: 91 9E D7 48 49 43 48 20  C9 54 45 4D 20 23 20 46  |...HICH .TEM # F|
00000EE0: 4F 52 20 CD 45 4D 4F 22  3B 4D 44 24 3A 8F 20 4D  |OR .EMO";MD$:. M|
00000EF0: 45 4D 4F 20 52 4F 55 54  49 4E 45 00 37 17 82 25  |EMO ROUTINE.7..%|
00000F00: 5A 24 B2 4D 44 24 3A 4D  B2 31 3A 42 4F 24 B2 22  |Z$.MD$:M.1:BO$."|
00000F10: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000F20: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000F30: 20 20 20 20 20 20 22 00  61 17 83 25 85 22 D7 48  |      ".a..%.".H|
00000F40: 41 54 27 53 20 59 4F 55  52 20 4D 45 4D 4F 22 3B  |AT'S YOUR MEMO";|
00000F50: 4D 45 24 3A 4D 45 24 B2  22 2E 2E 2E 22 AA 4D 45  |ME$:ME$."...".ME|
00000F60: 24 00 8A 17 84 25 99 22  91 91 22 42 4F 24 3A 99  |$....%.".."BO$:.|
00000F70: 42 4F 24 3A 99 22 91 91  9E 22 3A 8E 3A 8F 20 43  |BO$:."...":.:. C|
00000F80: 4C 45 41 52 53 20 54 45  58 54 00 AA 17 85 25 8F  |LEARS TEXT....%.|
00000F90: 20 50 52 49 4E 54 4F 55  54 20 4F 46 20 53 48 4F  | PRINTOUT OF SHO|
00000FA0: 50 50 49 4E 47 20 4C 49  53 54 00 DF 17 8A 25 99  |PPING LIST....%.|
00000FB0: 22 93 11 11 11 11 11 11  9E 20 20 20 D4 48 49 53  |"........   .HIS|
00000FC0: 20 43 4F 4D 50 4C 45 54  45 53 20 59 4F 55 52 20  | COMPLETES YOUR |
00000FD0: 53 48 4F 50 50 49 4E 47  20 4C 49 53 54 2E 22 00  |SHOPPING LIST.".|
00000FE0: 0D 18 8F 25 99 22 11 11  1D 1C CD 41 4B 45 20 53  |...%.".....AKE S|
00000FF0: 55 52 45 20 54 48 41 54  20 59 4F 55 52 20 50 52  |URE THAT YOUR PR|
00001000: 49 4E 54 45 52 20 49 53  20 4F 4E 2C 22 00 3A 18  |INTER IS ON,".:.|
00001010: 94 25 99 22 20 20 20 20  41 4E 44 20 54 48 45 20  |.%."    AND THE |
00001020: 50 41 50 45 52 20 49 53  20 50 4F 53 49 54 49 4F  |PAPER IS POSITIO|
00001030: 4E 45 44 2E 22 3A 5A B2  38 30 00 61 18 99 25 99  |NED.":Z.80.a..%.|
00001040: 53 50 24 3B 22 9E 11 11  9D 9D D0 52 45 53 53 20  |SP$;"......RESS |
00001050: 41 4E 59 20 4B 45 59 20  57 48 45 4E 20 59 4F 55  |ANY KEY WHEN YOU|
00001060: 22 00 95 18 9E 25 99 53  50 24 3B 22 9D 9D 9D 9D  |"....%.SP$;"....|
00001070: 9D 41 52 45 20 52 45 41  44 59 20 54 4F 20 50 52  |.ARE READY TO PR|
00001080: 49 4E 54 20 59 4F 55 52  20 4C 49 53 54 2E 22 3A  |INT YOUR LIST.":|
00001090: 8D 39 32 36 35 00 BE 18  A1 25 99 22 11 11 20 20  |.9265....%."..  |
000010A0: 20 20 20 20 20 1C 2A 2A  2A 20 9E D0 D2 C9 CE D4  |     .*** ......|
000010B0: C9 CE C7 A0 CC C9 D3 D4  20 1C 2A 2A 2A 22 00 D9  |........ .***"..|
000010C0: 18 A3 25 A0 50 46 3A 9F  50 46 2C 34 2C 43 50 3A  |..%.PF:.PF,4,CP:|
000010D0: 43 52 24 B2 C7 28 31 30  29 00 FD 18 A8 25 98 50  |CR$..(10)....%.P|
000010E0: 46 2C 50 39 24 3B 22 20  D3 C8 CF D0 D0 C9 CE C7  |F,P9$;" ........|
000010F0: A0 CC C9 D3 D4 20 20 20  A0 A0 A0 A0 22 00 0E 19  |.....   ...."...|
00001100: AD 25 98 50 46 2C 22 20  20 22 3B 50 31 24 00 1A  |.%.PF,"  ";P1$..|
00001110: 19 B2 25 98 50 46 2C 50  32 24 00 41 19 B7 25 81  |..%.PF,P2$.A..%.|
00001120: 50 52 B2 30 A4 39 39 39  3A 8B 4C 24 28 50 52 29  |PR.0.999:.L$(PR)|
00001130: B2 22 A6 22 A7 50 53 B2  50 52 3A 50 52 B2 39 39  |.".".PS.PR:PR.99|
00001140: 39 00 49 19 BC 25 82 50  52 00 69 19 C1 25 81 50  |9.I..%.PR.i..%.P|
00001150: 52 B2 30 A4 50 53 AB 31  3A 98 50 46 2C 50 33 24  |R.0.PS.1:.PF,P3$|
00001160: 3B 4C 24 28 50 52 29 3A  82 00 89 19 C6 25 8B 43  |;L$(PR):.....%.C|
00001170: 50 B2 37 AF 50 43 B2 31  A7 20 98 50 46 2C 43 52  |P.7.PC.1. .PF,CR|
00001180: 24 3B 43 52 24 3B 43 52  24 00 91 19 CB 25 A0 50  |$;CR$;CR$....%.P|
00001190: 46 00 AF 19 D0 25 8F 20  50 52 49 4E 54 45 52 20  |F....%. PRINTER |
000011A0: 50 52 4F 42 4C 45 4D 20  44 45 46 41 55 4C 54 00  |PROBLEM DEFAULT.|
000011B0: E3 19 D5 25 99 22 93 9E  11 11 11 11 11 11 C4 4F  |...%.".........O|
000011C0: 20 59 4F 55 20 57 41 4E  54 20 54 4F 20 50 52 49  | YOU WANT TO PRI|
000011D0: 4E 54 20 54 48 45 20 4C  49 53 54 20 41 47 41 49  |NT THE LIST AGAI|
000011E0: 4E 3F 22 00 ED 19 DF 25  8D 39 32 36 35 00 0A 1A  |N?"....%.9265...|
000011F0: E4 25 8B C8 28 41 24 2C  31 29 B2 22 59 22 A7 20  |.%..(A$,1)."Y". |
00001200: 54 4E B2 30 3A 89 39 36  31 35 00 21 1A E5 25 8B  |TN.0:.9615.!..%.|
00001210: C8 28 41 24 2C 31 29 B3  B1 22 4E 22 A7 39 36 39  |.(A$,1).."N".969|
00001220: 35 00 4D 1A E6 25 99 22  11 11 1C D0 52 45 53 53  |5.M..%."....RESS|
00001230: 20 41 4E 59 20 4B 45 59  20 54 4F 20 52 45 54 55  | ANY KEY TO RETU|
00001240: 52 4E 20 54 4F 20 C8 2E  C1 2E CC 2E 22 00 63 1A  |RN TO ......".c.|
00001250: E7 25 A1 41 4E 24 3A 8B  41 4E 24 B2 22 22 A7 39  |.%.AN$:.AN$."".9|
00001260: 37 30 33 00 75 1A E9 25  99 C7 28 31 35 29 3A 89  |703.u..%..(15):.|
00001270: 31 30 30 30 30 00 BB 1A  F8 25 83 44 45 4F 44 45  |10000....%.DEODE|
00001280: 52 41 4E 54 2C 53 48 41  4D 50 4F 4F 2C 48 41 49  |RANT,SHAMPOO,HAI|
00001290: 52 20 43 4F 4C 4F 52 2C  4C 45 4E 53 45 20 46 4C  |R COLOR,LENSE FL|
000012A0: 55 49 44 2C 4D 45 44 49  43 49 4E 45 2C 50 4F 4C  |UID,MEDICINE,POL|
000012B0: 49 53 48 20 52 45 4D 4F  56 45 52 00 07 1B FD 25  |ISH REMOVER....%|
000012C0: 83 4D 41 47 41 5A 49 4E  45 2C 4C 49 47 48 54 45  |.MAGAZINE,LIGHTE|
000012D0: 52 2C 50 45 54 52 4F 4C  45 55 4D 20 4A 45 4C 4C  |R,PETROLEUM JELL|
000012E0: 59 2C 43 4F 4E 44 49 54  49 4F 4E 45 52 2C 48 41  |Y,CONDITIONER,HA|
000012F0: 49 52 20 53 50 52 41 59  2C 20 53 48 41 56 49 4E  |IR SPRAY, SHAVIN|
00001300: 47 20 43 52 45 41 4D 00  4D 1B 02 26 83 52 41 5A  |G CREAM.M..&.RAZ|
00001310: 4F 52 20 42 4C 41 44 45  53 2C 54 4F 4F 54 48 50  |OR BLADES,TOOTHP|
00001320: 41 53 54 45 2C 54 4F 4F  54 48 42 52 55 53 48 45  |ASTE,TOOTHBRUSHE|
00001330: 53 2C 42 41 4E 44 41 49  44 53 2C 4D 4F 55 54 48  |S,BANDAIDS,MOUTH|
00001340: 57 41 53 48 2C 56 49 54  41 4D 49 4E 53 00 94 1B  |WASH,VITAMINS...|
00001350: 07 26 83 42 41 4E 41 4E  41 53 2C 53 54 52 41 57  |.&.BANANAS,STRAW|
00001360: 42 45 52 52 49 45 53 2C  4F 52 41 4E 47 45 53 2C  |BERRIES,ORANGES,|
00001370: 50 45 41 52 53 2C 47 52  41 50 45 53 2C 4D 45 4C  |PEARS,GRAPES,MEL|
00001380: 4F 4E 53 2C 4C 45 54 54  55 43 45 2C 54 4F 4D 41  |ONS,LETTUCE,TOMA|
00001390: 54 4F 45 53 00 DA 1B 0C  26 83 43 45 4C 45 52 59  |TOES....&.CELERY|
000013A0: 2C 47 52 45 45 4E 20 42  45 41 4E 53 2C 20 42 52  |,GREEN BEANS, BR|
000013B0: 4F 43 43 4F 4C 49 2C 43  41 55 4C 49 46 4C 4F 57  |OCCOLI,CAULIFLOW|
000013C0: 45 52 2C 50 4F 54 41 54  4F 45 53 2C 4F 4E 49 4F  |ER,POTATOES,ONIO|
000013D0: 4E 53 2C 43 41 52 52 4F  54 53 00 01 1C 11 26 83  |NS,CARROTS....&.|
000013E0: 50 45 41 4E 55 54 53 2C  4D 55 53 48 52 4F 4F 4D  |PEANUTS,MUSHROOM|
000013F0: 53 2C 43 4F 52 4E 20 4F  4E 20 54 48 45 20 43 4F  |S,CORN ON THE CO|
00001400: 42 00 4C 1C 16 26 83 59  4F 47 41 52 54 2C 57 48  |B.L..&.YOGART,WH|
00001410: 49 50 50 45 44 20 43 52  45 41 4D 2C 53 4F 55 52  |IPPED CREAM,SOUR|
00001420: 20 43 52 45 41 4D 2C 43  48 49 50 20 44 49 50 2C  | CREAM,CHIP DIP,|
00001430: 45 47 47 53 2C 42 55 54  54 45 52 2C 43 48 45 45  |EGGS,BUTTER,CHEE|
00001440: 53 45 2C 49 43 45 20 43  52 45 41 4D 00 98 1C 1B  |SE,ICE CREAM....|
00001450: 26 83 49 43 45 20 43 52  45 41 4D 20 53 41 4E 44  |&.ICE CREAM SAND|
00001460: 57 49 43 48 45 53 2C 49  43 45 2C 53 4F 44 41 2C  |WICHES,ICE,SODA,|
00001470: 42 45 45 52 2C 44 52 49  4E 4B 49 4E 47 20 57 41  |BEER,DRINKING WA|
00001480: 54 45 52 2C 44 49 53 54  49 4C 4C 45 44 20 57 41  |TER,DISTILLED WA|
00001490: 54 45 52 2C 4D 49 4C 4B  00 BE 1C 20 26 83 43 48  |TER,MILK... &.CH|
000014A0: 4F 43 4F 4C 41 54 45 20  4D 49 4C 4B 2C 57 49 4E  |OCOLATE MILK,WIN|
000014B0: 45 2C 4F 52 41 4E 47 45  20 4A 55 49 43 45 00 FE  |E,ORANGE JUICE..|
000014C0: 1C 25 26 83 48 41 4D 42  55 52 47 45 52 2C 50 4F  |.%&.HAMBURGER,PO|
000014D0: 52 4B 20 43 48 4F 50 53  2C 43 48 49 43 4B 45 4E  |RK CHOPS,CHICKEN|
000014E0: 2C 53 54 45 41 4B 2C 4C  49 56 45 52 2C 54 55 52  |,STEAK,LIVER,TUR|
000014F0: 4B 45 59 2C 52 4F 41 53  54 2C 46 49 53 48 00 45  |KEY,ROAST,FISH.E|
00001500: 1D 2A 26 83 4D 49 4E 55  54 45 20 53 54 45 41 4B  |.*&.MINUTE STEAK|
00001510: 53 2C 53 4C 49 43 45 44  20 54 55 52 4B 45 59 2C  |S,SLICED TURKEY,|
00001520: 53 4C 49 43 45 44 20 48  41 4D 2C 42 4F 4C 4F 47  |SLICED HAM,BOLOG|
00001530: 4E 41 2C 48 4F 54 20 44  4F 47 53 2C 43 4F 52 4E  |NA,HOT DOGS,CORN|
00001540: 20 44 4F 47 53 00 77 1D  2F 26 83 53 4C 49 43 45  | DOGS.w./&.SLICE|
00001550: 44 20 52 4F 41 53 54 20  42 45 45 46 2C 54 55 4E  |D ROAST BEEF,TUN|
00001560: 41 20 46 49 53 48 2C 53  50 41 52 45 20 52 49 42  |A FISH,SPARE RIB|
00001570: 53 2C 42 41 43 4F 4E 00  B9 1D 34 26 83 53 41 4C  |S,BACON...4&.SAL|
00001580: 41 44 20 44 52 45 53 53  49 4E 47 2C 4D 41 59 4F  |AD DRESSING,MAYO|
00001590: 4E 4E 41 49 53 45 2C 4B  45 54 43 48 55 50 2C 53  |NNAISE,KETCHUP,S|
000015A0: 54 45 41 4B 20 53 41 55  43 45 2C 53 50 41 47 45  |TEAK SAUCE,SPAGE|
000015B0: 54 54 49 20 53 41 55 43  45 00 FB 1D 39 26 83 42  |TTI SAUCE...9&.B|
000015C0: 42 51 2E 20 53 41 55 43  45 2C 53 45 41 53 4F 4E  |BQ. SAUCE,SEASON|
000015D0: 49 4E 47 20 53 41 4C 54  2C 53 41 4C 54 2C 50 45  |ING SALT,SALT,PE|
000015E0: 50 50 45 52 2C 53 55 47  41 52 2C 43 4F 46 46 45  |PPER,SUGAR,COFFE|
000015F0: 45 2C 54 45 41 2C 46 4C  4F 55 52 00 36 1E 3E 26  |E,TEA,FLOUR.6.>&|
00001600: 83 50 45 41 4E 55 54 20  42 55 54 54 45 52 2C 4A  |.PEANUT BUTTER,J|
00001610: 45 4C 4C 59 2C 50 41 4E  43 41 4B 45 20 53 59 52  |ELLY,PANCAKE SYR|
00001620: 55 50 2C 43 4F 4F 4B 49  4E 47 20 4F 49 4C 2C 4D  |UP,COOKING OIL,M|
00001630: 55 53 54 41 52 44 00 75  1E 43 26 83 53 54 45 41  |USTARD.u.C&.STEA|
00001640: 4B 20 52 4F 4C 4C 53 2C  48 4F 54 20 44 4F 47 20  |K ROLLS,HOT DOG |
00001650: 42 55 4E 53 2C 48 41 4D  42 55 52 47 45 52 20 42  |BUNS,HAMBURGER B|
00001660: 55 4E 53 2C 42 52 45 41  44 2C 4F 4E 49 4F 4E 20  |UNS,BREAD,ONION |
00001670: 52 4F 4C 4C 53 00 BE 1E  48 26 83 46 52 4F 5A 45  |ROLLS...H&.FROZE|
00001680: 4E 20 42 52 45 41 4B 46  41 53 54 53 2C 46 52 4F  |N BREAKFASTS,FRO|
00001690: 5A 45 4E 20 44 49 4E 4E  45 52 53 2C 50 4F 54 20  |ZEN DINNERS,POT |
000016A0: 50 49 45 53 2C 53 50 41  47 45 54 54 49 2C 52 49  |PIES,SPAGETTI,RI|
000016B0: 47 41 54 4F 4E 49 2C 4C  41 53 41 47 4E 41 00 05  |GATONI,LASAGNA..|
000016C0: 1F 4D 26 83 42 41 4B 45  44 20 42 45 41 4E 53 2C  |.M&.BAKED BEANS,|
000016D0: 50 41 4E 43 41 4B 45 20  4D 49 58 2C 43 41 4E 4E  |PANCAKE MIX,CANN|
000016E0: 45 44 20 53 4F 55 50 2C  50 49 5A 5A 41 2C 43 4F  |ED SOUP,PIZZA,CO|
000016F0: 52 4E 2C 52 49 43 45 2C  43 48 49 43 4B 45 4E 20  |RN,RICE,CHICKEN |
00001700: 53 4F 55 50 53 00 43 1F  52 26 83 50 4F 54 41 54  |SOUPS.C.R&.POTAT|
00001710: 4F 20 43 48 49 50 53 2C  50 52 45 54 5A 45 4C 53  |O CHIPS,PRETZELS|
00001720: 2C 43 4F 4F 4B 49 45 53  2C 50 55 44 44 49 4E 47  |,COOKIES,PUDDING|
00001730: 2C 44 4F 55 47 48 4E 55  54 53 2C 50 49 45 2C 43  |,DOUGHNUTS,PIE,C|
00001740: 41 4B 45 00 89 1F 57 26  83 44 52 59 20 43 45 52  |AKE...W&.DRY CER|
00001750: 45 41 4C 2C 4E 55 54 53  2C 4C 41 55 4E 44 52 59  |EAL,NUTS,LAUNDRY|
00001760: 20 53 4F 41 50 2C 43 4C  45 41 4E 53 45 52 2C 47  | SOAP,CLEANSER,G|
00001770: 4C 41 53 53 20 43 4C 45  41 4E 45 52 2C 42 4F 57  |LASS CLEANER,BOW|
00001780: 4C 20 43 4C 45 41 4E 45  52 00 CB 1F 5C 26 83 42  |L CLEANER...\&.B|
00001790: 4C 45 41 43 48 2C 44 49  53 48 57 49 53 48 45 52  |LEACH,DISHWISHER|
000017A0: 20 53 4F 41 50 2C 52 49  4E 53 45 20 41 49 44 2C  | SOAP,RINSE AID,|
000017B0: 52 45 47 55 4C 41 52 20  44 49 53 48 20 53 4F 41  |REGULAR DISH SOA|
000017C0: 50 2C 42 41 54 48 20 53  4F 41 50 00 12 20 61 26  |P,BATH SOAP.. a&|
000017D0: 83 46 55 52 4E 49 54 55  52 45 20 50 4F 4C 49 53  |.FURNITURE POLIS|
000017E0: 48 2C 42 41 54 48 52 4F  4F 4D 20 43 4C 45 41 4E  |H,BATHROOM CLEAN|
000017F0: 45 52 2C 4D 4F 54 4F 52  20 4F 49 4C 2C 42 41 54  |ER,MOTOR OIL,BAT|
00001800: 54 45 52 49 45 53 2C 4C  49 47 48 54 20 42 55 4C  |TERIES,LIGHT BUL|
00001810: 42 53 00 55 20 66 26 83  42 55 47 20 53 50 52 41  |BS.U f&.BUG SPRA|
00001820: 59 2C 54 49 53 53 55 45  53 2C 54 41 4D 50 4F 4E  |Y,TISSUES,TAMPON|
00001830: 53 2C 4D 49 4E 49 20 50  41 44 53 2C 50 41 50 45  |S,MINI PADS,PAPE|
00001840: 52 20 54 4F 57 45 4C 53  2C 50 41 50 45 52 20 50  |R TOWELS,PAPER P|
00001850: 4C 41 54 45 53 00 92 20  6B 26 83 54 4F 49 4C 45  |LATES.. k&.TOILE|
00001860: 54 20 50 41 50 45 52 2C  57 41 58 20 50 41 50 45  |T PAPER,WAX PAPE|
00001870: 52 2C 46 4F 49 4C 2C 53  41 4E 44 57 49 43 48 20  |R,FOIL,SANDWICH |
00001880: 42 41 47 47 49 45 53 2C  54 4F 4F 54 48 50 49 43  |BAGGIES,TOOTHPIC|
00001890: 4B 53 00 DB 20 70 26 83  44 4F 47 20 46 4F 4F 44  |KS.. p&.DOG FOOD|
000018A0: 2C 4D 45 4D 4F 2C 4D 45  4D 4F 2C 4D 45 4D 4F 2C  |,MEMO,MEMO,MEMO,|
000018B0: 4D 45 4D 4F 2C 4D 45 4D  4F 2C 28 45 4E 44 20 4F  |MEMO,MEMO,(END O|
000018C0: 46 20 4C 49 53 54 29 2C  28 46 37 20 57 49 4C 4C  |F LIST),(F7 WILL|
000018D0: 20 50 52 49 4E 54 29 2C  45 4E 44 00 01 21 10 27  | PRINT),END..!.'|
000018E0: 8F 2A 2A 2A 20 52 45 54  55 52 4E 20 54 4F 20 48  |.*** RETURN TO H|
000018F0: 2E 41 2E 4C 2E 20 52 4F  55 54 49 4E 45 20 2A 2A  |.A.L. ROUTINE **|
00001900: 2A 00 23 21 1A 27 97 35  33 32 38 30 2C 30 3A 97  |*.#!.'.53280,0:.|
00001910: 35 33 32 38 31 2C 30 3A  99 22 93 90 22 C7 28 31  |53281,0:."..".(1|
00001920: 34 32 29 00 33 21 2E 27  48 24 B2 22 48 2E 41 2E  |42).3!.'H$."H.A.|
00001930: 4C 2E 22 00 3E 21 38 27  97 31 39 38 2C 34 00 55  |L.".>!8'.198,4.U|
00001940: 21 42 27 99 22 93 11 11  4C 4F 41 44 22 C7 28 33  |!B'."...LOAD".(3|
00001950: 34 29 48 24 3B 00 67 21  4C 27 99 20 C7 28 33 34  |4)H$;.g!L'. .(34|
00001960: 29 22 2C 38 13 22 3B 00  8C 21 56 27 97 36 33 31  |)",8.";..!V'.631|
00001970: 2C 31 33 3A 97 36 33 32  2C 38 32 3A 97 36 33 33  |,13:.632,82:.633|
00001980: 2C 31 31 37 3A 97 36 33  34 2C 31 33 00 92 21 60  |,117:.634,13..!`|
00001990: 27 80 00 00 00                                    |'....           |

....(#.".":.53280,0:.53281,0.M.-#..7)"..
.........*** .ONE MOMENT,PLEASE .***".E.
2#. SET UP CONDITIONS.Q.7#. G(14)...<#."
.":P.0:I.0:Q$.G(34)...A#. LI(999),M$(999
)...F#. L$(999),SD$(18).W.K#N1.10:SP$." 
         ":PF.4.'.P#Z1$."...............
........":Y$."                          
              ".H.U#C1$.".":C2$.".":P8$.
G(14):P9$.G(15):. C1$,C2$ARE TEXT COLORS
...Z#SD$(0)."....       S H O P P I N G 
  L I S T       .."..._#Q.0:ED.0:BK.0:KB
.0.V.D#. X.0 . 999:L$(X).".":....I#R.1:.
 9220:R.0:. 9420...N#. SUBROUTINES.B.S#.
 REMOVE REVERSE PRINT FROM SCREEN D. AND
 CLOSE GAP IN LIST.X.X#ER.C(SD$(ZQ.Q)).1
.V.}#SD$(ZQ.Q).I(SD$(ZQ.Q),ER)....#. S.0
 . I.1. ..#. ZQ.LI(S). T.S:S.I.1....#...
..#. S.T . I.1.V..#L$(S).L$(S.1):LI(S).L
I(S.1)....#.:I.I.1:.... #. DELETE SUBROU
TINE.1..#. Z1$;C2$"..DELETE WHICH ITEM #
 :     .....";NM$.H..#. Z$:. Z$."". 9130
.I..#. Z$.G(13). 9160:. CARR.RET.....#. 
Z$.G(133). R.1:. 9220:.:. CANCEL.G..#. Z
$."0". Z$."9". 9125:. CHECK FOR NUMERICA
L INPUT....#. C(NM$).2 . 9125:. CHECK FO
R MAX.OF 3 #S. .C#NM$.NM$.Z$:. 9125:. BU
ILD THE ITEM NO....H#ZQ.E(NM$).K.M#. ZQ.
Q.1 . ZQ.P . . 9540:. 9220:. 9465:. IS I
T ON SCREEN. .R#. H(SD$(ZQ.Q),1)..".". .
 9465:. IS IT DELEATABLE...W#. 9080:L$(I
).".":LI(I).0:..M..#. Q.0 . .....#.:. BA
CK UP SUBROUTINE....#P.0....#. Q.18 . 92
05. ..#. X.1 . Q.18:. A$:P.P.1:..2..#Q.Q
.18:. 9355.8..#..W..#. INITIALIZE FUNCTI
ON MENU.O..$F1$."CANCEL":NM$."".Z..$. 93
30....$.....$. UPDATE SELECTION AND ITEM
 COUNT.Q..$.Z1$;"..SELECT ITEM # :     .
....";NM$....$."....";.29)". #ITEMS=";I.
.."$....'$. X.1 . 3000:.:. DELAY LOOP...
,$..J.1$. A$:. A$."". 9265:. WAIT FOR A 
KEY STROKE.P.6$..U.;$. UPDATE DISPLAY AF
TER SELECTION..@$.".";...E$. X.1 . ZQ.Q
:.".";:.:. ZQ.999 . .".";...F$. M..1.929
0...G$."......";SD$(ZQ.Q);M$(I):M.0:....
J$."......";SD$(ZQ.Q):....O$. SCREEN DIS
PLAY...T$. SD$(0).B.Y$. X.1 . 18:. SD$(X
).".". X.18:. 9325.L.^$. Q.X.10. ."..";Q
.X;".";SD$(X):. 9325...C$.Q.X.100 . ."."
;Q.X;"..... ...";SD$(X):.9325...H$."..";
Q.X;"...... ....";SD$(X).F.M$..T.R$. R.1
 . ....W$FD$."...F2..DELETE ..F3..WRONG#
 ..F5..BACK UP ..F7..ADVANCE".L.|$FE$." 
..F8..RETURN TO H.A.L...F1..ITEM WITH ME
MO.".P..$. 9240:. Z1$;FD$:.FE$:. 198,0:.
....$. READ THE NEXT GROUP OF DATA....$G
C..(0)....$. X.1 . 18:SD$(X).".":.:X.1.G
..$. A$....$. C(A$).35 . A$.H(A$,35)....
$. A$."END". ED.1:. 9395:.....$SD$(X).A$
:X.X.1:P.P.1.4..$. P.Q.18 .:. 9395:..?..
$. 9365.M..$. KB.0. ..[..$. X.0 . I.|..$
. LI(X).Q.1 . LI(X).P . 9415...B$SD$(LI(
X).Q)."..".SD$(LI(X).Q)...G$.:....L$..X.
Q$. A$."T". C1$."":C2$."":. 65535:. 9430
...V$CP.7:P1$.".":P2$."..."....$P3$."...
.. "....$PC.1:. 9445.,..$. MAIN PROGRAM 
LOOP.K..$. BK.1. . 9180:BK.0:. 9465.\..$
. ED.1. 9610.G..$. 9355.}..$. 9300:R.0:.
 9220....$. Z$:. Z$."". 9470....%.Z$.G(1
33)..9601....%. Z$.G(133). 9505.T..%.Z$.
G(140).10000....%. Z$.G(134). . 9220:. C
ANCEL. ..%. Z$.G(136). N1.3:Q.P:. 9450:.
 ADVANCE.5..%. DELETE AN ITEM.J..%. Z$.G
(137). . 9220:D.1:NM$."":. 9125:D.0:. 94
65....%.Z$.G(135).N1.4:BK.1:KB.1:NM$."":
ED.0:.9450:. BACK UP.E.!%. Z$.G(13). 952
5:. CARR.RET....&%.Z$."0".Z$."9".9470:. 
D| FOR NUMERICAL INPUT...+%.C(NM$).2.947
0:. D. FOR MAX. OF 3 #S.O.0%NM$.NM$.Z$:.
9240:.9470:. BUILD THE ITEM NO..].5%ZQ.E
(NM$)...:%.ZQ.Q.1.ZQ.P.9540:. IS IT CURR
ENTLY ON THE SCREEN...?%. 9555...D%.Z1$;
"...";C2$;"      * * NUMBER OUT OF RANGE
  * *      .":NM$.""...I%.Z1$;"..";Y$:.D
.1.....N%I.I.1:.9600.C.S%.H(SD$(ZQ.Q),1)
."."..9080:. WAS IT SELECTED BEFORE.R.T%
.M..1.9562.`.U%M$(I).ME$...X%L$(I).SD$(Z
Q.Q).M$(I):LI(I).ZQ:. 9565:. PUT ITEM ON
 THE LIST.U.Z%L$(I).SD$(ZQ.Q):LI(I).ZQ:.
 PUT ITEM ON THE LIST...]%. CHANGE SCREE
N DISPLAY OF ITEM TO REVERSE.!.B%SD$(ZQ.
Q)."..".SD$(ZQ.Q).,.G%. 9280.<.L%.I.998.
9590.G.Q%. 9600...V%.Z1$;"...";C2$;"    
THAT WAS THE LAST ITEM-MAX 999     ."...
{%L$(I.1).".":.X.1.1500:.:N1.10:.9610.C.
.%I.I.1:.9220:.9470....%.Z1$:."...WHICH 
ITEM # FOR MEMO";MD$:. MEMO ROUTINE.7..%
Z$.MD$:M.1:BO$."                        
              ".A..%."WHAT'S YOUR MEMO";
ME$:ME$."...".ME$....%.".."BO$:.BO$:."..
.":.:. CLEARS TEXT....%. PRINTOUT OF SHO
PPING LIST....%."........   THIS COMPLET
ES YOUR SHOPPING LIST."....%."....MAKE S
URE THAT YOUR PRINTER IS ON,".:..%."    
AND THE PAPER IS POSITIONED.":Z.80.A..%.
SP$;".....PRESS ANY KEY WHEN YOU"....%.S
P$;".....ARE READY TO PRINT YOUR LIST.":
.9265....%."..       .*** .PRINTING LIST
 .***".Y..% PF:.PF,4,CP:CR$.G(10)....%.P
F,P9$;" SHOPPING LIST       "....%.PF," 
 ";P1$....%.PF,P2$.A..%.PR.0.999:.L$(PR)
.".".PS.PR:PR.999.I..%.PR.I.A%.PR.0.PS.1
:.PF,P3$;L$(PR):....F%.CP.7.PC.1. .PF,CR
$;CR$;CR$...K% PF...P%. PRINTER PROBLEM 
DEFAULT...U%."........DO YOU WANT TO PRI
NT THE LIST AGAIN?"....%.9265....%.H(A$,
1)."Y". TN.0:.9615.!..%.H(A$,1).."N".969
5.M..%."...PRESS ANY KEY TO RETURN TO H.
A.L.".C..%.AN$:.AN$."".9703.U..%.G(15):.
10000....%.DEODERANT,SHAMPOO,HAIR COLOR,
LENSE FLUID,MEDICINE,POLISH REMOVER....%
.MAGAZINE,LIGHTER,PETROLEUM JELLY,CONDIT
IONER,HAIR SPRAY, SHAVING CREAM.M..&.RAZ
OR BLADES,TOOTHPASTE,TOOTHBRUSHES,BANDAI
DS,MOUTHWASH,VITAMINS....&.BANANAS,STRAW
BERRIES,ORANGES,PEARS,GRAPES,MELONS,LETT
UCE,TOMATOES.Z..&.CELERY,GREEN BEANS, BR
OCCOLI,CAULIFLOWER,POTATOES,ONIONS,CARRO
TS....&.PEANUTS,MUSHROOMS,CORN ON THE CO
B.L..&.YOGART,WHIPPED CREAM,SOUR CREAM,C
HIP DIP,EGGS,BUTTER,CHEESE,ICE CREAM....
&.ICE CREAM SANDWICHES,ICE,SODA,BEER,DRI
NKING WATER,DISTILLED WATER,MILK... &.CH
OCOLATE MILK,WINE,ORANGE JUICE...%&.HAMB
URGER,PORK CHOPS,CHICKEN,STEAK,LIVER,TUR
KEY,ROAST,FISH.E.*&.MINUTE STEAKS,SLICED
 TURKEY,SLICED HAM,BOLOGNA,HOT DOGS,CORN
 DOGS.W./&.SLICED ROAST BEEF,TUNA FISH,S
PARE RIBS,BACON...4&.SALAD DRESSING,MAYO
NNAISE,KETCHUP,STEAK SAUCE,SPAGETTI SAUC
E...9&.BBQ. SAUCE,SEASONING SALT,SALT,PE
PPER,SUGAR,COFFEE,TEA,FLOUR.6.>&.PEANUT 
BUTTER,JELLY,PANCAKE SYRUP,COOKING OIL,M
USTARD.U.C&.STEAK ROLLS,HOT DOG BUNS,HAM
BURGER BUNS,BREAD,ONION ROLLS...H&.FROZE
N BREAKFASTS,FROZEN DINNERS,POT PIES,SPA
GETTI,RIGATONI,LASAGNA...M&.BAKED BEANS,
PANCAKE MIX,CANNED SOUP,PIZZA,CORN,RICE,
CHICKEN SOUPS.C.R&.POTATO CHIPS,PRETZELS
,COOKIES,PUDDING,DOUGHNUTS,PIE,CAKE...W&
.DRY CEREAL,NUTS,LAUNDRY SOAP,CLEANSER,G
LASS CLEANER,BOWL CLEANER.K.\&.BLEACH,DI
SHWISHER SOAP,RINSE AID,REGULAR DISH SOA
P,BATH SOAP.. A&.FURNITURE POLISH,BATHRO
OM CLEANER,MOTOR OIL,BATTERIES,LIGHT BUL
BS.U F&.BUG SPRAY,TISSUES,TAMPONS,MINI P
ADS,PAPER TOWELS,PAPER PLATES.. K&.TOILE
T PAPER,WAX PAPER,FOIL,SANDWICH BAGGIES,
TOOTHPICKS.. P&.DOG FOOD,MEMO,MEMO,MEMO,
MEMO,MEMO,(END OF LIST),(F7 WILL PRINT),
END..!.'.*** RETURN TO H.A.L. ROUTINE **
*.#!.'.53280,0:.53281,0:.".."G(142).3!.'
H$."H.A.L.".>!8'.198,4.U!B'."...LOAD"G(3
4)H$;.G!L'. G(34)",8.";..!V'.631,13:.632
,82:.633,117:.634,13..!`'....

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL