Lemonade Stand for PET original file
Lemonade Stand for PET original file
I'm searching for the original PET version of "Lemonade Stand" so I can use it in a real PET or under emulation. Does anyone know where it is? I cannot find it online anywhere. Thanks.
It was included in the "Green on Black" collection a few years ago but this converted version won't run in a real PET (or at least I cannot get it to run under VICE's PET emulation).
It was included in the "Green on Black" collection a few years ago but this converted version won't run in a real PET (or at least I cannot get it to run under VICE's PET emulation).
Music I've made with 1980s electronics, synths and other retro-instruments: http://theovoids.bandcamp.com
- orion70
- VICtalian
- Posts: 4341
- Joined: Thu Feb 02, 2006 4:45 am
- Location: Piacenza, Italy
- Occupation: Biologist
Re: Lemonade Stand for PET original file
I'm sorry, but currently don't have access to my old work folders due to external HDD destroyed in house relocation two years ago. I did some google, but really couldn't find the program itself (a lot of memories about educational software in late Seventies tho ).
Maybe someone can alter the VIC version to load in a PET? I don't think I modified any POKE there, but I'm not sure.
Maybe someone can alter the VIC version to load in a PET? I don't think I modified any POKE there, but I'm not sure.
Re: Lemonade Stand for PET original file
This is very strange....because the original PET version seems to not be present in any PET/CBM software archive, yet it was "saved" in a slightly altered form, for the VIC-20 "green on black" port.
So it exists, but no longer will run on an original PET.
I think it's important that the original version be archived (or back ported) for posterity.
I try to load "Lemonade" from the D64 image into a PET emulator and it will load but won't even list. Is it a machine language program or something?
So it exists, but no longer will run on an original PET.
I think it's important that the original version be archived (or back ported) for posterity.
I try to load "Lemonade" from the D64 image into a PET emulator and it will load but won't even list. Is it a machine language program or something?
Music I've made with 1980s electronics, synths and other retro-instruments: http://theovoids.bandcamp.com
- orion70
- VICtalian
- Posts: 4341
- Joined: Thu Feb 02, 2006 4:45 am
- Location: Piacenza, Italy
- Occupation: Biologist
Re: Lemonade Stand for PET original file
Nope. It was pure BASIC. I found a copy of the de-tokenized listing, see if it helps:
I used VICE emu's PETCAT. Program info inside "lemonade 1986 by mark d. rejhon" is revealing, as the only Lemonade Stand version with this signature is a late C64 one! So the mystery is solved: I DID NOT work on a PET port .
But maybe someone can create one from this listing...
Code: Select all
30 dimg(10),a1$,a2$,a3$
35 poke36879,13:printchr$(30)
40 print"{clr}{swuc}{dish}"
50 print"{clr}{down}{down}lemonade 1986 by mark d. rejhon."
55 print"{down}vic-20 version 2009 by orion70"
60 print"{down}{down}what is your name";:inputn$
65 ifn$=""orlen(n$)>13thenprint"{clr}":goto50
70 print"{down}{down}"n$", you are going to operate":print"your lemonade stand for 12 weeks."
75 print"{down}your parents agreed to give you $12 to ";
80 print"give you a good start for the summer. ";
85 print"you will have to pay back your $12 at ";
90 print"the end of the summer.":gosub2000
100 print"{clr}":wk=1:goto140
105 print"{clr}{down}"tab(30);"week"wk:print"CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC";
106 print" {CBM-A}DEDEDEDEDEDEDED{CBM-S}"
107 print" T Y total"
108 print" B B kg"
109 print" T lemonade Y l of lemon c."
110 print" B B paper cups"
111 print" T Y"
112 print" {CBM-Z}F{CBM-R}FCFCFCFCFCF{CBM-R}F{CBM-X}"
114 print" B B"
115 print" B B"
116 print" B_{CBM-Y}] B"
117 print" B( ) {rvon}{CBM-H}{CBM-H}{CBM-H}{CBM-H}{CBM-H}{CBM-H}{rvof} B"
118 print" {rvon}{CBM-B}{rvof}EEEEEEEEEEEEE{CBM-B}"
119 print" G{CBM-V}{CBM-G}{CBM-D}B{CBM-C} {CBM-H}{CBM-F}{CBM-V}H B{CBM-V}H"
120 print" {CBM-G}{CBM-G}{CBM-F}{CBM-G} {CBM-F}{CBM-G} {CBM-F}B {CBM-V}{CBM-F}{CBM-D}{CBM-M}"
121 print" G{CBM-F}{CBM-H}{CBM-C}H {CBM-D}B {CBM-F}B {CBM-H}H"
122 print" {CBM-G}G{CBM-D}B{CBM-F}H {CBM-F}B{CBM-F}B{CBM-F}B{CBM-F}{CBM-M}"
130 print"{CBM-+}{CBM-POUND}{CBM-POUND}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-POUND}{CBM-POUND}{CBM-+}{CBM-+}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-+}{CBM-+}{CBM-POUND}{CBM-POUND}{CBM-+}{CBM-+}{CBM-POUND}{CBM-POUND}{CBM-+}{CBM-POUND}{CBM-POUND}{CBM-+}{CBM-+}{CBM-+}{CBM-POUND}{home}"
135 print"{home}{down}{down}{down}{down}"tab(3);n$"'s":return
140 gosub105:m$=" 1200"
145 print"{home}{down}{down}{down}{down}"tab(28)"$ 12.00":printtab(20);s:printtab(20);l:printtab(20);c
150 sp$=str$(110+int(rnd(1)*25))
160 lp$=str$(100+int(rnd(1)*25))
180 cp$=str$(100+int(rnd(1)*25))
190 tf$=str$(int(rnd(1)*40+66))
193 tc$=str$(int((val(tf$)-32)*.56))
194 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}"tab(5)" "
195 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"tab(20);"prediction for"
197 printtab(20)"saturday:{down}":printtab(20)"the temperature"
200 ce=val(mid$(tc$,2,1))
202 iflen(tf$)=3thent=val(mid$(tf$,2,1))*10
204 iflen(tf$)=4thent=90
210 printtab(20)"in the"t"{left}'s f":printtab(26)ce"{left}0's c"
230 gosub940
240 gosub2120
245 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"tab(20);"temperature:{down}"
250 printtab(21);tf$" f":printtab(21);tc$" c":gosub2030
300 print"price for a cup of lemonade -=-=-=-=-=-"
305 print"in cents: --{left}{left}";:g=4:gosub2050:ifg(4)=0org(4)>80thengosub2030:goto300
307 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}"tab(5)g(4)"{left} cents"
310 be$=str$(val(tf$)-57+int(rnd(1)*5)):se$=str$(g(4))
320 f=(val(se$)-val(be$)):ll=val(be$)*3-f:iff>0thenll=ll-val(be$)
321 bl=val(be$)*3:bn$=str$(val(be$)*bl)
322 gosub2030
325 be=0:fora=1toll
326 ifss=0ands=0thenro$="sugar":gosub2150:goto441
328 ifls=0andl=0thenro$="lemon concentrate":gosub2150:goto441
330 ifc=0thenro$="paper cups":gosub2150:goto441
340 ifss=0thens=s-1:ss=25
350 ifls=0thenl=l-1:ls=35
355 ss=ss-1:ls=ls-1:c=c-1:m$=str$(val(m$)+g(g)):be=be+g(g):bc$=str$(be)
360 print"{home}{down}{down}{down}{down}"tab(28)"$"left$(m$,2+len(m$)-4)"."right$(m$,2)" ":printtab(20);s"{left} "
370 printtab(20);l"{left} ":printtab(20);c"{left} "
380 nexta:gosub2030:fora=0to1200:next
385 ifll<1thenll=1
390 print"you made"ll"sales with"g(g)"cents."
400 print"you grossed $"left$(bc$,2+len(bc$)-4)"."right$(bc$,2)" .";
410 fora=0to6500:next:gosub2030:fora=0to500:next
415 ifval(bn$)>val(bc$)thenprint"you would have grossed $"left$(bn$,2+len(bn$)-4)".";
417 ifval(bn$)>val(bc$)thenprintright$(bn$,2)" if you":print"have charged"be$;
420 ifval(bn$)>val(bc$)thenprint" cents.":goto440
425 gosub2030:printg(4)"cents was the best price for today."
430 print"you're a good {rvon} businessman {rvof}."
435 tc=1:fora=1to130:foraa=56230to56242:pokeaa,tc:next:tc=tc+1:iftc=16thentc=1
437 next:goto441
440 fora=0to6500:next
441 ifwk=12then2200
442 wk=wk+1:print"{home}{down}"tab(30)"week"wk:gosub2120:gosub2030
445 goto150
900 end
940 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}a 5 kg package of sugar costs $";
955 printleft$(sp$,2+len(sp$)-4)"."right$(sp$,2)
965 print"how many do you want to buy? ";:g=1:gosub2050
970 ifval(sp$)*g(1)>val(m$)thengosub2030:print"you don't have enough for"g(1)
973 ifval(sp$)*g(1)>val(m$)thenprint"5 kg packages of sugar.":fora=0to6000:next
975 ifval(sp$)*g(1)>val(m$)thengosub2030:goto940
980 m$=str$(val(m$)-(val(sp$)*g(1)))
985 print"{home}{down}{down}{down}{down}"tab(28);"$"left$(m$,2+len(m$)-4)"."right$(m$,2)" "
990 s=s+g(1)*5:printtab(20);s"":gosub2030
1000 print"a 1l bottle of lemon concentrate costs"
1005 print"$"left$(lp$,2+len(lp$)-4)"."right$(lp$,2)" how many do you want to ";
1010 print"buy? ";:g=2:gosub2050
1015 ifval(lp$)*g(2)>val(m$)thengosub2030:print"you don't have enough for"g(2)
1020 ifval(lp$)*g(2)>val(m$)thenprint"1l bottles of lemon concentrate.":fora=0to6000:next
1025 ifval(lp$)*g(2)>val(m$)thengosub2030:goto1000
1030 m$=str$(val(m$)-(val(lp$)*g(2)))
1035 print"{home}{down}{down}{down}{down}"tab(28);"$"left$(m$,2+len(m$)-4)"."right$(m$,2)" {down}"
1040 l=l+g(2):printtab(20);l"":gosub2030
1045 print"a package of 100 paper cups costs"
1050 print"$"left$(cp$,2+len(cp$)-4)"."right$(cp$,2)" how many do you want? ";
1053 g=3:gosub2050
1055 ifval(cp$)*g(3)>val(m$)thengosub2030:print"you don't have enough for"g(3)
1060 ifval(cp$)*g(3)>val(m$)thenprint"packages of 100 paper cups.":fora=0to6000:next
1065 ifval(cp$)*g(3)>val(m$)thengosub2030:goto1045
1070 m$=str$(val(m$)-(val(cp$)*g(3)))
1075 print"{home}{down}{down}{down}{down}"tab(28);"$"left$(m$,2+len(m$)-4)"."right$(m$,2)" {down}{down}"
1080 c=c+(g(3)*100):printtab(20);c"":gosub2030:return
1995 end
2000 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rvon} press spacebar to continue "
2010 geta$:ifa$<>" "then2010
2020 return
2030 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down} "
2035 print" "
2040 print" {up}{up}{up}{up}";:print:return
2050 geta1$:ifa1$=""then2050
2053 ifasc(a1$)<48orasc(a1$)>57then2050
2060 printa1$;
2065 geta2$:ifa2$=""then2065
2067 ifa2$=chr$(20)thenprintchr$(20);:a1$="":a2$="":goto2050
2070 ifa2$=chr$(13)thena2$="":goto2110
2075 ifasc(a2$)<48orasc(a2$)>57then2065
2080 printa2$;
2090 geta3$:ifa3$=""then2090
2095 ifa3$=chr$(20)thenprintchr$(20);:a2$="":a3$="":goto2065
2100 ifa3$=chr$(13)thena3$="":goto2110
2105 goto2090
2110 g(g)=val(a1$+a2$):a1$="":a2$="":a3$="":return
2120 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}";:fora=1to6:printtab(20);" ":next:return
2150 gosub2030:fora=0to1200:next:print"you would have made $";:wm$=str$(ll*g(4))
2160 printleft$(wm$,2+len(wm$)-4)"."right$(wm$,2)" if you ":print"hadn't run out of ";
2170 printro$".":fora=0to6650:next:return
2200 fora=0to600:next:print"{clr}{down}"
2210 print"the summer is over. you have made"
2215 print
2220 print"$"left$(m$,2+len(m$)-4)"."right$(m$,2)". ";
2230 print"you owe your parents $12 so":print:print"you ";
2240 print"keep $";:m$=str$(val(m$)-1200):printleft$(m$,2+len(m$)-4)"."right$(m$,2)".";
2250 print" you have"s"kg of":print:print"sugar and"l"bottles of lemon":print
2260 print"concentrate and"c"paper cups left"
2270 print:print"over.":gosub2000
2280 print"{clr}{down}{down}play again?"
2290 getp$:ifp$="y"thenrun
2300 ifp$="n"thenprint"{clr}goodbye!":end
2310 goto2290
But maybe someone can create one from this listing...
- Schema
- factor
- Posts: 1430
- Joined: Tue Mar 23, 2004 7:07 am
- Website: http://www.jammingsignal.com
- Location: Toronto, Ontario
Re: Lemonade Stand for PET original file
Was it published in Cursor Magazine? I finally, finally got a working copy of the all the Cursor disks which had a ton of classic PET games. I can look and see if Lemonade Stand was among them.
Re: Lemonade Stand for PET original file
Hey Schema, did you get these Cursor disks online somewhere? Can they be downloaded?
Music I've made with 1980s electronics, synths and other retro-instruments: http://theovoids.bandcamp.com
- Schema
- factor
- Posts: 1430
- Joined: Tue Mar 23, 2004 7:07 am
- Website: http://www.jammingsignal.com
- Location: Toronto, Ontario
Re: Lemonade Stand for PET original file
I pieced them together from a mishmash of sources. You'll see the first few disks are glommed together, but here you go:
https://www.dropbox.com/s/qzl4t66c2u36snu/Cursor.zip
Edit: I didn't find Lemonade Stand after a brief scan of the directories, but it's a great archive and maybe it's under a different name.
https://www.dropbox.com/s/qzl4t66c2u36snu/Cursor.zip
Edit: I didn't find Lemonade Stand after a brief scan of the directories, but it's a great archive and maybe it's under a different name.
Re: Lemonade Stand for PET original file
Thanks Schema,
I hadn't seen the game JOUST! since my Mom used to bring home her school's PET computer on weekends!
I had two PETs around 1999-2001 but stupidly gave one away and sold the other. However, the VIC emulator is pretty good.
Orion, is there any way to re-tokenize the BASIC listing above so I can use it the PET emulator?
I hadn't seen the game JOUST! since my Mom used to bring home her school's PET computer on weekends!
I had two PETs around 1999-2001 but stupidly gave one away and sold the other. However, the VIC emulator is pretty good.
Orion, is there any way to re-tokenize the BASIC listing above so I can use it the PET emulator?
Music I've made with 1980s electronics, synths and other retro-instruments: http://theovoids.bandcamp.com
- orion70
- VICtalian
- Posts: 4341
- Joined: Thu Feb 02, 2006 4:45 am
- Location: Piacenza, Italy
- Occupation: Biologist
Re: Lemonade Stand for PET original file
Honestly, I tried to, but it creates (re-creates) a PRG only readable by C64 and VIC20. Maybe some PETCAT option I don't get?
Re: Lemonade Stand for PET original file
The trick is to open the .prg in a hex editor and change the second byte from 08 to 04 then it'll load in the VICE PET emulator.
Here's the converted file: PET lemonade stand
Here's the converted file: PET lemonade stand
Ray..
- orion70
- VICtalian
- Posts: 4341
- Joined: Thu Feb 02, 2006 4:45 am
- Location: Piacenza, Italy
- Occupation: Biologist
Re: Lemonade Stand for PET original file
thank you!
Re: Lemonade Stand for PET original file
Hi guys,
I just received my copy of the Toronto PET Users Group library CD (purchased from eBay & shipped by Schema). It has an original, unadulterated version of "Lemonade!" for the PET computer (40 column) with sound and an intro screen with music. Although it's similar to the version we've been discussing here, the graphics, layout and in-game phrasing are significantly different.
It's on a disk image labelled "(o)e9.d64".
I just received my copy of the Toronto PET Users Group library CD (purchased from eBay & shipped by Schema). It has an original, unadulterated version of "Lemonade!" for the PET computer (40 column) with sound and an intro screen with music. Although it's similar to the version we've been discussing here, the graphics, layout and in-game phrasing are significantly different.
It's on a disk image labelled "(o)e9.d64".
Music I've made with 1980s electronics, synths and other retro-instruments: http://theovoids.bandcamp.com