RECIPE CONVERTER
FILE INFORMATION
FILENAME(S): RECIPE CONVERTER
FILE TYPE(S): PRG
FILE SIZE: 961b
FIRST SEEN: 2025-11-30 21:23:52
APPEARS ON: 1 disk(s)
FILE HASH
af66e62dea5cc4e764ea2faeab06e0547c49758b68e0291edb887c6dab7aea87
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 SPEL 25 1 | RECIPE CONVERTER | PRG | DuncanTwain | 25 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 21 08 1E 00 86 20 42 24 28 32 35 29 2C 43 |..!.... B$(25),C| 00000010: 24 28 32 35 29 2C 44 28 32 35 29 2C 47 28 32 35 |$(25),D(25),G(25| 00000020: 29 00 57 08 28 00 97 20 35 33 32 38 30 2C 31 34 |).W.(.. 53280,14| 00000030: 3A 97 20 35 33 32 38 31 2C 36 3A 99 20 C7 28 31 |:. 53281,6:. .(1| 00000040: 34 32 29 3A 97 20 35 33 32 36 39 2C 30 3A 97 20 |42):. 53269,0:. | 00000050: 35 34 32 39 36 2C 30 00 63 08 32 00 99 C7 28 31 |54296,0.c.2...(1| 00000060: 34 37 29 00 80 08 4B 00 99 20 A6 38 29 20 22 52 |47)...K.. .8) "R| 00000070: 45 43 49 50 45 20 43 4F 4E 56 45 52 54 45 52 22 |ECIPE CONVERTER"| 00000080: 00 88 08 50 00 99 3A 99 00 B0 08 64 00 85 22 45 |...P..:....d.."E| 00000090: 4E 54 45 52 20 54 48 45 20 4E 41 4D 45 20 4F 46 |NTER THE NAME OF| 000000A0: 20 54 48 49 53 20 52 45 43 49 50 45 22 3B 41 24 | THIS RECIPE";A$| 000000B0: 00 EB 08 6E 00 99 22 48 4F 57 20 4D 41 4E 59 20 |...n.."HOW MANY | 000000C0: 49 4E 47 52 45 44 49 45 4E 54 53 20 28 31 2D 32 |INGREDIENTS (1-2| 000000D0: 35 29 20 41 52 45 22 3A 85 22 49 4E 20 54 48 45 |5) ARE":."IN THE| 000000E0: 20 52 45 43 49 50 45 22 3B 4E 49 00 04 09 73 00 | RECIPE";NI...s.| 000000F0: 8B 20 4E 49 B3 31 20 B0 20 4E 49 B1 32 35 20 A7 |. NI.1 . NI.25 .| 00000100: 20 31 31 30 00 2E 09 78 00 81 20 58 B2 31 20 A4 | 110...x.. X.1 .| 00000110: 20 4E 49 3A 42 24 28 58 29 B2 22 20 22 3A 43 24 | NI:B$(X)." ":C$| 00000120: 28 58 29 B2 22 20 22 3A 44 28 58 29 B2 30 00 50 |(X)." ":D(X).0.P| 00000130: 09 7D 00 8F 20 47 45 54 20 44 41 54 41 20 46 4F |.}.. GET DATA FO| 00000140: 52 20 45 41 43 48 20 49 4E 47 52 45 4D 45 4E 54 |R EACH INGREMENT| 00000150: 00 6F 09 82 00 99 22 45 4E 54 45 52 20 49 4E 47 |.o...."ENTER ING| 00000160: 52 45 44 49 45 4E 54 20 4E 4F 2E 22 3B 58 3B 00 |REDIENT NO.";X;.| 00000170: 7E 09 8C 00 85 22 20 22 3B 42 24 28 58 29 00 A8 |~...." ";B$(X)..| 00000180: 09 96 00 85 22 57 48 41 54 20 55 4E 49 54 20 4F |...."WHAT UNIT O| 00000190: 46 20 4D 45 41 53 55 52 45 20 49 53 20 55 53 45 |F MEASURE IS USE| 000001A0: 44 22 3B 43 24 28 58 29 00 D5 09 A0 00 85 22 57 |D";C$(X)......"W| 000001B0: 48 41 54 20 41 4D 4F 55 4E 54 20 4F 46 20 54 48 |HAT AMOUNT OF TH| 000001C0: 49 53 20 55 4E 49 54 20 49 53 20 55 53 45 44 22 |IS UNIT IS USED"| 000001D0: 3B 44 28 58 29 00 DD 09 AA 00 82 20 58 00 E5 09 |;D(X)...... X...| 000001E0: B4 00 99 3A 99 00 09 0A BE 00 99 22 57 48 41 54 |...:......."WHAT| 000001F0: 20 49 53 20 54 48 45 20 53 55 47 47 45 53 54 45 | IS THE SUGGESTE| 00000200: 44 20 4E 55 4D 42 45 52 22 00 1E 0A C3 00 85 22 |D NUMBER"......"| 00000210: 4F 46 20 53 45 52 56 49 4E 47 53 22 3B 45 00 2E |OF SERVINGS";E..| 00000220: 0A C4 00 8B 20 45 B3 31 20 A7 20 31 38 30 00 36 |.... E.1 . 180.6| 00000230: 0A C8 00 99 3A 99 00 5F 0A D2 00 99 22 54 4F 20 |....:.._...."TO | 00000240: 57 48 41 54 20 4E 55 4D 42 45 52 20 4F 46 20 53 |WHAT NUMBER OF S| 00000250: 45 52 56 49 4E 47 53 20 44 4F 20 59 4F 55 22 00 |ERVINGS DO YOU".| 00000260: 78 0A DC 00 85 22 57 49 53 48 20 54 4F 20 43 4F |x...."WISH TO CO| 00000270: 4E 56 45 52 54 22 3B 46 00 88 0A DD 00 8B 20 46 |NVERT";F...... F| 00000280: B3 31 20 A7 20 32 30 30 00 94 0A E6 00 99 C7 28 |.1 . 200.......(| 00000290: 31 34 37 29 00 9F 0A E9 00 99 A6 39 29 41 24 00 |147).......9)A$.| 000002A0: BD 0A EA 00 8F 20 27 50 52 49 4E 54 20 54 48 45 |..... 'PRINT THE| 000002B0: 20 52 45 43 49 50 45 20 4E 41 4D 45 27 00 C5 0A | RECIPE NAME'...| 000002C0: EB 00 99 3A 99 00 D4 0A F0 00 81 20 59 B2 31 20 |...:....... Y.1 | 000002D0: A4 20 4E 49 00 E8 0A FA 00 47 28 59 29 B2 28 44 |. NI.....G(Y).(D| 000002E0: 28 59 29 AC 46 29 AD 45 00 01 0B FB 00 47 28 59 |(Y).F).E.....G(Y| 000002F0: 29 B2 B5 28 47 28 59 29 AC 31 30 30 29 AD 31 30 |)..(G(Y).100).10| 00000300: 30 00 21 0B FF 00 8F 20 47 28 59 29 20 49 53 20 |0.!.... G(Y) IS | 00000310: 4E 45 57 20 41 4D 4F 55 4E 54 20 4E 45 45 44 45 |NEW AMOUNT NEEDE| 00000320: 44 00 44 0B 04 01 99 22 55 53 45 22 3B 47 28 59 |D.D...."USE";G(Y| 00000330: 29 3B 43 24 28 59 29 3B 22 20 4F 46 20 22 3B 42 |);C$(Y);" OF ";B| 00000340: 24 28 59 29 00 4C 0B 0E 01 82 20 59 00 6D 0B 18 |$(Y).L.... Y.m..| 00000350: 01 99 3A 99 20 22 44 4F 20 59 4F 55 20 57 49 53 |..:. "DO YOU WIS| 00000360: 48 20 54 4F 20 43 4F 4E 56 45 52 54 22 00 8C 0B |H TO CONVERT"...| 00000370: 22 01 85 22 41 4E 4F 54 48 45 52 20 52 45 43 49 |".."ANOTHER RECI| 00000380: 50 45 20 28 59 2F 4E 29 22 3B 43 24 00 9D 0B 2C |PE (Y/N)";C$...,| 00000390: 01 8B 20 43 24 B2 22 59 22 20 A7 20 8A 00 B1 0B |.. C$."Y" . ....| 000003A0: 31 01 8B 20 43 24 B3 B1 22 4E 22 20 A7 20 32 38 |1.. C$.."N" . 28| 000003B0: 30 00 BD 0B 36 01 99 20 22 93 22 3A 80 00 00 00 |0...6.. ".":....| 000003C0: EE |. |
..!.... B$(25),C$(25),D(25),G(25).W.(.. 53280,14:. 53281,6:. G(142):. 53269,0:. 54296,0.C.2..G(147)...K.. .8) "RECIPE CO NVERTER"...P..:....D.."ENTER THE NAME OF THIS RECIPE";A$...N.."HOW MANY INGREDIE NTS (1-25) ARE":."IN THE RECIPE";NI...S. . NI.1 . NI.25 . 110...X.. X.1 . NI:B$(X )." ":C$(X)." ":D(X).0.P.}.. GET DATA FO R EACH INGREMENT.O...."ENTER INGREDIENT NO.";X;.~...." ";B$(X)......"WHAT UNIT O F MEASURE IS USED";C$(X).U. .."WHAT AMOU NT OF THIS UNIT IS USED";D(X)...... X... ...:......."WHAT IS THE SUGGESTED NUMBER "...C.."OF SERVINGS";E...D.. E.1 . 180.6 .H..:.._.R.."TO WHAT NUMBER OF SERVINGS DO YOU".X...."WISH TO CONVERT";F...... F .1 . 200......G(147).......9)A$...... 'P RINT THE RECIPE NAME'.E....:..T.... Y.1 . NI.....G(Y).(D(Y).F).E.....G(Y)..(G(Y) .100).100.!.... G(Y) IS NEW AMOUNT NEEDE D.D...."USE";G(Y);C$(Y);" OF ";B$(Y).L.. .. Y.M....:. "DO YOU WISH TO CONVERT"... ".."ANOTHER RECIPE (Y/N)";C$...,.. C$."Y " . ....1.. C$.."N" . 280...6.. ".":.... .
> CLICK IMAGE PREVIEW FOR FULL MODAL