home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1992-07-29 | 12.0 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 80 c3 3a 80 cc 3a 80 cb | 00 80 b4 3a 80 02 3a 80 |..:..:..|...:..:.|
|00000010| 02 20 80 b4 00 3b 00 80 | 0b 20 be 11 28 30 2c 22 |. ...;..|. ..(0,"|
|00000020| 73 70 65 65 64 2e 72 65 | 61 64 6d 65 22 29 00 20 |speed.re|adme"). |
|00000030| 20 cf 02 20 30 3a ff b5 | 00 20 20 c5 01 20 30 2c | .. 0:..|. .. 0,|
|00000040| 30 2c 30 2c 36 34 30 2c | 32 30 30 2c 24 31 30 30 |0,0,640,|200,$100|
|00000050| 30 2c 22 53 70 65 65 64 | 22 2c 31 2c 32 00 20 20 |0,"Speed|",1,2. |
|00000060| be 08 20 30 3a 79 3d 2d | 34 00 20 20 80 0c 20 80 |.. 0:y=-|4. .. .|
|00000070| 89 20 be 0d 28 30 29 00 | 20 20 20 20 74 24 3d dd |. ..(0).| t$=.|
|00000080| 01 28 38 30 29 00 20 20 | 20 20 79 2b 38 3a c5 10 |.(80). | y+8:..|
|00000090| 20 34 2c 79 00 20 20 20 | 20 dd 81 20 74 24 00 20 | 4,y. | .. t$. |
|000000a0| 20 20 20 80 0b 20 79 3e | 31 35 32 20 80 8a 20 be | .. y>|152 .. .|
|000000b0| 0d 28 30 29 00 20 20 20 | 20 20 20 c5 10 20 34 2c |.(0). | .. 4,|
|000000c0| 79 2b 31 36 00 20 20 20 | 20 20 20 dd 81 20 22 43 |y+16. | .. "C|
|000000d0| 6c 69 63 6b 20 6d 6f 75 | 73 65 20 66 6f 72 20 6d |lick mou|se for m|
|000000e0| 6f 72 65 2e 2e 2e 22 00 | 20 20 20 20 20 20 80 bb |ore...".| ..|
|000000f0| 00 20 20 20 20 20 20 80 | bc 20 c5 02 3d 38 20 80 |. .|. ..=8 .|
|00000100| 42 20 c5 22 3d 31 00 20 | 20 20 20 20 20 c5 2f 3a |B ."=1. | ./:|
|00000110| 79 3d 2d 34 00 20 20 20 | 20 80 c0 00 20 20 80 c1 |y=-4. | ... ..|
|00000120| 00 20 20 80 2b 20 c5 01 | 20 30 00 80 c0 00 3b 00 |. .+ ..| 0....;.|
|00000130| 3b 53 50 45 45 44 21 20 | 41 20 43 48 4f 49 43 45 |;SPEED! |A CHOICE|
|00000140| 20 43 41 52 44 20 47 41 | 4d 45 21 00 3b 00 80 01 | CARD GA|ME!.;...|
|00000150| 2e 6f 62 6a 00 3b 00 3b | 74 68 65 73 65 20 6d 75 |.obj.;.;|these mu|
|00000160| 73 74 20 62 65 20 69 6e | 69 74 69 61 6c 69 7a 65 |st be in|itialize|
|00000170| 64 2e 2e 2e 2e 00 3b 00 | 6e 2e 77 20 20 20 20 20 |d.....;.|n.w |
|00000180| 3b 6e 75 6d 62 65 72 20 | 6f 66 20 63 61 72 64 20 |;number |of card |
|00000190| 31 2d 31 34 20 28 41 2d | 4b 2c 62 6c 61 6e 6b 29 |1-14 (A-|K,blank)|
|000001a0| 00 78 2e 71 20 20 20 20 | 20 3b 78 20 61 78 69 73 |.x.q | ;x axis|
|000001b0| 20 6f 66 20 63 61 72 64 | 00 79 2e 71 20 20 20 20 | of card|.y.q |
|000001c0| 20 3b 79 20 61 78 69 73 | 20 6f 66 20 63 61 72 64 | ;y axis| of card|
|000001d0| 00 78 73 2e 71 20 20 20 | 20 3b 78 20 73 70 65 65 |.xs.q | ;x spee|
|000001e0| 64 20 6f 66 20 63 61 72 | 64 00 79 73 2e 71 20 20 |d of car|d.ys.q |
|000001f0| 20 20 3b 79 20 73 70 65 | 65 64 20 6f 66 20 63 61 | ;y spe|ed of ca|
|00000200| 72 64 00 6e 6d 2e 77 20 | 20 20 20 3b 6e 75 6d 62 |rd.nm.w | ;numb|
|00000210| 65 72 20 6f 66 20 6d 6f | 76 65 73 20 74 6f 20 6d |er of mo|ves to m|
|00000220| 61 6b 65 20 62 65 66 6f | 72 65 20 66 69 6e 69 73 |ake befo|re finis|
|00000230| 68 2e 00 61 2e 77 20 20 | 20 20 20 3b 3c 3e 30 20 |h..a.w | ;<>0 |
|00000240| 3d 20 61 6e 69 6d 61 74 | 65 20 74 6f 20 74 68 69 |= animat|e to thi|
|00000250| 73 20 63 61 72 64 00 64 | 78 2e 77 20 20 20 20 3b |s card.d|x.w ;|
|00000260| 64 65 73 74 69 6e 61 74 | 69 6f 6e 20 78 2c 00 64 |destinat|ion x,.d|
|00000270| 79 2e 77 20 20 20 20 3b | 61 6e 64 20 79 21 00 3b |y.w ;|and y!.;|
|00000280| 00 3b 6e 6f 74 20 74 68 | 65 73 65 00 3b 00 63 2e |.;not th|ese.;.c.|
|00000290| 77 20 20 20 20 20 3b 63 | 6f 75 6e 74 65 72 20 66 |w ;c|ounter f|
|000002a0| 6f 72 20 61 6e 69 6d 00 | 3b 00 80 02 20 80 01 00 |or anim.|;... ...|
|000002b0| 00 80 01 2e 62 61 63 6b | 00 6e 2e 77 00 78 2e 77 |....back|.n.w.x.w|
|000002c0| 00 79 2e 77 00 6d 2e 77 | 00 64 2e 77 00 80 02 20 |.y.w.m.w|.d.w... |
|000002d0| 80 01 00 00 6e 74 3d 38 | 39 32 2f 34 00 00 80 04 |....nt=8|92/4....|
|000002e0| 20 6c 6f 6e 24 28 31 32 | 29 2c 6c 6f 74 28 31 32 | lon$(12|),lot(12|
|000002f0| 29 2c 6c 6f 6c 28 31 32 | 29 00 3b 00 80 04 20 78 |),lol(12|).;... x|
|00000300| 28 6e 74 29 2c 79 28 6e | 74 29 20 3b 66 6f 72 20 |(nt),y(n|t) ;for |
|00000310| 74 69 74 6c 65 20 65 66 | 66 65 63 74 00 3b 00 80 |title ef|fect.;..|
|00000320| 04 20 70 61 63 6b 28 35 | 32 29 20 20 20 20 3b 61 |. pack(5|2) ;a|
|00000330| 6c 6c 20 63 61 72 64 73 | 20 69 6e 20 70 61 63 6b |ll cards| in pack|
|00000340| 00 3b 00 80 04 20 6e 68 | 61 6e 64 28 31 29 20 20 |.;... nh|and(1) |
|00000350| 20 20 3b 6e 75 6d 62 65 | 72 20 6f 66 20 63 61 72 | ;numbe|r of car|
|00000360| 64 73 20 69 6e 20 68 61 | 6e 64 21 00 80 04 20 68 |ds in ha|nd!... h|
|00000370| 61 6e 64 28 35 2c 31 29 | 20 20 20 3b 63 61 72 64 |and(5,1)| ;card|
|00000380| 73 20 69 6e 20 68 61 6e | 64 20 20 2d 20 20 20 30 |s in han|d - 0|
|00000390| 20 6d 65 61 6e 73 20 6e | 6f 20 63 61 72 64 20 68 | means n|o card h|
|000003a0| 65 72 65 21 00 3b 00 80 | 04 20 6e 70 69 6c 65 28 |ere!.;..|. npile(|
|000003b0| 31 29 20 20 20 20 3b 6e | 75 6d 62 65 72 20 6f 66 |1) ;n|umber of|
|000003c0| 20 63 61 72 64 73 20 69 | 6e 20 70 69 6c 65 00 80 | cards i|n pile..|
|000003d0| 04 20 70 69 6c 65 28 35 | 32 2c 31 29 20 20 3b 63 |. pile(5|2,1) ;c|
|000003e0| 61 72 64 73 20 69 6e 20 | 70 69 6c 65 00 3b 00 80 |ards in |pile.;..|
|000003f0| 04 20 6e 64 6f 77 6e 28 | 31 29 20 20 20 20 3b 6e |. ndown(|1) ;n|
|00000400| 75 6d 62 65 72 20 6f 66 | 20 66 61 63 65 20 64 6f |umber of| face do|
|00000410| 77 6e 20 63 61 72 64 73 | 00 80 04 20 64 6f 77 6e |wn cards|... down|
|00000420| 28 35 32 2c 31 29 20 20 | 3b 63 61 72 64 73 20 66 |(52,1) |;cards f|
|00000430| 61 63 65 20 64 6f 77 6e | 00 80 04 20 64 6f 77 6e |ace down|... down|
|00000440| 78 28 35 32 2c 31 29 20 | 3b 78 20 6f 66 20 64 6f |x(52,1) |;x of do|
|00000450| 77 6e 20 63 61 72 64 00 | 80 04 20 64 6f 77 6e 79 |wn card.|.. downy|
|00000460| 28 35 32 2c 31 29 20 3b | 79 20 6f 66 20 64 6f 77 |(52,1) ;|y of dow|
|00000470| 6e 20 63 61 72 64 00 3b | 00 80 04 20 6e 75 70 28 |n card.;|... nup(|
|00000480| 31 29 20 20 20 20 20 20 | 3b 6e 75 6d 62 65 72 20 |1) |;number |
|00000490| 6f 66 20 75 70 20 63 61 | 72 64 73 00 80 04 20 75 |of up ca|rds... u|
|000004a0| 70 28 35 32 2c 31 29 20 | 20 20 20 3b 61 63 74 75 |p(52,1) | ;actu|
|000004b0| 61 6c 20 75 70 20 63 61 | 72 64 73 00 3b 00 80 04 |al up ca|rds.;...|
|000004c0| 20 63 6c 28 31 29 20 20 | 20 20 20 20 20 3b 63 61 | cl(1) | ;ca|
|000004d0| 72 64 73 20 6c 65 66 74 | 20 70 65 72 20 70 6c 61 |rds left| per pla|
|000004e0| 79 65 72 2e 00 3b 00 80 | 04 20 80 b3 20 6f 62 6a |yer..;..|. .. obj|
|000004f0| 2e 6f 62 6a 28 36 34 29 | 2c 80 b3 20 62 61 63 6b |.obj(64)|,.. back|
|00000500| 2e 62 61 63 6b 28 36 34 | 29 20 20 20 20 3b 36 34 |.back(64|) ;64|
|00000510| 20 63 61 72 64 73 20 3f | 00 80 ca 20 6f 62 6a 28 | cards ?|... obj(|
|00000520| 29 00 00 6c 6f 6e 24 28 | 31 29 3d 22 54 4f 50 22 |)..lon$(|1)="TOP"|
|00000530| 3a 6c 6f 74 28 31 29 3d | 31 30 30 3a 6c 6f 6c 28 |:lot(1)=|100:lol(|
|00000540| 31 29 3d 38 00 00 cd 01 | 20 30 2c 22 68 61 6e 64 |1)=8....| 0,"hand|
|00000550| 22 00 cd 05 20 30 2c 34 | 2c 30 3a b8 01 20 30 2c |"... 0,4|,0:.. 0,|
|00000560| 30 3a 80 2b 20 cd 0c 20 | 30 00 ce 01 20 30 2c 22 |0:.+ .. |0... 0,"|
|00000570| 68 61 6e 64 22 2c 31 36 | 00 3b 00 cd 0a 20 30 2c |hand",16|.;... 0,|
|00000580| 22 63 61 72 64 73 2e 72 | 6f 74 74 65 64 22 00 ce |"cards.r|otted"..|
|00000590| 01 20 30 2c 22 70 61 6c | 22 00 3b 00 80 0b 20 be |. 0,"pal|".;... .|
|000005a0| 01 28 30 2c 22 74 69 74 | 6c 65 2e 78 79 73 22 29 |.(0,"tit|le.xys")|
|000005b0| 00 20 20 20 20 be 08 20 | 30 00 20 20 20 20 80 16 |. .. |0. ..|
|000005c0| 20 6b 3d 31 20 80 18 20 | 6e 74 00 20 20 20 20 78 | k=1 .. |nt. x|
|000005d0| 28 6b 29 3d dc 8d 28 dd | 02 28 32 29 29 3a 79 28 |(k)=..(.|.(2)):y(|
|000005e0| 6b 29 3d dc 8d 28 dd 02 | 28 32 29 29 00 20 20 20 |k)=..(..|(2)). |
|000005f0| 20 80 17 00 20 20 20 20 | be 02 20 30 3a d2 01 00 | ... |.. 0:...|
|00000600| 80 22 00 20 20 20 20 80 | 02 00 80 c0 00 3b 00 66 |.". .|.....;.f|
|00000610| 63 3d bc 0b 2a 31 30 2b | 35 30 20 20 20 3b 66 72 |c=..*10+|50 ;fr|
|00000620| 61 6d 65 73 20 70 65 72 | 20 73 65 63 6f 6e 64 00 |ames per| second.|
|00000630| 3b 00 80 37 20 66 63 2a | 35 00 3b 00 80 34 00 00 |;..7 fc*|5.;..4..|
|00000640| ca 01 20 30 2c 36 34 00 | ca 01 20 31 2c 36 34 00 |.. 0,64.|.. 1,64.|
|00000650| 3b 42 75 66 66 65 72 20 | 30 2c 34 30 39 36 00 3b |;Buffer |0,4096.;|
|00000660| 42 75 66 66 65 72 20 31 | 2c 34 30 39 36 00 00 80 |Buffer 1|,4096...|
|00000670| 06 20 67 61 6d 65 62 69 | 74 6d 61 70 73 00 b1 01 |. gamebi|tmaps...|
|00000680| 20 80 c5 3a c7 07 00 00 | 2e 6d 61 69 6e 00 80 06 | ..:....|.main...|
|00000690| 20 69 6e 74 72 6f 3a 80 | 0b 20 73 74 66 20 80 21 | intro:.|. stf .!|
|000006a0| 20 80 05 20 73 74 61 72 | 74 00 80 06 20 6c 6f 73 | .. star|t... los|
|000006b0| 63 6f 72 65 73 3a 80 0b | 20 73 74 66 20 80 21 20 |cores:..| stf .! |
|000006c0| 80 05 20 73 74 61 72 74 | 00 80 05 20 6d 61 69 6e |.. start|... main|
|000006d0| 00 00 2e 73 74 61 72 74 | 00 80 06 20 67 65 74 6c |...start|... getl|
|000006e0| 65 76 65 6c 00 80 06 20 | 74 61 62 6c 65 00 80 06 |evel... |table...|
|000006f0| 20 61 6e 69 6d 6f 6e 00 | 80 06 20 64 65 61 6c 00 | animon.|.. deal.|
|00000700| 00 63 64 3d 73 6b 69 6c | 6c 2b 73 6b 69 6c 6c 00 |.cd=skil|l+skill.|
|00000710| 00 2e 67 61 6d 65 20 20 | 20 3b 74 68 69 73 20 69 |..game | ;this i|
|00000720| 73 20 54 48 45 20 6d 61 | 69 6e 20 67 61 6d 65 20 |s THE ma|in game |
|00000730| 6c 6f 6f 70 21 00 3b 00 | 80 37 00 3b 00 80 06 20 |loop!.;.|.7.;... |
|00000740| 68 75 6d 61 6e 00 80 06 | 20 63 6f 6d 70 75 74 65 |human...| compute|
|00000750| 72 00 80 06 20 6c 6f 63 | 6b 6f 75 74 00 80 0b 20 |r... loc|kout... |
|00000760| 63 6c 28 31 29 3d 30 20 | 80 21 20 80 05 20 77 69 |cl(1)=0 |.! .. wi|
|00000770| 6e 00 80 0b 20 63 6c 28 | 30 29 3d 30 20 80 21 20 |n... cl(|0)=0 .! |
|00000780| 80 05 20 6c 6f 73 65 00 | 3b 00 80 05 20 67 61 6d |.. lose.|;... gam|
|00000790| 65 00 00 2e 77 69 6e 20 | 20 20 20 3b 70 6c 61 79 |e...win | ;play|
|000007a0| 65 72 20 68 61 73 20 77 | 6f 6e 20 74 68 65 20 67 |er has w|on the g|
|000007b0| 61 6d 65 21 00 6c 6f 74 | 3d 74 69 2e 77 3a 74 69 |ame!.lot|=ti.w:ti|
|000007c0| 3d 2d 31 00 80 37 20 66 | 63 2a 33 3a 80 31 20 35 |=-1..7 f|c*3:.1 5|
|000007d0| 3a 80 37 00 c7 04 20 36 | 2c 31 38 2e 35 3a dd 81 |:.7... 6|,18.5:..|
|000007e0| 20 22 2a 2a 2a 2a 2a 20 | 43 4f 4e 47 52 41 54 55 | "***** |CONGRATU|
|000007f0| 4c 41 54 49 4f 4e 53 21 | 21 20 2a 2a 2a 2a 2a 22 |LATIONS!|! *****"|
|00000800| 00 c7 04 20 31 34 2c 32 | 30 2e 35 3a dd 81 20 22 |... 14,2|0.5:.. "|
|00000810| 59 4f 55 20 48 41 56 45 | 20 57 4f 4e 21 22 00 80 |YOU HAVE| WON!"..|
|00000820| 16 20 6b 3d 31 20 80 18 | 20 66 63 2a 35 00 80 37 |. k=1 ..| fc*5..7|
|00000830| 00 80 0b 20 df 04 28 30 | 29 20 80 21 20 80 be 20 |... ..(0|) .! .. |
|00000840| 80 16 3a 80 05 20 70 6f | 70 70 65 64 00 80 17 00 |..:.. po|pped....|
|00000850| 70 6f 70 70 65 64 00 80 | 16 20 66 6c 3d 31 20 80 |popped..|. fl=1 .|
|00000860| 18 20 31 32 00 80 0b 20 | 6c 6f 74 3c 6c 6f 74 28 |. 12... |lot<lot(|
|00000870| 66 6c 29 20 80 8a 20 6c | 6f 74 28 66 6c 29 3d 30 |fl) .. l|ot(fl)=0|
|00000880| 00 20 20 20 20 3b 69 6e | 73 65 72 74 20 6e 61 6d |. ;in|sert nam|
|00000890| 65 20 62 65 66 6f 72 65 | 20 68 65 72 65 21 00 20 |e before| here!. |
|000008a0| 20 20 20 80 be 20 80 16 | 00 20 20 20 20 3b 00 20 | .. ..|. ;. |
|000008b0| 20 20 20 80 16 20 6b 3d | 31 31 20 80 18 20 66 6c | .. k=|11 .. fl|
|000008c0| 20 80 19 20 2d 31 00 20 | 20 20 20 6c 6f 6e 24 28 | .. -1. | lon$(|
|000008d0| 6b 2b 31 29 3d 6c 6f 6e | 24 28 6b 29 00 20 20 20 |k+1)=lon|$(k). |
|000008e0| 20 6c 6f 74 28 6b 2b 31 | 29 3d 6c 6f 74 28 6b 29 | lot(k+1|)=lot(k)|
|000008f0| 00 20 20 20 20 6c 6f 6c | 28 6b 2b 31 29 3d 6c 6f |. lol|(k+1)=lo|
|00000900| 6c 28 6b 29 00 20 20 20 | 20 80 17 00 20 20 20 20 |l(k). | ... |
|00000910| 3b 00 20 20 20 20 6c 6f | 6e 24 28 66 6c 29 3d 22 |;. lo|n$(fl)="|
|00000920| 22 3a 6c 6f 6c 28 66 6c | 29 3d 73 6c 3a 6c 6f 74 |":lol(fl|)=sl:lot|
|00000930| 28 66 6c 29 3d 6c 6f 74 | 00 20 20 20 20 3b 00 20 |(fl)=lot|. ;. |
|00000940| 20 20 20 6c 73 66 3d 30 | 3a 80 06 20 6c 6f 73 63 | lsf=0|:.. losc|
|00000950| 6f 72 65 73 32 3a 80 31 | 20 35 3a 80 2c 20 d0 01 |ores2:.1| 5:., ..|
|00000960| 20 32 00 20 20 20 20 3b | 00 20 20 20 20 c7 04 20 | 2. ;|. .. |
|00000970| 31 2c 32 36 2e 35 00 20 | 20 20 20 dd 81 20 22 4e |1,26.5. | .. "N|
|00000980| 65 77 20 4c 6f 77 20 53 | 63 6f 72 65 21 20 20 50 |ew Low S|core! P|
|00000990| 6c 65 61 73 65 20 45 6e | 74 65 72 20 79 6f 75 20 |lease En|ter you |
|000009a0| 6e 61 6d 65 21 22 00 20 | 20 20 20 c7 04 20 34 2c |name!". | .. 4,|
|000009b0| 66 6c 2b 38 00 20 20 20 | 20 6c 6f 6e 24 28 66 6c |fl+8. | lon$(fl|
|000009c0| 29 3d dd 01 28 31 32 29 | 00 20 20 20 20 3b 00 20 |)=..(12)|. ;. |
|000009d0| 20 20 20 80 05 20 6d 61 | 69 6e 00 80 c0 00 80 17 | .. ma|in......|
|000009e0| 00 80 05 20 6d 61 69 6e | 00 00 2e 6c 6f 73 65 20 |... main|...lose |
|000009f0| 20 20 3b 70 6c 61 79 65 | 72 20 68 61 73 20 6c 6f | ;playe|r has lo|
|00000a00| 73 74 20 67 61 6d 65 21 | 00 74 69 3d 2d 31 00 80 |st game!|.ti=-1..|
|00000a10| 37 20 66 63 2a 33 3a 80 | 31 20 35 3a 80 37 00 c7 |7 fc*3:.|1 5:.7..|
|00000a20| 04 20 31 30 2c 36 2e 35 | 3a dd 81 20 22 2a 2a 2a |. 10,6.5|:.. "***|
|00000a30| 2a 2a 20 4f 48 20 44 45 | 41 52 21 21 20 2a 2a 2a |** OH DE|AR!! ***|
|00000a40| 2a 2a 22 00 c7 04 20 31 | 30 2c 38 2e 35 3a dd 81 |**"... 1|0,8.5:..|
|00000a50| 20 22 54 48 45 20 43 4f | 4d 50 55 54 45 52 20 48 | "THE CO|MPUTER H|
|00000a60| 41 53 20 57 4f 4e 21 22 | 00 80 16 20 6b 3d 31 20 |AS WON!"|... k=1 |
|00000a70| 80 18 20 66 63 2a 35 00 | 80 37 00 80 0b 20 df 04 |.. fc*5.|.7... ..|
|00000a80| 28 30 29 20 80 21 20 80 | be 20 80 16 3a 80 05 20 |(0) .! .|. ..:.. |
|00000a90| 6d 61 69 6e 00 80 17 00 | 80 05 20 6d 61 69 6e 00 |main....|.. main.|
|00000aa0| 00 3b 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.;******|********|
|00000ab0| 2a 2a 2a 2a 20 53 55 42 | 52 4f 55 54 49 4e 45 53 |**** SUB|ROUTINES|
|00000ac0| 20 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a | *******|********|
|00000ad0| 2a 2a 00 00 2e 6c 6f 63 | 6b 6f 75 74 00 80 0b 20 |**...loc|kout... |
|00000ae0| 6c 6f 20 80 21 20 80 07 | 20 20 3b 6e 6f 20 63 6f |lo .! ..| ;no co|
|00000af0| 6d 70 75 74 65 72 20 6c | 6f 63 6b 6f 75 74 00 75 |mputer l|ockout.u|
|00000b00| 70 31 3d 75 70 28 6e 75 | 70 28 30 29 2c 30 29 00 |p1=up(nu|p(0),0).|
|00000b10| 75 70 32 3d 75 70 28 6e | 75 70 28 31 29 2c 31 29 |up2=up(n|up(1),1)|
|00000b20| 00 80 16 20 6b 3d 31 20 | 80 18 20 35 00 6a 3d 68 |... k=1 |.. 5.j=h|
|00000b30| 61 6e 64 28 6b 2c 31 29 | 00 80 0b 20 6a 00 20 20 |and(k,1)|... j. |
|00000b40| 20 20 63 75 70 32 3d bc | 06 28 6a 2b 31 2c 31 2c | cup2=.|.(j+1,1,|
|00000b50| 31 34 29 00 20 20 20 20 | 63 75 70 31 3d bc 06 28 |14). |cup1=..(|
|00000b60| 6a 2d 31 2c 31 2c 31 34 | 29 00 20 20 20 20 80 0b |j-1,1,14|). ..|
|00000b70| 20 63 75 70 31 3d 75 70 | 31 20 80 8a 20 63 75 70 | cup1=up|1 .. cup|
|00000b80| 32 3d 75 70 31 20 3b 63 | 61 6e 20 74 68 72 6f 77 |2=up1 ;c|an throw|
|00000b90| 20 6f 6e 74 6f 20 6c 65 | 66 74 20 68 61 6e 64 20 | onto le|ft hand |
|00000ba0| 70 69 6c 65 21 00 20 20 | 20 20 20 20 20 20 80 be |pile!. | ..|
|00000bb0| 20 80 16 3a 80 07 00 20 | 20 20 20 80 c0 00 20 20 | ..:... | ... |
|00000bc0| 20 20 80 0b 20 63 75 70 | 31 3d 75 70 32 20 80 8a | .. cup|1=up2 ..|
|00000bd0| 20 63 75 70 32 3d 75 70 | 32 20 3b 63 61 6e 20 74 | cup2=up|2 ;can t|
|00000be0| 68 72 6f 77 20 6f 6e 74 | 6f 20 72 69 67 68 74 20 |hrow ont|o right |
|00000bf0| 68 61 6e 64 20 70 69 6c | 65 21 00 20 20 20 20 20 |hand pil|e!. |
|00000c00| 20 20 20 80 be 20 80 16 | 3a 80 07 00 20 20 20 20 | .. ..|:... |
|00000c10| 80 c0 00 80 22 00 20 20 | 20 20 80 0b 20 6e 64 6f |....". | .. ndo|
|00000c20| 77 6e 28 31 29 20 80 21 | 20 80 be 20 80 16 3a 80 |wn(1) .!| .. ..:.|
|00000c30| 07 00 80 c0 00 80 17 00 | 3b 00 3b 4c 4f 43 4b 4f |........|;.;LOCKO|
|00000c40| 55 54 21 00 3b 00 80 06 | 20 66 6c 69 70 74 77 6f |UT!.;...| fliptwo|
|00000c50| 00 3b 00 80 07 00 00 2e | 63 6f 6d 70 75 74 65 72 |.;......|computer|
|00000c60| 00 3b 69 6e 20 77 68 69 | 63 68 20 74 68 65 20 63 |.;in whi|ch the c|
|00000c70| 6f 6d 70 75 74 65 72 20 | 64 6f 65 73 20 73 6f 6d |omputer |does som|
|00000c80| 65 74 68 69 6e 67 20 72 | 65 61 6c 6c 79 20 63 6c |ething r|eally cl|
|00000c90| 65 76 65 72 21 00 3b 00 | 6c 6f 3d 2d 31 00 80 0b |ever!.;.|lo=-1...|
|00000ca0| 20 63 64 3e 30 20 80 21 | 20 63 64 2d 31 3a 80 07 | cd>0 .!| cd-1:..|
|00000cb0| 00 63 64 3d bc 07 28 73 | 6b 69 6c 6c 29 2b 73 6b |.cd=..(s|kill)+sk|
|00000cc0| 69 6c 6c 00 3b 00 75 70 | 31 3d 75 70 28 6e 75 70 |ill.;.up|1=up(nup|
|00000cd0| 28 30 29 2c 30 29 20 20 | 20 20 3b 6c 65 66 74 20 |(0),0) | ;left |
|00000ce0| 68 61 6e 64 20 70 69 6c | 65 21 00 75 70 32 3d 75 |hand pil|e!.up2=u|
|00000cf0| 70 28 6e 75 70 28 31 29 | 2c 31 29 20 20 20 20 3b |p(nup(1)|,1) ;|
|00000d00| 72 69 67 68 74 20 68 61 | 6e 64 20 70 69 6c 65 21 |right ha|nd pile!|
|00000d10| 00 80 16 20 6b 3d 31 20 | 80 18 20 35 00 6a 3d 68 |... k=1 |.. 5.j=h|
|00000d20| 61 6e 64 28 6b 2c 30 29 | 00 80 0b 20 6a 00 20 20 |and(k,0)|... j. |
|00000d30| 20 20 63 75 70 32 3d bc | 06 28 6a 2b 31 2c 31 2c | cup2=.|.(j+1,1,|
|00000d40| 31 34 29 00 20 20 20 20 | 63 75 70 31 3d bc 06 28 |14). |cup1=..(|
|00000d50| 6a 2d 31 2c 31 2c 31 34 | 29 00 20 20 20 20 80 0b |j-1,1,14|). ..|
|00000d60| 20 63 75 70 31 3d 75 70 | 31 20 80 8a 20 63 75 70 | cup1=up|1 .. cup|
|00000d70| 32 3d 75 70 31 20 3b 63 | 61 6e 20 74 68 72 6f 77 |2=up1 ;c|an throw|
|00000d80| 20 6f 6e 74 6f 20 6c 65 | 66 74 20 68 61 6e 64 20 | onto le|ft hand |
|00000d90| 70 69 6c 65 21 00 20 20 | 20 20 20 20 20 20 70 3d |pile!. | p=|
|00000da0| 30 3a 80 be 20 80 16 3a | 80 05 20 63 6f 6d 70 70 |0:.. ..:|.. compp|
|00000db0| 75 74 00 20 20 20 20 80 | c0 00 20 20 20 20 80 0b |ut. .|.. ..|
|00000dc0| 20 63 75 70 31 3d 75 70 | 32 20 80 8a 20 63 75 70 | cup1=up|2 .. cup|
|00000dd0| 32 3d 75 70 32 20 3b 63 | 61 6e 20 74 68 72 6f 77 |2=up2 ;c|an throw|
|00000de0| 20 6f 6e 74 6f 20 72 69 | 67 68 74 20 68 61 6e 64 | onto ri|ght hand|
|00000df0| 20 70 69 6c 65 21 00 20 | 20 20 20 20 20 20 20 70 | pile!. | p|
|00000e00| 3d 31 3a 80 be 20 80 16 | 3a 80 05 20 63 6f 6d 70 |=1:.. ..|:.. comp|
|00000e10| 70 75 74 00 20 20 20 20 | 80 c0 00 80 c0 00 80 17 |put. |........|
|00000e20| 00 3b 00 3b 4e 6f 20 63 | 61 72 64 73 20 63 61 6e |.;.;No c|ards can|
|00000e30| 20 62 65 20 74 68 72 6f | 77 6e 20 6f 75 74 21 20 | be thro|wn out! |
|00000e40| 2d 20 63 61 6e 20 77 65 | 20 70 69 63 6b 20 75 70 |- can we| pick up|
|00000e50| 3f 00 3b 00 74 72 79 67 | 65 74 00 80 0b 20 6e 68 |?.;.tryg|et... nh|
|00000e60| 61 6e 64 28 30 29 3c 35 | 00 20 20 20 20 80 0b 20 |and(0)<5|. .. |
|00000e70| 6e 64 6f 77 6e 28 30 29 | 00 20 20 20 20 20 20 20 |ndown(0)|. |
|00000e80| 20 63 64 20 80 7d 20 31 | 3a 70 3d 30 3a 80 05 20 | cd .} 1|:p=0:.. |
|00000e90| 70 69 63 6b 6e 65 77 00 | 20 20 20 20 80 c0 00 80 |picknew.| ....|
|00000ea0| c0 00 3b 00 6c 6f 3d 30 | 00 3b 00 80 07 00 00 2e |..;.lo=0|.;......|
|00000eb0| 63 6f 6d 70 70 75 74 00 | 3b 00 70 70 3d 30 00 63 |compput.|;.pp=0.c|
|00000ec0| 6e 32 3d 63 6e 3a 63 68 | 32 3d 63 68 00 63 6e 3d |n2=cn:ch|2=ch.cn=|
|00000ed0| 6b 3a 63 68 3d 6a 00 80 | 06 20 70 75 74 6f 6b 00 |k:ch=j..|. putok.|
|00000ee0| 63 6e 3d 63 6e 32 3a 63 | 68 3d 63 68 32 00 3b 00 |cn=cn2:c|h=ch2.;.|
|00000ef0| 80 0b 20 bc 07 3e 73 6b | 69 6c 6c 32 00 20 20 20 |.. ..>sk|ill2. |
|00000f00| 20 80 0b 20 6e 68 61 6e | 64 28 30 29 3c 35 00 20 | .. nhan|d(0)<5. |
|00000f10| 20 20 20 20 20 20 20 80 | 0b 20 6e 64 6f 77 6e 28 | .|. ndown(|
|00000f20| 30 29 3e 30 00 20 20 20 | 20 20 20 20 20 20 20 20 |0)>0. | |
|00000f30| 20 70 3d 30 3a 80 05 20 | 70 69 63 6b 6e 65 77 00 | p=0:.. |picknew.|
|00000f40| 20 20 20 20 20 20 20 20 | 80 c0 00 20 20 20 20 80 | |... .|
|00000f50| c0 00 80 c0 00 80 07 00 | 00 2e 68 75 6d 61 6e 00 |........|..human.|
|00000f60| 3b 55 6e 42 75 66 66 65 | 72 20 64 62 00 80 0b 20 |;UnBuffe|r db... |
|00000f70| 63 68 20 20 20 3b 63 61 | 72 64 20 68 65 6c 64 3f |ch ;ca|rd held?|
|00000f80| 00 20 20 20 20 6d 78 3d | b6 04 3a 6d 79 3d b6 05 |. mx=|..:my=..|
|00000f90| 00 20 20 20 20 80 0b 20 | 6d 78 3c 31 36 20 80 21 |. .. |mx<16 .!|
|00000fa0| 20 6d 78 3d 31 36 20 80 | 22 20 80 0b 20 6d 78 3e | mx=16 .|" .. mx>|
|00000fb0| 33 30 34 20 80 21 20 6d | 78 3d 33 30 34 00 20 20 |304 .! m|x=304. |
|00000fc0| 20 20 80 0b 20 6d 79 3c | 31 36 20 80 21 20 6d 79 | .. my<|16 .! my|
|00000fd0| 3d 31 36 20 80 22 20 80 | 0b 20 6d 79 3e 32 30 38 |=16 ." .|. my>208|
|00000fe0| 20 80 21 20 6d 79 3d 32 | 30 38 00 20 20 20 20 ca | .! my=2|08. .|
|00000ff0| 02 20 64 62 2c 63 68 2c | 6d 78 2c 6d 79 00 80 c0 |. db,ch,|mx,my...|
|00001000| 00 80 0b 20 df 04 28 30 | 29 3d 32 20 80 21 20 80 |... ..(0|)=2 .! .|
|00001010| 02 00 80 0b 20 df 04 28 | 30 29 3e 30 00 20 20 20 |.... ..(|0)>0. |
|00001020| 20 80 0b 20 6c 62 00 20 | 20 20 20 20 20 20 20 3b | .. lb. | ;|
|00001030| 6d 6f 75 73 65 20 63 6c | 69 63 6b 21 00 20 20 20 |mouse cl|ick!. |
|00001040| 20 20 20 20 20 80 0b 20 | b6 05 3e 3d 31 39 32 20 | .. |..>=192 |
|00001050| 80 42 20 b6 05 3c 32 32 | 34 00 20 20 20 20 20 20 |.B ..<22|4. |
|00001060| 20 20 20 20 20 20 63 6e | 3d bc 02 28 28 b6 04 2d | cn|=..((..-|
|00001070| 34 30 29 2f 34 38 29 2b | 31 00 20 20 20 20 20 20 |40)/48)+|1. |
|00001080| 20 20 20 20 20 20 80 0b | 20 63 6e 3e 30 20 80 42 | ..| cn>0 .B|
|00001090| 20 63 6e 3c 36 20 80 21 | 20 63 68 3d 68 61 6e 64 | cn<6 .!| ch=hand|
|000010a0| 28 63 6e 2c 31 29 20 80 | 22 20 63 68 3d 30 00 20 |(cn,1) .|" ch=0. |
|000010b0| 20 20 20 20 20 20 20 80 | 22 00 20 20 20 20 20 20 | .|". |
|000010c0| 20 20 20 20 20 20 80 0b | 20 63 68 00 20 20 20 20 | ..| ch. |
|000010d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 80 0b 20 b6 | | .. .|
|000010e0| 05 3e 3d 39 36 2d 31 36 | 20 80 42 20 b6 05 3c 31 |.>=96-16| .B ..<1|
|000010f0| 32 38 2b 31 36 20 3b 63 | 6c 69 63 6b 20 6f 6e 20 |28+16 ;c|lick on |
|00001100| 64 65 73 74 20 63 61 72 | 64 3f 00 20 20 20 20 20 |dest car|d?. |
|00001110| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 70 | | p|
|00001120| 70 3d 31 00 20 20 20 20 | 20 20 20 20 20 20 20 20 |p=1. | |
|00001130| 20 20 20 20 20 20 20 20 | 80 0b 20 b6 04 3e 3d 31 | |.. ..>=1|
|00001140| 32 34 2d 31 32 20 80 42 | 20 b6 04 3c 31 36 30 00 |24-12 .B| ..<160.|
|00001150| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001160| 20 20 20 20 20 20 20 20 | 70 3d 30 3a 80 06 20 74 | |p=0:.. t|
|00001170| 72 79 70 75 74 00 20 20 | 20 20 20 20 20 20 20 20 |ryput. | |
|00001180| 20 20 20 20 20 20 20 20 | 20 20 80 22 00 20 20 20 | | .". |
|00001190| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000011a0| 20 20 20 20 20 80 0b 20 | b6 04 3e 31 36 30 20 80 | .. |..>160 .|
|000011b0| 42 20 b6 04 3c 31 39 36 | 2b 31 32 00 20 20 20 20 |B ..<196|+12. |
|000011c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000011d0| 20 20 20 20 20 20 20 20 | 70 3d 31 3a 80 06 20 74 | |p=1:.. t|
|000011e0| 72 79 70 75 74 00 20 20 | 20 20 20 20 20 20 20 20 |ryput. | |
|000011f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 80 c0 | | ..|
|00001200| 00 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00001210| 20 20 20 20 20 80 c0 00 | 20 20 20 20 20 20 20 20 | ...| |
|00001220| 20 20 20 20 20 20 20 20 | 80 22 00 20 20 20 20 20 | |.". |
|00001230| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 63 | | c|
|00001240| 68 3d 30 00 20 20 20 20 | 20 20 20 20 20 20 20 20 |h=0. | |
|00001250| 20 20 20 20 80 c0 00 20 | 20 20 20 20 20 20 20 20 | ... | |
|00001260| 20 20 20 80 c0 00 20 20 | 20 20 20 20 20 20 80 c0 | ... | ..|
|00001270| 00 20 20 20 20 20 20 20 | 20 80 0b 20 b6 05 3e 3d |. | .. ..>=|
|00001280| 31 34 34 20 80 42 20 b6 | 05 3c 31 37 36 20 80 42 |144 .B .|.<176 .B|
|00001290| 20 6e 68 61 6e 64 28 31 | 29 3c 35 00 20 20 20 20 | nhand(1|)<5. |
|000012a0| 20 20 20 20 20 20 20 20 | 6e 64 3d 6e 64 6f 77 6e | |nd=ndown|
|000012b0| 28 31 29 00 20 20 20 20 | 20 20 20 20 20 20 20 20 |(1). | |
|000012c0| 80 0b 20 6e 64 00 20 20 | 20 20 20 20 20 20 20 20 |.. nd. | |
|000012d0| 20 20 20 20 20 20 64 78 | 3d 64 6f 77 6e 78 28 6e | dx|=downx(n|
|000012e0| 64 2c 31 29 2d 31 32 3a | 64 79 3d 64 6f 77 6e 79 |d,1)-12:|dy=downy|
|000012f0| 28 6e 64 2c 31 29 2d 31 | 36 00 20 20 20 20 20 20 |(nd,1)-1|6. |
|00001300| 20 20 20 20 20 20 20 20 | 20 20 80 0b 20 b6 04 3e | | .. ..>|
|00001310| 3d 64 78 20 80 42 20 b6 | 04 3c 64 78 2b 32 34 00 |=dx .B .|.<dx+24.|
|00001320| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001330| 20 20 20 20 80 0b 20 b6 | 05 3e 3d 64 79 20 80 42 | .. .|.>=dy .B|
|00001340| 20 b6 05 3c 64 79 2b 33 | 32 00 20 20 20 20 20 20 | ..<dy+3|2. |
|00001350| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001360| 20 20 3b 67 72 61 62 20 | 61 20 63 61 72 64 20 66 | ;grab |a card f|
|00001370| 72 6f 6d 20 70 69 6c 65 | 21 00 20 20 20 20 20 20 |rom pile|!. |
|00001380| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001390| 20 20 70 3d 31 3a 80 06 | 20 70 69 63 6b 6e 65 77 | p=1:..| picknew|
|000013a0| 3a 63 68 3d 30 00 20 20 | 20 20 20 20 20 20 20 20 |:ch=0. | |
|000013b0| 20 20 20 20 20 20 20 20 | 20 20 80 c0 00 20 20 20 | | ... |
|000013c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 80 c0 00 | | ...|
|000013d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 80 c0 00 20 | | ... |
|000013e0| 20 20 20 20 20 20 20 80 | c0 00 20 20 20 20 20 20 | .|.. |
|000013f0| 20 20 6c 62 3d 30 00 20 | 20 20 20 80 c0 00 80 22 | lb=0. | ...."|
|00001400| 00 20 20 20 20 6c 62 3d | 2d 31 00 80 c0 00 3b 00 |. lb=|-1....;.|
|00001410| 80 07 00 00 2e 74 72 79 | 70 75 74 20 3b 74 72 79 |.....try|put ;try|
|00001420| 20 74 6f 20 70 75 74 20 | 61 20 63 61 72 64 20 74 | to put |a card t|
|00001430| 68 65 72 65 21 00 3b 00 | 63 75 70 3d 75 70 28 6e |here!.;.|cup=up(n|
|00001440| 75 70 28 70 29 2c 70 29 | 00 80 0b 20 63 68 3d bc |up(p),p)|... ch=.|
|00001450| 06 28 63 75 70 2b 31 2c | 31 2c 31 34 29 20 80 21 |.(cup+1,|1,14) .!|
|00001460| 20 80 05 20 70 75 74 6f | 6b 00 80 0b 20 63 68 3c | .. puto|k... ch<|
|00001470| 3e bc 06 28 63 75 70 2d | 31 2c 31 2c 31 34 29 00 |>..(cup-|1,1,14).|
|00001480| 20 20 20 20 63 68 3d 30 | 3a 80 07 00 80 c0 00 3b | ch=0|:......;|
|00001490| 00 2e 70 75 74 6f 6b 00 | 6e 75 70 28 70 29 2b 31 |..putok.|nup(p)+1|
|000014a0| 3a 75 70 28 6e 75 70 28 | 70 29 2c 70 29 3d 63 68 |:up(nup(|p),p)=ch|
|000014b0| 00 64 79 3d 31 31 32 3a | 64 78 3d 31 33 36 3a 80 |.dy=112:|dx=136:.|
|000014c0| 0b 20 70 20 80 21 20 64 | 78 3d 31 38 34 00 79 3d |. p .! d|x=184.y=|
|000014d0| 31 36 3a 80 0b 20 70 70 | 20 80 21 20 79 3d 32 30 |16:.. pp| .! y=20|
|000014e0| 38 00 78 3d 63 6e 2a 34 | 38 2b 31 36 3a 80 06 20 |8.x=cn*4|8+16:.. |
|000014f0| 68 6f 6d 65 69 6e 00 80 | 06 20 61 64 64 63 61 72 |homein..|. addcar|
|00001500| 64 3a 80 0b 20 70 70 20 | 80 21 20 5c 6e 3d 63 68 |d:.. pp |.! \n=ch|
|00001510| 20 80 22 20 5c 61 3d 63 | 68 00 80 06 20 61 64 64 | ." \a=c|h... add|
|00001520| 62 6c 61 6e 6b 00 68 61 | 6e 64 28 63 6e 2c 70 70 |blank.ha|nd(cn,pp|
|00001530| 29 3d 30 3a 6e 68 61 6e | 64 28 70 70 29 2d 31 3a |)=0:nhan|d(pp)-1:|
|00001540| 63 6c 28 70 70 29 2d 31 | 00 63 68 3d 30 00 80 07 |cl(pp)-1|.ch=0...|
|00001550| 00 00 2e 6d 79 63 6c 73 | 00 80 16 20 6b 3d 30 20 |...mycls|... k=0 |
|00001560| 80 18 20 32 00 80 2c 20 | d0 01 20 6b 3a b2 05 00 |.. 2.., |.. k:...|
|00001570| 80 17 00 80 07 00 00 2e | 64 69 73 70 69 6e 69 74 |........|dispinit|
|00001580| 00 3b 00 c8 0b 00 3b 00 | 80 31 20 35 00 80 06 20 |.;....;.|.1 5... |
|00001590| 6d 79 63 6c 73 3a c8 0a | 3a 80 06 20 67 61 6d 65 |mycls:..|:.. game|
|000015a0| 64 69 73 70 6c 61 79 00 | 3b 00 c8 0c 00 3b 00 80 |display.|;....;..|
|000015b0| 07 00 00 2e 6c 6f 73 63 | 6f 72 65 73 00 3b 00 6c |....losc|ores.;.l|
|000015c0| 73 66 3d 2d 31 3a 73 74 | 66 3d 2d 31 00 3b 00 6c |sf=-1:st|f=-1.;.l|
|000015d0| 6f 73 63 6f 72 65 73 32 | 00 80 06 20 64 69 73 70 |oscores2|... disp|
|000015e0| 69 6e 69 74 3a ce 05 20 | 30 2c 30 2c 30 2c 30 00 |init:.. |0,0,0,0.|
|000015f0| 3b 00 80 16 20 79 3d 30 | 20 80 18 20 37 00 c8 08 |;... y=0| .. 7...|
|00001600| 20 39 2c 79 2b 37 2c 31 | 35 2c 30 2c 79 00 80 17 | 9,y+7,1|5,0,y...|
|00001610| 00 3b 00 80 16 20 79 3d | 30 20 80 18 20 37 00 c8 |.;... y=|0 .. 7..|
|00001620| 08 20 39 2c 79 2b 38 2c | 38 2c 30 2c 79 2b 35 36 |. 9,y+8,|8,0,y+56|
|00001630| 00 80 17 00 c8 08 20 39 | 2c 31 35 2c 31 35 2c 31 |...... 9|,15,15,1|
|00001640| 35 2c 36 34 00 3b 00 c7 | 04 20 31 32 2c 30 00 dd |5,64.;..|. 12,0..|
|00001650| 81 20 22 53 50 45 45 44 | 20 4c 4f 57 20 53 43 4f |. "SPEED| LOW SCO|
|00001660| 52 45 53 22 00 3b 00 78 | 3d 31 36 30 3a 79 3d 39 |RES".;.x|=160:y=9|
|00001670| 36 00 3b 00 80 0b 20 6c | 73 66 20 80 21 20 cb 01 |6.;... l|sf .! ..|
|00001680| 20 31 34 2c 78 2c 79 3a | 80 06 20 61 6e 69 6d 6f | 14,x,y:|.. animo|
|00001690| 6e 00 3b 00 64 79 3d 33 | 32 3a 80 16 20 64 78 3d |n.;.dy=3|2:.. dx=|
|000016a0| 31 36 20 80 18 20 33 30 | 34 20 80 19 20 32 34 00 |16 .. 30|4 .. 24.|
|000016b0| 80 0b 20 df 04 28 30 29 | 20 80 42 20 6c 73 66 20 |.. ..(0)| .B lsf |
|000016c0| 80 21 20 80 be 20 80 16 | 3a 80 07 00 80 06 20 6c |.! .. ..|:..... l|
|000016d0| 6f 63 61 72 64 3a 80 17 | 00 3b 00 64 78 3d 33 30 |ocard:..|.;.dx=30|
|000016e0| 34 3a 80 16 20 64 79 3d | 36 34 20 80 18 20 31 37 |4:.. dy=|64 .. 17|
|000016f0| 36 20 80 19 20 33 32 00 | 80 0b 20 df 04 28 30 29 |6 .. 32.|.. ..(0)|
|00001700| 20 80 42 20 6c 73 66 20 | 80 21 20 80 be 20 80 16 | .B lsf |.! .. ..|
|00001710| 3a 80 07 00 80 06 20 6c | 6f 63 61 72 64 3a 80 17 |:..... l|ocard:..|
|00001720| 00 3b 00 64 79 3d 31 39 | 32 3a 80 16 20 64 78 3d |.;.dy=19|2:.. dx=|
|00001730| 33 30 34 20 80 18 20 31 | 36 20 80 19 20 2d 32 34 |304 .. 1|6 .. -24|
|00001740| 00 80 0b 20 df 04 28 30 | 29 20 80 42 20 6c 73 66 |... ..(0|) .B lsf|
|00001750| 20 80 21 20 80 be 20 80 | 16 3a 80 07 00 80 06 20 | .! .. .|.:..... |
|00001760| 6c 6f 63 61 72 64 3a 80 | 17 00 3b 00 64 78 3d 31 |locard:.|..;.dx=1|
|00001770| 36 3a 80 16 20 64 79 3d | 36 34 20 80 18 20 31 37 |6:.. dy=|64 .. 17|
|00001780| 36 20 80 19 20 33 32 00 | 80 0b 20 df 04 28 30 29 |6 .. 32.|.. ..(0)|
|00001790| 20 80 42 20 6c 73 66 20 | 80 21 20 80 be 20 80 16 | .B lsf |.! .. ..|
|000017a0| 3a 80 07 00 80 06 20 6c | 6f 63 61 72 64 3a 80 17 |:..... l|ocard:..|
|000017b0| 00 3b 00 80 0b 20 6c 73 | 66 20 80 21 20 80 06 20 |.;... ls|f .! .. |
|000017c0| 61 64 64 65 72 61 73 65 | 00 3b 00 80 0b 20 6c 73 |adderase|.;... ls|
|000017d0| 66 20 80 21 20 80 37 20 | 34 30 00 3b 00 c7 04 20 |f .! .7 |40.;... |
|000017e0| 34 2c 37 3a dd 81 20 22 | 4e 41 4d 45 20 20 20 20 |4,7:.. "|NAME |
|000017f0| 20 20 20 20 20 20 20 54 | 49 4d 45 20 20 20 20 20 | T|IME |
|00001800| 20 20 20 4c 45 56 45 4c | 22 00 3b 00 80 16 20 6b | LEVEL|".;... k|
|00001810| 3d 31 20 80 18 20 31 32 | 00 80 0b 20 6c 6f 74 28 |=1 .. 12|... lot(|
|00001820| 6b 29 00 20 20 20 20 c7 | 04 20 34 2c 6b 2b 38 3a |k). .|. 4,k+8:|
|00001830| dd 81 20 6c 6f 6e 24 28 | 6b 29 00 20 20 20 20 dd |.. lon$(|k). .|
|00001840| 84 20 22 30 30 30 30 22 | 00 20 20 20 20 c7 04 20 |. "0000"|. .. |
|00001850| 31 39 2c 6b 2b 38 3a dd | 81 20 6c 6f 74 28 6b 29 |19,k+8:.|. lot(k)|
|00001860| 00 20 20 20 20 dd 84 20 | 22 23 22 00 20 20 20 20 |. .. |"#". |
|00001870| c7 04 20 33 33 2c 6b 2b | 38 3a dd 81 20 6c 6f 6c |.. 33,k+|8:.. lol|
|00001880| 28 6b 29 00 80 c0 00 80 | 17 00 dd 84 20 22 22 00 |(k).....|.... "".|
|00001890| 3b 00 80 0b 20 6c 73 66 | 00 20 20 20 20 80 16 20 |;... lsf|. .. |
|000018a0| 6b 3d 31 20 80 18 20 66 | 63 2a 31 30 00 20 20 20 |k=1 .. f|c*10. |
|000018b0| 20 80 37 00 20 20 20 20 | 80 0b 20 df 04 28 30 29 | .7. |.. ..(0)|
|000018c0| 20 80 21 20 80 be 20 80 | 16 3a 80 07 00 20 20 20 | .! .. .|.:... |
|000018d0| 20 80 17 00 80 22 00 20 | 20 20 20 80 07 00 80 c0 | ....". | .....|
|000018e0| 00 3b 00 73 74 66 3d 30 | 3a 80 07 00 00 2e 6c 6f |.;.stf=0|:.....lo|
|000018f0| 63 61 72 64 00 80 0b 20 | 6c 73 66 00 20 20 20 20 |card... |lsf. |
|00001900| 80 37 20 34 3a 80 06 20 | 68 6f 6d 65 69 6e 3a 80 |.7 4:.. |homein:.|
|00001910| 05 20 61 64 64 63 61 72 | 64 32 00 80 22 00 20 20 |. addcar|d2..". |
|00001920| 20 20 cb 01 20 31 34 2c | 64 78 2c 64 79 3a 80 07 | .. 14,|dx,dy:..|
|00001930| 00 80 c0 00 00 2e 67 65 | 74 6c 65 76 65 6c 20 20 |......ge|tlevel |
|00001940| 20 3b 66 69 6e 64 20 6f | 75 74 20 64 65 73 69 72 | ;find o|ut desir|
|00001950| 65 64 20 73 6b 69 6c 6c | 20 6c 65 76 65 6c 00 3b |ed skill| level.;|
|00001960| 00 80 06 20 64 69 73 70 | 69 6e 69 74 3a ce 05 20 |... disp|init:.. |
|00001970| 30 2c 30 2c 30 2c 30 00 | 3b 00 80 16 20 79 3d 30 |0,0,0,0.|;... y=0|
|00001980| 20 80 18 20 37 00 c8 08 | 20 39 2c 79 2b 38 2c 30 | .. 7...| 9,y+8,0|
|00001990| 2c 79 2b 38 2c 79 2b 33 | 32 00 80 17 00 c8 08 20 |,y+8,y+3|2...... |
|000019a0| 39 2c 31 35 2c 31 35 2c | 31 35 2c 34 30 00 3b 00 |9,15,15,|15,40.;.|
|000019b0| c7 04 20 38 2c 34 00 dd | 81 20 22 50 4c 45 41 53 |.. 8,4..|. "PLEAS|
|000019c0| 45 20 53 45 4c 45 43 54 | 20 53 4b 49 4c 4c 20 4c |E SELECT| SKILL L|
|000019d0| 45 56 45 4c 22 00 3b 00 | 80 16 20 6b 3d 31 20 80 |EVEL".;.|.. k=1 .|
|000019e0| 18 20 38 00 cb 01 20 6b | 2c 6b 2a 33 36 2d 32 2c |. 8... k|,k*36-2,|
|000019f0| 31 31 32 00 80 17 00 3b | 00 c7 04 20 32 2c 31 37 |112....;|... 2,17|
|00001a00| 3a dd 81 20 22 48 41 52 | 44 22 00 c7 04 20 33 34 |:.. "HAR|D"... 34|
|00001a10| 2c 31 37 3a dd 81 20 22 | 45 41 53 59 22 00 3b 00 |,17:.. "|EASY".;.|
|00001a20| 80 06 20 61 6e 69 6d 6f | 6e 00 3b 00 73 6c 3d 30 |.. animo|n.;.sl=0|
|00001a30| 00 80 bb 00 20 20 20 20 | 80 37 00 20 20 20 20 80 |.... |.7. .|
|00001a40| 0b 20 df 04 28 30 29 00 | 20 20 20 20 20 20 20 20 |. ..(0).| |
|00001a50| 80 16 20 6b 3d 31 20 80 | 18 20 38 00 20 20 20 20 |.. k=1 .|. 8. |
|00001a60| 20 20 20 20 78 3d 6b 2a | 33 36 2d 32 2d 31 32 3a | x=k*|36-2-12:|
|00001a70| 79 3d 31 31 32 2d 31 36 | 00 20 20 20 20 20 20 20 |y=112-16|. |
|00001a80| 20 80 0b 20 b6 04 3e 3d | 78 20 80 42 20 b6 04 3c | .. ..>=|x .B ..<|
|00001a90| 78 2b 32 34 00 20 20 20 | 20 20 20 20 20 20 20 20 |x+24. | |
|00001aa0| 20 80 0b 20 b6 05 3e 3d | 79 20 80 42 20 b6 05 3c | .. ..>=|y .B ..<|
|00001ab0| 79 2b 33 32 00 20 20 20 | 20 20 20 20 20 20 20 20 |y+32. | |
|00001ac0| 20 20 20 20 20 73 6c 3d | 6b 3a 80 be 20 80 16 3a | sl=|k:.. ..:|
|00001ad0| 80 05 20 75 6e 64 6f 00 | 20 20 20 20 20 20 20 20 |.. undo.| |
|00001ae0| 20 20 20 20 80 c0 00 20 | 20 20 20 20 20 20 20 80 | ... | .|
|00001af0| c0 00 20 20 20 20 20 20 | 20 20 80 17 00 20 20 20 |.. | ... |
|00001b00| 20 80 c0 00 20 20 20 20 | 75 6e 64 6f 00 80 bc 20 | ... |undo... |
|00001b10| 73 6c 00 3b 00 78 3d 73 | 6c 2a 33 36 2d 32 3a 79 |sl.;.x=s|l*36-2:y|
|00001b20| 3d 31 31 32 3a 64 78 3d | 78 3a 64 79 3d 79 3a 80 |=112:dx=|x:dy=y:.|
|00001b30| 06 20 68 6f 6d 65 69 6e | 00 80 06 20 61 64 64 63 |. homein|... addc|
|00001b40| 61 72 64 32 00 5c 6e 3d | 73 6c 3a 5c 61 3d 31 34 |ard2.\n=|sl:\a=14|
|00001b50| 3a 5c 63 3d 2d 5c 63 3a | 5c 78 73 3d 30 3a 5c 79 |:\c=-\c:|\xs=0:\y|
|00001b60| 73 3d 30 3a 5c 6e 6d 3d | 31 30 00 80 06 20 61 64 |s=0:\nm=|10... ad|
|00001b70| 64 65 72 61 73 65 00 3b | 00 80 37 20 34 30 00 73 |derase.;|..7 40.s|
|00001b80| 6b 69 6c 6c 3d 73 6c 2a | 31 30 3a 73 6b 69 6c 6c |kill=sl*|10:skill|
|00001b90| 32 3d 73 6c 2f 31 30 2b | 2e 31 31 31 31 00 80 07 |2=sl/10+|.1111...|
|00001ba0| 00 00 2e 69 6e 74 72 6f | 00 3b 00 73 74 66 3d 2d |...intro|.;.stf=-|
|00001bb0| 31 00 80 06 20 64 69 73 | 70 69 6e 69 74 3a ce 05 |1... dis|pinit:..|
|00001bc0| 20 30 2c 30 2c 30 2c 30 | 00 80 16 20 79 3d 30 20 | 0,0,0,0|... y=0 |
|00001bd0| 80 18 20 37 00 c8 08 20 | 39 2c 31 35 2c 79 2b 37 |.. 7... |9,15,y+7|
|00001be0| 2c 30 2c 79 00 80 17 00 | c8 08 20 39 2c 31 35 2c |,0,y....|.. 9,15,|
|00001bf0| 31 35 2c 31 35 2c 39 00 | 80 16 20 79 3d 30 20 80 |15,15,9.|.. y=0 .|
|00001c00| 18 20 31 35 00 c8 08 20 | 30 2c 79 2c 79 2c 79 2c |. 15... |0,y,y,y,|
|00001c10| 79 2b 36 30 00 c8 08 20 | 30 2c 31 35 2d 79 2c 31 |y+60... |0,15-y,1|
|00001c20| 35 2d 79 2c 31 35 2d 79 | 2c 79 2b 37 36 00 80 17 |5-y,15-y|,y+76...|
|00001c30| 00 c8 08 20 30 2c 30 2c | 30 2c 30 2c 39 36 00 80 |... 0,0,|0,0,96..|
|00001c40| 16 20 79 3d 30 20 80 18 | 20 31 35 00 80 16 20 6a |. y=0 ..| 15... j|
|00001c50| 3d 30 20 80 18 20 37 00 | c8 08 20 31 35 2c 31 35 |=0 .. 7.|.. 15,15|
|00001c60| 2c 6a 2c 79 2c 79 2a 38 | 2b 32 34 2b 6a 00 80 17 |,j,y,y*8|+24+j...|
|00001c70| 00 80 17 00 3b 00 c7 04 | 20 38 2c 30 00 dd 81 20 |....;...| 8,0... |
|00001c80| 22 41 20 42 4c 49 54 5a | 20 42 41 53 49 43 20 5d |"A BLITZ| BASIC ]|
|00001c90| 5b 20 50 52 4f 47 52 41 | 4d 22 00 3b 00 80 37 20 |[ PROGRA|M".;..7 |
|00001ca0| 66 63 00 3b 00 78 3d 31 | 36 30 3a 79 3d 32 30 38 |fc.;.x=1|60:y=208|
|00001cb0| 3a 63 3d 31 00 cb 01 20 | 31 34 2c 78 2c 79 00 80 |:c=1... |14,x,y..|
|00001cc0| 06 20 61 6e 69 6d 6f 6e | 00 80 16 20 6b 3d 31 20 |. animon|... k=1 |
|00001cd0| 80 18 20 6e 74 00 80 0b | 20 df 04 28 30 29 3e 30 |.. nt...| ..(0)>0|
|00001ce0| 20 80 21 20 80 be 20 80 | 16 3a 80 07 00 80 37 20 | .! .. .|.:....7 |
|00001cf0| 33 00 64 78 3d 78 28 6b | 29 2b 34 3a 64 79 3d 79 |3.dx=x(k|)+4:dy=y|
|00001d00| 28 6b 29 2b 31 36 3a 80 | 06 20 68 6f 6d 65 69 6e |(k)+16:.|. homein|
|00001d10| 00 80 06 20 61 64 64 63 | 61 72 64 32 00 5c 78 73 |... addc|ard2.\xs|
|00001d20| 20 80 7c 20 31 3a 5c 79 | 73 20 80 7c 20 31 3a 5c | .| 1:\y|s .| 1:\|
|00001d30| 6e 6d 20 80 7d 20 31 3a | 5c 61 3d 63 3a 63 3d bc |nm .} 1:|\a=c:c=.|
|00001d40| 06 28 63 2b 31 2c 31 2c | 31 34 29 00 80 0b 20 6b |.(c+1,1,|14)... k|
|00001d50| 3d 6e 74 20 80 21 20 80 | 06 20 61 64 64 65 72 61 |=nt .! .|. addera|
|00001d60| 73 65 00 80 17 00 3b 00 | 80 37 20 32 30 00 80 16 |se....;.|.7 20...|
|00001d70| 20 6b 3d 6e 74 20 80 18 | 20 31 20 80 19 20 2d 31 | k=nt ..| 1 .. -1|
|00001d80| 00 80 0b 20 df 04 28 30 | 29 3e 30 20 80 21 20 80 |... ..(0|)>0 .! .|
|00001d90| be 20 80 16 3a 80 07 00 | 80 37 3a 80 2c 20 d0 01 |. ..:...|.7:., ..|
|00001da0| 20 32 00 cb 02 20 cb 06 | 3a cb 01 20 31 34 2c 78 | 2... ..|:.. 14,x|
|00001db0| 28 6b 29 2b 34 2c 79 28 | 6b 29 2b 31 36 3a cb 02 |(k)+4,y(|k)+16:..|
|00001dc0| 20 cb 03 00 80 17 00 3b | 00 80 16 20 6b 3d 31 20 | ......;|... k=1 |
|00001dd0| 80 18 20 66 63 2a 31 30 | 00 80 37 00 80 0b 20 df |.. fc*10|..7... .|
|00001de0| 04 28 30 29 20 80 21 20 | 80 be 20 80 16 3a 80 07 |.(0) .! |.. ..:..|
|00001df0| 00 80 17 00 3b 00 73 74 | 66 3d 30 3a 80 07 00 00 |....;.st|f=0:....|
|00001e00| 2e 74 61 62 6c 65 00 3b | 00 80 31 20 35 3a 80 06 |.table.;|..1 5:..|
|00001e10| 20 64 69 73 70 69 6e 69 | 74 00 3b 00 80 16 20 78 | dispini|t.;... x|
|00001e20| 3d 36 34 20 80 18 20 32 | 35 36 20 80 19 20 34 38 |=64 .. 2|56 .. 48|
|00001e30| 00 cb 01 20 30 2c 78 2c | 31 36 3a cb 01 20 30 2c |... 0,x,|16:.. 0,|
|00001e40| 78 2c 32 30 38 00 80 17 | 00 3b 00 80 16 20 78 3d |x,208...|.;... x=|
|00001e50| 38 38 20 80 18 20 32 33 | 32 20 80 19 20 34 38 00 |88 .. 23|2 .. 48.|
|00001e60| cb 01 20 30 2c 78 2c 31 | 31 32 00 80 17 00 3b 00 |.. 0,x,1|12....;.|
|00001e70| c7 04 20 30 2c 31 31 2e | 35 3a dd 81 20 22 4c 45 |.. 0,11.|5:.. "LE|
|00001e80| 56 45 4c 3a 22 00 c7 04 | 20 30 2c 31 32 2e 35 3a |VEL:"...| 0,12.5:|
|00001e90| dd 81 20 73 6c 00 c7 04 | 20 30 2c 31 34 2e 35 3a |.. sl...| 0,14.5:|
|00001ea0| dd 81 20 22 54 49 4d 45 | 3a 22 00 80 07 00 00 2e |.. "TIME|:"......|
|00001eb0| 61 6e 69 6d 6f 6e 00 3b | 00 80 31 20 35 00 3b 00 |animon.;|..1 5.;.|
|00001ec0| 74 69 2e 77 3d 2d 31 00 | 3b 00 c0 07 20 6f 62 6a |ti.w=-1.|;... obj|
|00001ed0| 28 29 3a c0 07 20 62 61 | 63 6b 28 29 00 3b 00 80 |():.. ba|ck().;..|
|00001ee0| 30 20 35 20 20 20 20 3b | 61 6e 69 6d 61 74 69 6f |0 5 ;|animatio|
|00001ef0| 6e 20 73 79 73 74 65 6d | 21 00 20 20 20 20 3b 00 |n system|!. ;.|
|00001f00| 20 20 20 20 c8 05 20 64 | 62 3a 64 62 3d 31 2d 64 | .. d|b:db=1-d|
|00001f10| 62 3a ca 03 20 64 62 00 | 20 20 20 20 3b 00 20 20 |b:.. db.| ;. |
|00001f20| 20 20 c0 04 20 62 61 63 | 6b 28 29 3a 80 2c 20 d0 | .. bac|k():., .|
|00001f30| 01 20 32 00 20 20 20 20 | 3b 00 20 20 20 20 80 0c |. 2. |;. ..|
|00001f40| 20 c0 03 28 62 61 63 6b | 28 29 29 00 20 20 20 20 | ..(back|()). |
|00001f50| 20 20 20 20 80 0b 20 62 | 61 63 6b 28 29 5c 64 00 | .. b|ack()\d.|
|00001f60| 20 20 20 20 20 20 20 20 | 20 20 20 20 62 61 63 6b | | back|
|00001f70| 28 29 5c 64 3d 30 00 20 | 20 20 20 20 20 20 20 80 |()\d=0. | .|
|00001f80| 22 00 20 20 20 20 20 20 | 20 20 20 20 20 20 cb 02 |". | ..|
|00001f90| 20 62 61 63 6b 28 29 5c | 6d 00 20 20 20 20 20 20 | back()\|m. |
|00001fa0| 20 20 20 20 20 20 cb 01 | 20 62 61 63 6b 28 29 5c | ..| back()\|
|00001fb0| 6e 2c 62 61 63 6b 28 29 | 5c 78 2c 62 61 63 6b 28 |n,back()|\x,back(|
|00001fc0| 29 5c 79 00 20 20 20 20 | 20 20 20 20 20 20 20 20 |)\y. | |
|00001fd0| c0 05 20 62 61 63 6b 28 | 29 00 20 20 20 20 20 20 |.. back(|). |
|00001fe0| 20 20 80 c0 00 20 20 20 | 20 80 c1 00 20 20 20 20 | ... | ... |
|00001ff0| cb 02 20 cb 03 00 20 20 | 20 20 80 0b 20 74 69 3e |.. ... | .. ti>|
|00002000| 3d 30 00 20 20 20 20 20 | 20 20 20 66 63 32 2d 31 |=0. | fc2-1|
|00002010| 3a 80 0b 20 66 63 32 3d | 30 00 20 20 20 20 20 20 |:.. fc2=|0. |
|00002020| 20 20 20 20 20 20 66 63 | 32 3d 66 63 3a 74 69 2b | fc|2=fc:ti+|
|00002030| 31 3a c7 04 20 30 2c 31 | 35 2e 35 3a dd 81 20 74 |1:.. 0,1|5.5:.. t|
|00002040| 69 00 20 20 20 20 20 20 | 20 20 80 c0 00 20 20 20 |i. | ... |
|00002050| 20 80 c0 00 20 20 20 20 | 3b 00 20 20 20 20 c0 04 | ... |;. ..|
|00002060| 20 6f 62 6a 28 29 3a 80 | 2c 20 d0 01 20 64 62 00 | obj():.|, .. db.|
|00002070| 20 20 20 20 3b 00 20 20 | 20 20 80 0c 20 c0 03 28 | ;. | .. ..(|
|00002080| 6f 62 6a 28 29 29 00 20 | 20 20 20 20 20 20 20 80 |obj()). | .|
|00002090| 0b 20 5c 6e 6d 3e 30 00 | 20 20 20 20 20 20 20 20 |. \nm>0.| |
|000020a0| 20 20 20 20 5c 78 2b 5c | 78 73 3a 5c 79 2b 5c 79 | \x+\|xs:\y+\y|
|000020b0| 73 00 20 20 20 20 20 20 | 20 20 20 20 20 20 ca 02 |s. | ..|
|000020c0| 20 64 62 2c 5c 6e 2c 5c | 78 2c 5c 79 00 20 20 20 | db,\n,\|x,\y. |
|000020d0| 20 20 20 20 20 20 20 20 | 20 80 0b 20 5c 61 00 20 | | .. \a. |
|000020e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 80 | | .|
|000020f0| 0b 20 5c 63 3e 30 00 20 | 20 20 20 20 20 20 20 20 |. \c>0. | |
|00002100| 20 20 20 20 20 20 20 20 | 20 20 20 5c 63 2d 31 00 | | \c-1.|
|00002110| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002120| 20 20 20 20 80 0b 20 5c | 63 3d 30 00 20 20 20 20 | .. \|c=0. |
|00002130| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002140| 20 20 20 20 5c 63 3d 32 | 00 20 20 20 20 20 20 20 | \c=2|. |
|00002150| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002160| 20 80 0b 20 5c 61 3e 30 | 00 20 20 20 20 20 20 20 | .. \a>0|. |
|00002170| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002180| 20 20 20 20 20 5c 6e 2b | 31 34 3a 80 0b 20 5c 6e | \n+|14:.. \n|
|00002190| 3e 35 36 20 80 21 20 5c | 6e 3d 5c 61 3a 5c 61 3d |>56 .! \|n=\a:\a=|
|000021a0| 2d 31 00 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |-1. | |
|000021b0| 20 20 20 20 20 20 20 20 | 20 20 20 80 22 00 20 20 | | .". |
|000021c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000021d0| 20 20 20 20 20 20 20 20 | 20 20 80 0b 20 5c 6e 3e | | .. \n>|
|000021e0| 31 34 20 80 21 20 5c 6e | 2d 31 34 20 80 22 20 5c |14 .! \n|-14 ." \|
|000021f0| 61 3d 30 00 20 20 20 20 | 20 20 20 20 20 20 20 20 |a=0. | |
|00002200| 20 20 20 20 20 20 20 20 | 20 20 20 20 80 c0 00 20 | | ... |
|00002210| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002220| 20 20 20 80 c0 00 20 20 | 20 20 20 20 20 20 20 20 | ... | |
|00002230| 20 20 20 20 20 20 80 22 | 00 20 20 20 20 20 20 20 | ."|. |
|00002240| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 5c 63 2b | | \c+|
|00002250| 31 00 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |1. | |
|00002260| 20 20 20 20 20 20 80 0b | 20 5c 63 3d 30 00 20 20 | ..| \c=0. |
|00002270| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002280| 20 20 20 20 20 20 5c 63 | 3d 2d 32 00 20 20 20 20 | \c|=-2. |
|00002290| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000022a0| 20 20 20 20 80 0b 20 5c | 61 3e 30 00 20 20 20 20 | .. \|a>0. |
|000022b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000022c0| 20 20 20 20 20 20 20 20 | 5c 6e 2b 31 34 3a 80 0b | |\n+14:..|
|000022d0| 20 5c 6e 3e 34 32 20 80 | 21 20 5c 6e 3d 5c 61 3a | \n>42 .|! \n=\a:|
|000022e0| 5c 61 3d 2d 31 00 20 20 | 20 20 20 20 20 20 20 20 |\a=-1. | |
|000022f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 80 22 | | ."|
|00002300| 00 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00002310| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 80 0b 20 | | .. |
|00002320| 5c 6e 3e 31 34 20 80 21 | 20 5c 6e 2d 31 34 20 80 |\n>14 .!| \n-14 .|
|00002330| 22 20 5c 61 3d 30 00 20 | 20 20 20 20 20 20 20 20 |" \a=0. | |
|00002340| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 80 | | .|
|00002350| c0 00 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.. | |
|00002360| 20 20 20 20 20 20 80 c0 | 00 20 20 20 20 20 20 20 | ..|. |
|00002370| 20 20 20 20 20 20 20 20 | 20 80 c0 00 20 20 20 20 | | ... |
|00002380| 20 20 20 20 20 20 20 20 | 80 c0 00 20 20 20 20 20 | |... |
|00002390| 20 20 20 20 20 20 20 5c | 6e 6d 2d 31 00 20 20 20 | \|nm-1. |
|000023a0| 20 20 20 20 20 80 22 00 | 20 20 20 20 20 20 20 20 | .".| |
|000023b0| 20 20 20 20 80 0b 20 c0 | 08 28 62 61 63 6b 28 29 | .. .|.(back()|
|000023c0| 29 00 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |). | |
|000023d0| 20 20 62 61 63 6b 28 29 | 5c 78 3d 5c 64 78 00 20 | back()|\x=\dx. |
|000023e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 62 | | b|
|000023f0| 61 63 6b 28 29 5c 79 3d | 5c 64 79 00 20 20 20 20 |ack()\y=|\dy. |
|00002400| 20 20 20 20 20 20 20 20 | 20 20 20 20 62 61 63 6b | | back|
|00002410| 28 29 5c 6e 3d 5c 6e 00 | 20 20 20 20 20 20 20 20 |()\n=\n.| |
|00002420| 20 20 20 20 20 20 20 20 | 62 61 63 6b 28 29 5c 6d | |back()\m|
|00002430| 3d cb 03 00 20 20 20 20 | 20 20 20 20 20 20 20 20 |=... | |
|00002440| 80 c0 00 20 20 20 20 20 | 20 20 20 20 20 20 20 c0 |... | .|
|00002450| 05 20 6f 62 6a 28 29 00 | 20 20 20 20 20 20 20 20 |. obj().| |
|00002460| 80 c0 00 20 20 20 20 80 | c1 00 20 20 20 20 3b 00 |... .|.. ;.|
|00002470| 80 02 20 80 30 00 3b 00 | 80 37 00 3b 00 80 07 00 |.. .0.;.|.7.;....|
|00002480| 00 2e 73 68 75 66 66 6c | 65 00 3b 73 68 75 66 66 |..shuffl|e.;shuff|
|00002490| 6c 65 20 63 61 72 64 73 | 21 00 3b 00 80 16 20 6a |le cards|!.;... j|
|000024a0| 3d 30 20 80 18 20 33 3a | 80 16 20 6b 3d 31 20 80 |=0 .. 3:|.. k=1 .|
|000024b0| 18 20 31 33 00 70 61 63 | 6b 28 6a 2a 31 33 2b 6b |. 13.pac|k(j*13+k|
|000024c0| 29 3d 6b 00 80 17 20 6b | 2c 6a 00 3b 00 80 16 20 |)=k... k|,j.;... |
|000024d0| 6b 3d 31 20 80 18 20 35 | 32 00 80 c9 20 70 61 63 |k=1 .. 5|2... pac|
|000024e0| 6b 28 6b 29 2c 70 61 63 | 6b 28 bc 07 28 35 32 29 |k(k),pac|k(..(52)|
|000024f0| 2b 31 29 00 80 17 00 3b | 00 63 61 74 3d 31 20 20 |+1)....;|.cat=1 |
|00002500| 20 3b 63 61 72 64 20 61 | 74 2e 00 3b 00 80 07 00 | ;card a|t..;....|
|00002510| 00 2e 64 65 61 6c 00 3b | 00 80 06 20 73 68 75 66 |..deal.;|... shuf|
|00002520| 66 6c 65 00 80 16 20 70 | 3d 30 20 80 18 20 31 00 |fle... p|=0 .. 1.|
|00002530| 6e 64 6f 77 6e 28 70 29 | 3d 30 00 6e 70 69 6c 65 |ndown(p)|=0.npile|
|00002540| 28 70 29 3d 30 00 6e 68 | 61 6e 64 28 70 29 3d 30 |(p)=0.nh|and(p)=0|
|00002550| 00 6e 75 70 28 70 29 3d | 30 00 80 16 20 6b 3d 31 |.nup(p)=|0... k=1|
|00002560| 20 80 18 20 35 00 68 61 | 6e 64 28 6b 2c 70 29 3d | .. 5.ha|nd(k,p)=|
|00002570| 30 00 80 17 20 6b 2c 70 | 00 63 68 3d 30 00 3b 00 |0... k,p|.ch=0.;.|
|00002580| 78 3d 31 36 30 3a 79 3d | 32 30 38 00 6e 3d 31 34 |x=160:y=|208.n=14|
|00002590| 3a 6d 3d cb 03 3a 80 06 | 20 61 64 64 62 61 63 6b |:m=..:..| addback|
|000025a0| 00 3b 00 70 3d 31 3a 80 | 06 20 64 65 61 6c 70 6c |.;.p=1:.|. dealpl|
|000025b0| 61 79 65 72 3a 80 06 20 | 64 65 61 6c 70 69 6c 65 |ayer:.. |dealpile|
|000025c0| 00 3b 00 64 78 3d 31 36 | 30 3a 64 79 3d 31 36 3a |.;.dx=16|0:dy=16:|
|000025d0| 80 06 20 68 6f 6d 65 69 | 6e 00 80 37 20 35 00 80 |.. homei|n..7 5..|
|000025e0| 06 20 61 64 64 63 61 72 | 64 3a 80 06 20 61 64 64 |. addcar|d:.. add|
|000025f0| 62 6c 61 6e 6b 00 3b 00 | 80 37 20 35 30 00 3b 00 |blank.;.|.7 50.;.|
|00002600| 70 3d 30 3a 80 06 20 64 | 65 61 6c 70 6c 61 79 65 |p=0:.. d|ealplaye|
|00002610| 72 3a 80 06 20 64 65 61 | 6c 70 69 6c 65 3a 80 06 |r:.. dea|lpile:..|
|00002620| 20 61 64 64 62 6c 61 6e | 6b 00 3b 00 80 37 20 32 | addblan|k.;..7 2|
|00002630| 30 00 3b 00 3b 70 69 63 | 6b 20 75 70 20 35 20 65 |0.;.;pic|k up 5 e|
|00002640| 61 63 68 21 00 3b 00 80 | 16 20 70 3d 30 20 80 18 |ach!.;..|. p=0 ..|
|00002650| 20 31 00 80 16 20 6b 3d | 31 20 80 18 20 35 00 80 | 1... k=|1 .. 5..|
|00002660| 37 20 35 3a 80 06 20 70 | 69 63 6b 6e 65 77 00 80 |7 5:.. p|icknew..|
|00002670| 17 00 80 17 00 3b 00 80 | 37 20 32 30 3a 80 06 20 |.....;..|7 20:.. |
|00002680| 66 6c 69 70 74 77 6f 00 | 3b 00 66 63 32 3d 31 3a |fliptwo.|;.fc2=1:|
|00002690| 74 69 3d 30 20 20 20 3b | 74 75 72 6e 20 6f 6e 20 |ti=0 ;|turn on |
|000026a0| 63 6c 6f 63 6b 21 00 3b | 00 80 07 00 00 2e 70 69 |clock!.;|......pi|
|000026b0| 63 6b 6e 65 77 20 20 20 | 20 3b 70 69 63 6b 20 75 |cknew | ;pick u|
|000026c0| 70 20 61 20 6e 65 77 20 | 63 61 72 64 20 66 72 6f |p a new |card fro|
|000026d0| 6d 20 27 64 6f 77 6e 27 | 00 3b 00 80 16 20 66 73 |m 'down'|.;... fs|
|000026e0| 3d 31 20 80 18 20 35 00 | 80 0b 20 68 61 6e 64 28 |=1 .. 5.|.. hand(|
|000026f0| 66 73 2c 70 29 3d 30 20 | 80 21 20 80 be 20 80 16 |fs,p)=0 |.! .. ..|
|00002700| 3a 80 05 20 66 6f 75 6e | 64 00 80 17 00 3b 00 66 |:.. foun|d....;.f|
|00002710| 6f 75 6e 64 00 3b 00 64 | 78 3d 66 73 2a 34 38 2b |ound.;.d|x=fs*48+|
|00002720| 31 36 00 64 79 3d 31 36 | 3a 80 0b 20 70 20 80 21 |16.dy=16|:.. p .!|
|00002730| 20 64 79 3d 32 30 38 00 | 78 3d 64 6f 77 6e 78 28 | dy=208.|x=downx(|
|00002740| 6e 64 6f 77 6e 28 70 29 | 2c 70 29 3a 79 3d 64 6f |ndown(p)|,p):y=do|
|00002750| 77 6e 79 28 6e 64 6f 77 | 6e 28 70 29 2c 70 29 00 |wny(ndow|n(p),p).|
|00002760| 80 06 20 68 6f 6d 65 69 | 6e 3a 80 06 20 61 64 64 |.. homei|n:.. add|
|00002770| 63 61 72 64 00 80 0b 20 | 70 20 80 21 20 5c 61 3d |card... |p .! \a=|
|00002780| 64 6f 77 6e 28 6e 64 6f | 77 6e 28 70 29 2c 70 29 |down(ndo|wn(p),p)|
|00002790| 00 80 06 20 61 64 64 65 | 72 61 73 65 00 6e 68 61 |... adde|rase.nha|
|000027a0| 6e 64 28 70 29 2b 31 3a | 68 61 6e 64 28 66 73 2c |nd(p)+1:|hand(fs,|
|000027b0| 70 29 3d 64 6f 77 6e 28 | 6e 64 6f 77 6e 28 70 29 |p)=down(|ndown(p)|
|000027c0| 2c 70 29 00 6e 64 6f 77 | 6e 28 70 29 2d 31 00 80 |,p).ndow|n(p)-1..|
|000027d0| 0b 20 6e 64 6f 77 6e 28 | 70 29 00 20 20 20 20 78 |. ndown(|p). x|
|000027e0| 3d 64 6f 77 6e 78 28 6e | 64 6f 77 6e 28 70 29 2c |=downx(n|down(p),|
|000027f0| 70 29 00 20 20 20 20 79 | 3d 64 6f 77 6e 79 28 6e |p). y|=downy(n|
|00002800| 64 6f 77 6e 28 70 29 2c | 70 29 00 20 20 20 20 6e |down(p),|p). n|
|00002810| 3d 31 34 3a 6d 3d cb 03 | 3a 80 06 20 61 64 64 62 |=14:m=..|:.. addb|
|00002820| 61 63 6b 00 80 c0 00 80 | 07 00 00 2e 66 6c 69 70 |ack.....|....flip|
|00002830| 6e 65 77 20 3b 66 6c 69 | 70 20 61 20 6e 65 77 20 |new ;fli|p a new |
|00002840| 63 61 72 64 20 66 72 6f | 6d 20 70 69 6c 65 20 74 |card fro|m pile t|
|00002850| 6f 20 75 70 21 00 3b 00 | 80 37 20 32 30 00 3b 00 |o up!.;.|.7 20.;.|
|00002860| 80 0b 20 6e 70 69 6c 65 | 28 70 29 00 20 20 20 20 |.. npile|(p). |
|00002870| 66 6c 69 70 6e 65 77 32 | 00 20 20 20 20 78 3d 38 |flipnew2|. x=8|
|00002880| 38 2b 70 2a 31 34 34 3a | 64 78 3d 31 33 36 2b 70 |8+p*144:|dx=136+p|
|00002890| 2a 34 38 00 20 20 20 20 | 79 3d 31 31 32 3a 64 79 |*48. |y=112:dy|
|000028a0| 3d 31 31 32 00 20 20 20 | 20 80 06 20 68 6f 6d 65 |=112. | .. home|
|000028b0| 69 6e 3a 80 06 20 61 64 | 64 63 61 72 64 00 20 20 |in:.. ad|dcard. |
|000028c0| 20 20 5c 61 3d 70 69 6c | 65 28 6e 70 69 6c 65 28 | \a=pil|e(npile(|
|000028d0| 70 29 2c 70 29 00 20 20 | 20 20 6e 75 70 28 70 29 |p),p). | nup(p)|
|000028e0| 2b 31 3a 75 70 28 6e 75 | 70 28 70 29 2c 70 29 3d |+1:up(nu|p(p),p)=|
|000028f0| 70 69 6c 65 28 6e 70 69 | 6c 65 28 70 29 2c 70 29 |pile(npi|le(p),p)|
|00002900| 00 20 20 20 20 6e 70 69 | 6c 65 28 70 29 2d 31 00 |. npi|le(p)-1.|
|00002910| 20 20 20 20 80 0b 20 6e | 70 69 6c 65 28 70 29 3d | .. n|pile(p)=|
|00002920| 30 20 20 20 3b 61 6c 6c | 20 6f 75 74 61 20 63 61 |0 ;all| outa ca|
|00002930| 72 64 73 20 69 6e 20 70 | 69 6c 65 3f 00 20 20 20 |rds in p|ile?. |
|00002940| 20 20 20 20 20 80 06 20 | 61 64 64 62 6c 61 6e 6b | .. |addblank|
|00002950| 00 20 20 20 20 80 c0 00 | 20 20 20 20 80 37 20 32 |. ...| .7 2|
|00002960| 30 00 80 22 00 20 20 20 | 20 3b 00 20 20 20 20 3b |0..". | ;. ;|
|00002970| 61 6c 6c 20 6f 75 74 20 | 6f 66 20 63 61 72 64 73 |all out |of cards|
|00002980| 20 69 6e 20 70 69 6c 65 | 21 00 20 20 20 20 3b 00 | in pile|!. ;.|
|00002990| 20 20 20 20 79 3d 31 31 | 32 3a 78 3d 31 33 36 2b | y=11|2:x=136+|
|000029a0| 70 2a 34 38 3a 64 78 3d | 38 38 2b 70 2a 31 34 34 |p*48:dx=|88+p*144|
|000029b0| 3a 64 79 3d 79 00 20 20 | 20 20 80 06 20 68 6f 6d |:dy=y. | .. hom|
|000029c0| 65 69 6e 3a 80 06 20 61 | 64 64 63 61 72 64 00 20 |ein:.. a|ddcard. |
|000029d0| 20 20 20 5c 6e 3d 75 70 | 28 6e 75 70 28 70 29 2c | \n=up|(nup(p),|
|000029e0| 70 29 3a 5c 61 3d 31 34 | 3a 5c 63 3d 2d 5c 63 00 |p):\a=14|:\c=-\c.|
|000029f0| 20 20 20 20 80 06 20 61 | 64 64 62 6c 61 6e 6b 00 | .. a|ddblank.|
|00002a00| 20 20 20 20 6e 70 69 6c | 65 28 70 29 3d 6e 75 70 | npil|e(p)=nup|
|00002a10| 28 70 29 00 20 20 20 20 | 80 16 20 7a 7a 74 3d 31 |(p). |.. zzt=1|
|00002a20| 20 80 18 20 6e 70 69 6c | 65 28 70 29 00 20 20 20 | .. npil|e(p). |
|00002a30| 20 70 69 6c 65 28 7a 7a | 74 2c 70 29 3d 75 70 28 | pile(zz|t,p)=up(|
|00002a40| 6e 70 69 6c 65 28 70 29 | 2d 7a 7a 74 2b 31 2c 70 |npile(p)|-zzt+1,p|
|00002a50| 29 00 20 20 20 20 80 17 | 3a 6e 75 70 28 70 29 3d |). ..|:nup(p)=|
|00002a60| 30 00 20 20 20 20 80 37 | 20 32 30 00 20 20 20 20 |0. .7| 20. |
|00002a70| 80 05 20 66 6c 69 70 6e | 65 77 32 00 80 c0 00 80 |.. flipn|ew2.....|
|00002a80| 07 00 00 2e 66 6c 69 70 | 74 77 6f 20 20 20 20 3b |....flip|two ;|
|00002a90| 66 6c 69 70 20 32 20 63 | 61 72 64 73 20 61 74 20 |flip 2 c|ards at |
|00002aa0| 74 6f 70 20 6f 66 20 6c | 65 66 74 20 61 72 65 61 |top of l|eft area|
|00002ab0| 21 00 3b 00 80 16 20 70 | 3d 30 20 80 18 20 31 00 |!.;... p|=0 .. 1.|
|00002ac0| 80 06 20 66 6c 69 70 6e | 65 77 00 80 17 00 3b 00 |.. flipn|ew....;.|
|00002ad0| 80 07 00 00 2e 64 65 61 | 6c 70 6c 61 79 65 72 3a |.....dea|lplayer:|
|00002ae0| 20 3b 64 65 61 6c 20 61 | 20 68 61 6e 64 20 74 6f | ;deal a| hand to|
|00002af0| 20 70 6c 61 79 65 72 20 | 61 74 20 78 2c 79 00 3b | player |at x,y.;|
|00002b00| 00 79 3d 31 36 3a 80 0b | 20 70 20 80 21 20 79 3d |.y=16:..| p .! y=|
|00002b10| 32 30 38 00 80 0b 20 70 | 00 20 20 20 20 64 79 3d |208... p|. dy=|
|00002b20| 79 2d 34 38 00 80 22 00 | 20 20 20 20 64 79 3d 79 |y-48..".| dy=y|
|00002b30| 2b 34 38 00 80 c0 00 78 | 3d 31 36 30 00 80 16 20 |+48....x|=160... |
|00002b40| 6b 3d 31 20 80 18 20 32 | 30 00 80 0b 20 70 00 20 |k=1 .. 2|0... p. |
|00002b50| 20 20 20 64 78 3d 6b 20 | 80 7c 20 33 2b 33 32 00 | dx=k |.| 3+32.|
|00002b60| 80 22 00 20 20 20 20 64 | 78 3d 33 32 30 2d 33 32 |.". d|x=320-32|
|00002b70| 2d 6b 20 80 7c 20 33 00 | 80 c0 00 3b 00 80 06 20 |-k .| 3.|...;... |
|00002b80| 68 6f 6d 65 69 6e 00 3b | 00 64 6f 77 6e 28 6b 2c |homein.;|.down(k,|
|00002b90| 70 29 3d 70 61 63 6b 28 | 63 61 74 29 3a 63 61 74 |p)=pack(|cat):cat|
|00002ba0| 2b 31 00 64 6f 77 6e 78 | 28 6b 2c 70 29 3d 64 78 |+1.downx|(k,p)=dx|
|00002bb0| 3a 64 6f 77 6e 79 28 6b | 2c 70 29 3d 64 79 00 3b |:downy(k|,p)=dy.;|
|00002bc0| 00 80 37 20 33 3a 80 06 | 20 61 64 64 63 61 72 64 |..7 3:..| addcard|
|00002bd0| 00 80 17 3a 6e 64 6f 77 | 6e 28 70 29 3d 32 30 3a |...:ndow|n(p)=20:|
|00002be0| 63 6c 28 70 29 3d 32 30 | 00 3b 00 80 07 00 00 2e |cl(p)=20|.;......|
|00002bf0| 64 65 61 6c 70 69 6c 65 | 00 3b 00 64 79 3d 31 31 |dealpile|.;.dy=11|
|00002c00| 32 3a 64 78 3d 32 33 32 | 3a 80 0b 20 70 20 80 21 |2:dx=232|:.. p .!|
|00002c10| 20 64 78 3d 38 38 00 80 | 06 20 68 6f 6d 65 69 6e | dx=88..|. homein|
|00002c20| 3a 80 37 20 38 00 3b 00 | 80 16 20 6b 3d 31 20 80 |:.7 8.;.|.. k=1 .|
|00002c30| 18 20 35 00 80 37 20 33 | 3a 80 06 20 61 64 64 63 |. 5..7 3|:.. addc|
|00002c40| 61 72 64 00 70 69 6c 65 | 28 6b 2c 70 29 3d 70 61 |ard.pile|(k,p)=pa|
|00002c50| 63 6b 28 63 61 74 29 3a | 63 61 74 2b 31 00 80 17 |ck(cat):|cat+1...|
|00002c60| 3a 6e 70 69 6c 65 28 70 | 29 3d 35 00 3b 00 80 07 |:npile(p|)=5.;...|
|00002c70| 00 00 2e 61 64 64 62 6c | 61 6e 6b 00 80 06 20 61 |...addbl|ank... a|
|00002c80| 64 64 65 72 61 73 65 00 | 6e 3d 30 3a 6d 3d cb 03 |dderase.|n=0:m=..|
|00002c90| 3a 80 05 20 61 64 64 62 | 61 63 6b 00 00 2e 61 64 |:.. addb|ack...ad|
|00002ca0| 64 65 72 61 73 65 00 6e | 3d 31 34 3a 6d 3d cb 04 |derase.n|=14:m=..|
|00002cb0| 00 3b 00 2e 61 64 64 62 | 61 63 6b 00 3b 00 80 0b |.;..addb|ack.;...|
|00002cc0| 20 c0 08 28 62 61 63 6b | 28 29 29 00 20 20 20 20 | ..(back|()). |
|00002cd0| 62 61 63 6b 28 29 5c 78 | 3d 78 3a 62 61 63 6b 28 |back()\x|=x:back(|
|00002ce0| 29 5c 79 3d 79 3a 62 61 | 63 6b 28 29 5c 6e 3d 6e |)\y=y:ba|ck()\n=n|
|00002cf0| 3a 62 61 63 6b 28 29 5c | 6d 3d 6d 00 20 20 20 20 |:back()\|m=m. |
|00002d00| 62 61 63 6b 28 29 5c 64 | 3d 31 00 80 c0 00 80 07 |back()\d|=1......|
|00002d10| 00 00 61 64 64 63 61 72 | 64 32 3a 80 37 00 3b 00 |..addcar|d2:.7.;.|
|00002d20| 2e 61 64 64 63 61 72 64 | 00 80 0b 20 c0 08 28 6f |.addcard|... ..(o|
|00002d30| 62 6a 28 29 29 00 20 20 | 20 20 5c 6e 3d 31 34 3a |bj()). | \n=14:|
|00002d40| 5c 6e 6d 3d 6e 6d 20 80 | 7d 20 32 00 20 20 20 20 |\nm=nm .|} 2. |
|00002d50| 5c 78 3d 78 3a 5c 79 3d | 79 3a 5c 78 73 3d 78 73 |\x=x:\y=|y:\xs=xs|
|00002d60| 20 80 7c 20 32 00 20 20 | 20 20 5c 79 73 3d 79 73 | .| 2. | \ys=ys|
|00002d70| 20 80 7c 20 32 00 20 20 | 20 20 5c 64 78 3d 64 78 | .| 2. | \dx=dx|
|00002d80| 3a 5c 64 79 3d 64 79 00 | 20 20 20 20 5c 61 3d 30 |:\dy=dy.| \a=0|
|00002d90| 3a 5c 63 3d 32 00 80 c0 | 00 80 07 00 00 2e 68 6f |:\c=2...|......ho|
|00002da0| 6d 65 69 6e 20 3b 63 61 | 6c 63 75 6c 61 74 65 20 |mein ;ca|lculate |
|00002db0| 78 73 2c 79 73 2c 6e 6d | 20 66 6f 72 20 78 2c 79 |xs,ys,nm| for x,y|
|00002dc0| 20 74 6f 20 64 78 2c 64 | 79 00 3b 00 78 73 3d bc | to dx,d|y.;.xs=.|
|00002dd0| 09 28 64 78 2d 78 29 3a | 79 73 3d bc 09 28 64 79 |.(dx-x):|ys=..(dy|
|00002de0| 2d 79 29 00 80 0b 20 78 | 73 3e 79 73 20 20 20 20 |-y)... x|s>ys |
|00002df0| 3b 78 20 62 69 67 67 65 | 72 20 74 68 61 6e 20 79 |;x bigge|r than y|
|00002e00| 3f 00 20 20 20 20 6e 6d | 3d 78 73 3a 79 73 3d 28 |?. nm|=xs:ys=(|
|00002e10| 64 79 2d 79 29 2f 78 73 | 3a 78 73 3d bc 03 28 64 |dy-y)/xs|:xs=..(d|
|00002e20| 78 2d 78 29 00 80 22 00 | 20 20 20 20 6e 6d 3d 79 |x-x)..".| nm=y|
|00002e30| 73 3a 78 73 3d 28 64 78 | 2d 78 29 2f 79 73 3a 79 |s:xs=(dx|-x)/ys:y|
|00002e40| 73 3d bc 03 28 64 79 2d | 79 29 00 80 c0 00 80 07 |s=..(dy-|y)......|
|00002e50| 00 00 2e 67 61 6d 65 62 | 69 74 6d 61 70 73 00 3b |...gameb|itmaps.;|
|00002e60| 00 3b 4d 61 6b 65 20 73 | 6f 6d 65 20 31 36 2a 31 |.;Make s|ome 16*1|
|00002e70| 36 20 6e 75 6d 62 65 72 | 73 00 3b 00 3b 42 69 74 |6 number|s.;.;Bit|
|00002e80| 4d 61 70 20 30 2c 33 32 | 30 2c 38 2c 31 3a 42 69 |Map 0,32|0,8,1:Bi|
|00002e90| 74 4d 61 70 4f 75 74 70 | 75 74 20 30 3a 4c 6f 63 |tMapOutp|ut 0:Loc|
|00002ea0| 61 74 65 20 30 2c 30 00 | 3b 50 72 69 6e 74 20 22 |ate 0,0.|;Print "|
|00002eb0| 30 31 32 33 34 35 36 37 | 38 39 22 00 3b 46 6f 72 |01234567|89".;For|
|00002ec0| 20 78 3d 30 20 54 6f 20 | 39 00 3b 47 65 74 61 53 | x=0 To |9.;GetaS|
|00002ed0| 68 61 70 65 20 35 37 2b | 78 2c 78 2a 38 2c 30 2c |hape 57+|x,x*8,0,|
|00002ee0| 38 2c 38 00 3b 53 63 61 | 6c 65 20 35 37 2b 78 2c |8,8.;Sca|le 57+x,|
|00002ef0| 32 2c 32 00 3b 4e 65 78 | 74 00 3b 00 d0 01 20 30 |2,2.;Nex|t.;... 0|
|00002f00| 2c 33 32 30 2c 32 32 34 | 2c 33 20 20 3b 64 62 20 |,320,224|,3 ;db |
|00002f10| 66 6f 72 65 67 72 6f 75 | 6e 64 00 d0 01 20 31 2c |foregrou|nd... 1,|
|00002f20| 33 32 30 2c 32 32 34 2c | 33 20 20 3b 64 69 74 74 |320,224,|3 ;ditt|
|00002f30| 6f 00 3b 00 d0 01 20 32 | 2c 33 32 30 2c 32 32 34 |o.;... 2|,320,224|
|00002f40| 2c 33 20 20 3b 66 6f 72 | 20 62 61 63 6b 67 72 6f |,3 ;for| backgro|
|00002f50| 75 6e 64 00 c7 02 20 32 | 00 3b 00 80 07 00 00 2e |und... 2|.;......|
|00002f60| 67 61 6d 65 64 69 73 70 | 6c 61 79 00 3b 00 c8 01 |gamedisp|lay.;...|
|00002f70| 20 30 2c 33 32 2c 33 32 | 30 2c 32 32 34 2c 24 66 | 0,32,32|0,224,$f|
|00002f80| 66 66 32 2c 36 2c 38 2c | 33 32 2c 33 32 30 2c 33 |ff2,6,8,|32,320,3|
|00002f90| 32 30 00 80 2c 20 ce 09 | 20 30 3a c8 05 20 30 3a |20.., ..| 0:.. 0:|
|00002fa0| c8 06 20 32 00 3b 00 80 | 16 20 6b 3d 31 20 80 18 |.. 2.;..|. k=1 ..|
|00002fb0| 20 37 00 ce 05 20 6b 2b | 38 2c ce 06 28 6b 29 2c | 7... k+|8,..(k),|
|00002fc0| ce 07 28 6b 29 2c ce 08 | 28 6b 29 00 80 17 00 3b |..(k),..|(k)....;|
|00002fd0| 00 b6 03 20 30 2c 30 2c | 33 32 30 2c 32 32 34 00 |... 0,0,|320,224.|
|00002fe0| b6 01 20 80 c5 00 b6 02 | 20 30 2c 30 00 3b 00 80 |.. .....| 0,0.;..|
|00002ff0| 07 00 00 | |... | |
+--------+-------------------------+-------------------------+--------+--------+
