FOOD PRICES.C

FILE INFORMATION

FILENAME(S): FOOD PRICES.C

FILE TYPE(S): PRG

FILE SIZE: 1.8K

FIRST SEEN: 2025-10-20 14:31:52

APPEARS ON: 3 disk(s)

FILE HASH

9770c2facb66538fd4a99e0f35d26ab2cb09b6a08bf038d59314f3edde598adf

FOUND ON DISKS (3 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
MASTERMMSOFT	FOOD PRICES.C	PRG	Treasure Chest - Klaus Der Suhler	11	0	DOWNLOAD FILE
A NWENDER	FOOD PRICES.C	PRG	Treasure Chest - Wolfgang Rauprich	21	1	DOWNLOAD FILE
FREESOFT DISK NR	FOOD PRICES.C	PRG	Treasure Chest - Wolfgang Rauprich	21	1	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 21 08 01 00 97 35  33 32 38 30 2C 31 3A 97  |..!....53280,1:.|
00000010: 35 33 32 38 31 2C 31 3A  97 35 33 32 37 32 2C 32  |53281,1:.53272,2|
00000020: 31 00 3E 08 02 00 99 22  93 90 22 3A 99 A3 30 34  |1.>...."..":..04|
00000030: 29 22 55 4E 49 54 20 50  52 49 43 45 53 22 00 6E  |)"UNIT PRICES".n|
00000040: 08 03 00 99 22 50 4C 45  41 53 45 20 53 50 45 4C  |...."PLEASE SPEL|
00000050: 4C 20 55 4E 49 54 20 4E  41 4D 45 20 49 4E 20 46  |L UNIT NAME IN F|
00000060: 55 4C 4C 2D 4E 4F 20 43  4F 4D 4D 41 53 22 00 90  |ULL-NO COMMAS"..|
00000070: 08 04 00 99 22 45 58 41  4D 50 4C 45 3A 20 45 47  |...."EXAMPLE: EG|
00000080: 47 20 45 58 54 52 41 20  4C 41 52 47 45 20 41 41  |G EXTRA LARGE AA|
00000090: 00 B0 08 05 00 8F 2A 2A  2A 44 41 54 41 20 53 54  |......***DATA ST|
000000A0: 41 54 45 4D 45 4E 54 20  46 4F 52 4D 3A 2A 2A 2A  |ATEMENT FORM:***|
000000B0: 00 D5 08 06 00 8F 2A 2A  2A 31 31 30 20 44 41 54  |......***110 DAT|
000000C0: 41 20 47 52 45 45 4E 20  4F 4E 49 4F 4E 2C 2E 33  |A GREEN ONION,.3|
000000D0: 32 20 2A 2A 2A 00 25 09  07 00 8F 2A 2A 44 41 54  |2 ***.%....**DAT|
000000E0: 41 20 53 54 41 54 45 4D  45 4E 54 53 20 42 45 47  |A STATEMENTS BEG|
000000F0: 49 4E 20 41 54 20 31 30  30 2E 54 4F 20 20 20 20  |IN AT 100.TO    |
00000100: 47 45 54 20 42 41 43 4B  20 49 4E 54 4F 20 50 52  |GET BACK INTO PR|
00000110: 4F 47 52 41 4D 2C 54 59  50 45 3A 52 55 4E 20 52  |OGRAM,TYPE:RUN R|
00000120: 45 54 2E 2A 2A 00 6B 09  08 00 99 22 46 4F 52 20  |ET.**.k...."FOR |
00000130: 44 41 54 41 20 53 54 41  54 45 4D 45 4E 54 20 46  |DATA STATEMENT F|
00000140: 4F 52 4D 20 54 59 50 45  3A 22 3A 99 3A 99 20 A3  |ORM TYPE:":.:. .|
00000150: 31 31 29 22 52 45 54 55  52 4E 20 4C 49 53 54 20  |11)"RETURN LIST |
00000160: 35 2D 37 20 52 45 54 55  52 4E 22 00 77 09 09 00  |5-7 RETURN".w...|
00000170: 99 3A 99 3A 99 3A 99 00  95 09 0A 00 99 22 57 48  |.:.:.:......."WH|
00000180: 41 54 20 50 52 49 43 45  20 44 4F 20 59 4F 55 20  |AT PRICE DO YOU |
00000190: 57 41 4E 54 22 00 9B 09  0B 00 8C 00 A1 09 0C 00  |WANT"...........|
000001A0: 9C 00 E4 09 0D 00 8F 2A  50 52 4F 47 52 41 4D 20  |.......*PROGRAM |
000001B0: 57 52 49 54 54 45 4E 20  37 20 4D 41 52 43 48 20  |WRITTEN 7 MARCH |
000001C0: 27 37 38 20 42 59 2A 20  20 20 20 20 20 20 20 20  |'78 BY*         |
000001D0: 20 20 20 20 2A 2A 4D 49  4B 45 20 48 41 47 4C 55  |    **MIKE HAGLU|
000001E0: 4E 44 2A 2A 00 ED 09 14  00 85 20 46 24 00 F7 09  |ND**...... F$...|
000001F0: 1E 00 87 20 46 31 24 00  0C 0A 23 00 8B 20 46 31  |... F1$...#.. F1|
00000200: 24 B2 22 45 4F 46 22 20  89 20 37 30 00 2F 0A 28  |$."EOF" . 70./.(|
00000210: 00 8B 20 46 31 24 B2 46  24 20 A7 20 87 20 41 3A  |.. F1$.F$ . . A:|
00000220: 4E B2 4E AA 31 3A 99 20  41 20 3B 3A 89 36 30 00  |N.N.1:. A ;:.60.|
00000230: 38 0A 32 00 89 20 33 30  00 42 0A 3C 00 42 B2 41  |8.2.. 30.B.<.B.A|
00000240: AA 42 00 4B 0A 41 00 89  20 33 30 00 93 0A 46 00  |.B.K.A.. 30...F.|
00000250: 8B 20 4E B2 30 20 A7 20  99 22 49 20 44 4F 4E 27  |. N.0 . ."I DON'|
00000260: 54 20 48 41 56 45 20 41  4E 59 20 22 3B 46 24 3B  |T HAVE ANY ";F$;|
00000270: 22 20 49 4E 20 4D 59 20  44 41 54 41 20 42 41 4E  |" IN MY DATA BAN|
00000280: 4B 22 3A 99 22 4D 41 53  54 45 52 21 21 22 3A 89  |K":."MASTER!!":.|
00000290: 20 31 30 00 DC 0A 4A 00  8F 2A 2A 2A 2A 53 54 41  | 10...J..****STA|
000002A0: 54 45 4D 45 4E 54 20 23  37 35 20 41 56 52 41 47  |TEMENT #75 AVRAG|
000002B0: 45 53 20 44 41 54 41 20  20 20 41 4E 44 20 52 4F  |ES DATA   AND RO|
000002C0: 55 4E 44 53 20 44 4F 57  4E 20 54 4F 20 4E 45 41  |UNDS DOWN TO NEA|
000002D0: 52 45 53 54 20 2E 30 31  2A 2A 2A 2A 00 04 0B 4B  |REST .01****...K|
000002E0: 00 41 56 B2 42 AD 4E 3A  41 56 B2 31 30 30 AC 41  |.AV.B.N:AV.100.A|
000002F0: 56 3A 41 56 B2 B5 28 41  56 29 3A 41 56 B2 41 56  |V:AV..(AV):AV.AV|
00000300: AD 31 30 30 00 10 0B 50  00 99 3A 99 3A 99 3A 99  |.100...P..:.:.:.|
00000310: 00 2C 0B 5F 00 99 22 41  56 52 41 47 45 20 50 52  |.,._.."AVRAGE PR|
00000320: 49 43 45 20 49 53 3A 24  22 3B 41 56 00 35 0B 63  |ICE IS:$";AV.5.c|
00000330: 00 89 20 31 30 00 65 0B  64 00 83 20 42 4C 55 45  |.. 10.e.d.. BLUE|
00000340: 20 43 48 45 45 53 45 20  34 20 4F 5A 2C 2E 35 33  | CHEESE 4 OZ,.53|
00000350: 2C 42 4C 55 45 20 43 48  45 45 53 45 20 34 20 4F  |,BLUE CHEESE 4 O|
00000360: 5A 2C 2E 35 33 00 98 0B  65 00 83 20 56 45 41 4C  |Z,.53...e.. VEAL|
00000370: 20 53 48 4F 4C 44 45 52  20 53 54 45 41 4B 2C 2E  | SHOLDER STEAK,.|
00000380: 39 39 2C 4C 45 41 4E 20  47 52 4F 55 4E 44 20 42  |99,LEAN GROUND B|
00000390: 45 45 46 2C 31 2E 31 39  00 B7 0B 67 00 83 20 49  |EEF,1.19...g.. I|
000003A0: 4D 49 54 41 54 49 4F 4E  20 50 49 43 4E 49 43 20  |MITATION PICNIC |
000003B0: 48 41 4D 2C 2E 39 38 00  D6 0B 68 00 83 20 48 45  |HAM,.98...h.. HE|
000003C0: 52 52 49 4E 47 2C 2E 34  39 2C 52 55 4D 20 31 35  |RRING,.49,RUM 15|
000003D0: 31 2C 32 2E 36 36 00 0C  0C 69 00 83 20 52 55 44  |1,2.66...i.. RUD|
000003E0: 41 42 41 47 41 2C 2E 33  39 2C 47 52 45 45 4E 20  |ABAGA,.39,GREEN |
000003F0: 4F 4E 49 4F 4E 2C 2E 32  39 2C 42 20 46 20 4D 41  |ONION,.29,B F MA|
00000400: 59 4F 20 31 36 20 4F 5A  2C 2E 38 39 00 2A 0C 6A  |YO 16 OZ,.89.*.j|
00000410: 00 83 20 52 41 44 49 53  48 2C 2E 32 35 2C 31 35  |.. RADISH,.25,15|
00000420: 31 20 52 55 4D 2C 32 2E  36 36 00 50 0C 6B 00 83  |1 RUM,2.66.P.k..|
00000430: 20 47 52 45 45 4E 20 4F  4E 49 4F 4E 2C 2E 32 39  | GREEN ONION,.29|
00000440: 2C 44 49 4E 4E 45 52 20  4F 55 54 2C 37 2E 36 31  |,DINNER OUT,7.61|
00000450: 00 6D 0C 6C 00 83 20 45  47 47 20 45 58 54 52 41  |.m.l.. EGG EXTRA|
00000460: 20 4C 41 52 47 45 20 41  41 2C 2E 36 39 00 8B 0C  | LARGE AA,.69...|
00000470: 6D 00 83 20 54 55 52 4E  49 50 2C 2E 33 39 2C 50  |m.. TURNIP,.39,P|
00000480: 45 41 20 53 4F 55 50 2C  2E 33 39 00 A7 0C 6E 00  |EA SOUP,.39...n.|
00000490: 83 20 41 53 50 41 52 47  2C 2E 38 39 2C 54 41 4E  |. ASPARG,.89,TAN|
000004A0: 47 4C 4F 2C 2E 34 39 00  DC 0C 6F 00 83 20 43 48  |GLO,.49...o.. CH|
000004B0: 49 43 4B 45 4E 20 54 48  49 47 48 2C 31 2E 31 39  |ICKEN THIGH,1.19|
000004C0: 2C 44 49 4E 4E 45 52 20  4F 55 54 2C 31 30 2E 33  |,DINNER OUT,10.3|
000004D0: 32 2C 42 41 43 4F 4E 2C  31 2E 30 39 00 03 0D 70  |2,BACON,1.09...p|
000004E0: 00 83 20 47 55 41 56 41  20 4A 55 43 45 2C 2E 39  |.. GUAVA JUCE,.9|
000004F0: 38 2C 43 48 55 43 4B 20  53 48 4F 4C 44 45 52 2C  |8,CHUCK SHOLDER,|
00000500: 2E 39 38 00 51 0D 71 00  83 20 56 49 54 41 4D 49  |.98.Q.q.. VITAMI|
00000510: 4E 20 42 20 43 4F 4D 50  4C 45 58 2C 35 2E 37 35  |N B COMPLEX,5.75|
00000520: 2C 56 49 54 41 4D 49 4E  20 41 2C 2E 38 35 2C 43  |,VITAMIN A,.85,C|
00000530: 41 4C 43 49 55 4D 2C 31  2E 34 37 2C 56 49 54 41  |ALCIUM,1.47,VITA|
00000540: 4D 49 4E 20 43 20 35 30  30 4D 47 2E 2C 31 2E 39  |MIN C 500MG.,1.9|
00000550: 39 00 90 0D 72 00 83 20  47 55 41 56 41 20 4A 55  |9...r.. GUAVA JU|
00000560: 43 45 2C 2E 39 38 2C 42  55 54 54 45 52 2C 31 2E  |CE,.98,BUTTER,1.|
00000570: 33 39 2C 43 48 55 43 4B  20 53 48 4F 4C 44 45 52  |39,CHUCK SHOLDER|
00000580: 2C 2E 39 38 2C 4C 45 54  54 55 43 45 2C 2E 34 39  |,.98,LETTUCE,.49|
00000590: 00 BC 0D 73 00 83 20 52  41 44 49 53 48 2C 2E 32  |...s.. RADISH,.2|
000005A0: 39 2C 4D 55 53 48 52 4F  4F 4D 2C 31 2E 39 38 2C  |9,MUSHROOM,1.98,|
000005B0: 31 35 31 20 52 55 4D 2C  32 2E 36 36 00 FF 0D 74  |151 RUM,2.66...t|
000005C0: 00 83 20 44 49 4E 4E 45  52 20 4F 55 54 2C 31 30  |.. DINNER OUT,10|
000005D0: 2E 34 34 2C 4C 4F 4E 44  4F 4E 20 42 52 4F 49 4C  |.44,LONDON BROIL|
000005E0: 2C 31 2E 36 39 2C 4C 45  54 54 55 43 45 2C 2E 35  |,1.69,LETTUCE,.5|
000005F0: 39 2C 4D 55 53 48 52 4F  4F 4D 2C 31 2E 39 38 00  |9,MUSHROOM,1.98.|
00000600: 27 0E 75 00 83 20 44 49  4E 4E 45 52 20 4F 55 54  |'.u.. DINNER OUT|
00000610: 2C 35 2E 30 36 2C 4C 4F  4E 44 4F 4E 20 42 52 4F  |,5.06,LONDON BRO|
00000620: 49 4C 2C 31 2E 35 39 00  6E 0E 76 00 83 20 47 52  |IL,1.59.n.v.. GR|
00000630: 45 45 4E 20 4F 4E 49 4F  4E 2C 2E 31 39 2C 4D 55  |EEN ONION,.19,MU|
00000640: 53 48 52 4F 4F 4D 2C 31  2E 39 38 2C 43 48 49 43  |SHROOM,1.98,CHIC|
00000650: 4B 45 4E 20 4C 49 56 45  52 2C 2E 37 39 2C 59 45  |KEN LIVER,.79,YE|
00000660: 4C 4C 4F 57 20 4F 4E 49  4F 4E 2C 2E 32 35 00 B3  |LLOW ONION,.25..|
00000670: 0E 77 00 83 20 43 41 55  4C 49 46 4C 4F 57 45 52  |.w.. CAULIFLOWER|
00000680: 2C 2E 33 39 2C 54 41 4E  47 4C 4F 2C 2E 35 39 2C  |,.39,TANGLO,.59,|
00000690: 4C 45 41 4E 20 47 52 4F  55 4E 44 20 42 45 45 46  |LEAN GROUND BEEF|
000006A0: 2C 31 2E 31 39 2C 4D 55  53 48 52 4F 4F 4D 2C 31  |,1.19,MUSHROOM,1|
000006B0: 2E 39 38 00 CB 0E 78 00  83 20 4C 4F 4E 44 4F 4E  |.98...x.. LONDON|
000006C0: 20 42 52 4F 49 4C 2C 31  2E 37 39 00 D5 0E 10 27  | BROIL,1.79....'|
000006D0: 83 20 45 4F 46 00 17 0F  11 27 8F 2A 2A 44 4F 4E  |. EOF....'.**DON|
000006E0: 54 20 45 52 41 53 45 20  53 54 41 54 45 4D 45 4E  |T ERASE STATEMEN|
000006F0: 54 20 31 30 30 30 30 2D  20 20 20 20 20 2A 2A 49  |T 10000-     **I|
00000700: 54 20 4D 45 41 4E 53 20  22 45 4E 44 20 4F 46 20  |T MEANS "END OF |
00000710: 46 49 4C 45 22 2A 2A 00  00 00 24                 |FILE"**...$     |

..!....53280,1:.53281,1:.53272,21.>...."
..":..04)"UNIT PRICES".N...."PLEASE SPEL
L UNIT NAME IN FULL-NO COMMAS"......"EXA
MPLE: EGG EXTRA LARGE AA......***DATA ST
ATEMENT FORM:***.U....***110 DATA GREEN 
ONION,.32 ***.%....**DATA STATEMENTS BEG
IN AT 100.TO    GET BACK INTO PROGRAM,TY
PE:RUN RET.**.K...."FOR DATA STATEMENT F
ORM TYPE:":.:. .11)"RETURN LIST 5-7 RETU
RN".W....:.:.:......."WHAT PRICE DO YOU 
WANT"..................*PROGRAM WRITTEN 
7 MARCH '78 BY*             **MIKE HAGLU
ND**...... F$...... F1$...#.. F1$."EOF" 
. 70./.(.. F1$.F$ . . A:N.N.1:. A ;:.60.
8.2.. 30.B.<.B.A.B.K.A.. 30...F.. N.0 . 
."I DON'T HAVE ANY ";F$;" IN MY DATA BAN
K":."MASTER!!":. 10...J..****STATEMENT #
75 AVRAGES DATA   AND ROUNDS DOWN TO NEA
REST .01****...K.AV.B.N:AV.100.AV:AV..(A
V):AV.AV.100...P..:.:.:..,._.."AVRAGE PR
ICE IS:$";AV.5.C.. 10.E.D.. BLUE CHEESE 
4 OZ,.53,BLUE CHEESE 4 OZ,.53...E.. VEAL
 SHOLDER STEAK,.99,LEAN GROUND BEEF,1.19
...G.. IMITATION PICNIC HAM,.98.V.H.. HE
RRING,.49,RUM 151,2.66...I.. RUDABAGA,.3
9,GREEN ONION,.29,B F MAYO 16 OZ,.89.*.J
.. RADISH,.25,151 RUM,2.66.P.K.. GREEN O
NION,.29,DINNER OUT,7.61.M.L.. EGG EXTRA
 LARGE AA,.69...M.. TURNIP,.39,PEA SOUP,
.39...N.. ASPARG,.89,TANGLO,.49...O.. CH
ICKEN THIGH,1.19,DINNER OUT,10.32,BACON,
1.09...P.. GUAVA JUCE,.98,CHUCK SHOLDER,
.98.Q.Q.. VITAMIN B COMPLEX,5.75,VITAMIN
 A,.85,CALCIUM,1.47,VITAMIN C 500MG.,1.9
9...R.. GUAVA JUCE,.98,BUTTER,1.39,CHUCK
 SHOLDER,.98,LETTUCE,.49...S.. RADISH,.2
9,MUSHROOM,1.98,151 RUM,2.66...T.. DINNE
R OUT,10.44,LONDON BROIL,1.69,LETTUCE,.5
9,MUSHROOM,1.98.'.U.. DINNER OUT,5.06,LO
NDON BROIL,1.59.N.V.. GREEN ONION,.19,MU
SHROOM,1.98,CHICKEN LIVER,.79,YELLOW ONI
ON,.25...W.. CAULIFLOWER,.39,TANGLO,.59,
LEAN GROUND BEEF,1.19,MUSHROOM,1.98.K.X.
. LONDON BROIL,1.79.U..'. EOF....'.**DON
T ERASE STATEMENT 10000-     **IT MEANS 
"END OF FILE"**...$

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL