/ APDL Public Domain 2 / APDL_PD2A.iso / demos / not_rpc_1 / demoge72 / !DemoGe72 / MainBit2

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0f f4 20 3e 4d | 61 69 6e 42 69 74 32 0d |..... >M|ainBit2.|
|00000010| 00 14 15 f4 20 44 65 6d | 6f 47 65 37 32 20 62 79 |.... Dem|oGe72 by|
|00000020| 20 48 41 6c 0d 00 1e 0d | f4 20 28 63 29 31 39 39 | HAl....|. (c)199|
|00000030| 30 0d 00 28 27 ee 20 85 | 20 eb 31 32 3a f1 20 22 |0..('. .| .12:. "|
|00000040| 45 72 72 6f 72 20 22 2b | c3 28 9e 29 2b 22 20 3a |Error "+|.(.)+" :|
|00000050| 20 22 2b f6 24 3a 3a e0 | 0d 00 32 0c 54 25 3d b3 | "+.$::.|..2.T%=.|
|00000060| 28 2d 91 29 0d 00 3c 05 | 3a 0d 00 46 1d eb 31 33 |(-.)..<.|:..F..13|
|00000070| 3a c8 99 20 22 4f 53 5f | 52 65 6d 6f 76 65 43 75 |:.. "OS_|RemoveCu|
|00000080| 72 73 6f 72 73 22 0d 00 | 50 43 de 20 73 70 72 69 |rsors"..|PC. spri|
|00000090| 74 65 73 20 34 30 30 30 | 30 2c 74 75 6e 65 20 31 |tes 4000|0,tune 1|
|000000a0| 33 30 30 30 30 2c 73 74 | 61 72 73 20 35 30 30 30 |30000,st|ars 5000|
|000000b0| 2c 62 6e 73 63 72 20 35 | 30 30 30 30 2c 72 68 79 |,bnscr 5|0000,rhy|
|000000c0| 6d 65 72 73 20 35 30 30 | 30 0d 00 5a 1e 24 73 70 |mers 500|0..Z.$sp|
|000000d0| 72 69 74 65 73 3d 22 3c | 47 65 37 32 24 44 69 72 |rites="<|Ge72$Dir|
|000000e0| 3e 2e 48 65 61 64 22 0d | 00 64 05 3a 0d 00 6e 46 |>.Head".|.d.:..nF|
|000000f0| de 20 6a 69 6d 20 38 3a | 21 6a 69 6d 3d 31 34 39 |. jim 8:|!jim=149|
|00000100| 3a 6a 69 6d 21 34 3d 2d | 31 3a c8 99 20 22 4f 53 |:jim!4=-|1:.. "OS|
|00000110| 5f 52 65 61 64 56 64 75 | 56 61 72 69 61 62 6c 65 |_ReadVdu|Variable|
|00000120| 73 22 2c 6a 69 6d 2c 6a | 69 6d 3a 41 25 3d 21 6a |s",jim,j|im:A%=!j|
|00000130| 69 6d 0d 00 78 26 ff 20 | 22 4c 4f 41 44 20 3c 47 |im..x&. |"LOAD <G|
|00000140| 65 37 32 24 44 69 72 3e | 2e 54 75 6e 65 20 22 2b |e72$Dir>|.Tune "+|
|00000150| c3 7e 28 74 75 6e 65 29 | 0d 00 82 28 ff 20 22 4c |.~(tune)|...(. "L|
|00000160| 4f 41 44 20 3c 47 65 37 | 32 24 44 69 72 3e 2e 53 |OAD <Ge7|2$Dir>.S|
|00000170| 74 61 72 73 20 22 2b c3 | 7e 28 73 74 61 72 73 29 |tars "+.|~(stars)|
|00000180| 0d 00 8c 2c ff 20 22 4c | 4f 41 44 20 3c 47 65 37 |...,. "L|OAD <Ge7|
|00000190| 32 24 44 69 72 3e 2e 52 | 68 79 6d 65 72 73 20 22 |2$Dir>.R|hymers "|
|000001a0| 2b c3 7e 28 72 68 79 6d | 65 72 73 29 0d 00 96 28 |+.~(rhym|ers)...(|
|000001b0| ff 20 22 4c 4f 41 44 20 | 3c 47 65 37 32 24 44 69 |. "LOAD |<Ge72$Di|
|000001c0| 72 3e 2e 42 6e 53 63 72 | 20 22 2b c3 7e 28 62 6e |r>.BnScr| "+.~(bn|
|000001d0| 73 63 72 29 0d 00 a0 2b | c8 99 20 22 4f 53 5f 53 |scr)...+|.. "OS_S|
|000001e0| 70 72 69 74 65 4f 70 22 | 2c 32 35 36 2b 31 30 2c |priteOp"|,256+10,|
|000001f0| 73 70 72 69 74 65 73 2c | 73 70 72 69 74 65 73 0d |sprites,|sprites.|
|00000200| 00 aa 11 69 6e 74 72 3d | 74 75 6e 65 2b 34 36 34 |...intr=|tune+464|
|00000210| 0d 00 b4 10 75 6e 70 6c | 6f 74 3d 73 74 61 72 73 |....unpl|ot=stars|
|00000220| 0d 00 be 0e 62 61 72 73 | 3d 62 6e 73 63 72 0d 00 |....bars|=bnscr..|
|00000230| c8 11 70 6c 6f 74 3d 73 | 74 61 72 73 2b 35 32 0d |..plot=s|tars+52.|
|00000240| 00 d2 23 f4 20 73 65 74 | 20 73 6f 6d 65 20 6d 6f |..#. set| some mo|
|00000250| 72 65 20 74 68 69 6e 67 | 73 20 75 70 2e 2e 2e 2e |re thing|s up....|
|00000260| 2e 2e 0d 00 dc 16 62 61 | 72 73 21 31 34 33 32 3d |......ba|rs!1432=|
|00000270| 74 75 6e 65 2b 34 35 32 | 0d 00 e6 19 62 61 72 73 |tune+452|....bars|
|00000280| 21 31 34 33 36 3d 74 75 | 6e 65 2b 33 2b 33 32 2a |!1436=tu|ne+3+32*|
|00000290| 33 0d 00 f0 2b 62 61 72 | 73 21 31 36 30 38 3d 62 |3...+bar|s!1608=b|
|000002a0| 61 72 73 2b 37 31 38 30 | 3a 62 61 72 73 21 31 36 |ars+7180|:bars!16|
|000002b0| 31 32 3d 62 61 72 73 2b | 37 31 38 30 0d 00 fa 18 |12=bars+|7180....|
|000002c0| 62 61 72 73 21 31 36 30 | 34 3d 62 61 72 73 2b 31 |bars!160|4=bars+1|
|000002d0| 39 34 33 36 0d 01 04 17 | 62 61 72 73 21 31 36 35 |9436....|bars!165|
|000002e0| 36 3d 62 61 72 73 2b 31 | 39 33 32 0d 01 0e 28 e3 |6=bars+1|932...(.|
|000002f0| 63 25 3d 73 74 61 72 73 | 2b 31 33 32 20 b8 20 73 |c%=stars|+132 . s|
|00000300| 74 61 72 73 2b 31 33 32 | 2b 31 31 35 2a 31 36 20 |tars+132|+115*16 |
|00000310| 88 31 36 0d 01 18 2a 21 | 63 25 3d 28 b3 28 32 35 |.16...*!|c%=(.(25|
|00000320| 30 29 2b 35 29 2a 33 32 | 30 3a 63 25 21 34 3d 28 |0)+5)*32|0:c%!4=(|
|00000330| b3 28 33 32 30 29 2d 31 | 29 2a 32 35 36 0d 01 22 |.(320)-1|)*256.."|
|00000340| 2f e7 20 b3 28 31 29 3e | 30 2e 35 20 8c 20 63 25 |/. .(1)>|0.5 . c%|
|00000350| 21 38 3d b3 28 37 29 2a | 31 32 38 20 8b 20 63 25 |!8=.(7)*|128 . c%|
|00000360| 21 38 3d 2d 31 32 38 2a | b3 28 37 29 0d 01 2c 41 |!8=-128*|.(7)..,A|
|00000370| 63 6f 25 3d 28 b3 28 36 | 33 29 2a 34 29 84 33 3a |co%=(.(6|3)*4).3:|
|00000380| e7 20 28 63 6f 25 80 25 | 31 31 30 30 30 30 30 29 |. (co%.%|1100000)|
|00000390| 3d 25 31 31 30 30 30 30 | 30 20 8c 20 e5 8d 54 6c |=%110000|0 . ..Tl|
|000003a0| 41 20 8b 20 63 25 3f 31 | 32 3d 63 6f 25 0d 01 36 |A . c%?1|2=co%..6|
|000003b0| 0b 63 25 3f 31 34 3d 31 | 0d 01 40 05 ed 0d 01 4a |.c%?14=1|..@....J|
|000003c0| 0a f2 61 73 73 65 6d 0d | 01 54 15 54 25 3d 91 3a |..assem.|.T.T%=.:|
|000003d0| f5 fd 91 3e 54 25 2b 32 | 30 30 3a db 0d 01 5e 32 |...>T%+2|00:...^2|
|000003e0| c8 99 20 22 4f 53 5f 53 | 70 72 69 74 65 4f 70 22 |.. "OS_S|priteOp"|
|000003f0| 2c 32 35 36 2b 33 34 2c | 73 70 72 69 74 65 73 2c |,256+34,|sprites,|
|00000400| 22 68 65 61 64 22 2c 30 | 2c 33 38 38 2c 30 0d 01 |"head",0|,388,0..|
|00000410| 68 2a c8 99 20 22 4f 53 | 5f 53 70 72 69 74 65 4f |h*.. "OS|_SpriteO|
|00000420| 70 22 2c 32 35 36 2b 34 | 37 2c 73 70 72 69 74 65 |p",256+4|7,sprite|
|00000430| 73 2c 22 68 65 61 64 22 | 0d 01 72 3b c8 99 20 22 |s,"head"|..r;.. "|
|00000440| 4f 53 5f 53 70 72 69 74 | 65 4f 70 22 2c 32 35 36 |OS_Sprit|eOp",256|
|00000450| 2b 33 34 2c 73 70 72 69 | 74 65 73 2c 22 68 65 61 |+34,spri|tes,"hea|
|00000460| 64 22 2c 31 32 38 30 2d | 31 30 36 2a 34 2c 33 38 |d",1280-|106*4,38|
|00000470| 38 2c 30 0d 01 7c 35 c8 | 99 20 22 4f 53 5f 53 70 |8,0..|5.|. "OS_Sp|
|00000480| 72 69 74 65 4f 70 22 2c | 32 35 36 2b 33 34 2c 73 |riteOp",|256+34,s|
|00000490| 70 72 69 74 65 73 2c 22 | 74 69 74 6c 65 22 2c 34 |prites,"|title",4|
|000004a0| 37 32 2c 34 30 30 2c 30 | 0d 01 86 2b e6 30 20 c8 |72,400,0|...+.0 .|
|000004b0| 9c 36 34 3a 86 30 2c 39 | 34 34 2c 31 32 37 39 2c |.64:.0,9|44,1279,|
|000004c0| 39 34 34 3a 86 30 2c 39 | 34 38 2c 31 32 37 39 2c |944:.0,9|48,1279,|
|000004d0| 39 34 38 0d 01 90 2b e3 | 63 25 3d 72 68 79 6d 65 |948...+.|c%=rhyme|
|000004e0| 72 73 2b 31 37 36 20 b8 | 20 72 68 79 6d 65 72 73 |rs+176 .| rhymers|
|000004f0| 2b 31 37 36 2b 33 31 2a | 31 32 20 88 31 32 0d 01 |+176+31*|12 .12..|
|00000500| 9a 3c 64 25 3d b3 28 33 | 32 30 29 2d 31 2b 28 28 |.<d%=.(3|20)-1+((|
|00000510| b3 28 31 31 32 29 2b 32 | 34 29 2a 33 32 30 29 3a |.(112)+2|4)*320):|
|00000520| e7 20 64 25 3f 41 25 3d | 30 20 8c 20 21 63 25 3d |. d%?A%=|0 . !c%=|
|00000530| 64 25 20 8b 20 e5 8d 74 | 5a 41 0d 01 a4 27 e7 20 |d% . ..t|ZA...'. |
|00000540| b3 28 31 29 3e 30 2e 35 | 20 8c 20 63 25 21 34 3d |.(1)>0.5| . c%!4=|
|00000550| b3 28 32 29 20 8b 20 63 | 25 21 34 3d 2d b3 28 32 |.(2) . c|%!4=-.(2|
|00000560| 29 0d 01 ae 2f e7 20 b3 | 28 31 29 3e 30 2e 35 20 |).../. .|(1)>0.5 |
|00000570| 8c 20 63 25 21 38 3d b3 | 28 32 29 2a 33 32 30 20 |. c%!8=.|(2)*320 |
|00000580| 8b 20 63 25 21 38 3d b3 | 28 32 29 2a 2d 33 32 30 |. c%!8=.|(2)*-320|
|00000590| 0d 01 b8 05 ed 0d 01 c2 | 11 d6 20 28 74 75 6e 65 |........|.. (tune|
|000005a0| 2b 31 33 36 38 29 0d 01 | cc 0d ee 20 85 20 e5 8d |+1368)..|... . ..|
|000005b0| 64 60 41 0d 01 d6 0b d6 | 20 64 61 76 69 64 0d 01 |d`A.....| david..|
|000005c0| e0 11 d6 20 28 74 75 6e | 65 2b 31 36 30 38 29 0d |... (tun|e+1608).|
|000005d0| 01 ea 1d eb 31 32 3a c8 | 99 20 22 4f 53 5f 52 65 |....12:.|. "OS_Re|
|000005e0| 6d 6f 76 65 43 75 72 73 | 6f 72 73 22 0d 01 f4 05 |moveCurs|ors"....|
|000005f0| e0 0d 01 fe 05 3a 0d 02 | 08 0c dd 20 f2 61 73 73 |.....:..|... .ass|
|00000600| 65 6d 0d 02 12 0f de 20 | 64 61 76 69 64 20 31 30 |em..... |david 10|
|00000610| 30 0d 02 1c 0c 50 25 3d | 64 61 76 69 64 0d 02 26 |0....P%=|david..&|
|00000620| 0a 5b 4f 50 54 20 30 0d | 02 30 14 53 54 4d 46 44 |.[OPT 0.|.0.STMFD|
|00000630| 20 52 31 33 21 2c 7b 52 | 31 34 7d 0d 02 3a 0e 4d | R13!,{R|14}..:.M|
|00000640| 4f 56 20 52 31 32 2c 52 | 30 0d 02 44 0d 2e 6d 61 |OV R12,R|0..D..ma|
|00000650| 69 6e 6c 6f 6f 70 0d 02 | 4e 1c 4d 4f 56 20 52 30 |inloop..|N.MOV R0|
|00000660| 2c 23 31 39 3a 53 57 49 | 20 22 4f 53 5f 42 79 74 |,#19:SWI| "OS_Byt|
|00000670| 65 22 0d 02 58 30 42 4c | 20 75 6e 70 6c 6f 74 3a |e"..X0BL| unplot:|
|00000680| 42 4c 20 62 61 72 73 3a | 42 4c 20 72 68 79 6d 65 |BL bars:|BL rhyme|
|00000690| 72 73 3a 42 4c 20 70 6c | 6f 74 3a 42 4c 20 69 6e |rs:BL pl|ot:BL in|
|000006a0| 74 72 0d 02 62 1c 53 57 | 49 20 22 4f 53 5f 52 65 |tr..b.SW|I "OS_Re|
|000006b0| 61 64 45 73 63 61 70 65 | 53 74 61 74 65 22 0d 02 |adEscape|State"..|
|000006c0| 6c 10 42 43 43 20 6d 61 | 69 6e 6c 6f 6f 70 0d 02 |l.BCC ma|inloop..|
|000006d0| 76 13 4c 44 4d 46 44 20 | 52 31 33 21 2c 7b 50 43 |v.LDMFD |R13!,{PC|
|000006e0| 7d 0d 02 80 05 5d 0d 02 | 8a 05 e1 0d ff          |}....]..|.....   |
+--------+-------------------------+-------------------------+--------+--------+