---- orig/lemonade.bas 2022-05-19 12:51:48.448005822 +1000
-+++ lemonade.bas 2022-05-19 12:57:09.564018765 +1000
-@@ -207,28 +207,46 @@
+--- lemonade.bas 2022-05-19 17:11:25.884056262 +1000
++++ lemonade_patched.bas 2022-05-19 17:15:30.976066141 +1000
+@@ -1,15 +1,5 @@
+ 1LOMEM:14080
+-5GOSUB10000:GOSUB11000:GOSUB16000:GOTO135
+-10REM <<< LEMONADE STAND >>>
+-15REM
+-20REM FROM AN ORIGINAL PROGRAM
+-30REM BY BOB JAMISON, OF THE
+-40REM MINNESOTA EDUCATIONAL
+-50REM COMPUTING CONSORTIUM
+-60REM * * *
+-70REM MODIFIED FOR THE APPLE
+-80REM FEBRUARY, 1979
+-90REM BY CHARLIE KELLNER
++5GOSUB10000:GOSUB11000:GOSUB16000
+ 135DIMA(30),L(30),H(30),B(30),S(30),P(30),G(30)
+ 150P9=10
+ 160S3=.15
+@@ -207,37 +197,38 @@
10110POKE782,208:POKE783,245:POKE784,174:POKE785,0:POKE786,3:POKE787,76:POKE788,2:POKE789,3:POKE790,96:POKE791,0:POKE792,0
10190RETURN
11000REM INTRODUCTION
-11250PRINT"LLLLLLLLLLLL;LL;LL;;;;L;LL;L;LL;LLLLLLLL";
-11260PRINT"LLLLLLLLLLLL;LL;LL;LL;L;LL;L;LL;LLLLLLLL";
-11270PRINT"LLLLLLLL;;;;;LL;LL;;;;L;LL;L;;;;LLLLLLLL";
-+11100TEXT:HOME:GR:COLOR=12:FORI=0TO39:HLIN0,39ATI:NEXT:REM VTAB2
-+11101REM 111111111122222222223333333333
-+11102REM 0123456789012345678901234567890123456789
-+11110REM 2- 3 PRINT";LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL;LLLLL";
-+11120REM 4- 5 PRINT";LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL;LLLLL";
-+11130REM 6- 7 PRINT";LLLL;;;;L;;;;;L;;;;L;;;;L;;;;L;;;;L;;;;";
-+11140REM 8- 9 PRINT";LLLL;LL;L;L;L;L;LL;L;LL;LLLL;L;LL;L;LL;";
-+11150REM 10-11 PRINT";LLLL;;;;L;L;L;L;LL;L;LL;L;;;;L;LL;L;;;;";
-+11160REM 12-13 PRINT";LLLL;LLLL;L;L;L;LL;L;LL;L;LL;L;LL;L;LLL";
-+11170REM 14-15 PRINT";;;;L;;;;L;LLL;L;;;;L;LL;L;;;;L;;;;L;;;;";
-+11171COLOR=11
-+11172VLIN2,15AT0:HLIN 0,3AT14:HLIN0,3AT15:REM L
-+11173HLIN5,8AT6:HLIN5,8AT7:VLIN6,15AT5:VLIN6,11AT8:HLIN5,8AT10:HLIN5,8AT11:HLIN5,8AT14:HLIN5,8AT15:REM e
-+11174HLIN10,14AT6:HLIN10,14AT7:VLIN6,15AT10:VLIN6,13AT12:VLIN6,15AT14:REM m
-+11175HLIN16,19AT6:HLIN16,19AT7:VLIN6,15AT16:VLIN6,15AT19:HLIN16,19AT14:HLIN16,19AT15:REM o
-+11176HLIN21,24AT6:HLIN21,24AT7:VLIN6,15AT21:VLIN6,15AT24:REM n
-+11177HLIN26,29AT6:HLIN26,29AT7:VLIN6,15AT29:HLIN26,29AT10:HLIN26,29AT11:VLIN10,15AT26:HLIN26,29AT14:HLIN26,29AT15:REM a
-+11178VLIN2,15AT34:HLIN31,34AT6:HLIN31,34AT7:VLIN6,15AT31:HLIN31,34AT14:HLIN31,34AT15:REM d
-+11179HLIN36,39AT6:HLIN36,39AT7:VLIN6,15AT36:VLIN6,11AT39:HLIN36,39AT10:HLIN36,39AT11:HLIN36,39AT14:HLIN36,39AT15:REM e
-+11200REM VTAB11
-+11101REM 111111111122222222223333333333
-+11102REM 0123456789012345678901234567890123456789
-+11210REM 20-21 PRINT"LLLLLLLL;;;;;LL;LLLLLLLLLLLLLLL;LLLLLLLL";
-+11220REM 22-23 PRINT"LLLLLLLL;LLLLLL;LLLLLLLLLLLLLLL;LLLLLLLL";
-+11230REM 24-25 PRINT"LLLLLLLL;LLLLL;;;L;;;;L;;;;L;;;;LLLLLLLL";
-+11240REM 26-27 PRINT"LLLLLLLL;;;;;LL;LLLLL;L;LL;L;LL;LLLLLLLL";
-+11250REM 28-29 PRINT"LLLLLLLLLLLL;LL;LL;;;;L;LL;L;LL;LLLLLLLL";
-+11260REM 30-31 PRINT"LLLLLLLLLLLL;LL;LL;LL;L;LL;L;LL;LLLLLLLL";
-+11270REM 32-33 PRINT"LLLLLLLL;;;;;LL;LL;;;;L;LL;L;;;;LLLLLLLL";
-+11271HLIN8,12AT20:HLIN8,12AT21:VLIN20,27AT8:HLIN8,12AT26:HLIN8,12AT27:VLIN26,33AT12:HLIN8,12AT32:HLIN8,12AT33:REM S
-+11272VLIN20,33AT15:HLIN14,16AT24:HLIN14,16AT25:REM t
-+11273HLIN18,21AT24:HLIN18,21AT25:VLIN24,33AT21:HLIN18,21AT28:HLIN18,21AT29:VLIN28,33AT18:HLIN18,21AT32:HLIN18,21AT33:REM a
-+11274HLIN23,26AT24:HLIN23,26AT25:VLIN24,33AT23:VLIN24,33AT26:REM n
-+11275VLIN20,33AT31:HLIN28,31AT24:HLIN28,31AT25:VLIN24,33AT28:HLIN28,31AT32:HLIN28,31AT33:REM d
++11100TEXT:HOME:GR:COLOR=12:FORI=0TO39:HLIN0,39ATI:NEXT:COLOR=11
++11110VLIN2,15AT0:HLIN 0,3AT14:HLIN0,3AT15:REM L
++11120HLIN5,8AT6:HLIN5,8AT7:VLIN6,15AT5:VLIN6,11AT8:HLIN5,8AT10:HLIN5,8AT11:HLIN5,8AT14:HLIN5,8AT15:REM e
++11130HLIN10,14AT6:HLIN10,14AT7:VLIN6,15AT10:VLIN6,13AT12:VLIN6,15AT14:REM m
++11140HLIN16,19AT6:HLIN16,19AT7:VLIN6,15AT16:VLIN6,15AT19:HLIN16,19AT14:HLIN16,19AT15:REM o
++11150HLIN21,24AT6:HLIN21,24AT7:VLIN6,15AT21:VLIN6,15AT24:REM n
++11160HLIN26,29AT6:HLIN26,29AT7:VLIN6,15AT29:HLIN26,29AT10:HLIN26,29AT11:VLIN10,15AT26:HLIN26,29AT14:HLIN26,29AT15:REM a
++11170VLIN2,15AT34:HLIN31,34AT6:HLIN31,34AT7:VLIN6,15AT31:HLIN31,34AT14:HLIN31,34AT15:REM d
++11180HLIN36,39AT6:HLIN36,39AT7:VLIN6,15AT36:VLIN6,11AT39:HLIN36,39AT10:HLIN36,39AT11:HLIN36,39AT14:HLIN36,39AT15:REM e
++11190HLIN8,12AT20:HLIN8,12AT21:VLIN20,27AT8:HLIN8,12AT26:HLIN8,12AT27:VLIN26,33AT12:HLIN8,12AT32:HLIN8,12AT33:REM S
++11200VLIN20,33AT15:HLIN14,16AT24:HLIN14,16AT25:REM t
++11210HLIN18,21AT24:HLIN18,21AT25:VLIN24,33AT21:HLIN18,21AT28:HLIN18,21AT29:VLIN28,33AT18:HLIN18,21AT32:HLIN18,21AT33:REM a
++11220HLIN23,26AT24:HLIN23,26AT25:VLIN24,33AT23:VLIN24,33AT26:REM n
++11230VLIN20,33AT31:HLIN28,31AT24:HLIN28,31AT25:VLIN24,33AT28:HLIN28,31AT32:HLIN28,31AT33:REM d
11280VTAB23:PRINT" COPYRIGHT 1979 APPLE COMPUTER INC."
11300GOSUB11700:FORI=1TO2000:NEXT
-11310POKE33,1:POKE34,9:POKE35,19
-+11310REM POKE33,1:POKE34,9:POKE35,19
11320FORI=39TO7STEP-1:COLOR=15:VLIN18,37ATI:COLOR=12:IFI<39THENVLIN18,36ATI+1
11330COLOR=15:IFI<30THENVLIN18,36ATI+10
-11340COLOR=12:IFI<29THENVLIN18,37ATI+11:POKE32,I+11:VTAB11:HTABI+12:PRINT:READA$:PRINTA$;
-+11340COLOR=12:IFI<29THENVLIN18,37ATI+11:COLOR=11:ONI-6GOSUB11490,11490,11490,11490,11526,11525,11525,11525,11524,11490,11490,11523,11521,11522,11521,11521:REM POKE32,I+11:VTAB11:HTABI+12:PRINT:READA$:PRINTA$;
++11340COLOR=12:IFI<29THENVLIN18,37ATI+11:COLOR=11:ONI-6GOSUB 11490,11490,11490,11490,11496,11495,11495,11495,11494,11490,11490,11493,11491,11492,11491,11491,11490,11490,11490,11490,11490,11490
11350FORJ=14TOI+I:NEXT:NEXT:FORI=1TO1000:NEXT
11360COLOR=13:VLIN14,36AT12:FORI=36TO20STEP-1:HLIN8,16ATI
11370FORJ=1TO50:NEXT:POKE768,I*3-12:POKE769,12:CALL770:NEXT:COLOR=12:VLIN14,19AT12
-@@ -237,7 +255,13 @@
+-11400POKE32,0:POKE33,40:POKE34,20:POKE35,23:VTAB22
+ 11410FORI=1TO4000:NEXT:I=FRE(0)
11490RETURN
++11491VLIN24,25ATI+11:VLIN30,31ATI+11:RETURN:REM c right, mid
++11492VLIN22,25ATI+11:VLIN30,33ATI+11:RETURN:REM c bar
++11493VLIN24,31ATI+11:RETURN:REM c left
++11494VLIN22,23ATI+11:VLIN26,33ATI+11:RETURN:REM 5 right
++11495VLIN22,23ATI+11:VLIN26,27ATI+11:VLIN32,33ATI+11:RETURN:REM 5 mid
++11496VLIN22,27ATI+11:VLIN32,33ATI+11:RETURN:REM 5 left
11500REM DATA
11510DATA96,180,128,60,114,60,128,120,144,60,152,60,128,255,128,60,114,60,85,120,96,60,102,60,114,120,102,60,96,255,0,0
-11520DATA,,,,,,L;LL;,L;LL;,;;LL;;,L;LL;,L;;;;,,,;L;;;;,;L;LL;,;L;LL;,;L;LL;,;;;LL;,,,,,*
-+11520REM DATA,,,,,,L;LL;,L;LL;,;;LL;;,L;LL;,L;;;;,,,;L;;;;,;L;LL;,;L;LL;,;L;LL;,;;;LL;,,,,,*
-+11521VLIN24,25ATI+11:VLIN30,31ATI+11:RETURN:REM L;LL;
-+11522VLIN22,25ATI+11:VLIN30,33ATI+11:RETURN:REM ;;LL;;
-+11523VLIN24,31ATI+11:RETURN:REM L;;;;
-+11524VLIN22,23ATI+11:VLIN26,33ATI+11:RETURN:REM ;L;;;;
-+11525VLIN22,23ATI+11:VLIN26,27ATI+11:VLIN32,33ATI+11:RETURN:REM ;L;LL;
-+11526VLIN22,27ATI+11:VLIN32,33ATI+11:RETURN:REM ;;;LL;
11530DATA96,16,85,4,128,4,96,4,76,4,128,4,96,16,0,0
11540DATA114,120,144,60,114,255,1,120,128,120,144,60,128,120,114,60,144,120,171,255,228,255,0,0
11550DATA152,180,152,120,152,60,144,120,152,60,171,120,192,60,152,255,0,0
-@@ -327,8 +351,9 @@
+@@ -327,8 +318,7 @@
15182IFSC=7THENHTAB15:PRINT" HOT AND DRY ";
15184IFSC=10THENHTAB17:PRINT" CLOUDY ";
15186IFSC=5THENHTAB14:PRINT" THUNDERSTORMS! ";:GOSUB17000
-15200RESTORE
-15210READA$:IFA$<>"*"THEN15210
-+15200REM RESTORE
-+15210REM READA$:IFA$<>"*"THEN15210
-+15211RESTORE11530
++15200RESTORE11530
15220IFSC<>2THEN15300
15230READI,J:IFJ=0THEN15500
15240FORK=1TOJ:POKE768,I:POKE769,10:CALL770
public / applesoft_basic.git / commitdiff