LEMONADE.C
FILE INFORMATION
FILENAME(S): LEMONADE.C
FILE TYPE(S): PRG
FILE SIZE: 2.2K
FIRST SEEN: 2025-11-30 01:08:22
APPEARS ON: 3 disk(s)
FILE HASH
93eff9769ab0116da678f5a90f85de0737603fd213d7e73946c71e1c1ba51e3d
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FREESOFT DISK NR | LEMONADE.C | PRG | Treasure Chest - Wolfgang Rauprich | 23 | 4 | DOWNLOAD FILE |
| FREESOFT NR | LEMONADE.C | PRG | Treasure Chest - Wolfgang Rauprich | 23 | 4 | DOWNLOAD FILE |
| TPUG DEC 83 C | LEMONADE.C | PRG | DuncanTwain | 24 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 17 08 0A 00 97 35 33 32 38 30 2C 31 3A 97 |.......53280,1:.| 00000010: 35 33 32 38 31 2C 32 00 3B 08 14 00 9C 3A 99 22 |53281,2.;....:."| 00000020: 93 05 20 20 20 20 20 20 12 4C 45 4D 4F 4E 41 44 |.. .LEMONAD| 00000030: 45 20 53 54 41 4E 44 11 11 11 22 00 6B 08 15 00 |E STAND...".k...| 00000040: 99 22 05 41 54 20 4C 45 41 53 54 20 47 45 54 20 |.".AT LEAST GET | 00000050: 24 32 35 30 20 54 59 50 45 44 20 42 59 20 52 41 |$250 TYPED BY RA| 00000060: 56 49 20 50 41 4C 45 50 55 11 22 00 9F 08 1E 00 |VI PALEPU.".....| 00000070: 53 55 B2 2E 31 3A 50 41 B2 31 3A 54 41 B2 2E 35 |SU..1:PA.1:TA..5| 00000080: 3A 43 49 B2 2E 31 3A 43 4F 25 B2 30 3A 44 41 B2 |:CI..1:CO%.0:DA.| 00000090: 37 3A 44 41 24 B2 22 4F 43 54 4F 42 45 52 22 00 |7:DA$."OCTOBER".| 000000A0: BF 08 28 00 81 58 B2 31 A4 36 3A 87 44 24 28 58 |..(..X.1.6:.D$(X| 000000B0: 29 2C 44 28 58 29 2C 54 45 28 58 29 3A 82 58 00 |),D(X),TE(X):.X.| 000000C0: 00 09 2D 00 85 22 48 4F 57 20 4D 41 4E 59 20 50 |..-.."HOW MANY P| 000000D0: 4C 41 59 45 52 53 28 31 2D 31 30 29 20 31 9D 9D |LAYERS(1-10) 1..| 000000E0: 9D 22 3B 47 52 3A 8B 47 52 B3 B1 B5 28 47 52 29 |.";GR:.GR...(GR)| 000000F0: B0 28 47 52 29 B1 31 30 B0 47 52 B3 31 A7 34 35 |.(GR).10.GR.1.45| 00000100: 00 2B 09 32 00 83 20 22 49 54 20 49 53 20 48 4F |.+.2.. "IT IS HO| 00000110: 54 2E 22 2C 39 2C 32 30 2C 22 49 54 20 49 53 20 |T.",9,20,"IT IS | 00000120: 4E 49 43 45 2E 22 2C 37 2C 31 35 00 59 09 3C 00 |NICE.",7,15.Y.<.| 00000130: 83 20 22 49 54 20 49 53 20 43 4C 4F 55 44 59 22 |. "IT IS CLOUDY"| 00000140: 2C 35 2C 31 30 2C 22 49 54 20 49 53 20 52 41 49 |,5,10,"IT IS RAI| 00000150: 4E 49 4E 47 22 2C 33 2C 32 00 8C 09 46 00 83 20 |NING",3,2...F.. | 00000160: 22 49 54 20 49 53 20 53 4E 4F 57 49 4E 47 22 2C |"IT IS SNOWING",| 00000170: 31 2C 2D 31 30 2C 22 49 54 20 49 53 20 56 45 52 |1,-10,"IT IS VER| 00000180: 59 20 48 4F 54 22 2C 31 30 2C 32 35 00 A4 09 50 |Y HOT",10,25...P| 00000190: 00 81 4E B2 31 A4 47 52 3A 54 50 28 4E 29 B2 32 |..N.1.GR:TP(N).2| 000001A0: 30 3A 82 4E 00 BD 09 59 00 8F 3A 20 53 54 41 52 |0:.N...Y..: STAR| 000001B0: 54 20 4F 46 20 45 41 43 48 20 44 41 59 00 CF 09 |T OF EACH DAY...| 000001C0: 5A 00 5A B2 B5 28 BB 28 31 29 AC 36 AA 31 29 00 |Z.Z..(.(1).6.1).| 000001D0: ED 09 64 00 59 B2 B5 28 54 45 28 5A 29 AA 28 28 |..d.Y..(TE(Z).((| 000001E0: BB 28 31 29 AC 38 AB 33 2E 35 29 29 29 00 07 0A |.(1).8.3.5)))...| 000001F0: 65 00 53 55 B2 53 55 AA 28 BB 28 31 29 AD 31 30 |e.SU.SU.(.(1).10| 00000200: 30 AB 2E 30 30 35 29 00 21 0A 66 00 43 49 B2 43 |0..005).!.f.CI.C| 00000210: 49 AA 28 BB 28 31 29 AD 31 30 30 AB 2E 30 30 35 |I.(.(1).100..005| 00000220: 29 00 39 0A 67 00 50 41 B2 50 41 AA 28 BB 28 31 |).9.g.PA.PA.(.(1| 00000230: 29 AD 35 30 AB 2E 30 31 29 00 51 0A 68 00 54 41 |).50..01).Q.h.TA| 00000240: B2 54 41 AA 28 BB 28 31 29 AD 31 30 AB 2E 30 35 |.TA.(.(1).10..05| 00000250: 29 00 5D 0A 69 00 81 4E B2 31 A4 47 52 00 73 0A |).].i..N.1.GR.s.| 00000260: 6A 00 99 22 93 50 4C 41 59 45 54 52 20 23 22 4E |j..".PLAYETR #"N| 00000270: 22 3A 22 00 A1 0A 6B 00 99 22 11 20 20 20 20 20 |":"...k..". | 00000280: 20 20 20 20 20 20 20 12 44 41 54 45 3A 92 20 20 | .DATE:. | 00000290: 20 20 22 44 41 24 3B 44 41 22 2C 31 39 38 32 2E | "DA$;DA",1982.| 000002A0: 22 00 CB 0A 6C 00 99 22 11 20 20 20 20 20 20 20 |"...l..". | 000002B0: 20 20 20 20 20 12 57 45 41 54 48 45 52 3A 92 20 | .WEATHER:. | 000002C0: 20 20 20 20 22 3B 44 24 28 5A 29 00 F7 0A 6D 00 | ";D$(Z)...m.| 000002D0: 99 22 11 20 20 20 20 20 20 20 20 20 20 20 20 12 |.". .| 000002E0: 54 45 4D 50 45 52 41 54 55 52 45 3A 92 20 20 20 |TEMPERATURE:. | 000002F0: 20 22 59 22 43 2E 22 00 25 0B 6E 00 99 22 11 54 | "Y"C.".%.n..".T| 00000300: 48 45 20 50 52 49 43 45 20 4F 46 20 53 55 47 41 |HE PRICE OF SUGA| 00000310: 52 20 20 3A 20 24 22 3B B5 28 50 41 AC 31 30 30 |R : $";.(PA.100| 00000320: 29 AD 31 30 30 00 53 0B 78 00 99 22 54 48 45 20 |).100.S.x.."THE | 00000330: 50 52 49 43 45 20 4F 46 20 4C 45 4D 4F 4E 53 20 |PRICE OF LEMONS | 00000340: 20 3A 20 24 22 3B B5 28 43 49 AC 31 30 30 29 AD | : $";.(CI.100).| 00000350: 31 30 30 00 78 0B 82 00 99 22 54 48 45 20 50 52 |100.x...."THE PR| 00000360: 49 43 45 20 4F 46 20 47 4C 41 53 53 45 53 20 20 |ICE OF GLASSES | 00000370: 3A 20 24 20 2E 30 33 22 00 B1 0B 8C 00 99 22 54 |: $ .03"......"T| 00000380: 48 45 20 50 52 49 43 45 20 4F 46 20 41 44 56 45 |HE PRICE OF ADVE| 00000390: 52 54 49 53 49 4E 47 20 53 49 47 4E 53 20 20 3A |RTISING SIGNS :| 000003A0: 20 24 22 3B B5 28 50 41 AC 31 30 30 29 AD 31 30 | $";.(PA.100).10| 000003B0: 30 00 DF 0B 96 00 99 22 54 48 45 20 4D 55 4E 49 |0......"THE MUNI| 000003C0: 43 49 50 41 4C 20 54 41 58 45 53 20 20 3A 20 24 |CIPAL TAXES : $| 000003D0: 22 3B B5 28 54 41 AC 31 30 30 29 AD 31 30 30 00 |";.(TA.100).100.| 000003E0: 07 0C A0 00 99 22 11 59 4F 55 52 20 4D 4F 4E 45 |.....".YOUR MONE| 000003F0: 59 20 3A 20 24 22 3B B5 28 54 50 28 4E 29 AC 31 |Y : $";.(TP(N).1| 00000400: 30 30 29 AD 31 30 30 00 41 0C AA 00 99 22 11 11 |00).100.A...."..| 00000410: 11 48 4F 57 20 4D 41 4E 59 20 41 44 56 45 52 54 |.HOW MANY ADVERT| 00000420: 49 53 49 4E 47 20 53 49 47 4E 53 20 41 52 45 20 |ISING SIGNS ARE | 00000430: 59 4F 55 20 4D 41 4B 49 4E 47 28 30 2D 31 30 29 |YOU MAKING(0-10)| 00000440: 22 00 4C 0C AB 00 85 42 25 28 4E 29 00 76 0C AF |".L....B%(N).v..| 00000450: 00 8B 42 25 28 4E 29 B3 30 B0 42 25 28 4E 29 B1 |..B%(N).0.B%(N).| 00000460: 31 30 B0 42 25 28 4E 29 B3 B1 B5 28 42 25 28 4E |10.B%(N)...(B%(N| 00000470: 29 29 A7 31 37 30 00 AF 0C B4 00 99 22 11 48 4F |)).170......".HO| 00000480: 57 20 4D 41 4E 59 20 47 4C 41 53 53 45 53 20 4F |W MANY GLASSES O| 00000490: 46 20 4C 45 4D 4F 4E 41 44 45 20 44 4F 20 59 4F |F LEMONADE DO YO| 000004A0: 55 20 57 41 4E 54 20 54 4F 20 4D 41 4B 45 22 00 |U WANT TO MAKE".| 000004B0: BA 0C B5 00 85 41 25 28 4E 29 00 DD 0C B9 00 99 |.....A%(N)......| 000004C0: 3A 8B 41 25 28 4E 29 B3 30 B0 41 25 28 4E 29 B3 |:.A%(N).0.A%(N).| 000004D0: B1 B5 28 41 25 28 4E 29 29 A7 31 38 30 00 1B 0D |..(A%(N)).180...| 000004E0: BE 00 99 22 57 48 41 54 20 50 52 49 43 45 20 44 |..."WHAT PRICE D| 000004F0: 4F 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 43 48 |O YOU WANT TO CH| 00000500: 41 52 47 45 20 50 45 52 20 47 4C 41 53 53 28 49 |ARGE PER GLASS(I| 00000510: 4E 20 44 4F 4C 4C 41 52 53 29 22 00 25 0D BF 00 |N DOLLARS)".%...| 00000520: 85 45 28 4E 29 00 35 0D C3 00 8B 45 28 4E 29 B3 |.E(N).5....E(N).| 00000530: 30 A7 31 39 30 00 78 0D C8 00 41 28 4E 29 B2 B5 |0.190.x...A(N)..| 00000540: 28 28 42 25 28 4E 29 AC 50 41 29 AC 31 30 30 29 |((B%(N).PA).100)| 00000550: AD 31 30 30 3A 42 28 4E 29 B2 B5 28 28 41 25 28 |.100:B(N)..((A%(| 00000560: 4E 29 AC 28 53 55 AA 43 49 AA 2E 30 33 29 29 AC |N).(SU.CI..03)).| 00000570: 31 30 30 29 AD 31 30 30 00 B4 0D D2 00 43 25 28 |100).100.....C%(| 00000580: 4E 29 B2 B5 28 BB 28 31 29 AC 28 42 25 28 4E 29 |N)..(.(1).(B%(N)| 00000590: AD 31 2E 35 29 AA 31 29 AC 28 31 2E 32 AB 45 28 |.1.5).1).(1.2.E(| 000005A0: 4E 29 29 AC 44 28 5A 29 AC 28 28 59 AA 32 35 29 |N)).D(Z).((Y.25)| 000005B0: AD 31 30 29 00 D1 0D D4 00 8B 43 25 28 4E 29 B1 |.10)......C%(N).| 000005C0: 41 25 28 4E 29 A7 43 25 28 4E 29 B2 41 25 28 4E |A%(N).C%(N).A%(N| 000005D0: 29 00 E6 0D D5 00 8B 43 25 28 4E 29 B3 30 A7 43 |)......C%(N).0.C| 000005E0: 25 28 4E 29 B2 30 00 17 0E D7 00 50 52 28 4E 29 |%(N).0.....PR(N)| 000005F0: B2 43 25 28 4E 29 AC 45 28 4E 29 AB 42 28 4E 29 |.C%(N).E(N).B(N)| 00000600: AB 41 28 4E 29 3A 54 50 28 4E 29 B2 54 50 28 4E |.A(N):TP(N).TP(N| 00000610: 29 AA 50 52 28 4E 29 00 28 0E D8 00 8B 54 50 28 |).PR(N).(....TP(| 00000620: 4E 29 B1 30 A7 32 32 30 00 63 0E D9 00 99 22 11 |N).0.220.c....".| 00000630: 11 12 59 4F 55 20 41 52 45 20 56 45 52 59 20 44 |..YOU ARE VERY D| 00000640: 55 4D 42 2E 20 59 4F 55 20 44 4F 4E 27 54 20 48 |UMB. YOU DON'T H| 00000650: 41 56 45 20 45 4E 4F 55 47 48 20 4D 4F 4E 45 59 |AVE ENOUGH MONEY| 00000660: 2E 92 22 00 97 0E DA 00 81 58 B2 31 A4 35 30 30 |.."......X.1.500| 00000670: 30 3A 82 58 3A 54 50 28 4E 29 B2 54 50 28 4E 29 |0:.X:TP(N).TP(N)| 00000680: AB 50 52 28 4E 29 3A 8B 54 50 28 4E 29 B3 32 A7 |.PR(N):.TP(N).2.| 00000690: 54 50 28 4E 29 B2 32 00 A0 0E DB 00 89 31 30 37 |TP(N).2......107| 000006A0: 00 A7 0E DC 00 82 4E 00 BF 0E E0 00 8F 3A 3F 54 |......N......:?T| 000006B0: 48 45 20 44 41 59 27 20 52 45 53 55 4C 54 53 00 |HE DAY' RESULTS.| 000006C0: EB 0E E1 00 81 4E B2 31 A4 47 52 3A 99 22 93 20 |.....N.1.GR:.". | 000006D0: 20 20 52 45 53 55 4C 54 53 20 46 4F 52 20 50 4C | RESULTS FOR PL| 000006E0: 41 59 45 52 20 23 22 4E 22 3A 22 00 1E 0F E6 00 |AYER #"N":".....| 000006F0: 99 22 11 11 11 11 11 54 48 45 20 43 4F 53 54 20 |.".....THE COST | 00000700: 4F 46 20 41 44 56 45 52 54 49 53 49 4E 47 20 53 |OF ADVERTISING S| 00000710: 49 47 4E 53 20 20 20 3A 24 22 41 28 4E 29 00 56 |IGNS :$"A(N).V| 00000720: 0F F0 00 99 22 11 54 48 45 20 43 4F 53 54 20 4F |....".THE COST O| 00000730: 46 22 41 25 28 4E 29 22 47 4C 41 53 53 45 53 20 |F"A%(N)"GLASSES | 00000740: 4F 46 20 4C 45 4D 4F 4E 41 44 45 20 20 3A 20 24 |OF LEMONADE : $| 00000750: 22 3B 42 28 4E 29 00 82 0F FA 00 99 22 11 59 4F |";B(N)......".YO| 00000760: 55 20 53 4F 4C 44 22 43 25 28 4E 29 22 47 4C 41 |U SOLD"C%(N)"GLA| 00000770: 53 53 45 53 20 4F 46 20 4C 45 4D 4F 4E 41 44 45 |SSES OF LEMONADE| 00000780: 2E 22 00 B8 0F 04 01 99 22 11 11 59 4F 55 52 20 |."......"..YOUR | 00000790: 50 52 4F 46 49 54 20 46 4F 52 20 54 4F 44 41 59 |PROFIT FOR TODAY| 000007A0: 20 49 53 20 3A 20 24 22 B5 28 50 52 28 4E 29 AC | IS : $".(PR(N).| 000007B0: 31 30 30 29 AD 31 30 30 00 E8 0F 0E 01 99 22 11 |100).100......".| 000007C0: 11 11 50 52 45 53 53 20 54 48 45 3C 3C 3C 53 50 |..PRESS THE<<<SP| 000007D0: 41 43 45 20 42 41 52 3E 3E 3E 20 54 4F 20 43 4F |ACE BAR>>> TO CO| 000007E0: 4E 54 49 4E 55 45 2E 22 00 FC 0F 18 01 A1 54 24 |NTINUE."......T$| 000007F0: 3A 8B 54 24 B2 22 45 22 A7 35 30 30 00 0D 10 1B |:.T$."E".500....| 00000800: 01 8B 54 24 B3 B1 22 20 22 A7 32 38 30 00 27 10 |..T$.." ".280.'.| 00000810: 21 01 8F 3A 49 4E 43 52 45 41 53 49 4E 47 20 54 |!..:INCREASING T| 00000820: 48 45 20 44 41 54 45 00 40 10 22 01 82 4E 3A 44 |HE DATE.@."..N:D| 00000830: 41 B2 44 41 AA 31 3A 8B 44 41 B3 33 31 A7 39 30 |A.DA.1:.DA.31.90| 00000840: 00 5D 10 2C 01 44 41 B2 31 3A 8B 44 41 24 B3 B1 |.].,.DA.1:.DA$..| 00000850: 22 4F 43 54 4F 42 45 52 22 A7 35 30 30 00 74 10 |"OCTOBER".500.t.| 00000860: 36 01 44 41 24 B2 22 4E 4F 56 45 4D 42 45 52 22 |6.DA$."NOVEMBER"| 00000870: 3A 89 39 30 00 8D 10 F3 01 8F 3A 45 4E 44 20 4F |:.90......:END O| 00000880: 46 20 54 48 45 20 50 52 4F 47 52 41 4D 00 AC 10 |F THE PROGRAM...| 00000890: F4 01 99 22 93 11 12 54 48 45 20 47 41 4D 45 20 |..."...THE GAME | 000008A0: 49 53 20 4F 56 45 52 2E 11 11 11 22 00 EE 10 FE |IS OVER...."....| 000008B0: 01 81 4E B2 31 A4 47 52 3A 99 22 11 54 48 45 20 |..N.1.GR:.".THE | 000008C0: 50 52 4F 46 49 54 20 46 4F 52 20 50 4C 41 59 45 |PROFIT FOR PLAYE| 000008D0: 52 20 23 22 4E 22 49 53 24 22 B5 28 54 50 28 4E |R #"N"IS$".(TP(N| 000008E0: 29 AC 31 30 30 29 AD 31 30 30 22 9D 2E 22 00 F7 |).100).100".."..| 000008F0: 10 08 02 82 4E 3A 80 00 00 00 |....N:.... |
.......53280,1:.53281,2.;....:."..
.LEMONADE STAND...".K....".AT LEAST GET
$250 TYPED BY RAVI PALEPU.".....SU..1:PA
.1:TA..5:CI..1:CO%.0:DA.7:DA$."OCTOBER".
..(..X.1.6:.D$(X),D(X),TE(X):.X...-.."HO
W MANY PLAYERS(1-10) 1...";GR:.GR...(GR)
.(GR).10.GR.1.45.+.2.. "IT IS HOT.",9,20
,"IT IS NICE.",7,15.Y.<.. "IT IS CLOUDY"
,5,10,"IT IS RAINING",3,2...F.. "IT IS S
NOWING",1,-10,"IT IS VERY HOT",10,25...P
..N.1.GR:TP(N).20:.N...Y..: START OF EAC
H DAY.O.Z.Z..(.(1).6.1)...D.Y..(TE(Z).((
.(1).8.3.5)))...E.SU.SU.(.(1).100..005).
!.F.CI.CI.(.(1).100..005).9.G.PA.PA.(.(1
).50..01).Q.H.TA.TA.(.(1).10..05).].I..N
.1.GR.S.J..".PLAYETR #"N":"...K..".
.DATE:. "DA$;DA",1982.".K.L.."
. .WEATHER:. ";D$(Z)...M.
.". .TEMPERATURE:. "Y"C.".
%.N..".THE PRICE OF SUGAR : $";.(PA.100
).100.S.X.."THE PRICE OF LEMONS : $";.(
CI.100).100.X...."THE PRICE OF GLASSES
: $ .03"......"THE PRICE OF ADVERTISING
SIGNS : $";.(PA.100).100......"THE MUNI
CIPAL TAXES : $";.(TA.100).100... ..".Y
OUR MONEY : $";.(TP(N).100).100.A...."..
.HOW MANY ADVERTISING SIGNS ARE YOU MAKI
NG(0-10)".L....B%(N).V....B%(N).0.B%(N).
10.B%(N)...(B%(N)).170......".HOW MANY G
LASSES OF LEMONADE DO YOU WANT TO MAKE".
.....A%(N)......:.A%(N).0.A%(N)...(A%(N)
).180......"WHAT PRICE DO YOU WANT TO CH
ARGE PER GLASS(IN DOLLARS)".%....E(N).5.
C..E(N).0.190.X.H.A(N)..((B%(N).PA).100)
.100:B(N)..((A%(N).(SU.CI..03)).100).100
...R.C%(N)..(.(1).(B%(N).1.5).1).(1.2.E(
N)).D(Z).((Y.25).10).Q.T..C%(N).A%(N).C%
(N).A%(N)...U..C%(N).0.C%(N).0...W.PR(N)
.C%(N).E(N).B(N).A(N):TP(N).TP(N).PR(N).
(.X..TP(N).0.220.C.Y.."...YOU ARE VERY D
UMB. YOU DON'T HAVE ENOUGH MONEY.."...Z.
.X.1.5000:.X:TP(N).TP(N).PR(N):.TP(N).2.
TP(N).2. ....107......N......:?THE DAY'
RESULTS......N.1.GR:.". RESULTS FOR PL
AYER #"N":"......".....THE COST OF ADVER
TISING SIGNS :$"A(N).V....".THE COST O
F"A%(N)"GLASSES OF LEMONADE : $";B(N)..
....".YOU SOLD"C%(N)"GLASSES OF LEMONADE
."......"..YOUR PROFIT FOR TODAY IS : $"
.(PR(N).100).100......"...PRESS THE<<<SP
ACE BAR>>> TO CONTINUE."......T$:.T$."E"
.500......T$.." ".280.'.!..:INCREASING T
HE DATE.@."..N:DA.DA.1:.DA.31.90.].,.DA.
1:.DA$.."OCTOBER".500.T.6.DA$."NOVEMBER"
:.90......:END OF THE PROGRAM......"...T
HE GAME IS OVER...."......N.1.GR:.".THE
PROFIT FOR PLAYER #"N"IS$".(TP(N).100).1
00".."......N:....
> CLICK IMAGE PREVIEW FOR FULL MODAL