/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / bbc / progs / go / !Go / Demo / ICES

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 9b f4 20 49 43 | 45 43 52 45 41 4d 20 42 |..... IC|ECREAM B|
|00000010| 79 20 52 2e 46 2e 42 6c | 6f 6f 64 77 6f 72 74 68 |y R.F.Bl|oodworth|
|00000020| 20 31 39 38 33 52 65 76 | 69 73 65 64 20 26 20 72 | 1983Rev|ised & r|
|00000030| 65 6e 61 6d 65 64 20 49 | 43 45 53 20 4a 75 6e 20 |enamed I|CES Jun |
|00000040| 38 35 2c 20 77 69 74 68 | 20 73 65 61 20 73 6f 75 |85, with| sea sou|
|00000050| 6e 64 73 20 66 72 6f 6d | 20 42 42 43 20 4d 69 63 |nds from| BBC Mic|
|00000060| 72 6f 20 4c 69 76 65 20 | 70 72 6f 67 72 61 6d 2e |ro Live |program.|
|00000070| 20 32 6e 64 20 72 65 76 | 69 73 69 6f 6e 20 4f 63 | 2nd rev|ision Oc|
|00000080| 74 20 38 35 2e 20 33 72 | 64 20 72 65 76 69 73 69 |t 85. 3r|d revisi|
|00000090| 6f 6e 20 4a 75 6e 65 20 | 38 36 2e 0d 00 14 22 5a |on June |86...."Z|
|000000a0| 3d b3 28 2d 91 29 3a eb | 37 3a ef 32 33 3b 38 32 |=.(-.):.|7:.23;82|
|000000b0| 30 32 3b 30 3b 30 3b 30 | 3b 3a ee 85 f9 0d 00 1e |02;0;0;0|;:......|
|000000c0| 0a 2a 46 58 32 31 30 0d | 00 28 7e db 3a f2 54 3a |.*FX210.|.(~.:.T:|
|000000d0| f1 8a 31 30 2c 34 29 22 | 82 42 79 20 52 2e 46 2e |..10,4)"|.By R.F.|
|000000e0| 42 6c 6f 6f 64 77 6f 72 | 74 68 22 3a f2 44 28 22 |Bloodwor|th":.D("|
|000000f0| 84 44 4f 20 59 4f 55 20 | 57 41 4e 54 20 49 4e 53 |.DO YOU |WANT INS|
|00000100| 54 52 55 43 54 49 4f 4e | 53 3f 22 2c 36 2c 31 31 |TRUCTION|S?",6,11|
|00000110| 29 3a f2 44 28 22 84 28 | 50 72 65 73 73 20 59 20 |):.D(".(|Press Y |
|00000120| 6f 72 20 4e 29 22 2c 31 | 31 2c 31 34 29 3a f5 47 |or N)",1|1,14):.G|
|00000130| 3d a5 3a fd 47 3d 37 38 | 84 47 3d 38 39 3a e7 47 |=.:.G=78|.G=89:.G|
|00000140| 3d 38 39 f2 49 0d 00 32 | b9 db 3a f2 54 3a f2 44 |=89.I..2|..:.T:.D|
|00000150| 28 22 86 48 4f 57 20 4d | 41 4e 59 20 50 4c 41 59 |(".HOW M|ANY PLAY|
|00000160| 45 52 53 20 28 32 2d 35 | 29 3f 22 2c 37 2c 31 31 |ERS (2-5|)?",7,11|
|00000170| 29 3a f5 50 25 3d a5 2d | 34 38 3a fd 50 25 3e 31 |):.P%=.-|48:.P%>1|
|00000180| 80 50 25 3c 36 3a f2 41 | 3a db 3a f2 54 3a f1 27 |.P%<6:.A|:.:.T:.'|
|00000190| 27 22 45 4e 54 45 52 20 | 54 48 45 20 50 4c 41 59 |'"ENTER |THE PLAY|
|000001a0| 45 52 53 20 4e 41 4d 45 | 53 28 39 20 6c 65 74 74 |ERS NAME|S(9 lett|
|000001b0| 65 72 73 20 6d 61 78 2e | 29 22 3a e3 50 3d 31 b8 |ers max.|)":.P=1.|
|000001c0| 50 25 3a f1 27 27 3b 50 | 22 29 83 22 3b 3a 4e 24 |P%:.'';P|").";:N$|
|000001d0| 28 50 29 3d a4 49 28 b9 | 2c 30 2c b9 2c 22 41 42 |(P)=.I(.|,0,.,"AB|
|000001e0| 43 44 45 46 47 48 49 4a | 4b 4c 4d 4e 4f 50 51 52 |CDEFGHIJ|KLMNOPQR|
|000001f0| 53 54 55 56 57 58 59 5a | 22 2c 39 29 3a ed 0d 00 |STUVWXYZ|",9):...|
|00000200| 3c 55 db 3a f2 54 3a f2 | 44 28 22 84 44 4f 20 59 |<U.:.T:.|D(".DO Y|
|00000210| 4f 55 20 57 41 4e 54 20 | 54 48 45 20 53 45 41 20 |OU WANT |THE SEA |
|00000220| 53 4f 55 4e 44 53 20 28 | 59 2f 4e 29 3f 22 2c 32 |SOUNDS (|Y/N)?",2|
|00000230| 2c 31 31 29 3a f5 47 3d | a5 3a fd 47 3d 37 38 84 |,11):.G=|.:.G=78.|
|00000240| 47 3d 38 39 3a e7 47 3d | 37 38 8c 2a 46 58 32 31 |G=89:.G=|78.*FX21|
|00000250| 30 2c 31 0d 00 46 96 db | 3a f2 54 3a f2 44 28 22 |0,1..F..|:.T:.D("|
|00000260| 84 48 4f 57 20 4d 41 4e | 59 20 44 41 59 53 20 50 |.HOW MAN|Y DAYS P|
|00000270| 4c 41 59 3f 22 2c 39 2c | 31 31 29 3a f2 44 28 22 |LAY?",9,|11):.D("|
|00000280| 84 28 31 2d 31 34 20 26 | 20 74 68 65 6e 20 70 72 |.(1-14 &| then pr|
|00000290| 65 73 73 20 52 45 54 55 | 52 4e 29 22 2c 36 2c 31 |ess RETU|RN)",6,1|
|000002a0| 34 29 3a f1 8a 30 2c 31 | 37 29 3b 3a f5 44 25 3d |4):..0,1|7);:.D%=|
|000002b0| bb a4 49 28 b9 2c 30 2c | b9 2c 22 31 32 33 34 35 |..I(.,0,|.,"12345|
|000002c0| 36 37 38 39 30 22 2c 32 | 29 3a f1 8a 30 2c 31 37 |67890",2|):..0,17|
|000002d0| 29 89 35 3a fd 44 25 3e | 30 80 44 25 3c 31 35 3a |).5:.D%>|0.D%<15:|
|000002e0| db 3a f2 50 3a f2 45 3a | f9 0d 00 50 90 dd f2 41 |.:.P:.E:|...P...A|
|000002f0| 3a de 43 28 50 25 29 2c | 41 28 50 25 29 2c 54 28 |:.C(P%),|A(P%),T(|
|00000300| 50 25 29 2c 74 28 50 25 | 29 2c 42 28 50 25 29 2c |P%),t(P%|),B(P%),|
|00000310| 45 28 50 25 29 2c 53 28 | 50 25 29 2c 52 28 50 25 |E(P%),S(|P%),R(P%|
|00000320| 29 2c 46 28 50 25 29 2c | 73 28 50 25 29 2c 61 28 |),F(P%),|s(P%),a(|
|00000330| 50 25 29 2c 4e 24 28 50 | 25 29 3a 53 25 3d b3 28 |P%),N$(P|%):S%=.(|
|00000340| 34 29 3a e3 50 3d 31 b8 | 50 25 3a 43 28 50 29 3d |4):.P=1.|P%:C(P)=|
|00000350| 34 30 3a 41 28 50 29 3d | 30 3a 54 28 50 29 3d 30 |40:A(P)=|0:T(P)=0|
|00000360| 3a 45 28 50 29 3d 30 3a | 53 28 50 29 3d 30 3a 46 |:E(P)=0:|S(P)=0:F|
|00000370| 28 50 29 3d 30 3a ed 3a | e1 0d 00 5a 2b dd f2 54 |(P)=0:.:|...Z+..T|
|00000380| 3a f2 44 28 22 91 9d 83 | 49 20 43 20 45 20 20 20 |:.D("...|I C E   |
|00000390| 43 20 52 20 45 20 41 20 | 4d 20 20 9c 22 2c 38 2c |C R E A |M  .",8,|
|000003a0| 30 29 3a e1 0d 00 64 2d | dd f2 44 28 58 24 2c 58 |0):...d-|..D(X$,X|
|000003b0| 2c 59 29 3a f1 8a 58 2d | 31 2c 59 29 22 8d 22 58 |,Y):..X-|1,Y)"."X|
|000003c0| 24 8a 58 2d 31 2c 59 2b | 31 29 22 8d 22 58 24 3a |$.X-1,Y+|1)"."X$:|
|000003d0| e1 0d 00 6e d6 dd f2 49 | 3a db 3a f2 54 3a f1 8a |...n...I|:.:.T:..|
|000003e0| 32 2c 34 29 22 54 48 49 | 53 20 49 53 20 41 20 47 |2,4)"THI|S IS A G|
|000003f0| 41 4d 45 20 46 4f 52 20 | 32 20 54 4f 20 35 20 50 |AME FOR |2 TO 5 P|
|00000400| 45 52 53 4f 4e 53 2e 22 | 27 27 22 45 41 43 48 20 |ERSONS."|''"EACH |
|00000410| 50 4c 41 59 45 52 20 48 | 41 53 20 41 4e 20 49 43 |PLAYER H|AS AN IC|
|00000420| 45 5f 43 52 45 41 4d 20 | 4b 49 4f 53 4b 20 41 54 |E_CREAM |KIOSK AT|
|00000430| 20 20 20 57 48 49 54 45 | 53 41 4e 44 53 20 42 41 |   WHITE|SANDS BA|
|00000440| 59 2c 20 53 54 2e 44 41 | 56 49 44 53 20 26 20 54 |Y, ST.DA|VIDS & T|
|00000450| 52 49 45 53 20 54 4f 22 | 27 22 53 45 4c 4c 20 48 |RIES TO"|'"SELL H|
|00000460| 49 53 20 43 4f 4e 45 53 | 20 43 4f 4d 50 45 54 49 |IS CONES| COMPETI|
|00000470| 54 49 56 45 4c 59 20 54 | 4f 20 4d 41 4b 45 22 27 |TIVELY T|O MAKE"'|
|00000480| 22 41 20 50 52 4f 46 49 | 54 2e 20 59 4f 55 20 53 |"A PROFI|T. YOU S|
|00000490| 54 41 52 54 20 54 48 45 | 20 47 41 4d 45 20 57 49 |TART THE| GAME WI|
|000004a0| 54 48 20 60 34 30 22 0d | 00 78 c3 f1 22 45 41 43 |TH `40".|.x.."EAC|
|000004b0| 48 20 54 4f 20 42 55 59 | 20 54 55 42 53 20 4f 46 |H TO BUY| TUBS OF|
|000004c0| 20 49 43 45 43 52 45 41 | 4d 20 46 52 4f 4d 20 54 | ICECREA|M FROM T|
|000004d0| 48 45 20 20 20 57 48 4f | 4c 45 53 41 4c 45 52 20 |HE   WHO|LESALER |
|000004e0| 26 20 48 41 56 45 20 41 | 44 45 51 55 41 54 45 20 |& HAVE A|DEQUATE |
|000004f0| 43 4f 4e 45 53 2e 22 27 | 27 22 57 41 54 43 48 20 |CONES."'|'"WATCH |
|00000500| 54 48 45 20 57 45 41 54 | 48 45 52 20 46 4f 52 45 |THE WEAT|HER FORE|
|00000510| 43 41 53 54 53 20 26 20 | 54 49 4d 45 20 4f 46 20 |CASTS & |TIME OF |
|00000520| 20 20 59 45 41 52 20 54 | 4f 20 45 53 54 49 4d 41 |  YEAR T|O ESTIMA|
|00000530| 54 45 20 59 4f 55 52 20 | 50 52 4f 42 41 42 4c 45 |TE YOUR |PROBABLE|
|00000540| 20 53 54 4f 43 4b 22 27 | 22 52 45 51 55 49 52 45 | STOCK"'|"REQUIRE|
|00000550| 4d 45 4e 54 53 2e 20 59 | 4f 55 20 4d 41 59 20 41 |MENTS. Y|OU MAY A|
|00000560| 44 56 45 52 54 49 53 45 | 2e 22 0d 00 82 db f1 27 |DVERTISE|.".....'|
|00000570| 22 59 4f 55 52 20 41 43 | 43 4f 55 4e 54 53 20 57 |"YOUR AC|COUNTS W|
|00000580| 49 4c 4c 20 49 4e 43 4c | 55 44 45 20 41 4e 20 4f |ILL INCL|UDE AN O|
|00000590| 56 45 52 48 45 41 44 53 | 20 43 48 41 52 47 45 20 |VERHEADS| CHARGE |
|000005a0| 54 4f 20 43 4f 56 45 52 | 20 53 49 54 45 20 52 45 |TO COVER| SITE RE|
|000005b0| 4e 54 41 4c 2c 20 43 4f | 53 54 53 20 4f 46 20 20 |NTAL, CO|STS OF  |
|000005c0| 20 46 52 45 45 5a 45 52 | 2c 20 43 4f 4e 45 20 52 | FREEZER|, CONE R|
|000005d0| 45 50 4c 41 43 45 4d 45 | 4e 54 20 26 20 4d 49 53 |EPLACEME|NT & MIS|
|000005e0| 43 2e 49 54 45 4d 53 2e | 22 3a f2 53 3a f2 44 28 |C.ITEMS.|":.S:.D(|
|000005f0| 22 91 9d 83 50 52 45 53 | 53 20 41 4e 59 20 4b 45 |"...PRES|S ANY KE|
|00000600| 59 20 54 4f 20 43 4f 4e | 54 49 4e 55 45 20 20 9c |Y TO CON|TINUE  .|
|00000610| 22 2c 34 2c 32 32 29 3a | 47 3d a5 3a db 3a f2 54 |",4,22):|G=.:.:.T|
|00000620| 3a f1 8a 30 2c 34 29 22 | 49 46 20 59 4f 55 20 45 |:..0,4)"|IF YOU E|
|00000630| 58 43 45 45 44 20 59 4f | 55 52 20 43 41 53 48 20 |XCEED YO|UR CASH |
|00000640| 49 4e 20 22 3b 0d 00 8c | e2 f1 22 48 41 4e 44 20 |IN ";...|.."HAND |
|00000650| 41 54 20 41 4e 59 20 20 | 53 54 41 47 45 2c 20 41 |AT ANY  |STAGE, A|
|00000660| 4e 20 4f 56 45 52 44 52 | 41 46 54 20 46 45 45 20 |N OVERDR|AFT FEE |
|00000670| 57 49 4c 4c 20 42 45 20 | 4c 45 56 49 45 44 2e 22 |WILL BE |LEVIED."|
|00000680| 27 27 22 54 48 45 20 57 | 49 4e 4e 45 52 20 49 53 |''"THE W|INNER IS|
|00000690| 20 54 48 45 20 50 4c 41 | 59 45 52 20 57 48 4f 20 | THE PLA|YER WHO |
|000006a0| 4d 41 4b 45 53 20 54 48 | 45 20 20 4d 4f 53 54 20 |MAKES TH|E  MOST |
|000006b0| 50 52 4f 46 49 54 20 4f | 56 45 52 20 54 48 45 20 |PROFIT O|VER THE |
|000006c0| 46 55 4c 4c 20 44 55 52 | 41 54 49 4f 4e 20 4f 46 |FULL DUR|ATION OF|
|000006d0| 20 20 20 54 48 45 20 47 | 41 4d 45 2e 22 3a f2 44 |   THE G|AME.":.D|
|000006e0| 28 22 47 4f 4f 44 20 4c | 55 43 4b 21 21 22 2c 31 |("GOOD L|UCK!!",1|
|000006f0| 34 2c 31 32 29 3a f1 8a | 30 2c 31 36 29 22 4e 2e |4,12):..|0,16)"N.|
|00000700| 42 2e 54 48 45 20 4c 4f | 43 41 4c 20 48 45 41 4c |B.THE LO|CAL HEAL|
|00000710| 54 48 20 41 55 54 48 4f | 52 49 54 59 20 57 49 4c |TH AUTHO|RITY WIL|
|00000720| 4c 20 4c 45 54 22 3b 0d | 00 96 9f f1 22 20 59 4f |L LET";.|...." YO|
|00000730| 55 20 53 54 4f 52 45 20 | 4f 56 45 52 4e 49 47 48 |U STORE |OVERNIGH|
|00000740| 54 20 55 4e 4f 50 45 4e | 45 44 20 54 55 42 53 20 |T UNOPEN|ED TUBS |
|00000750| 4f 4e 4c 59 2c 20 53 4f | 20 54 52 59 20 4e 4f 54 |ONLY, SO| TRY NOT|
|00000760| 20 54 4f 20 4f 56 45 52 | 5f 4f 52 44 45 52 2e 20 | TO OVER|_ORDER. |
|00000770| 49 54 20 43 4f 55 4c 44 | 20 43 4f 53 54 20 59 4f |IT COULD| COST YO|
|00000780| 55 20 55 50 20 54 4f 20 | 39 35 25 20 4f 46 20 54 |U UP TO |95% OF T|
|00000790| 55 42 20 43 4f 53 54 21 | 22 3a f2 44 28 22 91 9d |UB COST!|":.D("..|
|000007a0| 83 50 52 45 53 53 20 41 | 4e 59 20 4b 45 59 20 54 |.PRESS A|NY KEY T|
|000007b0| 4f 20 50 4c 41 59 20 20 | 9c 22 2c 36 2c 32 32 29 |O PLAY  |.",6,22)|
|000007c0| 3a 47 3d a5 3a e1 0d 00 | a0 93 dd f2 50 3a e3 44 |:G=.:...|....P:.D|
|000007d0| 3d 31 b8 44 25 3a f2 54 | 3a f1 8a 31 36 2c 33 29 |=1.D%:.T|:..16,3)|
|000007e0| 22 82 44 41 59 20 22 3b | 44 3a 57 25 3d b3 28 34 |".DAY ";|D:W%=.(4|
|000007f0| 29 3a e7 53 25 3d 31 53 | 24 3d 22 84 57 49 4e 54 |):.S%=1S|$=".WINT|
|00000800| 45 52 22 3a 4c 3d 31 30 | 3a 57 25 3d 57 25 2d 31 |ER":L=10|:W%=W%-1|
|00000810| 3a 8b e7 53 25 3d 32 53 | 24 3d 22 82 53 50 52 49 |:..S%=2S|$=".SPRI|
|00000820| 4e 47 22 3a 4c 3d 35 30 | 3a 8b e7 53 25 3d 33 53 |NG":L=50|:..S%=3S|
|00000830| 24 3d 22 85 41 55 54 55 | 4d 4e 22 3a 4c 3d 37 35 |$=".AUTU|MN":L=75|
|00000840| 3a 8b e7 53 25 3d 34 53 | 24 3d 22 83 53 55 4d 4d |:..S%=4S|$=".SUMM|
|00000850| 45 52 22 3a 4c 3d 32 30 | 30 0d 00 aa 4b e7 57 25 |ER":L=20|0...K.W%|
|00000860| 3d 30 57 24 3d 22 87 53 | 4e 4f 57 22 8b e7 57 25 |=0W$=".S|NOW"..W%|
|00000870| 3d 31 57 24 3d 22 84 52 | 41 49 4e 22 8b e7 57 25 |=1W$=".R|AIN"..W%|
|00000880| 3d 32 57 24 3d 22 86 43 | 4c 4f 55 44 59 22 8b e7 |=2W$=".C|LOUDY"..|
|00000890| 57 25 3d 33 84 57 25 3d | 34 57 24 3d 22 83 53 55 |W%=3.W%=|4W$=".SU|
|000008a0| 4e 4e 59 22 0d 00 b4 73 | f2 44 28 22 86 53 45 41 |NNY"...s|.D(".SEA|
|000008b0| 53 4f 4e 22 2b c4 31 38 | 2c 22 20 22 29 2b 53 24 |SON"+.18|," ")+S$|
|000008c0| 2c 32 2c 36 29 3a f2 44 | 28 22 86 57 45 41 54 48 |,2,6):.D|(".WEATH|
|000008d0| 45 52 20 46 4f 52 45 43 | 41 53 54 22 2b c4 38 2c |ER FOREC|AST"+.8,|
|000008e0| 22 20 22 29 2b 57 24 2c | 32 2c 31 32 29 3a 5a 25 |" ")+W$,|2,12):Z%|
|000008f0| 3d b3 28 33 30 29 3a e7 | 5a 25 3d 31 f2 44 28 22 |=.(30):.|Z%=1.D("|
|00000900| 81 50 55 42 4c 49 43 20 | 48 4f 4c 49 44 41 59 22 |.PUBLIC |HOLIDAY"|
|00000910| 2c 31 32 2c 31 38 29 0d | 00 be b5 f1 8a 31 38 2d |,12,18).|.....18-|
|00000920| 28 28 a9 28 4e 24 28 31 | 29 29 2b 31 36 29 2f 32 |((.(N$(1|))+16)/2|
|00000930| 29 2c 32 33 29 22 88 82 | 22 4e 24 28 31 29 22 2c |),23)"..|"N$(1)",|
|00000940| 20 53 54 41 4e 44 42 59 | 20 50 4c 45 41 53 45 22 | STANDBY| PLEASE"|
|00000950| 3a f2 57 28 35 29 3a 48 | 3d b3 28 35 29 2a 2e 35 |:.W(5):H|=.(5)*.5|
|00000960| 3a 49 3d 2e 35 2b b3 28 | 34 29 2a 2e 35 3a e3 50 |:I=.5+.(|4)*.5:.P|
|00000970| 3d 31 b8 50 25 3a db 3a | f2 54 3a f1 8a 31 36 2c |=1.P%:.:|.T:..16,|
|00000980| 33 29 22 82 44 41 59 20 | 22 3b 44 3b 8a 31 39 2d |3)".DAY |";D;.19-|
|00000990| 28 a9 28 4e 24 28 50 29 | 29 2f 32 29 2c 37 29 22 |(.(N$(P)|)/2),7)"|
|000009a0| 83 22 4e 24 28 50 29 3a | 40 25 3d 26 32 30 32 31 |."N$(P):|@%=&2021|
|000009b0| 30 3a f1 8a 34 2c 39 29 | 22 87 43 41 53 48 20 49 |0:..4,9)|".CASH I|
|000009c0| 4e 20 48 41 4e 44 22 89 | 37 22 60 22 0d 00 c8 7c |N HAND".|7"`"...||
|000009d0| f1 8a 35 2c 31 31 29 22 | 41 46 54 45 52 20 4f 56 |..5,11)"|AFTER OV|
|000009e0| 45 52 48 45 41 44 53 20 | 4f 46 20 60 20 22 3b 53 |ERHEADS |OF ` ";S|
|000009f0| 25 2a 2e 35 3a 43 28 50 | 29 3d 43 28 50 29 2d 53 |%*.5:C(P|)=C(P)-S|
|00000a00| 25 2a 2e 35 3a f1 8a 32 | 35 2c 39 29 3b 43 28 50 |%*.5:..2|5,9);C(P|
|00000a10| 29 89 33 3b 3a 40 25 3d | 26 39 30 41 3a f1 8a 35 |).3;:@%=|&90A:..5|
|00000a20| 2c 31 33 29 22 54 55 42 | 53 20 49 4e 20 53 54 4f |,13)"TUB|S IN STO|
|00000a30| 43 4b 22 89 31 30 3b 54 | 28 50 29 3a ef 37 3a 40 |CK".10;T|(P):.7:@|
|00000a40| 25 3d 26 32 30 32 31 30 | 0d 00 d2 b3 f1 8a 34 2c |%=&20210|......4,|
|00000a50| 31 35 29 22 88 41 44 56 | 45 52 54 53 20 43 4f 53 |15)".ADV|ERTS COS|
|00000a60| 54 22 89 37 22 60 20 22 | 3b 48 22 20 20 54 4f 44 |T".7"` "|;H"  TOD|
|00000a70| 41 59 22 27 89 34 22 88 | 45 4e 54 45 52 20 4e 55 |AY"'.4".|ENTER NU|
|00000a80| 4d 42 45 52 20 52 45 51 | 55 49 52 45 44 28 39 20 |MBER REQ|UIRED(9 |
|00000a90| 4d 41 58 29 20 22 3b 3a | 40 25 3d 26 39 30 41 3a |MAX) ";:|@%=&90A:|
|00000aa0| 41 28 50 29 3d bb a4 49 | 28 b9 2c 30 2c b9 2c 22 |A(P)=..I|(.,0,.,"|
|00000ab0| 30 31 32 33 34 35 36 37 | 38 39 22 2c 31 29 3a 43 |01234567|89",1):C|
|00000ac0| 28 50 29 3d 43 28 50 29 | 2d 41 28 50 29 2a 48 3a |(P)=C(P)|-A(P)*H:|
|00000ad0| 40 25 3d 26 32 30 32 31 | 30 3a f1 8a 34 2c 31 35 |@%=&2021|0:..4,15|
|00000ae0| 29 22 89 22 3b 8a 32 35 | 2c 39 29 3b 43 28 50 29 |)".";.25|,9);C(P)|
|00000af0| 89 34 3b 3a 40 25 3d 26 | 39 30 41 0d 00 dc 9f f1 |.4;:@%=&|90A.....|
|00000b00| 8a 31 33 2c 31 35 29 89 | 31 35 3b 41 28 50 29 89 |.13,15).|15;A(P).|
|00000b10| 32 8a 35 2c 31 36 29 89 | 33 32 3a 40 25 3d 26 32 |2.5,16).|32:@%=&2|
|00000b20| 30 32 31 30 3a f1 8a 34 | 2c 31 37 29 22 88 54 55 |0210:..4|,17)".TU|
|00000b30| 42 53 20 43 4f 53 54 22 | 89 31 30 22 60 20 22 3b |BS COST"|.10"` ";|
|00000b40| 49 22 20 20 54 4f 44 41 | 59 22 3b 3a 40 25 3d 26 |I"  TODA|Y";:@%=&|
|00000b50| 39 30 41 3a f1 27 89 34 | 22 88 45 41 43 48 20 46 |90A:.'.4|".EACH F|
|00000b60| 49 4c 4c 53 20 32 30 20 | 43 4f 4e 45 53 20 5f 20 |ILLS 20 |CONES _ |
|00000b70| 45 4e 54 45 52 20 4e 6f | 2e 22 3b 3a 74 28 50 29 |ENTER No|.";:t(P)|
|00000b80| 3d bb a4 49 28 b9 2c 30 | 2c b9 2c 22 30 31 32 33 |=..I(.,0|,.,"0123|
|00000b90| 34 35 36 37 38 39 22 2c | 32 29 0d 00 e6 9e 43 28 |456789",|2)....C(|
|00000ba0| 50 29 3d 43 28 50 29 2d | 74 28 50 29 2a 49 3a 54 |P)=C(P)-|t(P)*I:T|
|00000bb0| 28 50 29 3d 54 28 50 29 | 2b 74 28 50 29 3a 40 25 |(P)=T(P)|+t(P):@%|
|00000bc0| 3d 26 32 30 32 31 30 3a | f1 8a 32 35 2c 39 29 3b |=&20210:|..25,9);|
|00000bd0| 43 28 50 29 89 34 3b 3a | 40 25 3d 26 39 30 41 3a |C(P).4;:|@%=&90A:|
|00000be0| f1 8a 32 38 2c 31 33 29 | 3b 54 28 50 29 8a 35 2c |..28,13)|;T(P).5,|
|00000bf0| 31 37 29 89 37 35 8a 35 | 2c 31 37 29 22 43 4f 4e |17).75.5|,17)"CON|
|00000c00| 45 20 50 52 49 43 45 2d | 45 4e 54 45 52 20 49 4e |E PRICE-|ENTER IN|
|00000c10| 20 50 45 4e 43 45 20 22 | 3b 3a 42 28 50 29 3d bb | PENCE "|;:B(P)=.|
|00000c20| a4 49 28 b9 2c 30 2c b9 | 2c 22 30 31 32 33 34 35 |.I(.,0,.|,"012345|
|00000c30| 36 37 38 39 22 2c 32 29 | 0d 00 f0 98 f1 8a 34 2c |6789",2)|......4,|
|00000c40| 31 37 29 22 89 22 8a 31 | 35 2c 31 37 29 89 31 33 |17)".".1|5,17).13|
|00000c50| 3b 42 28 50 29 22 20 20 | 50 45 4e 43 45 22 3a e7 |;B(P)"  |PENCE":.|
|00000c60| 43 28 50 29 3c 30 f1 8a | 33 2c 31 39 29 22 81 88 |C(P)<0..|3,19)"..|
|00000c70| 4f 56 45 52 44 52 41 46 | 54 20 43 48 41 52 47 45 |OVERDRAF|T CHARGE|
|00000c80| 22 3a 40 25 3d 26 32 30 | 32 31 30 3a f1 8a 32 34 |":@%=&20|210:..24|
|00000c90| 2c 31 39 29 22 60 20 22 | 3b 94 28 43 28 50 29 29 |,19)"` "|;.(C(P))|
|00000ca0| 2f 31 30 3a 43 28 50 29 | 3d 43 28 50 29 2d 94 28 |/10:C(P)|=C(P)-.(|
|00000cb0| 43 28 50 29 29 2f 31 30 | 3a f1 8a 32 35 2c 39 29 |C(P))/10|:..25,9)|
|00000cc0| 3b 43 28 50 29 89 33 3b | 3a 40 25 3d 26 39 30 41 |;C(P).3;|:@%=&90A|
|00000cd0| 0d 00 fa 30 f1 8a 31 31 | 2c 32 32 29 22 82 88 50 |...0..11|,22)"..P|
|00000ce0| 52 45 53 53 20 41 4e 59 | 20 4b 45 59 22 3a 51 3d |RESS ANY| KEY":Q=|
|00000cf0| a6 31 35 30 30 3a ed 3a | f2 52 3a db 3a ed 3a e1 |.1500:.:|.R:.:.:.|
|00000d00| 0d 01 04 1f dd f2 57 28 | 58 29 3a ea 5a 3a 5a 3d |......W(|X):.Z:Z=|
|00000d10| 91 3a f5 fd 91 2d 5a 3e | 58 2a 31 30 30 3a e1 0d |.:...-Z>|X*100:..|
|00000d20| 01 0e 28 dd f2 52 3a 4b | 3d b3 28 37 35 29 2b 28 |..(..R:K|=.(75)+(|
|00000d30| 31 30 2a 28 57 25 2b 31 | 29 29 2b 4c 3a e7 5a 25 |10*(W%+1|))+L:.Z%|
|00000d40| 3d 31 4b 3d 4b 2a 32 0d | 01 18 b0 56 3d 30 3a 41 |=1K=K*2.|...V=0:A|
|00000d50| 3d 30 3a 52 3d 30 3a 69 | 25 3d b3 28 31 30 29 3a |=0:R=0:i|%=.(10):|
|00000d60| 45 25 3d b3 28 35 29 3a | 45 24 3d 22 20 22 3a e7 |E%=.(5):|E$=" ":.|
|00000d70| 45 25 3d 32 80 57 25 3e | 31 80 53 25 3e 32 20 52 |E%=2.W%>|1.S%>2 R|
|00000d80| 3d b9 3a 45 24 3d 22 88 | 81 20 53 41 4c 45 53 20 |=.:E$=".|. SALES |
|00000d90| 52 45 44 55 43 45 44 20 | 22 2b c3 28 31 30 2b 69 |REDUCED |"+.(10+i|
|00000da0| 25 29 2b 22 25 20 42 59 | 20 54 48 55 4e 44 45 52 |%)+"% BY| THUNDER|
|00000db0| 20 53 54 4f 52 4d 22 3a | 8b e7 45 25 3d 33 20 41 | STORM":|..E%=3 A|
|00000dc0| 3d b9 3a 45 24 3d 22 88 | 81 53 41 4c 45 53 20 49 |=.:E$=".|.SALES I|
|00000dd0| 4e 43 52 45 41 53 45 44 | 20 22 2b c3 28 31 30 2b |NCREASED| "+.(10+|
|00000de0| 69 25 29 2b 22 25 20 42 | 59 20 53 43 48 4f 4f 4c |i%)+"% B|Y SCHOOL|
|00000df0| 20 50 41 52 54 59 22 0d | 01 22 09 2a 46 58 32 31 | PARTY".|.".*FX21|
|00000e00| 0d 01 2c 51 db 3a f2 54 | 3a f1 8a 31 36 2c 33 29 |..,Q.:.T|:..16,3)|
|00000e10| 22 82 44 41 59 20 22 3b | 44 3a f2 44 28 53 24 2c |".DAY ";|D:.D(S$,|
|00000e20| 34 2c 38 29 3a f2 44 28 | 57 24 2c 32 37 2c 38 29 |4,8):.D(|W$,27,8)|
|00000e30| 3a e7 5a 25 3d 31 f2 44 | 28 22 81 50 55 42 4c 49 |:.Z%=1.D|(".PUBLI|
|00000e40| 43 20 48 4f 4c 49 44 41 | 59 22 2c 31 32 2c 31 38 |C HOLIDA|Y",12,18|
|00000e50| 29 0d 01 36 a7 56 24 3d | c3 28 4b 29 3a f2 44 28 |)..6.V$=|.(K):.D(|
|00000e60| 22 83 54 4f 44 41 59 20 | 54 48 45 52 45 20 57 45 |".TODAY |THERE WE|
|00000e70| 52 45 20 22 2b 56 24 2b | 22 20 56 49 53 49 54 4f |RE "+V$+|" VISITO|
|00000e80| 52 53 22 2c 34 2c 31 34 | 29 3a f1 8a 30 2c 32 31 |RS",4,14|):..0,21|
|00000e90| 29 45 24 8a 30 2c 32 33 | 29 22 82 50 4c 45 41 53 |)E$.0,23|)".PLEAS|
|00000ea0| 45 20 57 41 49 54 20 46 | 4f 52 20 50 55 42 4c 49 |E WAIT F|OR PUBLI|
|00000eb0| 43 41 54 49 4f 4e 20 4f | 46 20 52 45 53 55 4c 54 |CATION O|F RESULT|
|00000ec0| 53 22 3a f2 53 3a e7 52 | 20 56 3d 56 2d 28 4b 2a |S":.S:.R| V=V-(K*|
|00000ed0| 28 28 31 30 2b 69 25 29 | 2f 31 30 30 29 29 3a 8b |((10+i%)|/100)):.|
|00000ee0| e7 41 20 56 3d 56 2b 28 | 4b 2a 28 28 31 30 2b 69 |.A V=V+(|K*((10+i|
|00000ef0| 25 29 2f 31 30 30 29 29 | 0d 01 40 18 f2 43 3a f2 |%)/100))|..@..C:.|
|00000f00| 43 32 3a e3 50 3d 31 b8 | 50 25 3a 2a 46 58 32 31 |C2:.P=1.|P%:*FX21|
|00000f10| 0d 01 4a 99 db 3a f2 54 | 3a f1 8a 31 37 2c 33 29 |..J..:.T|:..17,3)|
|00000f20| 22 44 41 59 20 22 3b 44 | 3a ef 37 3a f1 8a 31 39 |"DAY ";D|:.7:..19|
|00000f30| 2d 28 a9 28 4e 24 28 50 | 29 29 2f 32 29 2c 35 29 |-(.(N$(P|))/2),5)|
|00000f40| 22 83 22 4e 24 28 50 29 | 27 27 89 35 22 48 41 44 |"."N$(P)|''.5"HAD|
|00000f50| 20 53 54 4f 43 4b 20 46 | 4f 52 22 89 35 3b 45 28 | STOCK F|OR".5;E(|
|00000f60| 50 29 3b 8a 32 38 2c 37 | 29 22 43 4f 4e 45 53 22 |P);.28,7|)"CONES"|
|00000f70| 8a 35 2c 39 29 22 43 4f | 4e 45 53 20 53 4f 4c 44 |.5,9)"CO|NES SOLD|
|00000f80| 22 89 38 3b 53 28 50 29 | 3b 3a e7 53 28 50 29 3d |".8;S(P)|;:.S(P)=|
|00000f90| 45 28 50 29 20 f1 8a 32 | 36 2c 39 29 22 81 88 53 |E(P) ..2|6,9)"..S|
|00000fa0| 4f 4c 44 20 4f 55 54 89 | 22 0d 01 54 9c f1 8a 35 |OLD OUT.|"..T...5|
|00000fb0| 2c 31 31 29 22 43 4f 4e | 45 20 50 52 49 43 45 22 |,11)"CON|E PRICE"|
|00000fc0| 89 38 3b 42 28 50 29 22 | 20 20 20 50 45 4e 43 45 |.8;B(P)"|   PENCE|
|00000fd0| 22 27 27 89 35 22 41 44 | 56 45 52 54 53 22 89 31 |"''.5"AD|VERTS".1|
|00000fe0| 31 3b 41 28 50 29 3a 40 | 25 3d 26 32 30 32 31 30 |1;A(P):@|%=&20210|
|00000ff0| 3a f1 27 89 35 22 44 41 | 59 53 20 54 41 4b 49 4e |:.'.5"DA|YS TAKIN|
|00001000| 47 53 22 89 35 22 60 22 | 3b 52 28 50 29 27 27 89 |GS".5"`"|;R(P)''.|
|00001010| 35 22 44 41 59 53 20 50 | 52 4f 46 49 54 22 89 36 |5"DAYS P|ROFIT".6|
|00001020| 22 60 22 3b 46 28 50 29 | 27 27 89 35 22 43 41 53 |"`";F(P)|''.5"CAS|
|00001030| 48 20 41 54 20 43 4c 4f | 53 45 22 89 34 22 60 22 |H AT CLO|SE".4"`"|
|00001040| 3b 43 28 50 29 0d 01 5e | 42 f2 44 28 22 81 9d 83 |;C(P)..^|B.D("...|
|00001050| 50 52 45 53 53 20 41 4e | 59 20 4b 45 59 20 54 4f |PRESS AN|Y KEY TO|
|00001060| 20 43 4f 4e 54 49 4e 55 | 45 20 20 9c 22 2c 34 2c | CONTINU|E  .",4,|
|00001070| 32 32 29 3a 47 3d a6 32 | 30 30 30 3a 40 25 3d 26 |22):G=.2|000:@%=&|
|00001080| 39 30 41 3a ed 3a e1 0d | 01 68 93 dd f2 43 3a 54 |90A:.:..|.h...C:T|
|00001090| 25 3d 30 3a 4d 25 3d 30 | 3a 4a 3d 31 3a 56 31 3d |%=0:M%=0|:J=1:V1=|
|000010a0| 56 2b 4b 3a 76 3d 56 31 | 3a e3 50 3d 31 b8 50 25 |V+K:v=V1|:.P=1.P%|
|000010b0| 3a 45 28 50 29 3d 54 28 | 50 29 2a 32 30 3a 73 28 |:E(P)=T(|P)*20:s(|
|000010c0| 50 29 3d 56 31 2f 28 42 | 28 50 29 2b 31 29 3a 61 |P)=V1/(B|(P)+1):a|
|000010d0| 28 50 29 3d 30 3a ed 3a | 58 3d b3 28 31 29 3a f5 |(P)=0:.:|X=.(1):.|
|000010e0| e3 50 3d 31 b8 50 25 3a | 61 28 50 29 3d 61 28 50 |.P=1.P%:|a(P)=a(P|
|000010f0| 29 2b 73 28 50 29 3a e7 | 61 28 50 29 3e 3d 45 28 |)+s(P):.|a(P)>=E(|
|00001100| 50 29 61 28 50 29 3d 45 | 28 50 29 3a 73 28 50 29 |P)a(P)=E|(P):s(P)|
|00001110| 3d 30 3a 4d 25 3d 4d 25 | 2b 31 0d 01 72 60 76 3d |=0:M%=M%|+1..r`v=|
|00001120| 76 2d 73 28 50 29 3a ed | 3a fd 76 3c 3d 30 84 4d |v-s(P):.|:.v<=0.M|
|00001130| 25 3e 31 30 30 3a e3 50 | 3d 31 b8 50 25 3a 53 28 |%>100:.P|=1.P%:S(|
|00001140| 50 29 3d a8 61 28 50 29 | 3a e7 42 28 50 29 3e 34 |P)=.a(P)|:.B(P)>4|
|00001150| 35 53 28 50 29 3d 31 3a | 8b e7 42 28 50 29 3e 33 |5S(P)=1:|..B(P)>3|
|00001160| 35 80 42 28 50 29 3c 3d | 34 35 53 28 50 29 3d a8 |5.B(P)<=|45S(P)=.|
|00001170| 28 53 28 50 29 2f 32 29 | 2b 31 0d 01 7c 2f 53 28 |(S(P)/2)|+1..|/S(|
|00001180| 50 29 3d 53 28 50 29 2b | a8 28 58 2a 28 41 28 50 |P)=S(P)+|.(X*(A(P|
|00001190| 29 2a 38 29 29 3a e7 53 | 28 50 29 3e 45 28 50 29 |)*8)):.S|(P)>E(P)|
|000011a0| 53 28 50 29 3d 45 28 50 | 29 0d 01 86 1f 54 25 3d |S(P)=E(P|)....T%=|
|000011b0| 54 25 2b 53 28 50 29 3a | ed 3a e7 54 25 3e 56 31 |T%+S(P):|.:.T%>V1|
|000011c0| 20 4a 3d 54 25 2d 56 31 | 0d 01 90 28 e3 50 3d 31 | J=T%-V1|...(.P=1|
|000011d0| b8 50 25 3a e7 53 28 50 | 29 3c 3e 45 28 50 29 53 |.P%:.S(P|)<>E(P)S|
|000011e0| 28 50 29 3d 53 28 50 29 | 2d a8 28 4a 2f 50 25 29 |(P)=S(P)|-.(J/P%)|
|000011f0| 0d 01 9a 1b ed 3a e3 50 | 3d 31 b8 50 25 3a e7 53 |.....:.P|=1.P%:.S|
|00001200| 28 50 29 3c 30 53 28 50 | 29 3d 30 0d 01 a4 07 ed |(P)<0S(P|)=0.....|
|00001210| 3a e1 0d 01 ae 73 dd f2 | 43 32 3a e3 50 3d 31 b8 |:....s..|C2:.P=1.|
|00001220| 50 25 3a 52 28 50 29 3d | 28 53 28 50 29 2a 42 28 |P%:R(P)=|(S(P)*B(|
|00001230| 50 29 29 2f 31 30 30 3a | 43 28 50 29 3d 43 28 50 |P))/100:|C(P)=C(P|
|00001240| 29 2b 52 28 50 29 3a 46 | 28 50 29 3d 52 28 50 29 |)+R(P):F|(P)=R(P)|
|00001250| 2d 28 41 28 50 29 2a 48 | 29 2d 28 74 28 50 29 2a |-(A(P)*H|)-(t(P)*|
|00001260| 49 29 2d 28 53 25 2a 2e | 35 29 3a 54 28 50 29 3d |I)-(S%*.|5):T(P)=|
|00001270| a8 28 54 28 50 29 2d 28 | 53 28 50 29 2f 32 30 29 |.(T(P)-(|S(P)/20)|
|00001280| 29 3a ed 3a e1 0d 01 b8 | c4 dd f2 45 3a db 3a f2 |):.:....|...E:.:.|
|00001290| 54 3a f1 8a 34 2c 36 29 | 22 86 46 49 4e 41 4c 20 |T:..4,6)|".FINAL |
|000012a0| 52 45 53 55 4c 54 20 41 | 46 54 45 52 20 22 3b 44 |RESULT A|FTER ";D|
|000012b0| 25 22 20 44 41 59 53 20 | 50 4c 41 59 22 8a 33 2c |%" DAYS |PLAY".3,|
|000012c0| 38 29 22 83 50 4c 41 59 | 45 52 22 89 35 22 46 49 |8)".PLAY|ER".5"FI|
|000012d0| 4e 41 4c 20 43 41 53 48 | 22 89 35 22 50 52 4f 46 |NAL CASH|".5"PROF|
|000012e0| 49 54 22 3a e3 50 3d 31 | b8 50 25 3a f1 8a 34 2c |IT":.P=1|.P%:..4,|
|000012f0| 38 2b 28 50 2a 32 29 29 | 4e 24 28 50 29 3b 3a 40 |8+(P*2))|N$(P);:@|
|00001300| 25 3d 26 32 30 32 31 30 | 3a f1 3b 8a 31 33 29 22 |%=&20210|:.;.13)"|
|00001310| 60 22 3b 43 28 50 29 8a | 32 36 29 22 60 22 3b 43 |`";C(P).|26)"`";C|
|00001320| 28 50 29 2d 34 30 3a 40 | 25 3d 26 39 30 41 3a ed |(P)-40:@|%=&90A:.|
|00001330| 3a 48 49 3d 30 3a 48 25 | 3d 30 3a 4e 24 28 30 29 |:HI=0:H%|=0:N$(0)|
|00001340| 3d 22 4e 4f 42 4f 44 59 | 22 0d 01 c2 2b e3 50 3d |="NOBODY|"...+.P=|
|00001350| 31 b8 50 25 3a e7 43 28 | 50 29 2d 33 39 2e 39 39 |1.P%:.C(|P)-39.99|
|00001360| 3e 3d 48 49 20 48 49 3d | 43 28 50 29 2d 34 30 3a |>=HI HI=|C(P)-40:|
|00001370| 48 25 3d 50 0d 01 cc 28 | ed 3a 4d 3d 30 3a e3 50 |H%=P...(|.:M=0:.P|
|00001380| 3d 31 b8 50 25 3a e7 43 | 28 50 29 2d 34 30 3d 48 |=1.P%:.C|(P)-40=H|
|00001390| 49 20 80 48 25 3c 3e 50 | 20 4d 3d b9 0d 01 d6 4f |I .H%<>P| M=....O|
|000013a0| ed 3a e7 4d 20 f1 8a 31 | 31 2c 32 30 29 22 82 54 |.:.M ..1|1,20)".T|
|000013b0| 48 45 52 45 20 49 53 20 | 41 20 44 52 41 57 21 22 |HERE IS |A DRAW!"|
|000013c0| 8b f1 8a 31 39 2d 28 28 | a9 28 4e 24 28 48 25 29 |...19-((|.(N$(H%)|
|000013d0| 29 2b 35 29 2f 32 29 2c | 32 30 29 22 82 22 4e 24 |)+5)/2),|20)"."N$|
|000013e0| 28 48 25 29 22 20 57 49 | 4e 53 22 0d 01 e0 51 f2 |(H%)" WI|NS"...Q.|
|000013f0| 44 28 22 81 9d 83 44 4f | 20 59 4f 55 20 57 49 53 |D("...DO| YOU WIS|
|00001400| 48 20 54 4f 20 50 4c 41 | 59 20 41 47 41 49 4e 3f |H TO PLA|Y AGAIN?|
|00001410| 20 28 59 2f 4e 29 20 20 | 9c 22 2c 31 2c 32 32 29 | (Y/N)  |.",1,22)|
|00001420| 3a f5 47 3d a5 3a fd 47 | 3d 37 38 84 47 3d 38 39 |:.G=.:.G|=78.G=89|
|00001430| 3a e7 47 3d 38 39 e1 3a | 8b db 3a e0 0d 01 ea 91 |:.G=89.:|..:.....|
|00001440| dd f2 53 3a 74 3d 91 3a | e2 31 2c 35 2c 30 2c 30 |..S:t=.:|.1,5,0,0|
|00001450| 2c 30 2c 35 2c 32 2c 33 | 2c 31 30 2c 2d 33 2c 30 |,0,5,2,3|,10,-3,0|
|00001460| 2c 2d 31 2c 31 32 36 2c | 37 30 3a e2 32 2c 33 2c |,-1,126,|70:.2,3,|
|00001470| 30 2c 2d 32 2c 2d 31 2c | 32 2c 32 2c 33 30 2c 35 |0,-2,-1,|2,2,30,5|
|00001480| 30 2c 2d 31 2c 2d 31 32 | 2c 2d 32 2c 31 32 36 2c |0,-1,-12|,-2,126,|
|00001490| 31 32 36 3a f5 41 25 3d | b3 28 32 29 3a d4 30 2c |126:.A%=|.(2):.0,|
|000014a0| 31 2c 41 25 2b 33 2c 32 | 30 3a 42 25 3d b3 28 32 |1,A%+3,2|0:B%=.(2|
|000014b0| 30 29 2b 34 30 3a d4 26 | 31 30 30 30 2c 30 2c 30 |0)+40:.&|1000,0,0|
|000014c0| 2c 42 25 3a e7 b3 28 32 | 29 3d 32 f2 47 0d 01 f4 |,B%:..(2|)=2.G...|
|000014d0| 11 fd 20 91 3e 3d 74 2b | 31 30 30 30 3a e1 0d 01 |.. .>=t+|1000:...|
|000014e0| fe 35 dd f2 47 3a 46 25 | 3d b3 28 33 29 3a e3 47 |.5..G:F%|=.(3):.G|
|000014f0| 25 3d 31 b8 46 25 3a d4 | 31 2c 32 2c 32 32 30 2c |%=1.F%:.|1,2,220,|
|00001500| 32 30 3a e7 46 25 3e 31 | d4 32 2c 32 2c 32 30 30 |20:.F%>1|.2,2,200|
|00001510| 2c 32 35 0d 02 08 14 e7 | 46 25 3e 32 d4 33 2c 32 |,25.....|F%>2.3,2|
|00001520| 2c 32 34 30 2c 31 30 0d | 02 12 07 ed 3a e1 0d 02 |,240,10.|....:...|
|00001530| 1c 40 dd a4 49 28 61 25 | 2c 72 25 2c 6c 25 2c 6f |.@..I(a%|,r%,l%,o|
|00001540| 24 2c 4c 25 29 3a ea 47 | 24 2c 4c 31 25 2c 49 24 |$,L%):.G|$,L1%,I$|
|00001550| 3a 4c 31 25 3d 30 3a 49 | 24 3d c4 4c 25 2c 22 20 |:L1%=0:I|$=.L%," |
|00001560| 22 29 3a 49 24 3d 22 22 | 3a 2a 46 58 32 31 0d 02 |"):I$=""|:*FX21..|
|00001570| 26 0e e7 61 25 8c 2a 46 | 58 34 2c 31 0d 02 30 0e |&..a%.*F|X4,1..0.|
|00001580| e7 ac 72 25 8c 2a 46 58 | 31 31 0d 02 3a 2c f5 f5 |..r%.*FX|11..:,..|
|00001590| 47 24 3d be 3a e7 6c 25 | 80 47 24 3e 3d 22 61 22 |G$=.:.l%|.G$>="a"|
|000015a0| 80 47 24 3c 3d 22 7a 22 | 47 24 3d bd 28 97 28 47 |.G$<="z"|G$=.(.(G|
|000015b0| 24 29 2d 33 32 29 0d 02 | 44 25 e7 6c 25 80 47 24 |$)-32)..|D%.l%.G$|
|000015c0| 3e 3d 22 21 22 80 47 24 | 3c 3d 22 29 22 47 24 3d |>="!".G$|<=")"G$=|
|000015d0| bd 28 97 28 47 24 29 2b | 31 36 29 0d 02 4e 0c e7 |.(.(G$)+|16)..N..|
|000015e0| a4 49 32 3d 30 ef 37 0d | 02 58 2f fd a4 49 32 3a |.I2=0.7.|.X/..I2:|
|000015f0| e7 47 24 3d bd 31 32 37 | f1 47 24 3b 3a 49 24 3d |.G$=.127|.G$;:I$=|
|00001600| c0 49 24 2c a9 28 49 24 | 29 2d 31 29 3a 4c 31 25 |.I$,.(I$|)-1):L1%|
|00001610| 3d 4c 31 25 2d 31 0d 02 | 62 23 e7 a7 6f 24 2c 47 |=L1%-1..|b#..o$,G|
|00001620| 24 29 f1 47 24 3b 3a 49 | 24 3d 49 24 2b 47 24 3a |$).G$;:I|$=I$+G$:|
|00001630| 4c 31 25 3d 4c 31 25 2b | 31 0d 02 6c 14 fd 47 24 |L1%=L1%+|1..l..G$|
|00001640| 3d bd 31 33 3a e7 61 25 | 8c 2a 46 58 34 0d 02 76 |=.13:.a%|.*FX4..v|
|00001650| 0e e7 ac 72 25 8c 2a 46 | 58 31 32 0d 02 80 07 3d |...r%.*F|X12....=|
|00001660| 49 24 0d 02 8a 2c dd a4 | 49 32 3a ea 47 25 3a 47 |I$...,..|I2:.G%:G|
|00001670| 25 3d 30 3a e7 47 24 3d | bd 31 32 37 80 4c 31 25 |%=0:.G$=|.127.L1%|
|00001680| 3e 30 80 4c 31 25 3c 3d | 4c 25 47 25 3d b9 0d 02 |>0.L1%<=|L%G%=...|
|00001690| 94 17 e7 a7 6f 24 2c 47 | 24 29 80 4c 31 25 3c 4c |....o$,G|$).L1%<L|
|000016a0| 25 47 25 3d b9 0d 02 9e | 15 e7 47 24 3d bd 31 33 |%G%=....|..G$=.13|
|000016b0| 80 4c 31 25 3e 30 47 25 | 3d b9 0d 02 a8 07 3d 47 |.L1%>0G%|=.....=G|
|000016c0| 25 0d ff                |                         |%..     |        |
+--------+-------------------------+-------------------------+--------+--------+