/ Compute! Gazette 1994 May / 1994-05a.d64 / prog page

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 25 50 52 4f 47 52 41 | 4d 4d 45 52 27 53 20 50 |.%PROGRA|MMER'S P|
|00000010| 41 47 45 3a 20 43 0f 0e | 16 05 12 13 09 0f 0e 13 |AGE: C..|........|
|00000020| 1f 1f 42 19 20 44 01 16 | 09 04 20 50 01 0e 0b 08 |..B. D..|.. P....|
|00000030| 15 12 13 14 1f 1f 1f 54 | 12 01 0e 13 0c 01 14 09 |.......T|........|
|00000040| 0e 07 20 09 13 20 01 20 | 06 01 03 14 20 0f 06 20 |.. .. . |.... .. |
|00000050| 0c 09 06 05 20 17 09 14 | 08 20 08 15 0d 01 0e 13 |.... ...|. ......|
|00000060| 2d 2d 01 0e 04 20 13 0f | 20 14 0f 0f 20 17 09 14 |--... ..| ... ...|
|00000070| 08 20 0d 01 03 08 09 0e | 05 13 2e 20 54 08 05 20 |. ......|... T.. |
|00000080| 17 01 19 20 0f 0e 05 20 | 03 0f 0d 10 15 14 05 12 |... ... |........|
|00000090| 20 0f 12 20 10 12 0f 07 | 12 01 0d 20 15 0e 04 05 | .. ....|... ....|
|000000a0| 12 13 14 01 0e 04 13 20 | 09 0e 06 0f 12 0d 01 14 |....... |........|
|000000b0| 09 0f 0e 20 03 01 0e 20 | 02 05 20 16 01 13 14 0c |... ... |.. .....|
|000000c0| 19 20 04 09 06 06 05 12 | 05 0e 14 20 06 12 0f 0d |. ......|... ....|
|000000d0| 20 14 08 05 20 17 01 19 | 20 0f 14 08 05 12 13 20 | ... ...| ...... |
|000000e0| 04 0f 2e 20 1f 1f 46 0f | 12 20 09 0e 13 14 01 0e |... ..F.|. ......|
|000000f0| 03 05 2c 20 14 01 0b 05 | 20 14 08 05 20 04 05 03 |.., ....| ... ...|
|00000100| 09 0d 01 0c 20 0e 15 0d | 02 05 12 20 31 34 37 2e |.... ...|... 147.|
|00000110| 20 49 06 20 19 0f 15 20 | 15 13 05 20 09 14 20 17 | I. ... |... .. .|
|00000120| 09 14 08 20 14 08 05 20 | 50 52 49 4e 54 20 03 0f |... ... |PRINT ..|
|00000130| 0d 0d 01 0e 04 2c 20 19 | 0f 15 20 07 05 14 20 31 |....., .|.. ... 1|
|00000140| 34 37 2e 20 49 06 20 19 | 0f 15 20 05 0e 14 05 12 |47. I. .|.. .....|
|00000150| 20 09 14 20 01 13 20 50 | 52 49 4e 54 20 43 48 52 | .. .. P|RINT CHR|
|00000160| 24 28 31 34 37 29 2c 20 | 19 0f 15 20 03 0c 05 01 |$(147), |... ....|
|00000170| 12 20 14 08 05 20 13 03 | 12 05 05 0e 2e 20 49 06 |. ... ..|..... I.|
|00000180| 20 19 0f 15 20 10 0f 0b | 05 20 09 14 20 14 0f 20 | ... ...|. .. .. |
|00000190| 14 08 05 20 13 03 12 05 | 05 0e 20 04 09 12 05 03 |... ....|.. .....|
|000001a0| 14 0c 19 2c 20 19 0f 15 | 20 07 05 14 20 01 20 12 |..., ...| ... . .|
|000001b0| 05 16 05 12 13 05 04 20 | 53 2e 20 41 0e 04 20 17 |....... |S. A.. .|
|000001c0| 08 05 0e 20 09 14 27 13 | 20 0c 09 13 14 05 04 20 |... ..'.| ...... |
|000001d0| 01 13 20 10 01 12 14 20 | 0f 06 20 01 20 42 41 53 |.. .... |.. . BAS|
|000001e0| 49 43 20 10 12 0f 07 12 | 01 0d 2c 20 09 14 20 10 |IC .....|.., .. .|
|000001f0| 12 09 0e 14 13 20 0f 15 | 14 20 14 08 05 20 0b 05 |..... ..|. ... ..|
|00000200| 19 17 0f 12 04 20 4c 4f | 41 44 2e 20 41 0e 04 20 |..... LO|AD. A.. |
|00000210| 14 08 01 14 27 13 20 0a | 15 13 14 20 17 09 14 08 |....'. .|... ....|
|00000220| 20 0f 0e 05 20 03 0f 0d | 10 15 14 05 12 21 1f 1f | ... ...|.....!..|
|00000230| 57 08 05 0e 20 03 0f 0d | 10 15 14 05 12 13 20 03 |W... ...|...... .|
|00000240| 0f 0d 0d 15 0e 09 03 01 | 14 05 2c 20 0d 15 03 08 |........|.., ....|
|00000250| 20 0f 06 20 14 08 05 20 | 04 09 06 06 09 03 15 0c | .. ... |........|
|00000260| 14 19 20 0c 09 05 13 20 | 09 0e 20 14 12 01 0e 13 |.. .... |.. .....|
|00000270| 0c 01 14 09 0f 0e 2e 20 | 53 0c 09 07 08 14 20 04 |....... |S..... .|
|00000280| 09 06 06 05 12 05 0e 03 | 05 13 20 09 0e 20 04 09 |........|.. .. ..|
|00000290| 01 0c 05 03 14 20 09 0e | 20 08 15 0d 01 0e 20 13 |..... ..| ..... .|
|000002a0| 10 05 05 03 08 20 01 12 | 05 20 13 14 09 0c 0c 20 |..... ..|. ..... |
|000002b0| 03 0f 0d 10 12 05 08 05 | 0e 13 09 02 0c 05 20 14 |........|...... .|
|000002c0| 0f 20 15 13 2c 20 02 15 | 14 20 14 08 05 20 15 0c |. .., ..|. ... ..|
|000002d0| 14 12 01 10 12 05 03 09 | 13 05 20 03 0f 0d 10 15 |........|.. .....|
|000002e0| 14 05 12 20 02 0f 07 13 | 20 04 0f 17 0e 20 09 06 |... ....| .... ..|
|000002f0| 20 05 16 05 12 19 14 08 | 09 0e 07 20 09 13 0e 27 | .......|... ...'|
|00000300| 14 20 0a 15 13 14 20 13 | 0f 2e 20 54 08 09 13 20 |. .... .|.. T... |
|00000310| 0d 0f 0e 14 08 20 17 05 | 27 0c 0c 20 0c 0f 0f 0b |..... ..|'.. ....|
|00000320| 20 01 14 20 14 12 01 0e | 13 0c 01 14 09 0f 0e 20 | .. ....|....... |
|00000330| 10 12 0f 02 0c 05 0d 13 | 20 01 0e 04 20 13 0f 0d |........| ... ...|
|00000340| 05 20 13 0f 0c 15 14 09 | 0f 0e 13 2e 1f 1f 55 42 |. ......|......UB|
|00000350| 49 51 55 49 54 4f 55 53 | 20 41 53 43 49 49 1f 54 |IQUITOUS| ASCII.T|
|00000360| 08 05 20 0d 0f 13 14 20 | 03 0f 0d 0d 0f 0e 20 06 |.. .... |...... .|
|00000370| 0f 12 0d 01 14 20 06 0f | 12 20 03 0f 0d 10 15 14 |..... ..|. ......|
|00000380| 05 12 20 03 0f 04 05 20 | 09 13 20 41 53 43 49 49 |.. .... |.. ASCII|
|00000390| 2c 20 01 0e 20 01 03 12 | 0f 0e 19 0d 20 06 0f 12 |, .. ...|.... ...|
|000003a0| 20 41 0d 05 12 09 03 01 | 0e 20 53 14 01 0e 04 01 | A......|. S.....|
|000003b0| 12 04 20 43 0f 04 05 20 | 06 0f 12 20 14 08 05 20 |.. C... |... ... |
|000003c0| 49 0e 14 05 12 03 08 01 | 0e 07 05 20 0f 06 20 49 |I.......|... .. I|
|000003d0| 0e 06 0f 12 0d 01 14 09 | 0f 0e 2e 20 41 53 43 49 |........|... ASCI|
|000003e0| 49 20 17 01 13 20 03 12 | 05 01 14 05 04 20 14 0f |I ... ..|..... ..|
|000003f0| 20 02 05 20 14 08 05 20 | 13 14 01 0e 04 01 12 04 | .. ... |........|
|00000400| 20 06 0f 12 20 03 0f 0d | 0d 15 0e 09 03 01 14 09 | ... ...|........|
|00000410| 0e 07 20 01 0d 0f 0e 07 | 20 03 0f 0d 10 15 14 05 |.. .....| .......|
|00000420| 12 13 2d 2d 01 0e 04 20 | 09 14 20 16 05 12 19 20 |..--... |.. .... |
|00000430| 0e 05 01 12 0c 19 20 09 | 13 2e 20 42 15 14 20 0e |...... .|.. B.. .|
|00000440| 0f 14 20 01 0c 0c 20 03 | 0f 04 05 13 20 01 12 05 |.. ... .|.... ...|
|00000450| 20 15 13 05 04 20 02 19 | 20 01 0c 0c 20 0d 01 0e | .... ..| ... ...|
|00000460| 15 06 01 03 14 15 12 05 | 12 13 20 14 0f 20 0d 05 |........|.. .. ..|
|00000470| 01 0e 20 14 08 05 20 13 | 01 0d 05 20 14 08 09 0e |.. ... .|... ....|
|00000480| 07 2e 20 54 08 05 20 12 | 05 13 15 0c 14 09 0e 07 |.. T.. .|........|
|00000490| 20 04 09 06 06 05 12 05 | 0e 03 05 13 20 13 10 05 | .......|.... ...|
|000004a0| 0c 0c 20 04 09 06 06 09 | 03 15 0c 14 09 05 13 20 |.. .....|....... |
|000004b0| 09 0e 20 14 12 01 0e 13 | 0c 01 14 09 0e 07 2e 1f |.. .....|........|
|000004c0| 1f 46 0f 12 20 14 08 05 | 20 36 34 2c 20 17 05 20 |.F.. ...| 64, .. |
|000004d0| 05 0e 03 0f 15 0e 14 05 | 12 20 10 12 09 0d 01 12 |........|. ......|
|000004e0| 09 0c 19 20 14 08 12 05 | 05 20 14 19 10 05 13 20 |... ....|. ..... |
|000004f0| 0f 06 20 03 0f 04 05 13 | 2c 20 01 0c 0c 20 02 01 |.. .....|, ... ..|
|00000500| 13 05 04 20 0f 0e 20 41 | 53 43 49 49 2e 20 54 08 |... .. A|SCII. T.|
|00000510| 05 13 05 20 01 12 05 20 | 41 53 43 49 49 2c 20 50 |... ... |ASCII, P|
|00000520| 05 14 41 53 43 49 49 2c | 20 01 0e 04 20 53 03 12 |..ASCII,| ... S..|
|00000530| 05 05 0e 20 43 0f 04 05 | 2e 1f 1f 41 53 43 49 49 |... C...|...ASCII|
|00000540| 2c 20 13 0f 0d 05 14 09 | 0d 05 13 20 03 01 0c 0c |, ......|... ....|
|00000550| 05 04 20 54 12 15 05 20 | 41 53 43 49 49 2c 20 09 |.. T... |ASCII, .|
|00000560| 13 20 0e 0f 14 20 15 13 | 05 04 20 02 19 20 14 08 |. ... ..|.. .. ..|
|00000570| 05 20 36 34 2c 20 01 0c | 14 08 0f 15 07 08 20 09 |. 64, ..|...... .|
|00000580| 14 27 13 20 16 09 14 01 | 0c 20 06 0f 12 20 14 01 |.'. ....|. ... ..|
|00000590| 0c 0b 09 0e 07 20 14 0f | 20 0f 14 08 05 12 20 03 |..... ..| ..... .|
|000005a0| 0f 0d 10 15 14 05 12 13 | 2e 20 54 08 05 20 0f 12 |........|. T.. ..|
|000005b0| 09 07 09 0e 01 0c 20 13 | 14 01 0e 04 01 12 04 20 |...... .|....... |
|000005c0| 03 01 0c 0c 05 04 20 06 | 0f 12 20 31 32 38 20 03 |...... .|.. 128 .|
|000005d0| 0f 04 05 13 20 28 30 2d | 31 32 37 29 2c 20 03 0f |.... (0-|127), ..|
|000005e0| 0e 13 09 13 14 09 0e 07 | 20 0f 06 20 03 0f 0e 14 |........| .. ....|
|000005f0| 12 0f 0c 20 03 0f 04 05 | 13 20 28 0c 09 0b 05 20 |... ....|. (.... |
|00000600| 52 05 14 15 12 0e 29 2c | 20 10 15 0e 03 14 15 01 |R.....),| .......|
|00000610| 14 09 0f 0e 2c 20 04 09 | 07 09 14 13 2c 20 01 0e |...., ..|...., ..|
|00000620| 04 20 15 10 10 05 12 2d | 20 01 0e 04 20 0c 0f 17 |. .....-| ... ...|
|00000630| 05 12 03 01 13 05 20 0c | 05 14 14 05 12 13 2e 20 |...... .|....... |
|00000640| 4c 01 14 05 12 20 16 05 | 12 13 09 0f 0e 13 20 28 |L.... ..|...... (|
|00000650| 13 15 03 08 20 01 13 20 | 14 08 05 20 03 08 01 12 |.... .. |... ....|
|00000660| 01 03 14 05 12 20 13 05 | 14 20 15 13 05 04 20 02 |..... ..|. .... .|
|00000670| 19 20 49 42 4d 2d 03 0f | 0d 10 01 14 09 02 0c 05 |. IBM-..|........|
|00000680| 20 03 0f 0d 10 15 14 05 | 12 13 29 20 0d 01 0b 05 | .......|..) ....|
|00000690| 20 15 13 05 20 0f 06 20 | 16 01 0c 15 05 13 20 06 | ... .. |...... .|
|000006a0| 12 0f 0d 20 31 32 38 2d | 32 35 35 2e 20 53 09 0e |... 128-|255. S..|
|000006b0| 03 05 20 14 08 05 13 05 | 20 0c 01 14 14 05 12 20 |.. .....| ...... |
|000006c0| 03 08 01 12 01 03 14 05 | 12 13 20 01 12 05 0e 27 |........|.. ....'|
|000006d0| 14 20 01 16 01 09 0c 01 | 02 0c 05 20 0f 0e 20 14 |. ......|... .. .|
|000006e0| 08 05 20 36 34 2c 20 17 | 05 20 17 0f 0e 27 14 20 |.. 64, .|. ...'. |
|000006f0| 17 0f 12 12 19 20 01 02 | 0f 15 14 20 14 12 01 0e |..... ..|... ....|
|00000700| 13 0c 01 14 09 0e 07 20 | 14 08 05 0d 2e 1f 1f 50 |....... |.......P|
|00000710| 05 14 41 53 43 49 49 20 | 28 01 0c 13 0f 20 0b 0e |..ASCII |(.... ..|
|00000720| 0f 17 0e 20 01 13 20 50 | 45 54 53 43 49 49 29 20 |... .. P|ETSCII) |
|00000730| 09 13 20 14 08 05 20 03 | 0f 04 05 20 17 05 27 12 |.. ... .|... ..'.|
|00000740| 05 20 0d 0f 13 14 20 06 | 01 0d 09 0c 09 01 12 20 |. .... .|....... |
|00000750| 17 09 14 08 2e 20 49 14 | 20 14 0f 0f 20 03 0f 0e |..... I.| ... ...|
|00000760| 13 09 13 14 13 20 0f 06 | 20 10 15 0e 03 14 15 01 |..... ..| .......|
|00000770| 14 09 0f 0e 2c 20 0c 05 | 14 14 05 12 13 2c 20 01 |...., ..|....., .|
|00000780| 0e 04 20 03 0f 0e 14 12 | 0f 0c 20 03 0f 04 05 13 |.. .....|.. .....|
|00000790| 2e 20 55 0e 0c 09 0b 05 | 20 54 12 15 05 20 41 53 |. U.....| T... AS|
|000007a0| 43 49 49 2c 20 09 14 20 | 15 13 05 13 20 32 35 36 |CII, .. |.... 256|
|000007b0| 20 03 0f 04 05 13 2c 20 | 17 09 14 08 20 14 08 05 | ....., |.... ...|
|000007c0| 20 05 18 14 12 01 20 31 | 32 38 20 03 0f 04 05 13 | ..... 1|28 .....|
|000007d0| 20 10 12 0f 16 09 04 09 | 0e 07 20 01 04 04 09 14 | .......|.. .....|
|000007e0| 09 0f 0e 01 0c 20 03 0f | 0d 0d 01 0e 04 13 2c 20 |..... ..|......, |
|000007f0| 07 12 01 10 08 09 03 13 | 20 03 08 01 12 01 03 14 |........| .......|
|00000800| 05 12 13 2c 20 01 0e 04 | 20 09 0e 16 05 12 13 05 |..., ...| .......|
|00000810| 20 03 08 01 12 01 03 14 | 05 12 13 2e 20 53 0f 0d | .......|.... S..|
|00000820| 05 20 0f 06 20 14 08 05 | 13 05 20 03 0f 04 05 13 |. .. ...|.. .....|
|00000830| 20 04 0f 20 04 0f 15 02 | 0c 05 20 04 15 14 19 20 | .. ....|.. .... |
|00000840| 01 13 20 02 0f 14 08 20 | 03 08 01 12 01 03 14 05 |.. .... |........|
|00000850| 12 13 20 01 0e 04 20 03 | 0f 0d 0d 01 0e 04 13 2e |.. ... .|........|
|00000860| 20 46 0f 12 20 09 0e 13 | 14 01 0e 03 05 2c 20 03 | F.. ...|....., .|
|00000870| 0f 04 05 20 31 34 37 20 | 03 0c 05 01 12 13 20 14 |... 147 |...... .|
|00000880| 08 05 20 13 03 12 05 05 | 0e 2c 20 02 15 14 20 09 |.. .....|., ... .|
|00000890| 06 20 09 14 27 13 20 10 | 12 09 0e 14 05 04 20 09 |. ..'. .|...... .|
|000008a0| 0e 20 11 15 0f 14 05 20 | 0d 0f 04 05 2c 20 14 08 |. ..... |...., ..|
|000008b0| 05 20 06 01 0d 09 0c 09 | 01 12 20 09 0e 16 05 12 |. ......|.. .....|
|000008c0| 13 05 20 53 20 01 10 10 | 05 01 12 13 2e 1f 1f 53 |.. S ...|.......S|
|000008d0| 03 12 05 05 0e 20 43 0f | 04 05 20 0f 12 20 50 4f |..... C.|.. .. PO|
|000008e0| 4b 45 20 41 53 43 49 49 | 20 09 13 20 14 08 05 20 |KE ASCII| .. ... |
|000008f0| 13 05 14 20 0f 06 20 03 | 0f 04 05 13 20 06 0f 12 |... .. .|.... ...|
|00000900| 20 13 03 12 05 05 0e 20 | 04 09 13 10 0c 01 19 2e | ...... |........|
|00000910| 20 57 08 05 0e 20 17 05 | 20 10 12 09 0e 14 20 14 | W... ..| ..... .|
|00000920| 05 18 14 2c 20 14 08 05 | 20 36 34 20 0f 10 05 12 |..., ...| 64 ....|
|00000930| 01 14 09 0e 07 20 13 19 | 13 14 05 0d 20 14 01 0b |..... ..|.... ...|
|00000940| 05 13 20 03 01 12 05 20 | 0f 06 20 14 12 01 0e 13 |.. .... |.. .....|
|00000950| 0c 01 14 09 0e 07 2c 20 | 02 15 14 20 17 08 05 0e |......, |... ....|
|00000960| 20 17 05 20 10 0f 0b 05 | 20 14 0f 20 14 08 05 20 | .. ....| .. ... |
|00000970| 13 03 12 05 05 0e 20 04 | 09 12 05 03 14 0c 19 2c |...... .|.......,|
|00000980| 20 17 05 20 0d 15 13 14 | 20 14 01 0b 05 20 0f 16 | .. ....| .... ..|
|00000990| 05 12 20 14 08 05 20 14 | 01 13 0b 20 0f 15 12 13 |.. ... .|... ....|
|000009a0| 05 0c 16 05 13 2e 20 53 | 0f 0d 05 20 10 12 0f 07 |...... S|... ....|
|000009b0| 12 01 0d 13 20 17 0f 12 | 0b 20 17 09 14 08 20 14 |.... ...|. .... .|
|000009c0| 08 05 13 05 20 03 0f 04 | 05 13 20 09 0e 13 14 05 |.... ...|.. .....|
|000009d0| 01 04 20 0f 06 20 50 05 | 14 41 53 43 49 49 2e 20 |.. .. P.|.ASCII. |
|000009e0| 53 10 05 05 04 53 03 12 | 09 10 14 20 09 13 20 01 |S....S..|... .. .|
|000009f0| 0e 20 05 18 01 0d 10 0c | 05 2e 1f 1f 54 08 05 13 |. ......|....T...|
|00000a00| 05 20 41 53 43 49 49 13 | 20 0e 0f 14 20 0f 0e 0c |. ASCII.| ... ...|
|00000a10| 19 20 08 01 16 05 20 04 | 09 06 06 05 12 05 0e 14 |. .... .|........|
|00000a20| 20 03 08 01 12 01 03 14 | 05 12 13 20 01 16 01 09 | .......|... ....|
|00000a30| 0c 01 02 0c 05 2c 20 02 | 15 14 20 14 08 05 19 20 |....., .|.. .... |
|00000a40| 01 0c 13 0f 20 08 01 16 | 05 20 04 09 06 06 05 12 |.... ...|. ......|
|00000a50| 05 0e 14 20 16 01 0c 15 | 05 13 20 06 0f 12 20 14 |... ....|.. ... .|
|00000a60| 08 05 20 13 01 0d 05 20 | 03 08 01 12 01 03 14 05 |.. .... |........|
|00000a70| 12 13 2c 20 01 13 20 03 | 01 0e 20 02 05 20 13 05 |.., .. .|.. .. ..|
|00000a80| 05 0e 20 06 12 0f 0d 20 | 14 08 05 20 06 0f 0c 0c |.. .... |... ....|
|00000a90| 0f 17 09 0e 07 20 14 01 | 02 0c 05 2e 1f 1f 43 4f |..... ..|......CO|
|00000aa0| 44 45 53 20 20 20 52 45 | 53 55 4c 54 1f 2d 2d 2d |DES   RE|SULT.---|
|00000ab0| 2d 2d 20 20 20 2d 2d 2d | 2d 2d 2d 1f 1f 30 2d 33 |--   ---|---..0-3|
|00000ac0| 31 20 20 20 20 54 12 15 | 05 20 41 53 43 49 49 3a |1    T..|. ASCII:|
|00000ad0| 20 20 56 01 12 09 0f 15 | 13 20 03 0f 0e 14 12 0f |  V.....|. ......|
|00000ae0| 0c 20 03 0f 04 05 13 1f | 20 20 20 20 20 20 20 20 |. ......|        |
|00000af0| 50 05 14 41 53 43 49 49 | 3a 20 20 20 20 56 01 12 |P..ASCII|:    V..|
|00000b00| 09 0f 15 13 20 03 0f 0e | 14 12 0f 0c 20 03 0f 04 |.... ...|.... ...|
|00000b10| 05 13 1f 20 20 20 20 20 | 20 20 20 50 4f 4b 45 20 |...     |   POKE |
|00000b20| 41 53 43 49 49 3a 20 20 | 4c 0f 17 05 12 03 01 13 |ASCII:  |L.......|
|00000b30| 05 20 0c 05 14 14 05 12 | 13 1f 1f 33 32 2d 36 33 |. ......|...32-63|
|00000b40| 20 20 20 54 12 15 05 20 | 41 53 43 49 49 3a 20 20 |   T... |ASCII:  |
|00000b50| 44 09 07 09 14 13 2f 50 | 15 0e 03 14 15 01 14 09 |D...../P|........|
|00000b60| 0f 0e 1f 20 20 20 20 20 | 20 20 20 50 05 14 41 53 |...     |   P..AS|
|00000b70| 43 49 49 3a 20 20 20 20 | 54 08 05 20 13 01 0d 05 |CII:    |T.. ....|
|00000b80| 1f 20 20 20 20 20 20 20 | 20 50 4f 4b 45 20 41 53 |.       | POKE AS|
|00000b90| 43 49 49 3a 20 20 54 08 | 05 20 13 01 0d 05 1f 1f |CII:  T.|. ......|
|00000ba0| 36 34 2d 39 35 20 20 20 | 54 12 15 05 20 41 53 43 |64-95   |T... ASC|
|00000bb0| 49 49 3a 20 20 55 10 10 | 05 12 03 01 13 05 20 0c |II:  U..|...... .|
|00000bc0| 05 14 14 05 12 13 1f 20 | 20 20 20 20 20 20 20 50 |....... |       P|
|00000bd0| 05 14 41 53 43 49 49 3a | 20 20 20 20 4c 0f 17 05 |..ASCII:|    L...|
|00000be0| 12 03 01 13 05 20 0c 05 | 14 14 05 12 13 1f 20 20 |..... ..|......  |
|00000bf0| 20 20 20 20 20 20 50 4f | 4b 45 20 41 53 43 49 49 |      PO|KE ASCII|
|00000c00| 3a 20 20 55 10 10 05 12 | 03 01 13 05 20 0c 05 14 |:  U....|.... ...|
|00000c10| 14 05 12 13 1f 1f 39 36 | 2d 31 32 37 20 20 54 12 |......96|-127  T.|
|00000c20| 15 05 20 41 53 43 49 49 | 3a 20 20 4c 0f 17 05 12 |.. ASCII|:  L....|
|00000c30| 03 01 13 05 20 0c 05 14 | 14 05 12 13 1f 20 20 20 |.... ...|.....   |
|00000c40| 20 20 20 20 20 50 05 14 | 41 53 43 49 49 3a 20 20 |     P..|ASCII:  |
|00000c50| 20 20 47 12 01 10 08 09 | 03 13 20 03 08 01 12 01 |  G.....|.. .....|
|00000c60| 03 14 05 12 13 1f 20 20 | 20 20 20 20 20 20 50 4f |......  |      PO|
|00000c70| 4b 45 20 41 53 43 49 49 | 3a 20 20 47 12 01 10 08 |KE ASCII|:  G....|
|00000c80| 09 03 20 03 08 01 12 01 | 03 14 05 12 13 1f 1f 31 |.. .....|.......1|
|00000c90| 32 38 2d 31 35 39 20 54 | 12 15 05 20 41 53 43 49 |28-159 T|... ASCI|
|00000ca0| 49 3a 20 20 4e 0f 14 20 | 10 12 05 13 05 0e 14 1f |I:  N.. |........|
|00000cb0| 20 20 20 20 20 20 20 20 | 50 05 14 41 53 43 49 49 |        |P..ASCII|
|00000cc0| 3a 20 20 20 20 56 01 12 | 09 0f 15 13 20 03 0f 0e |:    V..|.... ...|
|00000cd0| 14 12 0f 0c 20 03 0f 04 | 05 13 1f 20 20 20 20 20 |.... ...|...     |
|00000ce0| 20 20 20 50 4f 4b 45 20 | 41 53 43 49 49 3a 20 20 |   POKE |ASCII:  |
|00000cf0| 52 05 16 05 12 13 05 20 | 0f 06 20 30 2d 33 31 1f |R...... |.. 0-31.|
|00000d00| 1f 31 36 30 2d 31 39 31 | 20 54 12 15 05 20 41 53 |.160-191| T... AS|
|00000d10| 43 49 49 3a 20 20 4e 0f | 14 20 10 12 05 13 05 0e |CII:  N.|. ......|
|00000d20| 14 1f 20 20 20 20 20 20 | 20 20 50 05 14 41 53 43 |..      |  P..ASC|
|00000d30| 49 49 3a 20 20 20 20 47 | 12 01 10 08 09 03 13 20 |II:    G|....... |
|00000d40| 03 08 01 12 01 03 14 05 | 12 13 1f 20 20 20 20 20 |........|...     |
|00000d50| 20 20 20 50 4f 4b 45 20 | 41 53 43 49 49 3a 20 52 |   POKE |ASCII: R|
|00000d60| 05 16 05 12 13 05 20 0f | 06 20 33 32 2d 36 33 1f |...... .|. 32-63.|
|00000d70| 1f 31 39 32 2d 32 32 33 | 20 54 12 15 05 20 41 53 |.192-223| T... AS|
|00000d80| 43 49 49 3a 20 20 4e 0f | 14 20 10 12 05 13 05 0e |CII:  N.|. ......|
|00000d90| 14 1f 20 20 20 20 20 20 | 20 20 50 05 14 41 53 43 |..      |  P..ASC|
|00000da0| 49 49 3a 20 20 20 20 55 | 10 10 05 12 03 01 13 05 |II:    U|........|
|00000db0| 20 0c 05 14 14 05 12 13 | 1f 20 20 20 20 20 20 20 | .......|.       |
|00000dc0| 20 50 4f 4b 45 20 41 53 | 43 49 49 3a 20 20 52 05 | POKE AS|CII:  R.|
|00000dd0| 16 05 12 13 05 20 0f 06 | 20 36 34 2d 39 35 1f 1f |..... ..| 64-95..|
|00000de0| 32 32 34 2d 32 35 35 20 | 54 12 15 05 20 41 53 43 |224-255 |T... ASC|
|00000df0| 49 49 3a 20 20 4e 0f 14 | 20 10 12 05 13 05 0e 14 |II:  N..| .......|
|00000e00| 1f 20 20 20 20 20 20 20 | 20 50 05 14 41 53 43 49 |.       | P..ASCI|
|00000e10| 49 3a 20 20 20 20 47 12 | 01 10 08 09 03 13 20 03 |I:    G.|...... .|
|00000e20| 08 01 12 01 03 14 05 12 | 13 1f 20 20 20 20 20 20 |........|..      |
|00000e30| 20 20 50 4f 4b 45 20 41 | 53 43 49 49 3a 20 20 52 |  POKE A|SCII:  R|
|00000e40| 05 16 05 12 13 05 20 0f | 06 20 39 36 2d 31 32 37 |...... .|. 96-127|
|00000e50| 1f 1f 54 08 05 20 06 0f | 0c 0c 0f 17 09 0e 07 20 |..T.. ..|....... |
|00000e60| 06 15 0e 03 14 09 0f 0e | 13 20 17 09 0c 0c 20 0c |........|. .... .|
|00000e70| 05 14 20 19 0f 15 20 14 | 12 01 0e 13 0c 01 14 05 |.. ... .|........|
|00000e80| 20 06 12 0f 0d 20 01 0d | 0f 0e 07 20 14 08 05 13 | .... ..|... ....|
|00000e90| 05 20 14 08 12 05 05 20 | 14 19 10 05 13 20 0f 06 |. ..... |..... ..|
|00000ea0| 20 03 0f 04 05 13 2e 20 | 54 08 05 13 05 20 06 15 | ...... |T.... ..|
|00000eb0| 0e 03 14 09 0f 0e 13 20 | 01 12 05 20 06 0f 15 0e |....... |... ....|
|00000ec0| 04 20 0f 0e 20 14 08 09 | 13 20 04 09 13 0b 20 09 |. .. ...|. .... .|
|00000ed0| 0e 20 06 09 0c 05 20 46 | 4e 2e 54 52 41 4e 53 2e |. .... F|N.TRANS.|
|00000ee0| 1f 1f 36 30 30 20 52 45 | 4d 20 43 4f 44 45 20 43 |..600 RE|M CODE C|
|00000ef0| 4f 4e 56 45 52 53 49 4f | 4e 20 46 55 4e 43 54 49 |ONVERSIO|N FUNCTI|
|00000f00| 4f 4e 53 1f 36 30 35 20 | 3a 1f 36 35 30 20 52 45 |ONS.605 |:.650 RE|
|00000f10| 4d 20 46 4e 20 50 53 28 | 58 29 3a 50 45 54 41 53 |M FN PS(|X):PETAS|
|00000f20| 43 49 49 2d 3e 53 43 52 | 45 45 4e 20 50 4f 4b 45 |CII->SCR|EEN POKE|
|00000f30| 53 1f 36 35 35 20 52 45 | 4d 20 46 4e 20 53 50 28 |S.655 RE|M FN SP(|
|00000f40| 58 29 3a 53 43 52 45 45 | 4e 20 50 4f 4b 45 53 2d |X):SCREE|N POKES-|
|00000f50| 3e 50 45 54 41 53 43 49 | 49 1f 36 36 30 20 52 45 |>PETASCI|I.660 RE|
|00000f60| 4d 20 46 4e 20 43 56 28 | 58 29 3a 54 52 55 45 20 |M FN CV(|X):TRUE |
|00000f70| 41 53 43 49 49 3c 2d 3e | 50 45 54 41 53 43 49 49 |ASCII<->|PETASCII|
|00000f80| 1f 36 36 35 20 3a 1f 36 | 37 30 20 44 45 46 20 46 |.665 :.6|70 DEF F|
|00000f90| 4e 20 50 31 28 58 29 3d | 58 2b 31 32 38 2b 31 32 |N P1(X)=|X+128+12|
|00000fa0| 38 2a 28 58 3e 33 31 29 | 2b 36 34 2a 20 28 58 3e |8*(X>31)|+64* (X>|
|00000fb0| 36 33 29 2d 33 32 2a 28 | 58 3e 39 35 29 2d 39 36 |63)-32*(|X>95)-96|
|00000fc0| 2a 28 58 3e 31 32 37 29 | 2b 31 32 38 2a 28 58 3e |*(X>127)|+128*(X>|
|00000fd0| 31 35 39 29 1f 36 37 35 | 20 44 45 46 20 46 4e 20 |159).675| DEF FN |
|00000fe0| 50 53 28 58 29 3d 46 4e | 20 50 31 28 58 29 2b 36 |PS(X)=FN| P1(X)+6|
|00000ff0| 34 2a 28 58 3e 31 39 31 | 29 2b 20 33 33 2a 28 58 |4*(X>191|)+ 33*(X|
|00001000| 3e 32 35 34 29 1f 36 38 | 30 20 44 45 46 20 46 4e |>254).68|0 DEF FN|
|00001010| 20 53 50 28 58 29 3d 58 | 2b 36 34 2b 36 34 2a 28 | SP(X)=X|+64+64*(|
|00001020| 58 3e 33 31 29 2d 31 32 | 38 2a 20 28 58 3e 36 33 |X>31)-12|8* (X>63|
|00001030| 29 2b 36 34 2a 28 58 3e | 39 35 29 2b 31 39 32 2a |)+64*(X>|95)+192*|
|00001040| 28 58 3e 31 32 37 29 2d | 36 34 2a 28 58 3e 31 39 |(X>127)-|64*(X>19|
|00001050| 31 29 1f 36 38 35 20 44 | 45 46 20 46 4e 20 41 31 |1).685 D|EF FN A1|
|00001060| 28 58 29 3d 58 2b 28 58 | 2a 28 58 3e 31 32 37 29 |(X)=X+(X|*(X>127)|
|00001070| 29 2d 31 32 36 2a 20 28 | 58 3e 31 32 37 29 1f 36 |)-126* (|X>127).6|
|00001080| 39 30 20 44 45 46 20 46 | 4e 20 41 32 28 58 29 3d |90 DEF F|N A2(X)=|
|00001090| 58 2d 33 32 2a 28 58 3e | 36 34 20 41 4e 44 20 58 |X-32*(X>|64 AND X|
|000010a0| 3c 39 31 29 20 2b 33 32 | 2a 28 58 3e 39 36 20 41 |<91) +32|*(X>96 A|
|000010b0| 4e 44 20 58 3c 31 32 33 | 29 2b 31 32 38 2a 28 58 |ND X<123|)+128*(X|
|000010c0| 3e 31 39 32 20 41 4e 44 | 20 58 3c 32 31 39 29 1f |>192 AND| X<219).|
|000010d0| 36 39 35 20 44 45 46 20 | 46 4e 20 43 56 28 58 29 |695 DEF |FN CV(X)|
|000010e0| 3d 46 4e 20 41 31 28 46 | 4e 20 41 32 28 58 29 29 |=FN A1(F|N A2(X))|
|000010f0| 1f 1f 54 08 05 20 14 08 | 12 05 05 20 06 15 0e 03 |..T.. ..|... ....|
|00001100| 14 09 0f 0e 13 20 15 13 | 05 04 20 01 12 05 20 50 |..... ..|.. ... P|
|00001110| 53 28 29 2c 20 15 13 05 | 04 20 06 0f 12 20 14 12 |S(), ...|. ... ..|
|00001120| 01 0e 13 0c 01 14 09 0e | 07 20 06 12 0f 0d 20 50 |........|. .... P|
|00001130| 05 14 41 53 43 49 49 20 | 14 0f 20 53 03 12 05 05 |..ASCII |.. S....|
|00001140| 0e 20 43 0f 04 05 3b 20 | 53 50 28 29 2c 20 17 08 |. C...; |SP(), ..|
|00001150| 09 03 08 20 04 0f 05 13 | 20 14 08 05 20 12 05 16 |... ....| ... ...|
|00001160| 05 12 13 05 3b 20 01 0e | 04 20 43 56 28 29 2c 20 |....; ..|. CV(), |
|00001170| 17 08 09 03 08 20 03 0f | 0e 16 05 12 14 13 20 54 |..... ..|...... T|
|00001180| 12 15 05 20 41 53 43 49 | 49 20 14 0f 20 50 05 14 |... ASCI|I .. P..|
|00001190| 41 53 43 49 49 2c 20 01 | 0e 04 20 02 01 03 0b 20 |ASCII, .|.. .... |
|000011a0| 01 07 01 09 0e 2e 20 1f | 1f 54 0f 20 14 12 01 0e |...... .|.T. ....|
|000011b0| 13 0c 01 14 05 20 02 05 | 14 17 05 05 0e 20 54 12 |..... ..|..... T.|
|000011c0| 15 05 20 41 53 43 49 49 | 20 01 0e 04 20 53 03 12 |.. ASCII| ... S..|
|000011d0| 05 05 0e 20 50 0f 0b 05 | 13 2c 20 14 08 05 20 06 |... P...|., ... .|
|000011e0| 15 0e 03 14 09 0f 0e 13 | 20 01 12 05 20 03 0f 0d |........| ... ...|
|000011f0| 02 09 0e 05 04 20 01 13 | 20 06 0f 0c 0c 0f 17 13 |..... ..| .......|
|00001200| 2e 1f 1f 46 4e 20 50 53 | 28 46 4e 20 43 56 28 58 |...FN PS|(FN CV(X|
|00001210| 29 29 20 03 0f 0e 16 05 | 12 14 13 20 54 12 15 05 |)) .....|... T...|
|00001220| 20 41 53 43 49 49 20 16 | 01 0c 15 05 20 58 20 14 | ASCII .|.... X .|
|00001230| 0f 20 53 03 12 05 05 0e | 20 43 0f 04 05 2e 1f 1f |. S.....| C......|
|00001240| 46 4e 20 43 56 28 46 4e | 20 53 50 28 58 29 29 20 |FN CV(FN| SP(X)) |
|00001250| 12 05 16 05 12 13 05 13 | 20 14 08 05 20 10 12 0f |........| ... ...|
|00001260| 03 05 13 13 2e 1f 1f 59 | 0f 15 27 0c 0c 20 0e 0f |.......Y|..'.. ..|
|00001270| 14 09 03 05 20 13 05 16 | 05 12 01 0c 20 0f 14 08 |.... ...|.... ...|
|00001280| 05 12 20 06 15 0e 03 14 | 09 0f 0e 13 20 09 0e 20 |.. .....|.... .. |
|00001290| 14 08 05 20 0c 09 13 14 | 09 0e 07 20 28 06 15 0e |... ....|... (...|
|000012a0| 03 14 09 0f 0e 13 20 41 | 31 2c 20 41 32 2c 20 01 |...... A|1, A2, .|
|000012b0| 0e 04 20 50 31 29 20 14 | 08 01 14 20 01 12 05 0e |.. P1) .|... ....|
|000012c0| 27 14 20 15 13 05 06 15 | 0c 20 09 0e 20 14 08 05 |'. .....|. .. ...|
|000012d0| 0d 13 05 0c 16 05 13 2e | 20 42 05 03 01 15 13 05 |........| B......|
|000012e0| 20 14 08 05 20 06 09 0e | 01 0c 20 06 15 0e 03 14 | ... ...|.. .....|
|000012f0| 09 0f 0e 13 20 01 12 05 | 20 13 0f 20 0c 01 12 07 |.... ...| .. ....|
|00001300| 05 2c 20 14 08 05 19 20 | 08 01 16 05 20 14 0f 20 |., .... |.... .. |
|00001310| 02 05 20 02 12 0f 0b 05 | 0e 20 15 10 20 09 0e 14 |.. .....|. .. ...|
|00001320| 0f 20 13 0d 01 0c 0c 05 | 12 20 0f 0e 05 13 20 14 |. ......|. .... .|
|00001330| 0f 20 06 09 14 20 0f 0e | 20 05 01 03 08 20 42 41 |. ... ..| .... BA|
|00001340| 53 49 43 20 0c 09 0e 05 | 2e 20 54 08 05 13 05 20 |SIC ....|. T.... |
|00001350| 13 0d 01 0c 0c 05 12 20 | 06 15 0e 03 14 09 0f 0e |....... |........|
|00001360| 13 20 01 12 05 20 14 08 | 05 0e 20 03 0f 0d 02 09 |. ... ..|.. .....|
|00001370| 0e 05 04 20 14 0f 20 06 | 0f 12 0d 20 14 08 05 20 |... .. .|... ... |
|00001380| 0d 01 09 0e 20 06 15 0e | 03 14 09 0f 0e 13 2e 1f |.... ...|........|
|00001390| 20 20 20 20 20 1f 4c 09 | 0e 05 13 20 36 38 35 2d |     .L.|... 685-|
|000013a0| 36 39 35 20 01 12 05 20 | 06 12 0f 0d 20 01 20 13 |695 ... |.... . .|
|000013b0| 15 02 0d 09 13 13 09 0f | 0e 20 02 19 20 53 14 01 |........|. .. S..|
|000013c0| 03 19 20 4f 0c 09 16 01 | 13 2c 20 0f 06 20 47 12 |.. O....|., .. G.|
|000013d0| 01 08 01 0d 2c 20 57 01 | 13 08 09 0e 07 14 0f 0e |...., W.|........|
|000013e0| 2e 20 48 05 12 20 06 15 | 0e 03 14 09 0f 0e 20 14 |. H.. ..|...... .|
|000013f0| 12 01 0e 13 0c 01 14 05 | 13 20 06 12 0f 0d 20 54 |........|. .... T|
|00001400| 12 15 05 20 41 53 43 49 | 49 20 14 0f 20 50 05 14 |... ASCI|I .. P..|
|00001410| 41 53 43 49 49 20 01 0e | 04 20 02 01 03 0b 20 01 |ASCII ..|. .... .|
|00001420| 07 01 09 0e 2e 20 49 06 | 20 01 20 10 12 0f 07 12 |..... I.| . .....|
|00001430| 01 0d 20 03 0f 0d 05 13 | 20 01 03 12 0f 13 13 20 |.. .....| ...... |
|00001440| 01 20 03 08 01 12 01 03 | 14 05 12 20 14 08 01 14 |. ......|... ....|
|00001450| 20 03 01 0e 27 14 20 02 | 05 20 14 12 01 0e 13 0c | ...'. .|. ......|
|00001460| 01 14 05 04 2c 20 14 08 | 01 14 20 03 08 01 12 01 |...., ..|.. .....|
|00001470| 03 14 05 12 20 0d 01 19 | 20 02 05 20 03 08 01 0e |.... ...| .. ....|
|00001480| 07 05 04 20 14 0f 20 03 | 0f 04 05 20 31 32 36 2c |... .. .|... 126,|
|00001490| 20 14 08 05 20 54 12 15 | 05 20 41 53 43 49 49 20 | ... T..|. ASCII |
|000014a0| 14 09 0c 04 05 20 03 08 | 01 12 01 03 14 05 12 2c |..... ..|.......,|
|000014b0| 20 17 08 09 03 08 20 09 | 13 20 01 20 07 12 01 10 | ..... .|. . ....|
|000014c0| 08 09 03 13 20 03 08 01 | 12 01 03 14 05 12 20 09 |.... ...|...... .|
|000014d0| 0e 20 50 05 14 41 53 43 | 49 49 2e 20 1f 1f 54 08 |. P..ASC|II. ..T.|
|000014e0| 05 20 0f 14 08 05 12 20 | 14 17 0f 20 06 15 0e 03 |. ..... |... ....|
|000014f0| 14 09 0f 0e 13 20 13 10 | 0c 09 14 20 14 08 05 20 |..... ..|... ... |
|00001500| 14 01 13 0b 20 0f 06 20 | 14 12 01 0e 13 0c 01 14 |.... .. |........|
|00001510| 09 0e 07 20 02 05 14 17 | 05 05 0e 20 50 05 14 41 |... ....|... P..A|
|00001520| 53 43 49 49 20 01 0e 04 | 20 50 4f 4b 45 20 41 53 |SCII ...| POKE AS|
|00001530| 43 49 49 2e 20 41 13 20 | 49 27 16 05 20 01 0c 12 |CII. A. |I'.. ...|
|00001540| 05 01 04 19 20 0d 05 0e | 14 09 0f 0e 05 04 2c 20 |.... ...|......, |
|00001550| 14 12 01 0e 13 0c 01 14 | 09 0e 07 20 02 05 14 17 |........|... ....|
|00001560| 05 05 0e 20 50 4f 4b 45 | 20 41 53 43 49 49 20 01 |... POKE| ASCII .|
|00001570| 0e 04 20 54 12 15 05 20 | 41 53 43 49 49 20 03 01 |.. T... |ASCII ..|
|00001580| 0e 20 02 05 20 01 03 03 | 0f 0d 10 0c 09 13 08 05 |. .. ...|........|
|00001590| 04 20 02 19 20 06 09 12 | 13 14 20 14 12 01 0e 13 |. .. ...|.. .....|
|000015a0| 0c 01 14 09 0e 07 20 14 | 0f 20 50 05 14 41 53 43 |...... .|. P..ASC|
|000015b0| 49 49 2e 1f 1f 50 55 54 | 54 49 4e 47 20 54 48 45 |II...PUT|TING THE|
|000015c0| 4d 20 54 4f 20 55 53 45 | 1f 55 13 09 0e 07 20 14 |M TO USE|.U.... .|
|000015d0| 08 05 13 05 20 06 15 0e | 03 14 09 0f 0e 13 20 12 |.... ...|...... .|
|000015e0| 05 11 15 09 12 05 13 20 | 0f 0e 0c 19 20 01 20 13 |....... |.... . .|
|000015f0| 09 0d 10 0c 05 20 06 12 | 01 0d 05 17 0f 12 0b 2e |..... ..|........|
|00001600| 20 46 0f 12 20 09 0e 13 | 14 01 0e 03 05 2c 20 14 | F.. ...|....., .|
|00001610| 08 05 20 06 0f 0c 0c 0f | 17 09 0e 07 20 09 13 20 |.. .....|.... .. |
|00001620| 01 20 10 09 05 03 05 20 | 0f 06 20 03 0f 04 05 20 |. ..... |.. .... |
|00001630| 15 13 09 0e 07 20 14 08 | 05 20 06 15 0e 03 14 09 |..... ..|. ......|
|00001640| 0f 0e 13 20 14 08 01 14 | 20 14 12 01 0e 13 0c 01 |... ....| .......|
|00001650| 14 05 20 01 20 06 09 0c | 05 20 06 12 0f 0d 20 0f |.. . ...|. .... .|
|00001660| 0e 05 20 06 0f 12 0d 01 | 14 20 14 0f 20 01 0e 0f |.. .....|. .. ...|
|00001670| 14 08 05 12 2e 20 28 54 | 08 09 13 20 10 12 0f 07 |..... (T|... ....|
|00001680| 12 01 0d 20 09 13 20 0f | 0e 20 14 08 05 20 06 0c |... .. .|. ... ..|
|00001690| 09 10 20 13 09 04 05 20 | 0f 06 20 14 08 09 13 20 |.. .... |.. .... |
|000016a0| 04 09 13 0b 20 01 13 20 | 17 05 0c 0c 2e 20 49 14 |.... .. |..... I.|
|000016b0| 27 13 20 03 01 0c 0c 05 | 04 20 43 0f 0e 16 05 12 |'. .....|. C.....|
|000016c0| 14 2e 29 1f 1f 37 30 30 | 20 50 52 49 4e 54 22 2a |..)..700| PRINT"*|
|000016d0| 2a 2a 20 49 4e 50 55 54 | 20 46 49 4c 45 20 2a 2a |** INPUT| FILE **|
|000016e0| 2a 22 3a 47 4f 53 55 42 | 39 30 30 3a 20 4f 50 45 |*":GOSUB|900: OPE|
|000016f0| 4e 32 2c 38 2c 32 2c 58 | 24 2b 22 2c 22 2b 59 24 |N2,8,2,X|$+","+Y$|
|00001700| 2b 22 2c 52 22 3a 46 3d | 58 1f 37 31 30 20 50 52 |+",R":F=|X.710 PR|
|00001710| 49 4e 54 22 1b 44 4f 57 | 4e 1d 2a 2a 2a 20 4f 55 |INT".DOW|N.*** OU|
|00001720| 54 50 55 54 20 46 49 4c | 45 20 2a 2a 2a 22 3a 20 |TPUT FIL|E ***": |
|00001730| 47 4f 53 55 42 39 30 30 | 3a 4f 50 45 4e 33 2c 38 |GOSUB900|:OPEN3,8|
|00001740| 2c 33 2c 58 24 2b 22 2c | 22 2b 59 24 2b 22 2c 57 |,3,X$+",|"+Y$+",W|
|00001750| 22 3a 54 3d 58 1f 37 32 | 30 20 47 45 54 23 32 2c |":T=X.72|0 GET#2,|
|00001760| 58 24 3a 58 3d 41 53 43 | 28 58 24 2b 43 48 52 24 |X$:X=ASC|(X$+CHR$|
|00001770| 28 30 29 29 3a 49 46 20 | 53 54 20 41 4e 44 20 36 |(0)):IF |ST AND 6|
|00001780| 34 20 54 48 45 4e 37 39 | 30 1f 37 33 30 20 49 46 |4 THEN79|0.730 IF|
|00001790| 46 3d 31 41 4e 44 54 3d | 32 54 48 45 4e 58 3d 46 |F=1ANDT=|2THENX=F|
|000017a0| 4e 20 43 56 28 58 29 1f | 37 33 35 20 49 46 46 3d |N CV(X).|735 IFF=|
|000017b0| 31 41 4e 44 54 3d 33 54 | 48 45 4e 58 3d 46 4e 20 |1ANDT=3T|HENX=FN |
|000017c0| 50 53 28 58 29 1f 37 34 | 30 20 49 46 46 3d 32 41 |PS(X).74|0 IFF=2A|
|000017d0| 4e 44 54 3d 31 54 48 45 | 4e 58 3d 46 4e 20 43 56 |NDT=1THE|NX=FN CV|
|000017e0| 28 58 29 1f 37 35 30 20 | 49 46 46 3d 32 41 4e 44 |(X).750 |IFF=2AND|
|000017f0| 54 3d 33 54 48 45 4e 58 | 3d 46 4e 20 50 53 28 46 |T=3THENX|=FN PS(F|
|00001800| 4e 20 43 56 28 58 29 29 | 1f 37 36 30 20 49 46 46 |N CV(X))|.760 IFF|
|00001810| 3d 33 41 4e 44 54 3d 31 | 54 48 45 4e 58 3d 46 4e |=3ANDT=1|THENX=FN|
|00001820| 20 53 50 28 58 29 1f 37 | 37 30 20 49 46 46 3d 33 | SP(X).7|70 IFF=3|
|00001830| 41 4e 44 54 3d 32 54 48 | 45 4e 58 3d 46 4e 20 43 |ANDT=2TH|ENX=FN C|
|00001840| 56 28 46 4e 20 53 50 28 | 58 29 29 1f 37 38 30 20 |V(FN SP(|X)).780 |
|00001850| 50 52 49 4e 54 23 33 2c | 43 48 52 24 28 58 29 3b |PRINT#3,|CHR$(X);|
|00001860| 3a 50 52 49 4e 54 22 2e | 22 3b 3a 47 4f 54 4f 37 |:PRINT".|";:GOTO7|
|00001870| 32 30 1f 37 39 30 20 43 | 4c 4f 53 45 32 3a 43 4c |20.790 C|LOSE2:CL|
|00001880| 4f 53 45 33 3a 50 52 49 | 4e 54 22 44 4f 4e 45 22 |OSE3:PRI|NT"DONE"|
|00001890| 3a 45 4e 44 1f 39 30 30 | 20 49 4e 50 55 54 22 1b |:END.900| INPUT".|
|000018a0| 44 4f 57 4e 1d 46 49 4c | 45 4e 41 4d 45 22 3b 58 |DOWN.FIL|ENAME";X|
|000018b0| 24 3a 49 4e 50 55 54 22 | 20 1b 44 4f 57 4e 1d 46 |$:INPUT"| .DOWN.F|
|000018c0| 49 4c 45 20 54 59 50 45 | 3a 20 53 45 51 2c 20 50 |ILE TYPE|: SEQ, P|
|000018d0| 52 47 2c 20 55 53 52 20 | 28 53 2c 50 2c 55 29 22 |RG, USR |(S,P,U)"|
|000018e0| 20 3b 59 24 1f 39 31 30 | 20 50 52 49 4e 54 22 1b | ;Y$.910| PRINT".|
|000018f0| 44 4f 57 4e 1d 46 49 4c | 45 20 43 4f 4e 54 45 4e |DOWN.FIL|E CONTEN|
|00001900| 54 53 3a 22 3a 50 52 49 | 4e 54 22 20 31 2d 50 45 |TS:":PRI|NT" 1-PE|
|00001910| 54 20 41 53 43 49 49 20 | 32 2d 54 52 55 45 20 41 |T ASCII |2-TRUE A|
|00001920| 53 43 49 49 20 33 2d 53 | 43 52 45 45 4e 20 50 4f |SCII 3-S|CREEN PO|
|00001930| 4b 45 53 22 1f 39 32 30 | 20 49 4e 50 55 54 58 3a |KES".920| INPUTX:|
|00001940| 52 45 54 55 52 4e 1f 1f | 54 08 05 20 10 12 0f 07 |RETURN..|T.. ....|
|00001950| 12 01 0d 20 0f 10 05 0e | 13 20 02 0f 14 08 20 01 |... ....|. .... .|
|00001960| 0e 20 09 0e 10 15 14 20 | 01 0e 04 20 01 0e 20 0f |. ..... |... .. .|
|00001970| 15 14 10 15 14 20 06 09 | 0c 05 2e 20 4c 09 0e 05 |..... ..|... L...|
|00001980| 13 20 39 30 30 2d 39 32 | 30 20 01 13 0b 20 06 0f |. 900-92|0 ... ..|
|00001990| 12 20 04 05 14 01 09 0c | 13 20 01 02 0f 15 14 20 |. ......|. ..... |
|000019a0| 14 08 05 20 06 09 0c 05 | 2c 20 09 0e 03 0c 15 04 |... ....|, ......|
|000019b0| 09 0e 07 20 14 08 05 20 | 14 19 10 05 20 01 0e 04 |... ... |.... ...|
|000019c0| 20 14 08 05 20 03 0f 0e | 14 05 0e 14 13 2e 20 54 | ... ...|...... T|
|000019d0| 08 05 20 13 01 0d 05 20 | 09 13 20 01 13 0b 05 04 |.. .... |.. .....|
|000019e0| 20 0f 06 20 14 08 05 20 | 0f 15 14 10 15 14 2e 20 | .. ... |....... |
|000019f0| 42 01 13 05 04 20 0f 0e | 20 14 08 05 20 01 0e 13 |B.... ..| ... ...|
|00001a00| 17 05 12 13 2c 20 14 08 | 05 20 16 01 12 09 0f 15 |...., ..|. ......|
|00001a10| 13 20 03 0f 0e 16 05 12 | 13 09 0f 0e 20 06 15 0e |. ......|.... ...|
|00001a20| 03 14 09 0f 0e 13 20 01 | 12 05 20 03 01 0c 0c 05 |...... .|.. .....|
|00001a30| 04 20 09 0e 20 0c 09 0e | 05 13 20 37 33 30 2d 37 |. .. ...|.. 730-7|
|00001a40| 37 30 2e 20 1f 1f 54 08 | 05 20 10 12 0f 03 05 13 |70. ..T.|. ......|
|00001a50| 13 20 0f 06 20 12 05 01 | 04 09 0e 07 2c 20 14 12 |. .. ...|...., ..|
|00001a60| 01 0e 13 0c 01 14 09 0e | 07 2c 20 01 0e 04 20 17 |........|., ... .|
|00001a70| 12 09 14 09 0e 07 20 03 | 08 01 12 01 03 14 05 12 |...... .|........|
|00001a80| 13 20 09 13 0e 27 14 20 | 16 05 12 19 20 06 01 13 |. ...'. |.... ...|
|00001a90| 14 20 28 14 08 05 20 13 | 10 05 05 04 20 09 13 20 |. (... .|.... .. |
|00001aa0| 13 08 0f 17 0e 20 02 19 | 20 01 20 10 05 12 09 0f |..... ..| . .....|
|00001ab0| 04 20 10 12 09 0e 14 05 | 04 20 0f 0e 20 13 03 12 |. ......|. .. ...|
|00001ac0| 05 05 0e 20 06 0f 12 20 | 05 01 03 08 20 03 08 01 |... ... |.... ...|
|00001ad0| 12 01 03 14 05 12 20 12 | 05 01 04 29 2c 20 02 15 |...... .|...), ..|
|00001ae0| 14 20 09 14 20 09 0c 0c | 15 13 14 12 01 14 05 13 |. .. ...|........|
|00001af0| 20 08 0f 17 20 14 08 05 | 20 06 15 0e 03 14 09 0f | ... ...| .......|
|00001b00| 0e 20 03 0f 0d 0d 01 0e | 04 20 03 01 0e 20 08 01 |. ......|. ... ..|
|00001b10| 0e 04 0c 05 20 14 08 05 | 20 14 12 01 0e 13 0c 01 |.... ...| .......|
|00001b20| 14 09 0e 07 20 03 08 0f | 12 05 2e 1f 1f 1f 49 06 |.... ...|......I.|
|00001b30| 20 19 0f 15 20 08 01 16 | 05 20 01 20 10 12 0f 07 | ... ...|. . ....|
|00001b40| 12 01 0d 0d 09 0e 07 20 | 14 09 10 20 14 08 01 14 |....... |... ....|
|00001b50| 20 19 0f 15 27 04 20 0c | 09 0b 05 20 14 0f 20 13 | ...'. .|... .. .|
|00001b60| 08 01 12 05 20 17 09 14 | 08 20 0f 15 12 20 12 05 |.... ...|. ... ..|
|00001b70| 01 04 05 12 13 2c 20 10 | 15 14 20 09 14 20 0f 0e |....., .|.. .. ..|
|00001b80| 20 04 09 13 0b 20 01 0e | 04 20 13 05 0e 04 20 09 | .... ..|. .... .|
|00001b90| 14 20 14 0f 20 50 12 0f | 07 12 01 0d 0d 05 12 27 |. .. P..|.......'|
|00001ba0| 13 20 50 01 07 05 2c 20 | 43 4f 4d 50 55 54 45 20 |. P..., |COMPUTE |
|00001bb0| 50 15 02 0c 09 03 01 14 | 09 0f 0e 13 2c 20 33 32 |P.......|...., 32|
|00001bc0| 34 20 57 05 13 14 20 57 | 05 0e 04 0f 16 05 12 20 |4 W... W|....... |
|00001bd0| 41 16 05 0e 15 05 2c 20 | 53 15 09 14 05 20 32 30 |A....., |S.... 20|
|00001be0| 30 2c 20 47 12 05 05 0e | 13 02 0f 12 0f 2c 20 4e |0, G....|....., N|
|00001bf0| 0f 12 14 08 20 43 01 12 | 0f 0c 09 0e 01 20 32 37 |.... C..|..... 27|
|00001c00| 34 30 38 2e 20 57 05 20 | 10 01 19 20 24 32 35 2d |408. W. |... $25-|
|00001c10| 24 35 30 20 06 0f 12 20 | 05 01 03 08 20 14 09 10 |$50 ... |.... ...|
|00001c20| 20 14 08 01 14 20 17 05 | 20 10 15 02 0c 09 13 08 | .... ..| .......|
|00001c30| 2e 1f 1f 47 01 1a 05 14 | 14 05 2c 20 4d 01 19 20 |...G....|.., M.. |
|00001c40| 31 39 39 34 1f          |                         |1994.   |        |
+--------+-------------------------+-------------------------+--------+--------+