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

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0b f4 3e 21 4d | 45 4e 55 0d 00 14 07 eb |.....>!M|ENU.....|
|00000010| 20 37 0d 00 1e 0d 2a 46 | 58 20 32 30 30 20 33 0d | 7....*F|X 200 3.|
|00000020| 00 28 0d 2a 46 58 20 32 | 32 39 20 31 0d 00 32 13 |.(.*FX 2|29 1..2.|
|00000030| ef 32 33 3b 38 32 30 32 | 3b 30 3b 30 3b 30 3b 0d |.23;8202|;0;0;0;.|
|00000040| 00 3c 0a 2a 46 58 20 31 | 38 0d 00 46 11 de 20 64 |.<.*FX 1|8..F.. d|
|00000050| 61 74 61 25 20 26 31 30 | 30 30 0d 00 50 12 2a 44 |ata% &10|00..P.*D|
|00000060| 49 52 20 3c 42 42 43 24 | 44 69 72 3e 0d 00 5a 15 |IR <BBC$|Dir>..Z.|
|00000070| 66 69 6c 65 25 3d 8e 28 | 22 21 54 69 74 6c 65 22 |file%=.(|"!Title"|
|00000080| 29 0d 00 64 3b e7 20 66 | 69 6c 65 25 3d 30 20 8c |)..d;. f|ile%=0 .|
|00000090| 20 74 69 74 6c 65 24 3d | 22 42 42 43 20 50 72 6f | title$=|"BBC Pro|
|000000a0| 67 72 61 6d 73 22 20 8b | 20 74 69 74 6c 65 24 3d |grams" .| title$=|
|000000b0| a4 67 65 74 3a d9 23 66 | 69 6c 65 25 0d 00 6e 0a |.get:.#f|ile%..n.|
|000000c0| 6c 6f 6f 70 3d 32 0d 00 | 78 17 de 20 6f 70 74 24 |loop=2..|x.. opt$|
|000000d0| 28 31 35 29 2c 63 6f 6d | 24 28 31 35 29 0d 00 82 |(15),com|$(15)...|
|000000e0| 2e 6f 70 74 24 28 31 29 | 3d 22 52 65 74 75 72 6e |.opt$(1)|="Return|
|000000f0| 20 74 6f 20 64 65 73 6b | 74 6f 70 22 3a 63 6f 6d | to desk|top":com|
|00000100| 24 28 31 29 3d 22 51 55 | 49 54 22 0d 00 8c 16 3f |$(1)="QU|IT"....?|
|00000110| 26 39 30 30 3d 30 3a 21 | 26 39 30 31 3d 26 39 38 |&900=0:!|&901=&98|
|00000120| 30 0d 00 96 0b 21 26 39 | 30 39 3d 30 0d 00 a0 24 |0....!&9|09=0...$|
|00000130| f5 3a 21 26 39 30 35 3d | 31 3a 58 25 3d 30 3a 59 |.:!&905=|1:X%=0:Y|
|00000140| 25 3d 39 3a 41 25 3d 38 | 3a d6 20 26 46 46 44 31 |%=9:A%=8|:. &FFD1|
|00000150| 0d 00 aa 14 e7 20 21 26 | 39 30 35 3d 31 20 8c 20 |..... !&|905=1 . |
|00000160| 8d 64 70 40 0d 00 b4 1d | 3f 28 26 39 38 31 2b 3f |.dp@....|?(&981+?|
|00000170| 26 39 38 30 29 3d 31 33 | 3a 74 24 3d 24 26 39 38 |&980)=13|:t$=$&98|
|00000180| 31 0d 00 be 17 e7 20 c0 | 74 24 2c 31 29 3d 22 21 |1..... .|t$,1)="!|
|00000190| 22 20 8c 20 8d 64 70 40 | 0d 00 c8 22 63 6f 6d 24 |" . .dp@|..."com$|
|000001a0| 28 6c 6f 6f 70 29 3d 22 | 44 49 52 20 3c 42 42 43 |(loop)="|DIR <BBC|
|000001b0| 24 44 69 72 3e 2e 22 2b | 74 24 0d 00 d2 26 66 69 |$Dir>."+|t$...&fi|
|000001c0| 6c 65 25 3d 8e 28 22 3c | 42 42 43 24 44 69 72 3e |le%=.("<|BBC$Dir>|
|000001d0| 2e 22 2b 74 24 2b 22 2e | 21 54 69 74 6c 65 22 29 |."+t$+".|!Title")|
|000001e0| 0d 00 dc 38 e7 20 66 69 | 6c 65 25 3d 30 20 8c 20 |...8. fi|le%=0 . |
|000001f0| 6f 70 74 24 28 6c 6f 6f | 70 29 3d 74 24 20 8b 20 |opt$(loo|p)=t$ . |
|00000200| 6f 70 74 24 28 6c 6f 6f | 70 29 3d a4 67 65 74 3a |opt$(loo|p)=.get:|
|00000210| d9 23 66 69 6c 65 25 20 | 0d 00 e6 0f 6c 6f 6f 70 |.#file% |....loop|
|00000220| 3d 6c 6f 6f 70 2b 31 0d | 00 f0 0c fd 21 26 39 30 |=loop+1.|....!&90|
|00000230| 35 3d 31 0d 00 fa 07 d9 | 23 30 0d 01 04 0a 2a 46 |5=1.....|#0....*F|
|00000240| 58 20 31 35 0d 01 0e 2e | e3 79 25 3d 30 20 b8 20 |X 15....|.y%=0 . |
|00000250| 32 34 3a ef 33 31 2c 31 | 2c 79 25 2c 31 33 32 2c |24:.31,1|,y%,132,|
|00000260| 33 31 2c 33 37 2c 79 25 | 2c 31 33 35 2c 31 35 36 |31,37,y%|,135,156|
|00000270| 3a ed 0d 01 18 19 78 70 | 3d 28 34 30 2d a9 28 74 |:.....xp|=(40-.(t|
|00000280| 69 74 6c 65 24 29 29 20 | 81 20 32 0d 01 22 18 f1 |itle$)) |. 2.."..|
|00000290| 8a 78 70 2d 31 2c 31 29 | 3b 22 86 22 3b 74 69 74 |.xp-1,1)|;".";tit|
|000002a0| 6c 65 24 0d 01 2c 0f 6c | 6f 6f 70 3d 6c 6f 6f 70 |le$..,.l|oop=loop|
|000002b0| 2d 31 0d 01 36 0f e3 6c | 3d 31 20 b8 20 6c 6f 6f |-1..6..l|=1 . loo|
|000002c0| 70 0d 01 40 1a 78 70 3d | 28 34 30 2d a9 28 6f 70 |p..@.xp=|(40-.(op|
|000002d0| 74 24 28 6c 29 29 29 20 | 81 20 32 0d 01 4a 1b f1 |t$(l))) |. 2..J..|
|000002e0| 8a 78 70 2d 31 2c 34 2b | 6c 29 3b 22 83 22 3b 6f |.xp-1,4+|l);".";o|
|000002f0| 70 74 24 28 6c 29 0d 01 | 54 05 ed 0d 01 5e 0f 6d |pt$(l)..|T....^.m|
|00000300| 61 78 79 3d 35 2b 6c 6f | 6f 70 0d 01 68 08 6f 79 |axy=5+lo|op..h.oy|
|00000310| 3d 30 0d 01 72 28 f1 8a | 37 2c 32 34 29 3b 22 82 |=0..r(..|7,24);".|
|00000320| 55 73 65 20 74 68 65 20 | 6d 6f 75 73 65 20 74 6f |Use the |mouse to|
|00000330| 20 73 65 6c 65 63 74 2e | 22 3b 0d 01 7c 05 f5 0d | select.|";..|...|
|00000340| 01 86 0b 20 2a 4d 4f 55 | 53 45 0d 01 90 19 20 6d |... *MOU|SE.... m|
|00000350| 79 3d 28 31 30 32 33 2d | 21 26 39 30 34 29 20 81 |y=(1023-|!&904) .|
|00000360| 20 34 33 0d 01 9a 71 20 | e7 20 6d 79 3c 3e 6f 79 | 43...q |. my<>oy|
|00000370| 20 8c 20 ef 33 31 2c 30 | 2c 6d 79 2c 32 35 35 2c | . .31,0|,my,255,|
|00000380| 33 31 2c 30 2c 6f 79 2c | 33 32 2c 33 31 2c 33 39 |31,0,oy,|32,31,39|
|00000390| 2c 6d 79 2c 32 35 35 2c | 33 31 2c 33 39 2c 6f 79 |,my,255,|31,39,oy|
|000003a0| 2c 33 32 2c 33 31 2c 32 | 2c 6f 79 2c 33 32 3a 6f |,32,31,2|,oy,32:o|
|000003b0| 79 3d 6d 79 3a e7 20 6d | 79 3e 34 20 80 20 6d 79 |y=my:. m|y>4 . my|
|000003c0| 3c 6d 61 78 79 20 8c 20 | ef 33 31 2c 32 2c 6d 79 |<maxy . |.31,2,my|
|000003d0| 2c 31 35 37 0d 01 a4 1f | fd 20 21 26 39 30 38 3c |,157....|. !&908<|
|000003e0| 3e 30 20 80 20 6d 79 3e | 34 20 80 20 6d 79 3c 6d |>0 . my>|4 . my<m|
|000003f0| 61 78 79 0d 01 ae 0c 6f | 70 74 3d 6d 79 2d 34 0d |axy....o|pt=my-4.|
|00000400| 01 b8 0c db 3a 2a 46 58 | 20 31 35 0d 01 c2 07 d9 |....:*FX| 15.....|
|00000410| 23 30 0d 01 cc 0b 2a 46 | 58 20 32 30 30 0d 01 d6 |#0....*F|X 200...|
|00000420| 0c 20 2a 46 58 20 32 32 | 39 0d 01 e0 10 ff 28 63 |. *FX 22|9.....(c|
|00000430| 6f 6d 24 28 6f 70 74 29 | 29 0d 01 ea 0f 2a 45 58 |om$(opt)|)....*EX|
|00000440| 45 43 20 21 42 4f 4f 54 | 0d 01 f4 05 e0 0d 01 fe |EC !BOOT|........|
|00000450| 0a dd 20 a4 67 65 74 0d | 02 08 09 61 24 3d 22 22 |.. .get.|...a$=""|
|00000460| 0d 02 12 10 f5 3a 62 25 | 3d 9a 23 66 69 6c 65 25 |.....:b%|=.#file%|
|00000470| 0d 02 1c 19 e7 20 62 25 | 3e 33 31 20 8c 20 61 24 |..... b%|>31 . a$|
|00000480| 3d 61 24 2b bd 28 62 25 | 29 0d 02 26 0a fd 62 25 |=a$+.(b%|)..&..b%|
|00000490| 3c 33 32 0d 02 30 07 3d | 61 24 0d ff             |<32..0.=|a$..    |
+--------+-------------------------+-------------------------+--------+--------+