Amoszine 5

home *** CD-ROM | disk | FTP | other *** search
/ Amoszine 5 / Amoszine 5.adf / LHA_ARCHIVES / POWERBOBS_DEMO.lha / AZ_POWERBOB_DEMO / AMAL_PBOBS.AMOS next >
AMOS Basic Source Code Archive | 1980-02-10 | 2.6 KB
view JSON data |
view as text |
open on a Mac |
open on a PC

This file was processed as: AMOS Basic Source Code Archive (archive/amosSrc).

You can browse this item here: AMAL_PBOBS.AMOS
Confidence	Program	Detection	Match Type	Support
`100%`	dexvert	AMOS Basic Source Code Archive `(archive/amosSrc)`	magic	Supported
`100%`	file	AMOS Basic source code, tested	default
`99%`	file	data	default
`100%`	TrID	AMOS source (generic)	default
`100%`	gt2	Kopftext: 'AMOS Basic V1.4 '	default (weak)
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 41 4d 4f 53 20 42 61 73 | 69 63 20 56 31 2e 34 20 |AMOS Bas|ic V1.4 |
|00000010| 00 00 0a 4c 17 01 09 ea | 00 3e 00 00 00 00 00 5c |...L....|.>.....\|
|00000020| 00 3e 00 00 01 40 00 5c | 00 3e 00 00 00 c8 00 5c |.>...@.\|.>.....\|
|00000030| 00 3e 00 00 00 20 00 5c | 00 06 00 00 02 00 6c 00 |.>... .\|......l.|
|00000040| 00 00 11 01 18 4e 00 26 | 00 17 64 68 31 3a 70 6f |.....N.&|..dh1:po|
|00000050| 77 65 72 5f 62 6f 62 73 | 2f 64 65 6d 6f 2e 61 62 |wer_bobs|/demo.ab|
|00000060| 6b 00 00 00 03 01 1d d2 | 00 00 10 01 02 3c 00 76 |k.......|.....<.v|
|00000070| 00 06 00 06 02 00 69 00 | ff a2 00 3e 00 00 00 01 |......i.|...>....|
|00000080| 00 94 00 3e 00 00 00 0f | 00 00 06 04 0b b8 00 3e |...>....|.......>|
|00000090| 00 00 00 00 00 00 0f 04 | 0e 9a 00 3e 00 00 00 10 |........|...>....|
|000000a0| 00 5c 00 3e 00 00 00 10 | 00 5c 00 06 00 06 02 00 |.\.>....|.\......|
|000000b0| 69 00 00 00 17 04 1b fc | 00 06 00 06 02 00 69 00 |i.......|......i.|
|000000c0| 00 5c 00 3e 00 00 00 00 | 00 5c 00 3e 00 00 00 00 |.\.>....|.\.>....|
|000000d0| 00 94 00 3e 00 00 00 20 | 00 5c 00 3e 00 00 00 20 |...>... |.\.>... |
|000000e0| 00 00 03 01 02 46 00 00 | 0c 01 00 4e 02 02 00 56 |.....F..|...N...V|
|000000f0| 00 3e 00 00 00 0a 00 94 | 00 3e 00 00 00 00 00 00 |.>......|.>......|
|00000100| 03 01 1a be 00 00 03 01 | 19 ce 00 00 03 01 01 2c |........|.......,|
|00000110| 00 00 06 01 0e 2c 00 3e | 00 00 00 00 00 00 03 01 |.....,.>|........|
|00000120| 1d 28 00 00 08 01 00 4e | 0d 01 00 06 00 3e 00 00 |.(.....N|.....>..|
|00000130| 00 08 00 00 06 01 00 4e | 0d 01 00 94 12 3e 00 00 |.......N|.....>..|
|00000140| 10 01 02 3c 00 38 00 06 | 00 06 02 00 69 00 ff a2 |...<.8..|....i...|
|00000150| 00 3e 00 00 00 01 00 94 | 00 3e 00 00 00 08 00 00 |.>......|.>......|
|00000160| 0d 04 00 4e 0d 02 00 3c | 00 06 00 06 02 00 69 00 |...N...<|......i.|
|00000170| 00 5c 00 3e 00 00 00 20 | 00 00 03 01 02 46 00 00 |.\.>... |.....F..|
|00000180| 05 01 00 4e 0d 00 00 fe | 00 00 04 01 06 52 00 00 |...N....|.....R..|
|00000190| 00 00 1f 01 06 52 00 36 | 44 6f 6e 27 74 20 62 6f |.....R.6|Don't bo|
|000001a0| 74 68 65 72 20 61 62 6f | 75 74 20 74 68 65 20 41 |ther abo|ut the A|
|000001b0| 4d 41 4c 20 73 65 74 75 | 70 2c 20 6a 75 73 74 20 |MAL setu|p, just |
|000001c0| 66 6f 72 20 74 65 73 74 | 69 6e 67 2e 2e 2e 00 00 |for test|ing.....|
|000001d0| 04 01 06 52 00 00 00 00 | 14 01 02 3c 02 de 00 06 |...R....|...<....|
|000001e0| 00 06 02 00 69 00 ff a2 | 00 3e 00 00 00 00 00 94 |....i...|.>......|
|000001f0| 00 3e 00 00 00 08 03 56 | 00 3e 00 00 00 02 00 00 |.>.....V|.>......|
|00000200| 2a 01 00 06 00 0c 02 02 | 61 00 ff a2 00 26 00 42 |*.......|a....&.B|
|00000210| 4c 65 74 20 58 3d 5a 28 | 31 32 30 29 3b 4c 65 74 |Let X=Z(|120);Let|
|00000220| 20 59 3d 5a 28 31 30 30 | 29 2b 5a 28 35 30 29 3b | Y=Z(100|)+Z(50);|
|00000230| 4c 65 74 20 52 30 3d 2d | 31 3b 4c 65 74 20 52 31 |Let R0=-|1;Let R1|
|00000240| 3d 2d 31 3b 4c 65 74 20 | 41 3d 5a 28 31 32 29 2b |=-1;Let |A=Z(12)+|
|00000250| 32 3b 00 00 14 01 00 06 | 00 0c 02 02 61 00 ff a2 |2;......|....a...|
|00000260| 00 06 00 0c 02 02 61 00 | ff c0 00 26 00 0b 4c 6f |......a.|...&..Lo|
|00000270| 6f 70 3a 20 50 20 3b 50 | 3b 00 00 00 14 01 00 06 |op: P ;P|;.......|
|00000280| 00 0c 02 02 61 00 ff a2 | 00 06 00 0c 02 02 61 00 |....a...|......a.|
|00000290| ff c0 00 26 00 0c 4c 65 | 74 20 58 3d 58 2b 52 30 |...&..Le|t X=X+R0|
|000002a0| 20 3b 00 00 19 01 00 06 | 00 0c 02 02 61 00 ff a2 | ;......|....a...|
|000002b0| 00 06 00 0c 02 02 61 00 | ff c0 00 26 00 15 49 66 |......a.|...&..If|
|000002c0| 20 58 3e 32 35 30 20 4a | 75 6d 70 20 52 65 73 65 | X>250 J|ump Rese|
|000002d0| 74 20 3b 00 00 00 18 01 | 00 06 00 0c 02 02 61 00 |t ;.....|......a.|
|000002e0| ff a2 00 06 00 0c 02 02 | 61 00 ff c0 00 26 00 13 |........|a....&..|
|000002f0| 49 66 20 58 3c 30 20 4a | 75 6d 70 20 52 65 73 65 |If X<0 J|ump Rese|
|00000300| 74 20 3b 00 00 00 14 01 | 00 06 00 0c 02 02 61 00 |t ;.....|......a.|
|00000310| ff a2 00 06 00 0c 02 02 | 61 00 ff c0 00 26 00 0b |........|a....&..|
|00000320| 4c 65 74 20 41 3d 41 2b | 52 31 3b 00 00 00 17 01 |Let A=A+|R1;.....|
|00000330| 00 06 00 0c 02 02 61 00 | ff a2 00 06 00 0c 02 02 |......a.|........|
|00000340| 61 00 ff c0 00 26 00 12 | 49 66 20 41 3c 32 20 4a |a....&..|If A<2 J|
|00000350| 75 6d 70 20 49 6d 61 67 | 65 3b 00 00 18 01 00 06 |ump Imag|e;......|
|00000360| 00 0c 02 02 61 00 ff a2 | 00 06 00 0c 02 02 61 00 |....a...|......a.|
|00000370| ff c0 00 26 00 13 49 66 | 20 41 3e 31 34 20 4a 75 |...&..If| A>14 Ju|
|00000380| 6d 70 20 49 6d 61 67 65 | 3b 00 00 00 14 01 00 06 |mp Image|;.......|
|00000390| 00 0c 02 02 61 00 ff a2 | 00 06 00 0c 02 02 61 00 |....a...|......a.|
|000003a0| ff c0 00 26 00 0b 4a 75 | 6d 70 20 4c 6f 6f 70 20 |...&..Ju|mp Loop |
|000003b0| 3b 00 00 00 12 01 00 06 | 00 0c 02 02 61 00 ff a2 |;.......|....a...|
|000003c0| 00 06 00 0c 02 02 61 00 | ff c0 00 26 00 08 52 65 |......a.|...&..Re|
|000003d0| 73 65 74 3a 20 3b 00 00 | 15 01 00 06 00 0c 02 02 |set: ;..|........|
|000003e0| 61 00 ff a2 00 06 00 0c | 02 02 61 00 ff c0 00 26 |a.......|..a....&|
|000003f0| 00 0e 4c 65 74 20 52 30 | 3d 52 30 2a 2d 31 20 3b |..Let R0|=R0*-1 ;|
|00000400| 00 00 14 01 00 06 00 0c | 02 02 61 00 ff a2 00 06 |........|..a.....|
|00000410| 00 0c 02 02 61 00 ff c0 | 00 26 00 0b 4a 75 6d 70 |....a...|.&..Jump|
|00000420| 20 4c 6f 6f 70 20 3b 00 | 00 00 12 01 00 06 00 0c | Loop ;.|........|
|00000430| 02 02 61 00 ff a2 00 06 | 00 0c 02 02 61 00 ff c0 |..a.....|....a...|
|00000440| 00 26 00 08 49 6d 61 67 | 65 3a 20 3b 00 00 15 01 |.&..Imag|e: ;....|
|00000450| 00 06 00 0c 02 02 61 00 | ff a2 00 06 00 0c 02 02 |......a.|........|
|00000460| 61 00 ff c0 00 26 00 0e | 4c 65 74 20 52 31 3d 52 |a....&..|Let R1=R|
|00000470| 31 2a 2d 31 20 3b 00 00 | 14 01 00 06 00 0c 02 02 |1*-1 ;..|........|
|00000480| 61 00 ff a2 00 06 00 0c | 02 02 61 00 ff c0 00 26 |a.......|..a....&|
|00000490| 00 0b 4a 75 6d 70 20 4c | 6f 6f 70 20 3b 00 00 00 |..Jump L|oop ;...|
|000004a0| 0c 01 20 12 00 06 00 06 | 02 00 69 00 00 5c 00 06 |.. .....|..i..\..|
|000004b0| 00 0c 02 02 61 00 00 00 | 03 01 02 46 00 00 14 01 |....a...|...F....|
|000004c0| 02 3c 02 e4 00 06 00 06 | 02 00 69 00 ff a2 00 3e |.<......|..i....>|
|000004d0| 00 00 00 01 00 94 00 3e | 00 00 00 07 03 56 00 3e |.......>|.....V.>|
|000004e0| 00 00 00 02 00 00 2d 01 | 00 06 00 0c 02 02 61 00 |......-.|......a.|
|000004f0| ff a2 00 26 00 47 4c 65 | 74 20 58 3d 5a 28 32 32 |...&.GLe|t X=Z(22|
|00000500| 30 29 2b 5a 28 35 30 29 | 3b 20 4c 65 74 20 59 3d |0)+Z(50)|; Let Y=|
|00000510| 5a 28 31 36 30 29 2b 5a | 28 31 30 29 3b 4c 65 74 |Z(160)+Z|(10);Let|
|00000520| 20 52 30 3d 31 3b 4c 65 | 74 20 52 31 3d 31 3b 4c | R0=1;Le|t R1=1;L|
|00000530| 65 74 20 41 3d 5a 28 31 | 32 29 2b 32 3b 00 00 00 |et A=Z(1|2)+2;...|
|00000540| 14 01 00 06 00 0c 02 02 | 61 00 ff a2 00 06 00 0c |........|a.......|
|00000550| 02 02 61 00 ff c0 00 26 | 00 0b 4c 6f 6f 70 3a 20 |..a....&|..Loop: |
|00000560| 50 20 3b 50 3b 00 00 00 | 14 01 00 06 00 0c 02 02 |P ;P;...|........|
|00000570| 61 00 ff a2 00 06 00 0c | 02 02 61 00 ff c0 00 26 |a.......|..a....&|
|00000580| 00 0c 4c 65 74 20 58 3d | 58 2b 52 30 20 3b 00 00 |..Let X=|X+R0 ;..|
|00000590| 19 01 00 06 00 0c 02 02 | 61 00 ff a2 00 06 00 0c |........|a.......|
|000005a0| 02 02 61 00 ff c0 00 26 | 00 15 49 66 20 58 3e 32 |..a....&|..If X>2|
|000005b0| 35 30 20 4a 75 6d 70 20 | 52 65 73 65 74 20 3b 00 |50 Jump |Reset ;.|
|000005c0| 00 00 18 01 00 06 00 0c | 02 02 61 00 ff a2 00 06 |........|..a.....|
|000005d0| 00 0c 02 02 61 00 ff c0 | 00 26 00 13 49 66 20 58 |....a...|.&..If X|
|000005e0| 3c 30 20 4a 75 6d 70 20 | 52 65 73 65 74 20 3b 00 |<0 Jump |Reset ;.|
|000005f0| 00 00 14 01 00 06 00 0c | 02 02 61 00 ff a2 00 06 |........|..a.....|
|00000600| 00 0c 02 02 61 00 ff c0 | 00 26 00 0b 4c 65 74 20 |....a...|.&..Let |
|00000610| 41 3d 41 2b 52 31 3b 00 | 00 00 17 01 00 06 00 0c |A=A+R1;.|........|
|00000620| 02 02 61 00 ff a2 00 06 | 00 0c 02 02 61 00 ff c0 |..a.....|....a...|
|00000630| 00 26 00 12 49 66 20 41 | 3c 32 20 4a 75 6d 70 20 |.&..If A|<2 Jump |
|00000640| 49 6d 61 67 65 3b 00 00 | 18 01 00 06 00 0c 02 02 |Image;..|........|
|00000650| 61 00 ff a2 00 06 00 0c | 02 02 61 00 ff c0 00 26 |a.......|..a....&|
|00000660| 00 13 49 66 20 41 3e 31 | 34 20 4a 75 6d 70 20 49 |..If A>1|4 Jump I|
|00000670| 6d 61 67 65 3b 00 00 00 | 14 01 00 06 00 0c 02 02 |mage;...|........|
|00000680| 61 00 ff a2 00 06 00 0c | 02 02 61 00 ff c0 00 26 |a.......|..a....&|
|00000690| 00 0b 4a 75 6d 70 20 4c | 6f 6f 70 20 3b 00 00 00 |..Jump L|oop ;...|
|000006a0| 12 01 00 06 00 0c 02 02 | 61 00 ff a2 00 06 00 0c |........|a.......|
|000006b0| 02 02 61 00 ff c0 00 26 | 00 08 52 65 73 65 74 3a |..a....&|..Reset:|
|000006c0| 20 3b 00 00 15 01 00 06 | 00 0c 02 02 61 00 ff a2 | ;......|....a...|
|000006d0| 00 06 00 0c 02 02 61 00 | ff c0 00 26 00 0e 4c 65 |......a.|...&..Le|
|000006e0| 74 20 52 30 3d 52 30 2a | 2d 31 20 3b 00 00 14 01 |t R0=R0*|-1 ;....|
|000006f0| 00 06 00 0c 02 02 61 00 | ff a2 00 06 00 0c 02 02 |......a.|........|
|00000700| 61 00 ff c0 00 26 00 0b | 4a 75 6d 70 20 4c 6f 6f |a....&..|Jump Loo|
|00000710| 70 20 3b 00 00 00 12 01 | 00 06 00 0c 02 02 61 00 |p ;.....|......a.|
|00000720| ff a2 00 06 00 0c 02 02 | 61 00 ff c0 00 26 00 08 |........|a....&..|
|00000730| 49 6d 61 67 65 3a 20 3b | 00 00 15 01 00 06 00 0c |Image: ;|........|
|00000740| 02 02 61 00 ff a2 00 06 | 00 0c 02 02 61 00 ff c0 |..a.....|....a...|
|00000750| 00 26 00 0e 4c 65 74 20 | 52 31 3d 52 31 2a 2d 31 |.&..Let |R1=R1*-1|
|00000760| 20 3b 00 00 14 01 00 06 | 00 0c 02 02 61 00 ff a2 | ;......|....a...|
|00000770| 00 06 00 0c 02 02 61 00 | ff c0 00 26 00 0b 4a 75 |......a.|...&..Ju|
|00000780| 6d 70 20 4c 6f 6f 70 20 | 3b 00 00 00 0c 01 20 12 |mp Loop |;..... .|
|00000790| 00 06 00 06 02 00 69 00 | 00 5c 00 06 00 0c 02 02 |......i.|.\......|
|000007a0| 61 00 00 00 03 01 02 46 | 00 00 04 01 06 52 00 00 |a......F|.....R..|
|000007b0| 00 00 17 01 06 52 00 26 | 41 73 73 69 67 6e 20 74 |.....R.&|Assign t|
|000007c0| 68 65 20 50 62 6f 62 73 | 20 74 6f 20 61 6e 20 41 |he Pbobs| to an A|
|000007d0| 6d 61 6c 20 63 68 61 6e | 6e 65 6c 2e 2e 2e 00 00 |mal chan|nel.....|
|000007e0| 04 01 06 52 00 00 00 00 | 10 01 02 3c 00 4a 00 06 |...R....|...<.J..|
|000007f0| 00 06 02 00 69 00 ff a2 | 00 3e 00 00 00 02 00 94 |....i...|.>......|
|00000800| 00 3e 00 00 00 09 00 00 | 16 01 00 4e 0d 02 02 72 |.>......|...N...r|
|00000810| 00 06 00 06 02 00 69 00 | ff ca 00 3e 00 00 00 02 |......i.|...>....|
|00000820| 00 94 00 06 00 06 02 00 | 69 00 ff ca 00 3e 00 00 |........|i....>..|
|00000830| 00 01 00 00 03 01 02 46 | 00 00 04 01 06 52 00 00 |.......F|.....R..|
|00000840| 00 00 09 01 06 52 00 0a | 4c 65 74 27 73 20 67 6f |.....R..|Let's go|
|00000850| 20 21 00 00 04 01 06 52 | 00 00 00 00 03 01 1f bc | !.....R|........|
|00000860| 00 00 05 01 00 4e 0c 00 | 00 16 00 00 0e 01 00 06 |.....N..|........|
|00000870| 00 12 02 00 72 00 ff a2 | 01 f8 00 74 ff ca 00 3e |....r...|...t...>|
|00000880| 00 00 00 84 00 7c 00 00 | 27 01 06 52 00 46 20 57 |.....|..|'..R.F W|
|00000890| 68 65 20 75 73 65 20 32 | 20 50 61 75 73 65 20 69 |he use 2| Pause i|
|000008a0| 6e 73 74 72 75 63 74 69 | 6f 6e 73 20 69 6e 20 74 |nstructi|ons in t|
|000008b0| 68 65 20 41 6d 61 6c 20 | 70 72 6f 67 73 2c 20 73 |he Amal |progs, s|
|000008c0| 6f 20 73 79 6e 63 68 72 | 6f 6e 69 7a 65 20 69 74 |o synchr|onize it|
|000008d0| 20 74 6f 20 00 00 0c 01 | 06 52 00 10 20 74 68 65 | to ....|.R.. the|
|000008e0| 20 73 61 6d 65 20 73 70 | 65 65 64 2e 00 00 08 01 | same sp|eed.....|
|000008f0| 00 4e 0d 01 02 a0 00 3e | 00 00 00 02 00 00 04 01 |.N.....>|........|
|00000900| 02 50 01 10 00 00 1c 01 | 06 52 00 30 20 4f 6b 20 |.P......|.R.0 Ok |
|00000910| 74 72 61 6e 73 66 65 72 | 20 74 68 65 20 58 2f 59 |transfer| the X/Y|
|00000920| 20 61 6e 64 20 41 20 76 | 61 6c 75 65 73 20 74 6f | and A v|alues to|
|00000930| 20 74 68 65 20 50 62 6f | 62 73 2e 20 00 00 04 01 | the Pbo|bs. ....|
|00000940| 06 52 00 00 00 00 0c 04 | 00 4e 0d 02 02 8c 00 3e |.R......|.N.....>|
|00000950| 00 00 00 01 00 94 00 3e | 00 00 00 08 00 00 04 01 |.......>|........|
|00000960| 06 52 00 00 00 00 26 01 | 06 52 00 44 20 20 54 72 |.R....&.|.R.D  Tr|
|00000970| 79 20 69 74 20 77 69 74 | 68 20 50 62 6f 62 20 43 |y it wit|h Pbob C|
|00000980| 6c 65 61 72 2f 44 72 61 | 77 2c 20 69 74 20 61 6c |lear/Dra|w, it al|
|00000990| 73 6f 20 77 6f 72 6b 73 | 2e 2e 2e 69 73 6e 27 74 |so works|...isn't|
|000009a0| 20 74 68 69 73 20 47 52 | 45 41 54 20 3f 3f 3f 20 | this GR|EAT ??? |
|000009b0| 00 00 0e 01 06 52 00 14 | 20 20 20 50 62 6f 62 20 |.....R..|   Pbob |
|000009c0| 43 6c 65 61 72 20 31 20 | 54 6f 20 38 00 00 0e 01 |Clear 1 |To 8....|
|000009d0| 06 52 00 14 20 20 20 50 | 62 6f 62 20 44 72 61 77 |.R..   P|bob Draw|
|000009e0| 20 31 20 54 6f 20 38 20 | 00 00 04 01 06 52 00 00 | 1 To 8 |.....R..|
|000009f0| 00 00 04 01 06 52 00 00 | 00 00 05 04 00 4e 0d 00 |.....R..|.....N..|
|00000a00| 00 fe 00 00 03 04 0a e2 | 00 00 03 04 0c ca 00 00 |........|........|
|00000a10| 06 01 02 5c 00 4e 0c 00 | 03 92 00 00 0e 01 00 06 |...\.N..|........|
|00000a20| 00 12 02 00 72 00 ff a2 | 01 f8 00 74 ff ca 00 3e |....r...|...t...>|
|00000a30| 00 00 00 8a 00 7c 00 00 | 05 01 00 4e 0c 00 00 06 |.....|..|...N....|
|00000a40| 00 00 06 01 21 5e 00 3e | 00 00 00 01 00 00 06 01 |....!^.>|........|
|00000a50| 21 5e 00 3e 00 00 00 0a | 00 00 03 01 03 b6 00 00 |!^.>....|........|
|00000a60| 41 6d 42 73 00 00       |                         |AmBs..  |        |
+--------+-------------------------+-------------------------+--------+--------+