home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1995-10-04 | 11.9 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
| |
| 100%
| xdgMime
| image/x-tga
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 23 f4 20 55 6e | 62 72 6f 6b 65 6e 20 43 |...#. Un|broken C|
|00000010| 69 72 63 6c 65 20 42 41 | 53 49 43 20 6c 69 62 72 |ircle BA|SIC libr|
|00000020| 61 72 79 0d 00 14 2f f4 | 20 43 72 65 61 74 65 64 |ary.../.| Created|
|00000030| 20 62 79 20 6d 65 6d 62 | 65 72 73 20 6f 66 20 74 | by memb|ers of t|
|00000040| 68 65 20 55 6e 62 72 6f | 6b 65 6e 20 43 69 72 63 |he Unbro|ken Circ|
|00000050| 6c 65 0d 00 1e 2a f4 20 | 54 68 65 73 65 20 72 6f |le...*. |These ro|
|00000060| 75 74 69 6e 65 73 20 63 | 61 6e 20 62 65 20 75 73 |utines c|an be us|
|00000070| 65 64 20 62 79 20 61 6e | 79 6f 6e 65 0d 00 28 04 |ed by an|yone..(.|
|00000080| 0d 00 32 2c ee 20 85 20 | f6 3a f1 22 20 61 74 20 |..2,. . |.:." at |
|00000090| 6c 69 6e 65 20 22 3b 9e | 22 20 69 6e 20 74 68 65 |line ";.|" in the|
|000000a0| 20 6c 69 62 72 61 72 79 | 2e 22 3a e0 0d 00 3c 33 | library|.":...<3|
|000000b0| f4 20 20 20 20 20 20 52 | 65 66 65 72 20 74 6f 3a |. R|efer to:|
|000000c0| 20 20 50 52 4f 43 64 65 | 63 6f 64 65 72 20 28 69 | PROCde|coder (i|
|000000d0| 66 20 75 73 65 64 20 69 | 6e 20 63 6f 64 65 29 0d |f used i|n code).|
|000000e0| 00 46 40 f4 20 20 20 20 | 20 20 20 20 20 20 20 20 |.F@. | |
|000000f0| 20 20 20 20 20 50 52 4f | 43 66 6f 6e 65 69 6e 69 | PRO|Cfoneini|
|00000100| 74 20 28 69 66 20 50 52 | 4f 43 64 69 61 6c 20 69 |t (if PR|OCdial i|
|00000110| 73 20 75 73 65 64 20 69 | 6e 20 63 6f 64 65 29 0d |s used i|n code).|
|00000120| 00 50 04 0d 00 5a 04 0d | 00 64 81 85 26 30 2c 22 |.P...Z..|.d..&0,"|
|00000130| 28 55 6e 62 72 6f 6b 65 | 6e 20 43 69 72 63 6c 65 |(Unbroke|n Circle|
|00000140| 20 72 6f 75 74 69 6e 65 | 20 6c 69 62 72 61 72 79 | routine| library|
|00000150| 29 20 20 59 6f 75 20 73 | 68 6f 75 6c 64 20 49 4e |) You s|hould IN|
|00000160| 53 54 41 4c 4c 20 3c 73 | 74 72 69 6e 67 3e 20 74 |STALL <s|tring> t|
|00000170| 68 69 73 20 70 72 6f 67 | 72 61 6d 20 61 74 20 74 |his prog|ram at t|
|00000180| 68 65 20 74 6f 70 20 6f | 66 20 79 6f 75 72 20 63 |he top o|f your c|
|00000190| 6f 64 65 20 74 6f 20 75 | 73 65 20 74 68 65 20 72 |ode to u|se the r|
|000001a0| 6f 75 74 69 6e 65 73 22 | 0d 00 6e 04 0d 00 78 18 |outines"|..n...x.|
|000001b0| dd 20 f2 63 6c 65 61 72 | 62 61 6e 6b 73 28 62 61 |. .clear|banks(ba|
|000001c0| 6e 6b 25 29 0d 00 82 8d | 20 f4 20 62 61 6e 6b 25 |nk%)....| . bank%|
|000001d0| 20 69 73 20 74 68 65 20 | 73 63 72 65 65 6e 20 62 | is the |screen b|
|000001e0| 61 6e 6b 20 74 6f 20 64 | 69 73 70 6c 61 79 20 61 |ank to d|isplay a|
|000001f0| 66 74 65 72 20 63 6c 65 | 61 72 69 6e 67 2e 20 4e |fter cle|aring. N|
|00000200| 6f 74 65 20 74 68 61 74 | 20 69 74 20 69 73 20 4e |ote that| it is N|
|00000210| 4f 54 20 73 65 6c 65 63 | 74 65 64 20 66 6f 72 20 |OT selec|ted for |
|00000220| 6f 75 74 70 75 74 20 6f | 6e 20 65 78 69 74 20 28 |output o|n exit (|
|00000230| 75 73 65 20 53 59 53 20 | 36 2c 31 31 33 2c 3c 62 |use SYS |6,113,<b|
|00000240| 61 6e 6b 3e 20 74 6f 20 | 64 6f 20 74 68 69 73 29 |ank> to |do this)|
|00000250| 2e 0d 00 8c 11 20 c8 99 | 20 36 2c 31 31 32 2c 32 |..... ..| 6,112,2|
|00000260| 3a db 0d 00 96 11 20 c8 | 99 20 36 2c 31 31 32 2c |:..... .|. 6,112,|
|00000270| 31 3a db 0d 00 a0 13 20 | c8 99 20 36 2c 31 31 33 |1:..... |.. 6,113|
|00000280| 2c 62 61 6e 6b 25 0d 00 | aa 05 e1 0d 00 b4 04 0d |,bank%..|........|
|00000290| 00 be 1b dd 20 f2 6c 6f | 61 64 73 70 72 69 74 65 |.... .lo|adsprite|
|000002a0| 73 28 66 69 6c 65 24 2c | 78 29 0d 00 c8 51 20 f4 |s(file$,|x)...Q .|
|000002b0| 20 53 65 74 20 78 20 74 | 6f 20 31 20 69 66 20 79 | Set x t|o 1 if y|
|000002c0| 6f 75 20 77 61 6e 74 20 | 74 6f 20 72 75 6e 20 74 |ou want |to run t|
|000002d0| 68 65 20 50 52 4f 43 6c | 6f 61 64 73 70 72 69 74 |he PROCl|oadsprit|
|000002e0| 65 64 61 74 61 20 70 72 | 6f 63 65 64 75 72 65 20 |edata pr|ocedure |
|000002f0| 61 66 74 65 72 20 65 78 | 69 74 2e 0d 00 d2 13 20 |after ex|it..... |
|00000300| 66 69 6c 65 25 3d 8e 28 | 66 69 6c 65 24 29 0d 00 |file%=.(|file$)..|
|00000310| dc 15 20 73 69 7a 65 25 | 3d a2 23 66 69 6c 65 25 |.. size%|=.#file%|
|00000320| 2b 36 34 0d 00 e6 0c 20 | d9 23 66 69 6c 65 25 0d |+64.... |.#file%.|
|00000330| 00 f0 51 20 f4 20 4e 6f | 77 20 64 69 6d 65 6e 73 |..Q . No|w dimens|
|00000340| 69 6f 6e 20 61 6e 20 61 | 72 65 61 20 74 68 65 20 |ion an a|rea the |
|00000350| 73 69 7a 65 20 6f 66 20 | 74 68 65 20 66 69 6c 65 |size of |the file|
|00000360| 20 74 6f 20 73 74 6f 72 | 65 20 74 68 65 20 73 70 | to stor|e the sp|
|00000370| 72 69 74 65 20 64 61 74 | 61 20 69 6e 20 2e 2e 2e |rite dat|a in ...|
|00000380| 0d 00 fa 12 20 de 20 61 | 72 65 61 25 20 73 69 7a |.... . a|rea% siz|
|00000390| 65 25 0d 01 04 12 20 61 | 72 65 61 25 21 30 3d 73 |e%.... a|rea%!0=s|
|000003a0| 69 7a 65 25 0d 01 0e 37 | 20 f4 20 49 6e 69 74 69 |ize%...7| . Initi|
|000003b0| 61 6c 69 73 65 20 61 72 | 65 61 20 74 6f 20 6c 6f |alise ar|ea to lo|
|000003c0| 61 64 20 74 68 65 20 73 | 70 72 69 74 65 20 64 61 |ad the s|prite da|
|000003d0| 74 61 20 69 6e 74 6f 20 | 2e 2e 2e 0d 01 18 21 20 |ta into |......! |
|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 39 2c 61 | 72 65 61 25 0d 01 22 1c |,256+9,a|rea%..".|
|00000400| 20 e7 20 78 3d 31 20 8c | 20 f2 6c 6f 61 64 73 70 | . x=1 .| .loadsp|
|00000410| 72 69 74 65 64 61 74 61 | 0d 01 2c 05 e1 0d 01 36 |ritedata|..,....6|
|00000420| 04 0d 01 40 15 dd 20 f2 | 6c 6f 61 64 73 70 72 69 |...@.. .|loadspri|
|00000430| 74 65 64 61 74 61 0d 01 | 4a 4e f4 20 54 68 69 73 |tedata..|JN. This|
|00000440| 20 73 68 6f 75 6c 64 20 | 62 65 20 72 65 71 75 65 | should |be reque|
|00000450| 73 74 65 64 20 62 79 20 | 73 65 74 74 69 6e 67 20 |sted by |setting |
|00000460| 74 68 65 20 74 6f 70 20 | 62 69 74 20 6f 66 20 50 |the top |bit of P|
|00000470| 52 4f 43 6c 6f 61 64 73 | 70 72 69 74 65 73 20 74 |ROCloads|prites t|
|00000480| 6f 20 31 2e 0d 01 54 28 | 20 c8 99 20 22 4f 53 5f |o 1...T(| .. "OS_|
|00000490| 53 70 72 69 74 65 4f 70 | 22 2c 32 35 36 2b 31 30 |SpriteOp|",256+10|
|000004a0| 2c 61 72 65 61 25 2c 66 | 69 6c 65 24 0d 01 5e 05 |,area%,f|ile$..^.|
|000004b0| e1 0d 01 68 04 0d 01 72 | 39 dd 20 f2 73 65 74 73 |...h...r|9. .sets|
|000004c0| 70 72 69 74 65 28 73 70 | 72 69 74 65 6e 61 6d 65 |prite(sp|ritename|
|000004d0| 24 2c f8 20 76 61 6c 75 | 65 25 2c f8 20 77 69 64 |$,. valu|e%,. wid|
|000004e0| 74 68 25 2c f8 20 68 65 | 69 67 68 74 25 29 0d 01 |th%,. he|ight%)..|
|000004f0| 7c 55 f4 20 49 6e 69 74 | 69 61 6c 69 73 65 73 20 ||U. Init|ialises |
|00000500| 61 20 73 70 72 69 74 65 | 20 63 6f 6e 74 61 69 6e |a sprite| contain|
|00000510| 65 64 20 69 6e 20 74 68 | 65 20 6c 6f 61 64 65 64 |ed in th|e loaded|
|00000520| 20 73 70 72 69 74 65 20 | 66 69 6c 65 20 28 66 69 | sprite |file (fi|
|00000530| 6c 65 24 29 20 72 65 61 | 64 79 20 66 6f 72 20 75 |le$) rea|dy for u|
|00000540| 73 65 2e 0d 01 86 39 20 | c8 99 20 22 4f 53 5f 53 |se....9 |.. "OS_S|
|00000550| 70 72 69 74 65 4f 70 22 | 2c 32 35 36 2b 32 34 2c |priteOp"|,256+24,|
|00000560| 61 72 65 61 25 2c 73 70 | 72 69 74 65 6e 61 6d 65 |area%,sp|ritename|
|00000570| 24 20 b8 20 2c 2c 76 61 | 6c 75 65 25 0d 01 90 42 |$ . ,,va|lue%...B|
|00000580| 20 c8 99 20 22 4f 53 5f | 53 70 72 69 74 65 4f 70 | .. "OS_|SpriteOp|
|00000590| 22 2c 32 35 36 2b 34 30 | 2c 61 72 65 61 25 2c 73 |",256+40|,area%,s|
|000005a0| 70 72 69 74 65 6e 61 6d | 65 24 20 b8 20 2c 2c 2c |pritenam|e$ . ,,,|
|000005b0| 77 69 64 74 68 25 2c 68 | 65 69 67 68 74 25 0d 01 |width%,h|eight%..|
|000005c0| 9a 05 e1 0d 01 a4 04 0d | 01 ae 1a dd 20 f2 67 65 |........|.... .ge|
|000005d0| 74 73 63 72 65 65 6e 72 | 65 73 6f 6c 75 74 69 6f |tscreenr|esolutio|
|000005e0| 6e 0d 01 b8 6a f4 20 50 | 72 6f 76 69 64 65 73 20 |n...j. P|rovides |
|000005f0| 69 6e 66 6f 72 6d 61 74 | 69 6f 6e 20 61 62 6f 75 |informat|ion abou|
|00000600| 74 20 74 68 65 20 63 75 | 72 72 65 6e 74 20 6d 6f |t the cu|rrent mo|
|00000610| 64 65 2e 20 52 65 74 75 | 72 6e 73 20 74 68 72 65 |de. Retu|rns thre|
|00000620| 65 20 76 61 72 69 61 62 | 6c 65 73 20 2d 20 6d 6f |e variab|les - mo|
|00000630| 64 65 5f 6e 75 6d 62 65 | 72 25 2c 20 78 72 65 73 |de_numbe|r%, xres|
|00000640| 25 20 61 6e 64 20 79 72 | 65 73 25 0d 01 c2 2b 20 |% and yr|es%...+ |
|00000650| c8 99 20 22 4f 53 5f 52 | 65 61 64 4d 6f 64 65 56 |.. "OS_R|eadModeV|
|00000660| 61 72 69 61 62 6c 65 22 | 2c 2d 31 2c 34 20 b8 20 |ariable"|,-1,4 . |
|00000670| 2c 2c 78 65 69 67 0d 01 | cc 2b 20 c8 99 20 22 4f |,,xeig..|.+ .. "O|
|00000680| 53 5f 52 65 61 64 4d 6f | 64 65 56 61 72 69 61 62 |S_ReadMo|deVariab|
|00000690| 6c 65 22 2c 2d 31 2c 35 | 20 b8 20 2c 2c 79 65 69 |le",-1,5| . ,,yei|
|000006a0| 67 0d 01 d6 2e 20 c8 99 | 20 22 4f 53 5f 52 65 61 |g.... ..| "OS_Rea|
|000006b0| 64 4d 6f 64 65 56 61 72 | 69 61 62 6c 65 22 2c 2d |dModeVar|iable",-|
|000006c0| 31 2c 37 20 b8 20 2c 2c | 6d 65 6d 6f 72 79 25 0d |1,7 . ,,|memory%.|
|000006d0| 01 e0 2d 20 c8 99 20 22 | 4f 53 5f 52 65 61 64 4d |..- .. "|OS_ReadM|
|000006e0| 6f 64 65 56 61 72 69 61 | 62 6c 65 22 2c 2d 31 2c |odeVaria|ble",-1,|
|000006f0| 31 31 20 b8 20 2c 2c 78 | 73 69 7a 65 0d 01 ea 2d |11 . ,,x|size...-|
|00000700| 20 c8 99 20 22 4f 53 5f | 52 65 61 64 4d 6f 64 65 | .. "OS_|ReadMode|
|00000710| 56 61 72 69 61 62 6c 65 | 22 2c 2d 31 2c 31 32 20 |Variable|",-1,12 |
|00000720| b8 20 2c 2c 79 73 69 7a | 65 0d 01 f4 18 20 e9 20 |. ,,ysiz|e.... . |
|00000730| 78 72 65 73 25 3d 78 73 | 69 7a 65 3c 3c 78 65 69 |xres%=xs|ize<<xei|
|00000740| 67 0d 01 fe 18 20 e9 20 | 79 72 65 73 25 3d 79 73 |g.... . |yres%=ys|
|00000750| 69 7a 65 3c 3c 79 65 69 | 67 0d 02 08 13 20 6d 6f |ize<<yei|g.... mo|
|00000760| 64 65 5f 6e 75 6d 62 65 | 72 25 3d eb 0d 02 12 05 |de_numbe|r%=.....|
|00000770| e1 0d 02 1c 04 0d 02 26 | 1a dd 20 a4 75 6e 73 63 |.......&|.. .unsc|
|00000780| 72 61 6d 62 6c 65 28 73 | 74 72 69 6e 67 24 29 0d |ramble(s|tring$).|
|00000790| 02 30 58 f4 20 50 75 74 | 20 69 6e 20 61 20 73 63 |.0X. Put| in a sc|
|000007a0| 72 61 6d 62 6c 65 64 20 | 6d 65 73 73 61 67 65 2e |rambled |message.|
|000007b0| 20 54 68 65 20 27 46 4e | 73 63 72 61 6d 62 6c 65 | The 'FN|scramble|
|000007c0| 27 20 70 72 6f 63 65 64 | 75 72 65 20 73 68 6f 75 |' proced|ure shou|
|000007d0| 6c 64 20 62 65 20 75 73 | 65 64 20 74 6f 20 67 65 |ld be us|ed to ge|
|000007e0| 74 20 74 68 69 73 2e 0d | 02 3a 0a 20 73 24 3d 22 |t this..|.:. s$="|
|000007f0| 22 0d 02 44 1b 20 e3 20 | 63 68 61 72 25 3d 31 20 |"..D. . |char%=1 |
|00000800| b8 20 a9 28 73 74 72 69 | 6e 67 24 29 0d 02 4e 1a |. .(stri|ng$)..N.|
|00000810| 20 20 63 24 3d c1 73 74 | 72 69 6e 67 24 2c 63 68 | c$=.st|ring$,ch|
|00000820| 61 72 25 2c 31 29 0d 02 | 58 10 20 20 63 6f 64 65 |ar%,1)..|X. code|
|00000830| 25 3d 97 20 63 24 0d 02 | 62 16 20 20 73 24 2b 3d |%=. c$..|b. s$+=|
|00000840| bd 28 28 63 6f 64 65 25 | 2d 33 29 29 0d 02 6c 0c |.((code%|-3))..l.|
|00000850| 20 ed 20 63 68 61 72 25 | 0d 02 76 07 3d 73 24 0d | . char%|..v.=s$.|
|00000860| 02 80 04 0d 02 8a 18 dd | 20 a4 73 63 72 61 6d 62 |........| .scramb|
|00000870| 6c 65 28 73 74 72 69 6e | 67 24 29 0d 02 94 9b f4 |le(strin|g$).....|
|00000880| 20 50 75 74 20 69 6e 20 | 61 20 73 74 72 69 6e 67 | Put in |a string|
|00000890| 20 61 6e 64 20 79 6f 75 | 27 6c 6c 20 67 65 74 20 | and you|'ll get |
|000008a0| 61 20 73 63 72 61 6d 62 | 6c 65 64 20 76 65 72 73 |a scramb|led vers|
|000008b0| 69 6f 6e 20 6f 75 74 2e | 20 43 68 61 72 61 63 74 |ion out.| Charact|
|000008c0| 65 72 73 20 61 72 65 20 | 73 68 69 66 74 65 64 20 |ers are |shifted |
|000008d0| 33 20 70 6c 61 63 65 73 | 20 75 70 2e 20 43 68 61 |3 places| up. Cha|
|000008e0| 6e 67 65 20 74 68 65 20 | 33 20 74 6f 20 61 20 68 |nge the |3 to a h|
|000008f0| 69 67 68 65 72 20 76 61 | 6c 75 65 20 66 6f 72 20 |igher va|lue for |
|00000900| 27 73 74 72 6f 6e 67 65 | 72 27 20 73 63 72 61 6d |'stronge|r' scram|
|00000910| 62 6c 69 6e 67 2e 0d 02 | 9e 0a 20 73 24 3d 22 22 |bling...|.. s$=""|
|00000920| 0d 02 a8 1b 20 e3 20 63 | 68 61 72 25 3d 31 20 b8 |.... . c|har%=1 .|
|00000930| 20 a9 28 73 74 72 69 6e | 67 24 29 0d 02 b2 1a 20 | .(strin|g$).... |
|00000940| 20 63 24 3d c1 73 74 72 | 69 6e 67 24 2c 63 68 61 | c$=.str|ing$,cha|
|00000950| 72 25 2c 31 29 0d 02 bc | 10 20 20 63 6f 64 65 25 |r%,1)...|. code%|
|00000960| 3d 97 20 63 24 0d 02 c6 | 16 20 20 73 24 2b 3d bd |=. c$...|. s$+=.|
|00000970| 28 28 63 6f 64 65 25 2b | 33 29 29 0d 02 d0 0c 20 |((code%+|3)).... |
|00000980| ed 20 63 68 61 72 25 0d | 02 da 07 3d 73 24 0d 02 |. char%.|...=s$..|
|00000990| e4 04 0d 02 ee 1c dd 20 | f2 64 65 63 6f 64 65 72 |....... |.decoder|
|000009a0| 28 6d 65 73 73 61 67 65 | 24 2c 78 2c 79 29 0d 02 |(message|$,x,y)..|
|000009b0| f8 48 f4 20 54 68 69 73 | 20 6e 65 61 74 20 62 69 |.H. This| neat bi|
|000009c0| 74 20 6f 66 20 63 6f 64 | 65 20 64 65 63 6f 64 65 |t of cod|e decode|
|000009d0| 73 20 61 20 6d 65 73 73 | 61 67 65 20 73 63 72 61 |s a mess|age scra|
|000009e0| 6d 62 6c 65 64 20 77 69 | 74 68 20 46 4e 73 63 72 |mbled wi|th FNscr|
|000009f0| 61 6d 62 6c 65 2e 0d 03 | 02 42 f4 20 54 68 65 20 |amble...|.B. The |
|00000a00| 6c 69 6e 65 20 62 65 6c | 6f 77 20 73 68 6f 75 6c |line bel|ow shoul|
|00000a10| 64 20 62 65 20 70 75 74 | 20 61 74 20 74 68 65 20 |d be put| at the |
|00000a20| 74 6f 70 20 6f 66 20 74 | 68 65 20 70 72 6f 67 72 |top of t|he progr|
|00000a30| 61 6d 20 63 6f 64 65 2e | 0d 03 0c 2a 20 de 20 74 |am code.|...* . t|
|00000a40| 69 6d 65 25 28 a9 28 6d | 65 73 73 61 67 65 24 29 |ime%(.(m|essage$)|
|00000a50| 29 2c 6f 6e 25 28 a9 28 | 6d 65 73 73 61 67 65 24 |),on%(.(|message$|
|00000a60| 29 29 0d 03 16 18 20 e3 | 20 63 3d 31 20 b8 20 a9 |)).... .| c=1 . .|
|00000a70| 28 6d 65 73 73 61 67 65 | 24 29 0d 03 20 16 20 20 |(message|$).. . |
|00000a80| 61 3d b3 28 a9 28 6d 65 | 73 73 61 67 65 24 29 29 |a=.(.(me|ssage$))|
|00000a90| 0d 03 2a 26 20 20 20 e7 | 20 74 69 6d 65 25 28 61 |..*& .| time%(a|
|00000aa0| 29 3c 3e 39 39 20 e9 20 | 74 69 6d 65 25 28 61 29 |)<>99 . |time%(a)|
|00000ab0| 3d b3 28 39 39 29 0d 03 | 34 11 20 20 20 e9 20 6f |=.(99)..|4. . o|
|00000ac0| 6e 25 28 61 29 3d 30 0d | 03 3e 08 20 ed 20 63 0d |n%(a)=0.|.>. . c.|
|00000ad0| 03 48 0f 20 e3 20 74 3d | 30 20 b8 20 39 39 0d 03 |.H. . t=|0 . 99..|
|00000ae0| 52 19 20 20 e3 20 63 3d | 31 20 b8 20 a9 28 6d 65 |R. . c=|1 . .(me|
|00000af0| 73 73 61 67 65 24 29 0d | 03 5c 09 20 20 20 20 f5 |ssage$).|.\. .|
|00000b00| 0d 03 66 14 20 20 20 20 | 20 63 68 61 72 25 3d b3 |..f. | char%=.|
|00000b10| 28 39 30 29 0d 03 70 12 | 20 20 20 20 fd 20 63 68 |(90)..p.| . ch|
|00000b20| 61 72 25 3e 36 34 0d 03 | 7a 33 20 20 20 e7 20 74 |ar%>64..|z3 . t|
|00000b30| 69 6d 65 25 28 63 29 3c | 3e 74 20 80 20 6f 6e 25 |ime%(c)<|>t . on%|
|00000b40| 28 63 29 3d 30 20 8c 20 | f1 20 8a 78 2b 63 2c 79 |(c)=0 . |. .x+c,y|
|00000b50| 29 bd 28 63 68 61 72 25 | 29 0d 03 84 38 20 20 20 |).(char%|)...8 |
|00000b60| e7 20 74 69 6d 65 25 28 | 63 29 3d 74 20 8c 20 f1 |. time%(|c)=t . .|
|00000b70| 20 8a 78 2b 63 2c 79 29 | c1 6d 65 73 73 61 67 65 | .x+c,y)|.message|
|00000b80| 24 2c 63 2c 31 29 3a e9 | 20 6f 6e 25 28 63 29 3d |$,c,1):.| on%(c)=|
|00000b90| 31 0d 03 8e 09 20 20 ed | 20 63 0d 03 98 08 20 ed |1.... .| c.... .|
|00000ba0| 20 74 0d 03 a2 05 e1 0d | 03 ac 04 0d 03 b6 1b dd | t......|........|
|00000bb0| 20 a4 69 73 5f 6d 6f 64 | 65 5f 73 75 70 70 6f 72 | .is_mod|e_suppor|
|00000bc0| 74 65 64 28 61 29 0d 03 | c0 81 20 f4 20 49 66 20 |ted(a)..|.. . If |
|00000bd0| 74 68 65 20 72 65 73 75 | 6c 74 20 69 73 20 74 68 |the resu|lt is th|
|00000be0| 65 20 73 61 6d 65 20 61 | 73 20 74 68 65 20 6f 6e |e same a|s the on|
|00000bf0| 65 20 79 6f 75 20 70 75 | 74 20 69 6e 2c 20 74 68 |e you pu|t in, th|
|00000c00| 65 20 6d 6f 64 65 20 69 | 73 20 73 75 70 70 6f 72 |e mode i|s suppor|
|00000c10| 74 65 64 2e 20 30 20 69 | 73 20 72 65 74 75 72 6e |ted. 0 i|s return|
|00000c20| 65 64 20 6f 74 68 65 72 | 77 69 73 65 2c 20 69 65 |ed other|wise, ie|
|00000c30| 3a 20 6d 6f 64 65 20 69 | 73 6e 27 74 20 73 75 70 |: mode i|sn't sup|
|00000c40| 70 6f 72 74 65 64 2e 0d | 03 ca 26 20 c8 99 20 22 |ported..|..& .. "|
|00000c50| 4f 53 5f 43 68 65 63 6b | 4d 6f 64 65 56 61 6c 69 |OS_Check|ModeVali|
|00000c60| 64 22 2c 61 20 b8 20 72 | 65 73 75 6c 74 0d 03 d4 |d",a . r|esult...|
|00000c70| 10 20 c8 8e 20 72 65 73 | 75 6c 74 20 ca 0d 03 de |. .. res|ult ....|
|00000c80| 15 20 20 c9 20 2d 31 20 | 20 20 20 20 20 3a 20 61 |. . -1 | : a|
|00000c90| 3d 30 0d 03 e8 1a 20 20 | c9 20 72 65 73 75 6c 74 |=0.... |. result|
|00000ca0| 20 20 3a 20 61 3d 72 65 | 73 75 6c 74 0d 03 f2 06 | : a=re|sult....|
|00000cb0| 20 cb 0d 03 fc 06 3d 61 | 0d 04 06 04 0d 04 10 22 | .....=a|......."|
|00000cc0| dd 20 f2 77 72 69 74 65 | 5f 74 6f 5f 63 6d 6f 73 |. .write|_to_cmos|
|00000cd0| 28 62 79 74 65 25 2c 76 | 61 6c 75 65 24 29 0d 04 |(byte%,v|alue$)..|
|00000ce0| 1a 21 f4 20 57 72 69 74 | 65 73 20 61 20 62 69 74 |.!. Writ|es a bit|
|00000cf0| 20 69 6e 74 6f 20 43 4d | 4f 53 20 52 41 4d 2e 0d | into CM|OS RAM..|
|00000d00| 04 24 24 20 f4 20 54 68 | 65 20 76 61 6c 75 65 20 |.$$ . Th|e value |
|00000d10| 48 41 53 20 74 6f 20 62 | 65 20 61 20 6e 75 6d 62 |HAS to b|e a numb|
|00000d20| 65 72 2e 0d 04 2e 22 20 | c8 99 20 22 4f 53 5f 42 |er...." |.. "OS_B|
|00000d30| 79 74 65 22 2c 31 36 32 | 2c 62 79 74 65 25 2c 76 |yte",162|,byte%,v|
|00000d40| 61 6c 75 65 25 0d 04 38 | 05 e1 0d 04 42 04 0d 04 |alue%..8|....B...|
|00000d50| 4c 1c dd 20 a4 72 65 61 | 64 5f 66 72 6f 6d 5f 63 |L.. .rea|d_from_c|
|00000d60| 6d 6f 73 28 62 79 74 65 | 25 29 0d 04 56 20 f4 20 |mos(byte|%)..V . |
|00000d70| 52 65 61 64 73 20 61 20 | 62 69 74 20 66 72 6f 6d |Reads a |bit from|
|00000d80| 20 43 4d 4f 53 20 52 41 | 4d 2e 0d 04 60 25 20 c8 | CMOS RA|M...`% .|
|00000d90| 99 20 22 4f 53 5f 42 79 | 74 65 22 2c 31 36 31 2c |. "OS_By|te",161,|
|00000da0| 62 79 74 65 25 20 b8 20 | 72 65 74 75 72 6e 25 0d |byte% . |return%.|
|00000db0| 04 6a 0c 3d 72 65 74 75 | 72 6e 25 0d 04 74 05 3a |.j.=retu|rn%..t.:|
|00000dc0| 0d 04 7e 04 0d 04 88 1a | dd 20 f2 66 69 6c 65 69 |..~.....|. .filei|
|00000dd0| 6e 66 6f 28 66 69 6c 65 | 6e 61 6d 65 24 29 0d 04 |nfo(file|name$)..|
|00000de0| 92 3b f4 20 50 72 6f 76 | 69 64 65 73 20 69 6e 66 |.;. Prov|ides inf|
|00000df0| 6f 72 6d 61 74 69 6f 6e | 20 61 62 6f 75 74 20 61 |ormation| about a|
|00000e00| 20 66 69 6c 65 20 67 69 | 76 65 6e 20 69 6e 20 66 | file gi|ven in f|
|00000e10| 69 6c 65 6e 61 6d 65 24 | 2e 0d 04 9c 4c 20 c8 99 |ilename$|....L ..|
|00000e20| 20 22 4f 53 5f 46 69 6c | 65 22 2c 32 30 2c 66 69 | "OS_Fil|e",20,fi|
|00000e30| 6c 65 6e 61 6d 65 24 20 | b8 20 74 79 70 65 25 2c |lename$ |. type%,|
|00000e40| 2c 6c 6f 61 64 2c 65 78 | 65 63 2c 6c 65 6e 67 74 |,load,ex|ec,lengt|
|00000e50| 68 2c 61 74 74 72 69 62 | 75 74 65 73 2c 66 69 6c |h,attrib|utes,fil|
|00000e60| 65 74 79 70 65 0d 04 a6 | 34 20 f4 20 6c 6f 61 64 |etype...|4 . load|
|00000e70| 20 20 2d 20 6c 6f 61 64 | 20 61 64 64 72 65 73 73 | - load| address|
|00000e80| 20 20 20 65 78 65 63 20 | 2d 20 65 78 65 63 75 74 | exec |- execut|
|00000e90| 65 20 61 64 64 72 65 73 | 73 0d 04 b0 43 20 f4 20 |e addres|s...C . |
|00000ea0| 6c 65 6e 67 68 20 2d 20 | 66 69 6c 65 20 6c 65 6e |lengh - |file len|
|00000eb0| 67 74 68 20 20 20 20 61 | 74 74 72 69 62 73 20 2d |gth a|ttribs -|
|00000ec0| 20 66 69 6c 65 20 61 74 | 74 72 69 62 75 74 65 73 | file at|tributes|
|00000ed0| 20 28 72 2f 57 52 20 65 | 74 63 2e 29 0d 04 ba 25 | (r/WR e|tc.)...%|
|00000ee0| 20 f4 20 66 69 6c 65 74 | 79 70 65 20 2d 20 66 69 | . filet|ype - fi|
|00000ef0| 6c 65 74 79 70 65 2c 20 | 64 75 6d 62 20 61 73 73 |letype, |dumb ass|
|00000f00| 21 0d 04 c4 05 e1 0d 04 | ce 04 0d 04 d8 17 dd 20 |!.......|....... |
|00000f10| a4 67 65 74 5f 76 61 6c | 75 65 28 63 68 61 72 24 |.get_val|ue(char$|
|00000f20| 29 0d 04 e2 3f f4 20 52 | 65 74 75 72 6e 73 20 74 |)...?. R|eturns t|
|00000f30| 68 65 20 41 53 43 49 49 | 20 76 61 6c 75 65 20 66 |he ASCII| value f|
|00000f40| 6f 72 20 61 20 67 69 76 | 65 6e 20 63 68 61 72 61 |or a giv|en chara|
|00000f50| 63 74 65 72 20 28 69 6e | 20 63 68 61 72 24 29 2e |cter (in| char$).|
|00000f60| 0d 04 ec 0d 3d 97 28 63 | 68 61 72 24 29 0d 04 f6 |....=.(c|har$)...|
|00000f70| 05 3a 0d 05 00 04 0d 05 | 0a 13 dd 20 f2 77 68 61 |.:......|... .wha|
|00000f80| 74 5f 6d 6f 6e 69 74 6f | 72 0d 05 14 9a f4 20 52 |t_monito|r..... R|
|00000f90| 65 74 75 72 6e 73 20 61 | 20 76 61 6c 75 65 20 61 |eturns a| value a|
|00000fa0| 6e 64 20 61 20 73 74 72 | 69 6e 67 2e 20 20 46 6f |nd a str|ing. Fo|
|00000fb0| 72 20 65 78 61 6d 70 6c | 65 2c 20 69 66 20 79 6f |r exampl|e, if yo|
|00000fc0| 75 27 72 65 20 75 73 69 | 6e 67 20 61 20 73 74 61 |u're usi|ng a sta|
|00000fd0| 6e 64 61 72 64 20 52 47 | 42 20 6d 6f 6e 69 74 6f |ndard RG|B monito|
|00000fe0| 72 20 79 6f 75 20 77 69 | 6c 6c 20 72 65 63 65 69 |r you wi|ll recei|
|00000ff0| 76 65 20 30 20 61 73 20 | 74 68 65 20 76 61 6c 75 |ve 0 as |the valu|
|00001000| 65 20 61 6e 64 20 22 53 | 74 61 6e 64 61 72 64 20 |e and "S|tandard |
|00001010| 52 47 42 22 20 61 73 20 | 74 68 65 20 73 74 72 69 |RGB" as |the stri|
|00001020| 6e 67 2e 0d 05 1e 26 20 | c8 99 20 22 4f 53 5f 52 |ng....& |.. "OS_R|
|00001030| 65 61 64 53 79 73 49 6e | 66 6f 22 2c 31 20 b8 20 |eadSysIn|fo",1 . |
|00001040| 2c 6d 6f 6e 69 74 6f 72 | 25 0d 05 28 12 20 c8 8e |,monitor|%..(. ..|
|00001050| 20 6d 6f 6e 69 74 6f 72 | 25 20 ca 0d 05 32 21 20 | monitor|% ...2! |
|00001060| 20 c9 20 30 20 20 3a 20 | 74 79 70 65 24 3d 22 53 | . 0 : |type$="S|
|00001070| 74 61 6e 64 61 72 64 20 | 52 47 42 22 0d 05 3c 1e |tandard |RGB"..<.|
|00001080| 20 20 c9 20 31 20 20 3a | 20 74 79 70 65 24 3d 22 | . 1 :| type$="|
|00001090| 4d 75 6c 74 69 73 79 6e | 63 22 0d 05 46 34 20 20 |Multisyn|c"..F4 |
|000010a0| c9 20 32 20 20 3a 20 74 | 79 70 65 24 3d 22 36 34 |. 2 : t|ype$="64|
|000010b0| 48 7a 20 68 69 67 68 20 | 72 65 73 6f 6c 75 74 69 |Hz high |resoluti|
|000010c0| 6f 6e 20 6d 6f 6e 6f 63 | 68 72 6f 6d 65 22 0d 05 |on monoc|hrome"..|
|000010d0| 50 19 20 20 c9 20 33 20 | 20 3a 20 74 79 70 65 24 |P. . 3 | : type$|
|000010e0| 3d 22 53 56 47 41 22 0d | 05 5a 18 20 20 c9 20 34 |="SVGA".|.Z. . 4|
|000010f0| 20 20 3a 20 74 79 70 65 | 24 3d 22 4c 43 44 22 0d | : type|$="LCD".|
|00001100| 05 64 06 20 cb 0d 05 6e | 3a 20 f4 20 53 6f 2c 20 |.d. ...n|: . So, |
|00001110| 6d 6f 6e 69 74 6f 72 24 | 20 69 73 20 74 68 65 20 |monitor$| is the |
|00001120| 74 79 70 65 20 61 6e 64 | 20 6d 6f 6e 69 74 6f 72 |type and| monitor|
|00001130| 25 20 69 73 20 74 68 65 | 20 76 61 6c 75 65 2e 0d |% is the| value..|
|00001140| 05 78 05 e1 0d 05 82 04 | 0d 05 8c 13 dd 20 f2 77 |.x......|..... .w|
|00001150| 68 61 74 5f 66 73 28 75 | 63 25 29 0d 05 96 7f f4 |hat_fs(u|c%).....|
|00001160| 20 52 65 74 75 72 6e 73 | 20 61 20 76 61 6c 75 65 | Returns| a value|
|00001170| 20 61 6e 64 20 61 20 73 | 74 72 69 6e 67 2e 20 46 | and a s|tring. F|
|00001180| 6f 72 20 65 78 61 6d 70 | 6c 65 2c 20 69 66 20 79 |or examp|le, if y|
|00001190| 6f 75 27 72 65 20 75 73 | 69 6e 67 20 41 44 46 53 |ou're us|ing ADFS|
|000011a0| 20 79 6f 75 20 77 69 6c | 6c 20 72 65 63 65 69 76 | you wil|l receiv|
|000011b0| 65 20 35 20 61 73 20 74 | 68 65 20 76 61 6c 75 65 |e 5 as t|he value|
|000011c0| 20 61 6e 64 20 22 41 44 | 46 53 22 20 61 73 20 74 | and "AD|FS" as t|
|000011d0| 68 65 20 73 74 72 69 6e | 67 2e 0d 05 a0 21 20 c8 |he strin|g....! .|
|000011e0| 99 20 22 4f 53 5f 41 72 | 67 73 22 20 b8 20 66 69 |. "OS_Ar|gs" . fi|
|000011f0| 6c 69 6e 67 73 79 73 74 | 65 6d 25 0d 05 aa 17 20 |lingsyst|em%.... |
|00001200| c8 8e 20 66 69 6c 69 6e | 67 73 79 73 74 65 6d 25 |.. filin|gsystem%|
|00001210| 20 ca 0d 05 b4 19 20 20 | c9 20 35 20 20 20 20 3a | ..... |. 5 :|
|00001220| 20 66 73 24 3d 22 41 44 | 46 53 22 0d 05 be 18 20 | fs$="AD|FS".... |
|00001230| 20 c9 20 38 20 20 20 20 | 3a 20 66 73 24 3d 22 4e | . 8 |: fs$="N|
|00001240| 46 53 22 0d 05 c8 1a 20 | 20 c9 20 32 33 20 20 20 |FS".... | . 23 |
|00001250| 3a 20 66 73 24 3d 22 52 | 41 4d 46 53 22 0d 05 d2 |: fs$="R|AMFS"...|
|00001260| 1f 20 20 c9 20 34 36 20 | 20 20 3a 20 66 73 24 3d |. . 46 | : fs$=|
|00001270| 22 52 65 73 6f 75 72 63 | 65 46 53 22 0d 05 dc 1a |"Resourc|eFS"....|
|00001280| 20 20 c9 20 34 39 20 20 | 20 3a 20 66 73 24 3d 22 | . 49 | : fs$="|
|00001290| 49 44 45 46 53 22 0d 05 | e6 1a 20 20 c9 20 35 36 |IDEFS"..|.. . 56|
|000012a0| 20 20 20 3a 20 66 73 24 | 3d 22 41 72 63 46 53 22 | : fs$|="ArcFS"|
|000012b0| 0d 05 f0 1a 20 20 c9 20 | 31 38 39 20 20 3a 20 66 |.... . |189 : f|
|000012c0| 73 24 3d 22 4d 65 6d 46 | 53 22 0d 05 fa 17 20 20 |s$="MemF|S".... |
|000012d0| 7f 20 3a 20 66 73 24 3d | 22 55 4e 4b 4e 4f 57 4e |. : fs$=|"UNKNOWN|
|000012e0| 22 0d 06 04 06 20 cb 0d | 06 0e 4c 20 f4 20 49 66 |".... ..|..L . If|
|000012f0| 20 79 6f 75 20 70 61 73 | 73 65 64 20 31 20 74 6f | you pas|sed 1 to|
|00001300| 20 74 68 69 73 20 70 72 | 6f 63 65 64 75 72 65 2c | this pr|ocedure,|
|00001310| 20 69 74 20 63 6f 6e 76 | 65 72 74 73 20 74 68 65 | it conv|erts the|
|00001320| 20 66 73 24 20 74 6f 20 | 75 70 70 65 72 20 63 61 | fs$ to |upper ca|
|00001330| 73 65 2e 0d 06 18 22 20 | e7 20 75 63 25 3d 31 20 |se...." |. uc%=1 |
|00001340| 8c 20 66 73 24 3d a4 75 | 70 70 65 72 63 61 73 65 |. fs$=.u|ppercase|
|00001350| 28 66 73 24 29 0d 06 22 | 05 e1 0d 06 2c 04 0d 06 |(fs$).."|....,...|
|00001360| 36 19 dd 20 a4 75 70 70 | 65 72 63 61 73 65 28 73 |6.. .upp|ercase(s|
|00001370| 74 72 69 6e 67 24 29 0d | 06 40 44 f4 20 43 6f 6e |tring$).|.@D. Con|
|00001380| 76 65 72 74 73 20 61 20 | 73 74 72 69 6e 67 20 69 |verts a |string i|
|00001390| 6e 74 6f 20 75 70 70 65 | 72 20 63 61 73 65 2e 20 |nto uppe|r case. |
|000013a0| 48 61 6e 64 6c 65 73 20 | 6d 69 78 65 64 20 63 61 |Handles |mixed ca|
|000013b0| 73 65 20 73 74 72 69 6e | 67 73 2e 0d 06 4a 0f 20 |se strin|gs...J. |
|000013c0| 6f 75 74 70 75 74 24 3d | 22 22 0d 06 54 1b 20 e3 |output$=|""..T. .|
|000013d0| 20 63 68 61 72 25 3d 31 | 20 b8 20 a9 28 73 74 72 | char%=1| . .(str|
|000013e0| 69 6e 67 24 29 0d 06 5e | 1a 20 20 61 24 3d c1 73 |ing$)..^|. a$=.s|
|000013f0| 74 72 69 6e 67 24 2c 63 | 68 61 72 25 2c 31 29 0d |tring$,c|har%,1).|
|00001400| 06 68 26 20 20 e9 20 61 | 3d 97 28 61 24 29 3a e7 |.h& . a|=.(a$):.|
|00001410| 20 61 3e 39 36 20 80 20 | 61 3c 31 32 33 20 8c 20 | a>96 . |a<123 . |
|00001420| 61 2d 3d 33 32 0d 06 72 | 13 20 20 6f 75 74 70 75 |a-=32..r|. outpu|
|00001430| 74 24 2b 3d bd 28 61 29 | 0d 06 7c 0c 20 ed 20 63 |t$+=.(a)|..|. . c|
|00001440| 68 61 72 25 0d 06 86 0c | 3d 6f 75 74 70 75 74 24 |har%....|=output$|
|00001450| 0d 06 90 04 0d 06 9a 19 | dd 20 a4 6c 6f 77 65 72 |........|. .lower|
|00001460| 63 61 73 65 28 73 74 72 | 69 6e 67 24 29 0d 06 a4 |case(str|ing$)...|
|00001470| 44 f4 20 43 6f 6e 76 65 | 72 74 73 20 61 20 73 74 |D. Conve|rts a st|
|00001480| 72 69 6e 67 20 69 6e 74 | 6f 20 6c 6f 77 65 72 20 |ring int|o lower |
|00001490| 63 61 73 65 2e 20 48 61 | 6e 64 6c 65 73 20 6d 69 |case. Ha|ndles mi|
|000014a0| 78 65 64 20 63 61 73 65 | 20 73 74 72 69 6e 67 73 |xed case| strings|
|000014b0| 2e 0d 06 ae 0f 20 6f 75 | 74 70 75 74 24 3d 22 22 |..... ou|tput$=""|
|000014c0| 0d 06 b8 1b 20 e3 20 63 | 68 61 72 25 3d 31 20 b8 |.... . c|har%=1 .|
|000014d0| 20 a9 28 73 74 72 69 6e | 67 24 29 0d 06 c2 1a 20 | .(strin|g$).... |
|000014e0| 20 61 24 3d c1 73 74 72 | 69 6e 67 24 2c 63 68 61 | a$=.str|ing$,cha|
|000014f0| 72 25 2c 31 29 0d 06 cc | 25 20 20 e9 20 61 3d 97 |r%,1)...|% . a=.|
|00001500| 28 61 24 29 3a e7 20 61 | 3e 36 34 20 80 20 61 3c |(a$):. a|>64 . a<|
|00001510| 39 31 20 8c 20 61 2b 3d | 33 32 0d 06 d6 13 20 20 |91 . a+=|32.... |
|00001520| 6f 75 74 70 75 74 24 2b | 3d bd 28 61 29 0d 06 e0 |output$+|=.(a)...|
|00001530| 0c 20 ed 20 63 68 61 72 | 25 0d 06 ea 0c 3d 6f 75 |. . char|%....=ou|
|00001540| 74 70 75 74 24 0d 06 f4 | 04 0d 06 fe 30 dd 20 f2 |tput$...|....0. .|
|00001550| 72 69 73 63 6f 73 5f 6d | 65 73 73 61 67 65 28 77 |riscos_m|essage(w|
|00001560| 69 6e 64 6f 77 74 69 74 | 6c 65 24 2c 6d 65 73 73 |indowtit|le$,mess|
|00001570| 61 67 65 74 65 78 74 24 | 29 0d 07 08 49 f4 20 50 |agetext$|)...I. P|
|00001580| 72 6f 64 75 63 65 73 20 | 61 20 73 74 61 6e 64 61 |roduces |a standa|
|00001590| 72 64 20 52 49 53 43 20 | 4f 53 20 65 72 72 6f 72 |rd RISC |OS error|
|000015a0| 20 6d 65 73 73 61 67 65 | 2c 20 63 6f 6d 70 6c 65 | message|, comple|
|000015b0| 74 65 20 77 69 74 68 20 | 4f 4b 20 62 75 74 74 6f |te with |OK butto|
|000015c0| 6e 2e 0d 07 12 28 20 de | 20 62 25 20 32 35 35 3a |n....( .| b% 255:|
|000015d0| 21 62 25 3d 31 3a 24 28 | 62 25 2b 34 29 3d 6d 65 |!b%=1:$(|b%+4)=me|
|000015e0| 73 73 61 67 65 74 65 78 | 74 24 0d 07 1c 17 20 3f |ssagetex|t$.... ?|
|000015f0| 28 62 25 2b a9 24 28 62 | 25 2b 34 29 2b 34 29 3d |(b%+.$(b|%+4)+4)=|
|00001600| 30 0d 07 26 2d 20 c8 99 | 22 57 69 6d 70 5f 52 65 |0..&- ..|"Wimp_Re|
|00001610| 70 6f 72 74 45 72 72 6f | 72 22 2c 62 25 2c 26 31 |portErro|r",b%,&1|
|00001620| 38 2c 77 69 6e 64 6f 77 | 74 69 74 6c 65 24 0d 07 |8,window|title$..|
|00001630| 30 05 e1 0d 07 3a 04 0d | 07 44 0f dd 20 f2 62 69 |0....:..|.D.. .bi|
|00001640| 67 72 65 73 65 74 0d 07 | 4e 93 f4 20 55 73 65 20 |greset..|N.. Use |
|00001650| 74 68 69 73 20 70 72 6f | 63 65 64 75 72 65 20 77 |this pro|cedure w|
|00001660| 69 74 68 20 65 78 74 72 | 65 6d 65 20 63 61 72 65 |ith extr|eme care|
|00001670| 2e 20 49 74 20 77 72 69 | 74 65 73 20 61 6c 6c 20 |. It wri|tes all |
|00001680| 62 69 74 73 20 6f 66 20 | 43 4d 4f 53 20 52 41 4d |bits of |CMOS RAM|
|00001690| 20 74 6f 20 30 2c 20 65 | 66 66 65 63 74 75 61 6c | to 0, e|ffectual|
|000016a0| 6c 79 20 62 75 67 67 65 | 72 69 6e 67 20 75 70 20 |ly bugge|ring up |
|000016b0| 74 68 65 20 6d 61 63 68 | 69 6e 65 20 75 6e 74 69 |the mach|ine unti|
|000016c0| 6c 20 74 68 65 20 6e 65 | 78 74 20 66 61 63 74 6f |l the ne|xt facto|
|000016d0| 72 79 20 72 65 73 65 74 | 2e 0d 07 58 13 e3 20 62 |ry reset|...X.. b|
|000016e0| 79 74 65 25 3d 31 20 b8 | 20 32 35 35 0d 07 62 1d |yte%=1 .| 255..b.|
|000016f0| 20 20 f2 77 72 69 74 65 | 5f 74 6f 5f 63 6d 6f 73 | .write|_to_cmos|
|00001700| 28 62 79 74 65 25 2c 30 | 29 0d 07 6c 0c 20 ed 20 |(byte%,0|)..l. . |
|00001710| 62 79 74 65 25 0d 07 76 | 05 e1 0d 07 80 04 0d 07 |byte%..v|........|
|00001720| 8a 28 dd 20 f2 73 61 76 | 65 5f 6f 75 74 5f 63 6d |.(. .sav|e_out_cm|
|00001730| 6f 73 28 66 69 6c 65 6e | 61 6d 65 24 2c 74 65 78 |os(filen|ame$,tex|
|00001740| 74 66 69 6c 65 29 0d 07 | 94 a7 f4 20 4d 6f 72 65 |tfile)..|... More|
|00001750| 20 61 20 73 69 6d 70 6c | 65 20 70 72 6f 67 72 61 | a simpl|e progra|
|00001760| 6d 2e 20 49 74 20 73 61 | 76 65 73 20 74 68 65 20 |m. It sa|ves the |
|00001770| 32 35 35 20 62 69 74 73 | 20 6f 66 20 43 4d 4f 53 |255 bits| of CMOS|
|00001780| 20 52 41 20 74 6f 20 61 | 20 66 69 6c 65 2e 20 53 | RA to a| file. S|
|00001790| 65 74 20 74 68 65 20 27 | 74 65 78 74 66 69 6c 65 |et the '|textfile|
|000017a0| 27 20 76 61 72 69 61 62 | 6c 65 20 74 6f 20 31 20 |' variab|le to 1 |
|000017b0| 69 66 20 79 6f 75 20 77 | 61 6e 74 20 69 74 20 74 |if you w|ant it t|
|000017c0| 6f 20 70 72 6f 64 75 63 | 65 20 61 20 74 65 78 74 |o produc|e a text|
|000017d0| 20 66 69 6c 65 20 69 6e | 73 74 65 61 64 20 6f 66 | file in|stead of|
|000017e0| 20 61 20 64 61 74 61 20 | 66 69 6c 65 2e 0d 07 9e | a data |file....|
|000017f0| 13 20 66 3d ae 28 66 69 | 6c 65 6e 61 6d 65 24 29 |. f=.(fi|lename$)|
|00001800| 0d 07 a8 14 20 e3 20 62 | 79 74 65 25 3d 31 20 b8 |.... . b|yte%=1 .|
|00001810| 20 32 35 35 0d 07 b2 20 | 20 20 62 69 74 3d a4 72 | 255... | bit=.r|
|00001820| 65 61 64 5f 66 72 6f 6d | 5f 63 6d 6f 73 28 62 79 |ead_from|_cmos(by|
|00001830| 74 65 25 29 0d 07 bc 13 | 20 20 c8 8e 20 74 65 78 |te%)....| .. tex|
|00001840| 74 66 69 6c 65 20 ca 0d | 07 c6 16 20 20 20 c9 20 |tfile ..|... . |
|00001850| 30 20 20 20 3a 20 f1 23 | 66 2c 62 69 74 0d 07 d0 |0 : .#|f,bit...|
|00001860| 16 20 20 20 c9 20 31 20 | 20 20 3a 20 d5 23 66 2c |. . 1 | : .#f,|
|00001870| 62 69 74 0d 07 da 07 20 | 20 cb 0d 07 e4 0c 20 ed |bit.... | ..... .|
|00001880| 20 62 79 74 65 25 0d 07 | ee 08 20 d9 23 66 0d 07 | byte%..|.. .#f..|
|00001890| f8 30 20 e7 20 74 65 78 | 74 66 69 6c 65 3d 31 20 |.0 . tex|tfile=1 |
|000018a0| 8c 20 ff 22 53 45 54 54 | 59 50 45 20 22 2b 66 69 |. ."SETT|YPE "+fi|
|000018b0| 6c 65 6e 61 6d 65 24 2b | 22 20 46 46 46 22 0d 08 |lename$+|" FFF"..|
|000018c0| 02 05 e1 0d 08 0c 04 0d | 08 16 20 dd 20 f2 70 6c |........|.. . .pl|
|000018d0| 6f 74 6d 61 73 6b 28 73 | 70 72 69 74 65 6e 61 6d |otmask(s|pritenam|
|000018e0| 65 25 2c 78 2c 79 29 0d | 08 20 27 f4 20 50 6c 6f |e%,x,y).|. '. Plo|
|000018f0| 74 73 20 61 20 67 69 76 | 65 6e 20 73 70 72 69 74 |ts a giv|en sprit|
|00001900| 65 20 77 69 74 68 20 61 | 20 6d 61 73 6b 2e 0d 08 |e with a| mask...|
|00001910| 2a 7b f4 20 54 68 65 20 | 61 70 70 72 6f 70 72 69 |*{. The |appropri|
|00001920| 61 74 65 20 27 64 72 69 | 76 65 72 27 20 70 72 6f |ate 'dri|ver' pro|
|00001930| 63 65 64 75 72 65 73 20 | 61 74 20 74 68 65 20 74 |cedures |at the t|
|00001940| 6f 70 20 6f 66 20 74 68 | 69 73 20 70 72 6f 67 72 |op of th|is progr|
|00001950| 61 6d 20 73 68 6f 75 6c | 64 20 68 61 76 65 20 62 |am shoul|d have b|
|00001960| 65 65 6e 20 63 61 6c 6c | 65 64 20 70 72 69 6f 72 |een call|ed prior|
|00001970| 20 74 6f 20 75 73 69 6e | 67 20 74 68 69 73 20 70 | to usin|g this p|
|00001980| 72 6f 63 65 64 75 72 65 | 2e 0d 08 34 32 20 c8 99 |rocedure|...42 ..|
|00001990| 20 22 4f 53 5f 53 70 72 | 69 74 65 4f 70 22 2c 26 | "OS_Spr|iteOp",&|
|000019a0| 32 32 32 2c 73 70 72 69 | 74 65 6e 61 6d 65 25 2c |222,spri|tename%,|
|000019b0| 61 72 65 61 25 2c 78 2c | 79 2c 38 0d 08 3e 05 e1 |area%,x,|y,8..>..|
|000019c0| 0d 08 48 04 0d 08 52 13 | dd 20 f2 72 65 61 64 6d |..H...R.|. .readm|
|000019d0| 6f 64 65 76 61 72 73 0d | 08 5c 1d 20 f4 20 55 73 |odevars.|.\. . Us|
|000019e0| 65 73 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 6d |es the c|urrent m|
|000019f0| 6f 64 65 2e 0d 08 66 4c | 20 f4 20 41 67 61 69 6e |ode...fL| . Again|
|00001a00| 2c 20 69 66 20 79 6f 75 | 20 69 6e 74 65 6e 64 20 |, if you| intend |
|00001a10| 74 6f 20 75 73 65 20 74 | 68 69 73 20 70 72 6f 63 |to use t|his proc|
|00001a20| 65 64 75 72 65 20 3e 31 | 20 74 69 6d 65 2c 20 70 |edure >1| time, p|
|00001a30| 75 74 20 74 68 65 20 6e | 65 78 74 20 6c 69 6e 65 |ut the n|ext line|
|00001a40| 0d 08 70 1f 20 f4 20 61 | 74 20 74 68 65 20 74 6f |..p. . a|t the to|
|00001a50| 70 20 6f 66 20 79 6f 75 | 72 20 63 6f 64 65 2e 0d |p of you|r code..|
|00001a60| 08 7a 0e 20 de 20 74 25 | 20 26 31 30 30 0d 08 84 |.z. . t%| &100...|
|00001a70| 0c 20 21 74 25 3d 31 32 | 38 0d 08 8e 0d 20 74 25 |. !t%=12|8.... t%|
|00001a80| 21 34 3d 31 32 39 0d 08 | 98 0d 20 74 25 21 38 3d |!4=129..|.. t%!8=|
|00001a90| 31 33 30 0d 08 a2 0e 20 | 74 25 21 31 32 3d 31 33 |130.... |t%!12=13|
|00001aa0| 31 0d 08 ac 0e 20 74 25 | 21 31 36 3d 31 34 38 0d |1.... t%|!16=148.|
|00001ab0| 08 b6 0c 20 74 25 21 32 | 30 3d 37 0d 08 c0 0d 20 |... t%!2|0=7.... |
|00001ac0| 74 25 21 32 34 3d 2d 31 | 0d 08 ca 23 20 c8 99 20 |t%!24=-1|...# .. |
|00001ad0| 22 4f 53 5f 52 65 61 64 | 56 64 75 56 61 72 69 61 |"OS_Read|VduVaria|
|00001ae0| 62 6c 65 73 22 2c 74 25 | 2c 74 25 0d 08 d4 2a 20 |bles",t%|,t%...* |
|00001af0| 67 62 78 3d 21 74 25 20 | 20 3a f4 20 47 72 61 70 |gbx=!t% | :. Grap|
|00001b00| 68 69 63 73 20 62 6f 78 | 20 62 6f 74 74 6f 6d 20 |hics box| bottom |
|00001b10| 78 20 20 5f 5f 0d 08 de | 45 20 67 62 79 3d 21 74 |x __...|E gby=!t|
|00001b20| 34 20 20 3a f4 20 47 72 | 61 70 68 69 63 73 20 62 |4 :. Gr|aphics b|
|00001b30| 6f 78 20 62 6f 74 74 6f | 6d 20 79 20 20 20 20 7c |ox botto|m y ||
|00001b40| 5f 5f 5f 5f 20 49 6e 74 | 65 72 6e 61 6c 20 63 6f |____ Int|ernal co|
|00001b50| 2d 6f 72 64 69 6e 61 74 | 65 73 0d 08 e8 3f 20 67 |-ordinat|es...? g|
|00001b60| 74 78 3d 21 74 38 20 20 | 3a f4 20 47 72 61 70 68 |tx=!t8 |:. Graph|
|00001b70| 69 63 73 20 62 6f 78 20 | 74 6f 70 20 78 20 20 20 |ics box |top x |
|00001b80| 20 20 20 20 7c 20 20 20 | 20 20 28 64 6f 6e 27 74 | | | (don't|
|00001b90| 20 66 6f 72 67 65 74 21 | 29 0d 08 f2 2b 20 67 74 | forget!|)...+ gt|
|00001ba0| 79 3d 21 74 31 32 20 3a | f4 20 47 72 61 70 68 69 |y=!t12 :|. Graphi|
|00001bb0| 63 73 20 62 6f 78 20 74 | 6f 70 20 79 20 20 20 20 |cs box t|op y |
|00001bc0| 20 5f 5f 7c 0d 08 fc 28 | 20 73 63 72 65 65 6e 61 | __|...(| screena|
|00001bd0| 64 64 72 65 73 73 3d 7e | 74 25 21 31 36 20 20 20 |ddress=~|t%!16 |
|00001be0| 3a f4 20 48 65 78 20 76 | 61 6c 75 65 0d 09 06 1c |:. Hex v|alue....|
|00001bf0| 20 73 63 72 65 65 6e 6d | 65 6d 6f 72 79 62 79 74 | screenm|emorybyt|
|00001c00| 65 73 3d 74 25 21 32 30 | 0d 09 10 29 20 73 63 72 |es=t%!20|...) scr|
|00001c10| 65 65 6e 6d 65 6d 6f 72 | 79 6b 69 6c 6f 62 79 74 |eenmemor|ykilobyt|
|00001c20| 65 73 3d 28 74 25 21 32 | 30 20 81 20 31 30 32 34 |es=(t%!2|0 . 1024|
|00001c30| 29 0d 09 1a 05 e1 0d 09 | 24 04 0d 09 2e 25 dd 20 |).......|$....%. |
|00001c40| f2 33 44 62 6f 78 28 62 | 78 25 2c 62 79 25 2c 74 |.3Dbox(b|x%,by%,t|
|00001c50| 78 25 2c 74 79 25 2c 66 | 69 6c 6c 62 6f 78 29 0d |x%,ty%,f|illbox).|
|00001c60| 09 38 93 f4 20 50 72 6f | 76 69 64 65 73 20 61 20 |.8.. Pro|vides a |
|00001c70| 6e 65 61 74 20 33 44 20 | 62 6f 78 20 72 6f 75 74 |neat 3D |box rout|
|00001c80| 69 6e 65 2e 20 49 64 65 | 61 6c 20 77 69 74 68 20 |ine. Ide|al with |
|00001c90| 61 20 6c 69 67 68 74 20 | 67 72 65 79 20 62 61 63 |a light |grey bac|
|00001ca0| 6b 67 72 6f 75 6e 64 2e | 20 53 65 74 20 27 66 69 |kground.| Set 'fi|
|00001cb0| 6c 6c 62 6f 78 27 20 74 | 6f 20 31 20 69 66 20 79 |llbox' t|o 1 if y|
|00001cc0| 6f 75 20 77 61 6e 74 20 | 74 68 65 20 62 6f 78 20 |ou want |the box |
|00001cd0| 66 69 6c 6c 65 64 20 77 | 69 74 68 20 74 68 65 20 |filled w|ith the |
|00001ce0| 62 61 63 6b 67 72 6f 75 | 6e 64 20 63 6f 6c 6f 75 |backgrou|nd colou|
|00001cf0| 72 2e 0d 09 42 11 20 c8 | 8e 20 66 69 6c 6c 62 6f |r...B. .|. fillbo|
|00001d00| 78 20 ca 0d 09 4c 1a 20 | 20 c9 20 b9 20 20 20 3a |x ...L. | . . :|
|00001d10| 20 f2 66 69 6c 6c 5f 33 | 44 5f 62 6f 78 0d 09 56 | .fill_3|D_box..V|
|00001d20| 0c 20 20 c9 20 a3 20 20 | 3a 0d 09 60 06 20 cb 0d |. . . |:..`. ..|
|00001d30| 09 6a 0e 20 e6 20 36 33 | 20 c8 9c 20 30 0d 09 74 |.j. . 63| .. 0..t|
|00001d40| 17 20 20 86 20 62 78 25 | 2c 62 79 25 2c 62 78 25 |. . bx%|,by%,bx%|
|00001d50| 2c 74 79 25 0d 09 7e 17 | 20 20 86 20 62 78 25 2c |,ty%..~.| . bx%,|
|00001d60| 74 79 25 2c 74 78 25 2c | 74 79 25 0d 09 88 10 20 |ty%,tx%,|ty%.... |
|00001d70| e6 20 32 31 20 c8 9c 20 | 31 32 38 0d 09 92 17 20 |. 21 .. |128.... |
|00001d80| 20 86 20 62 78 25 2c 62 | 79 25 2c 74 78 25 2c 62 | . bx%,b|y%,tx%,b|
|00001d90| 79 25 0d 09 9c 19 20 20 | 86 20 74 78 25 2c 62 79 |y%.... |. tx%,by|
|00001da0| 25 2c 74 78 25 2c 74 79 | 25 2d 31 0d 09 a6 10 20 |%,tx%,ty|%-1.... |
|00001db0| 20 e6 20 32 31 20 c8 9c | 20 36 34 0d 09 b0 05 e1 | . 21 ..| 64.....|
|00001dc0| 0d 09 ba 05 3a 0d 09 c4 | 29 dd 20 f2 33 44 70 75 |....:...|). .3Dpu|
|00001dd0| 73 68 62 6f 78 28 62 78 | 25 2c 62 79 25 2c 74 78 |shbox(bx|%,by%,tx|
|00001de0| 25 2c 74 79 25 2c 66 69 | 6c 6c 62 6f 78 29 0d 09 |%,ty%,fi|llbox)..|
|00001df0| ce 9a f4 20 50 72 6f 76 | 69 64 65 73 20 61 20 6e |... Prov|ides a n|
|00001e00| 65 61 74 20 33 44 20 70 | 75 73 68 65 64 20 62 6f |eat 3D p|ushed bo|
|00001e10| 78 20 72 6f 75 74 69 6e | 65 2e 20 49 64 65 61 6c |x routin|e. Ideal|
|00001e20| 20 77 69 74 68 20 61 20 | 6c 69 67 68 74 20 67 72 | with a |light gr|
|00001e30| 65 79 20 62 61 63 6b 67 | 72 6f 75 6e 64 2e 20 53 |ey backg|round. S|
|00001e40| 65 74 20 27 66 69 6c 6c | 62 6f 78 27 20 74 6f 20 |et 'fill|box' to |
|00001e50| 31 20 69 66 20 79 6f 75 | 20 77 61 6e 74 20 74 68 |1 if you| want th|
|00001e60| 65 20 62 6f 78 20 66 69 | 6c 6c 65 64 20 77 69 74 |e box fi|lled wit|
|00001e70| 68 20 74 68 65 20 62 61 | 63 6b 67 72 6f 75 6e 64 |h the ba|ckground|
|00001e80| 20 63 6f 6c 6f 75 72 2e | 0d 09 d8 11 20 c8 8e 20 | colour.|.... .. |
|00001e90| 66 69 6c 6c 62 6f 78 20 | ca 0d 09 e2 1a 20 20 c9 |fillbox |..... .|
|00001ea0| 20 b9 20 20 20 3a 20 f2 | 66 69 6c 6c 5f 33 44 5f | . : .|fill_3D_|
|00001eb0| 62 6f 78 0d 09 ec 0c 20 | 20 c9 20 a3 20 20 3a 0d |box.... | . . :.|
|00001ec0| 09 f6 06 20 cb 0d 0a 00 | 0e 20 e6 20 36 33 20 c8 |... ....|. . 63 .|
|00001ed0| 9c 20 30 0d 0a 0a 17 20 | 20 86 20 62 78 25 2c 62 |. 0.... | . bx%,b|
|00001ee0| 79 25 2c 74 78 25 2c 62 | 79 25 0d 0a 14 17 20 20 |y%,tx%,b|y%.... |
|00001ef0| 86 20 74 78 25 2c 62 79 | 25 2c 74 78 25 2c 74 79 |. tx%,by|%,tx%,ty|
|00001f00| 25 0d 0a 1e 0f 20 e6 20 | 32 31 20 c8 9c 20 36 34 |%.... . |21 .. 64|
|00001f10| 0d 0a 28 19 20 20 86 20 | 62 78 25 2b 31 2c 62 79 |..(. . |bx%+1,by|
|00001f20| 25 2c 62 78 25 2c 74 79 | 25 0d 0a 32 19 20 20 86 |%,bx%,ty|%..2. .|
|00001f30| 20 62 78 25 2c 74 79 25 | 2c 74 78 25 2d 31 2c 74 | bx%,ty%|,tx%-1,t|
|00001f40| 79 25 0d 0a 3c 10 20 20 | e6 20 32 31 20 c8 9c 20 |y%..<. |. 21 .. |
|00001f50| 36 34 0d 0a 46 05 e1 0d | 0a 50 04 0d 0a 5a 12 dd |64..F...|.P...Z..|
|00001f60| 20 f2 66 69 6c 6c 5f 33 | 44 5f 62 6f 78 0d 0a 64 | .fill_3|D_box..d|
|00001f70| 1a f4 20 46 69 6c 6c 73 | 20 69 6e 20 74 68 65 20 |.. Fills| in the |
|00001f80| 33 44 20 62 6f 78 2e 0d | 0a 6e 21 20 74 68 72 65 |3D box..|.n! thre|
|00001f90| 65 64 62 6f 78 5f 62 63 | 6b 25 3d b0 62 78 25 2b |edbox_bc|k%=.bx%+|
|00001fa0| 32 2c 62 79 25 2b 32 29 | 0d 0a 78 23 20 74 68 72 |2,by%+2)|..x# thr|
|00001fb0| 65 65 64 62 6f 78 5f 74 | 69 6e 25 3d c8 9c 28 62 |eedbox_t|in%=..(b|
|00001fc0| 78 25 2b 32 2c 62 79 25 | 2b 32 29 0d 0a 82 27 20 |x%+2,by%|+2)...' |
|00001fd0| e6 20 74 68 72 65 65 64 | 62 6f 78 5f 62 63 6b 25 |. threed|box_bck%|
|00001fe0| 20 c8 9c 20 74 68 72 65 | 65 64 62 6f 78 5f 74 69 | .. thre|edbox_ti|
|00001ff0| 6e 25 0d 0a 8c 22 20 c8 | 93 20 c8 90 20 62 78 25 |n%..." .|. .. bx%|
|00002000| 2c 62 79 25 2c 74 78 25 | 2d 62 78 25 2c 74 79 25 |,by%,tx%|-bx%,ty%|
|00002010| 2d 62 79 25 0d 0a 96 05 | e1 0d 0a a0 04 0d 0a aa |-by%....|........|
|00002020| 0e dd 20 f2 70 61 6c 65 | 74 74 65 0d 0a b4 0f 20 |.. .pale|tte.... |
|00002030| e3 20 63 6f 6c 3d 30 b8 | 31 35 0d 0a be 17 20 20 |. col=0.|15.... |
|00002040| fb 20 63 6f 6c 2c 32 35 | 35 2c 32 35 35 2c 32 35 |. col,25|5,255,25|
|00002050| 35 0d 0a c8 06 20 ed 0d | 0a d2 05 e1 0d 0a dc 04 |5.... ..|........|
|00002060| 0d 0a e6 0e dd 20 f2 66 | 61 64 65 5f 75 70 0d 0a |..... .f|ade_up..|
|00002070| f0 4a f4 20 46 61 64 65 | 73 20 61 20 6d 6f 64 65 |.J. Fade|s a mode|
|00002080| 20 31 32 20 73 63 72 65 | 65 6e 20 75 70 20 74 6f | 12 scre|en up to|
|00002090| 20 73 74 61 6e 64 61 72 | 64 20 62 72 69 67 68 74 | standar|d bright|
|000020a0| 6e 65 73 73 65 73 20 28 | 63 6f 6c 6f 75 72 73 20 |nesses (|colours |
|000020b0| 31 20 74 6f 20 37 29 2e | 0d 0a fa 0c 20 76 61 6c |1 to 7).|.... val|
|000020c0| 3d 32 35 35 0d 0b 04 06 | 20 f5 0d 0b 0e 0c 20 e3 |=255....| ..... .|
|000020d0| 20 63 3d 31 b8 37 0d 0b | 18 48 20 20 e7 20 76 61 | c=1.7..|.H . va|
|000020e0| 6c 3c 28 28 37 2d 63 29 | 2a 33 36 29 20 8c 20 76 |l<((7-c)|*36) . v|
|000020f0| 61 6c 3d 76 61 6c 2d 73 | 74 65 70 3a ed 20 8b 20 |al=val-s|tep:. . |
|00002100| fb 20 63 2c 76 61 6c 2c | 76 61 6c 2c 76 61 6c 3a |. c,val,|val,val:|
|00002110| 76 61 6c 3d 76 61 6c 2d | 73 74 65 70 3a ed 0d 0b |val=val-|step:...|
|00002120| 22 0c 20 fd 20 76 61 6c | 3c 30 0d 0b 2c 05 e1 0d |". . val|<0..,...|
|00002130| 0b 36 04 0d 0b 40 10 dd | 20 f2 66 61 64 65 5f 64 |.6...@..| .fade_d|
|00002140| 6f 77 6e 0d 0b 4a 42 f4 | 20 46 61 64 65 73 20 61 |own..JB.| Fades a|
|00002150| 20 6d 6f 64 65 20 31 32 | 20 73 63 72 65 65 6e 20 | mode 12| screen |
|00002160| 64 6f 77 6e 20 74 6f 20 | 73 6f 6c 69 64 20 77 68 |down to |solid wh|
|00002170| 69 74 65 20 28 63 6f 6c | 6f 75 72 73 20 31 20 74 |ite (col|ours 1 t|
|00002180| 6f 20 37 29 2e 0d 0b 54 | 0a 20 76 61 6c 3d 30 0d |o 7)...T|. val=0.|
|00002190| 0b 5e 06 20 f5 0d 0b 68 | 0c 20 e3 20 63 3d 31 b8 |.^. ...h|. . c=1.|
|000021a0| 37 0d 0b 72 4f 20 20 e7 | 20 28 28 37 2d 63 29 2a |7..rO .| ((7-c)*|
|000021b0| 33 36 29 2b 76 61 6c 3e | 32 35 34 20 8c 20 8b 20 |36)+val>|254 . . |
|000021c0| fb 20 63 2c 28 28 37 2d | 63 29 2a 33 36 29 2b 76 |. c,((7-|c)*36)+v|
|000021d0| 61 6c 2c 28 28 37 2d 63 | 29 2a 33 36 29 2b 76 61 |al,((7-c|)*36)+va|
|000021e0| 6c 2c 28 28 37 2d 63 29 | 2a 33 36 29 2b 76 61 6c |l,((7-c)|*36)+val|
|000021f0| 0d 0b 7c 0e 20 76 61 6c | 2b 3d 73 74 65 70 0d 0b |..|. val|+=step..|
|00002200| 86 06 20 ed 0d 0b 90 0e | 20 fd 20 76 61 6c 3e 32 |.. .....| . val>2|
|00002210| 35 34 0d 0b 9a 1f 20 e6 | 20 30 2c 31 35 3a c8 93 |54.... .| 0,15:..|
|00002220| 20 c8 90 20 30 2c 30 2c | 31 32 38 30 2c 31 30 32 | .. 0,0,|1280,102|
|00002230| 34 0d 0b a4 05 e1 0d 0b | ae 04 0d 0b b8 12 dd 20 |4.......|....... |
|00002240| f2 70 61 75 73 65 28 74 | 69 6d 65 29 0d 0b c2 45 |.pause(t|ime)...E|
|00002250| f4 20 50 61 75 73 65 73 | 20 66 6f 72 20 61 20 73 |. Pauses| for a s|
|00002260| 65 74 20 6c 65 6e 67 74 | 68 20 6f 66 20 74 69 6d |et lengt|h of tim|
|00002270| 65 2c 20 72 65 67 61 72 | 64 6c 65 73 73 20 6f 66 |e, regar|dless of|
|00002280| 20 70 72 6f 63 65 73 73 | 6f 72 20 73 70 65 65 64 | process|or speed|
|00002290| 2e 0d 0b cc 13 20 d1 3d | 30 3a f5 3a fd 20 91 3e |..... .=|0:.:. .>|
|000022a0| 74 69 6d 65 0d 0b d6 05 | e1 0d 0b e0 04 0d 0b ea |time....|........|
|000022b0| 0b dd 20 f2 66 61 64 65 | 0d 0b f4 27 f4 20 46 61 |.. .fade|...'. Fa|
|000022c0| 64 65 73 20 75 70 2c 20 | 70 61 75 73 65 73 2c 20 |des up, |pauses, |
|000022d0| 61 6e 64 20 66 61 64 65 | 73 20 64 6f 77 6e 2e 0d |and fade|s down..|
|000022e0| 0b fe 0d 20 f2 66 61 64 | 65 5f 75 70 0d 0c 08 10 |... .fad|e_up....|
|000022f0| 20 f2 70 61 75 73 65 28 | 32 30 30 29 0d 0c 12 0f | .pause(|200)....|
|00002300| 20 f2 66 61 64 65 5f 64 | 6f 77 6e 0d 0c 1c 05 e1 | .fade_d|own.....|
|00002310| 0d 0c 26 04 0d 0c 30 11 | dd 20 f2 66 69 6e 61 6c |..&...0.|. .final|
|00002320| 5f 66 61 64 65 0d 0c 3a | 2b f4 20 46 61 64 65 73 |_fade..:|+. Fades|
|00002330| 20 61 20 6d 6f 64 65 20 | 31 32 20 73 63 72 65 65 | a mode |12 scree|
|00002340| 6e 20 64 6f 77 6e 20 74 | 6f 20 62 6c 61 63 6b 2e |n down t|o black.|
|00002350| 0d 0c 44 17 20 e3 20 69 | 6e 74 3d 32 35 35 b8 30 |..D. . i|nt=255.0|
|00002360| 88 20 2d 73 74 65 70 0d | 0c 4e 16 20 20 fb 20 31 |. -step.|.N. . 1|
|00002370| 35 2c 69 6e 74 2c 69 6e | 74 2c 69 6e 74 0d 0c 58 |5,int,in|t,int..X|
|00002380| 1b 20 20 ef 20 31 39 2c | 31 2c 32 34 2c 69 6e 74 |. . 19,|1,24,int|
|00002390| 2c 69 6e 74 2c 69 6e 74 | 0d 0c 62 06 20 ed 0d 0c |,int,int|..b. ...|
|000023a0| 6c 06 20 db 0d 0c 76 05 | e1 0d 0c 80 04 0d 0c 8a |l. ...v.|........|
|000023b0| 26 dd 20 f2 70 61 69 6e | 74 5f 74 65 78 74 28 74 |&. .pain|t_text(t|
|000023c0| 65 78 74 24 2c 78 70 6f | 73 2c 79 70 6f 73 2c 63 |ext$,xpo|s,ypos,c|
|000023d0| 6f 6c 29 0d 0c 94 42 f4 | 20 50 72 6f 76 69 64 65 |ol)...B.| Provide|
|000023e0| 73 20 61 20 73 6f 72 74 | 20 6f 66 20 27 65 6e 63 |s a sort| of 'enc|
|000023f0| 69 72 63 6c 65 64 27 20 | 74 65 78 74 20 65 66 66 |ircled' |text eff|
|00002400| 65 63 74 2e 20 4e 69 63 | 65 20 69 6e 20 6d 6f 64 |ect. Nic|e in mod|
|00002410| 65 20 31 33 2e 0d 0c 9e | 0d 20 e9 20 64 69 73 74 |e 13....|. . dist|
|00002420| 3d 34 0d 0c a8 10 20 e6 | 20 36 33 20 c8 9c 20 32 |=4.... .| 63 .. 2|
|00002430| 35 35 0d 0c b2 1d 20 ec | 20 78 70 6f 73 2b 64 69 |55.... .| xpos+di|
|00002440| 73 74 2c 79 70 6f 73 3a | f1 20 74 65 78 74 24 0d |st,ypos:|. text$.|
|00002450| 0c bc 1d 20 ec 20 78 70 | 6f 73 2d 64 69 73 74 2c |... . xp|os-dist,|
|00002460| 79 70 6f 73 3a f1 20 74 | 65 78 74 24 0d 0c c6 1d |ypos:. t|ext$....|
|00002470| 20 ec 20 78 70 6f 73 2c | 79 70 6f 73 2b 64 69 73 | . xpos,|ypos+dis|
|00002480| 74 3a f1 20 74 65 78 74 | 24 0d 0c d0 1d 20 ec 20 |t:. text|$.... . |
|00002490| 78 70 6f 73 2c 79 70 6f | 73 2d 64 69 73 74 3a f1 |xpos,ypo|s-dist:.|
|000024a0| 20 74 65 78 74 24 0d 0c | da 22 20 ec 20 78 70 6f | text$..|." . xpo|
|000024b0| 73 2d 64 69 73 74 2c 79 | 70 6f 73 2d 64 69 73 74 |s-dist,y|pos-dist|
|000024c0| 3a f1 20 74 65 78 74 24 | 0d 0c e4 22 20 ec 20 78 |:. text$|..." . x|
|000024d0| 70 6f 73 2d 64 69 73 74 | 2c 79 70 6f 73 2b 64 69 |pos-dist|,ypos+di|
|000024e0| 73 74 3a f1 20 74 65 78 | 74 24 0d 0c ee 22 20 ec |st:. tex|t$..." .|
|000024f0| 20 78 70 6f 73 2b 64 69 | 73 74 2c 79 70 6f 73 2b | xpos+di|st,ypos+|
|00002500| 64 69 73 74 3a f1 20 74 | 65 78 74 24 0d 0c f8 22 |dist:. t|ext$..."|
|00002510| 20 ec 20 78 70 6f 73 2b | 64 69 73 74 2c 79 70 6f | . xpos+|dist,ypo|
|00002520| 73 2d 64 69 73 74 3a f1 | 20 74 65 78 74 24 0d 0d |s-dist:.| text$..|
|00002530| 02 11 20 e6 20 63 6f 6c | 20 c8 9c 20 32 35 35 0d |.. . col| .. 255.|
|00002540| 0d 0c 18 20 ec 20 78 70 | 6f 73 2c 79 70 6f 73 3a |... . xp|os,ypos:|
|00002550| f1 20 74 65 78 74 24 0d | 0d 16 05 e1 0d 0d 20 04 |. text$.|...... .|
|00002560| 0d 0d 2a 2d dd 20 f2 70 | 61 69 6e 74 28 74 65 78 |..*-. .p|aint(tex|
|00002570| 74 24 2c 66 6f 6e 74 24 | 2c 73 69 7a 65 78 25 2c |t$,font$|,sizex%,|
|00002580| 73 69 7a 65 79 25 2c 78 | 25 2c 79 25 29 0d 0d 34 |sizey%,x|%,y%)..4|
|00002590| 2a f4 20 50 61 69 6e 74 | 73 20 74 65 78 74 20 69 |*. Paint|s text i|
|000025a0| 6e 20 61 20 66 6f 6e 74 | 20 69 6e 20 70 75 72 65 |n a font| in pure|
|000025b0| 20 77 68 69 74 65 2e 0d | 0d 3e 3f 20 c8 99 22 46 | white..|.>? .."F|
|000025c0| 6f 6e 74 5f 46 69 6e 64 | 46 6f 6e 74 22 2c 30 2c |ont_Find|Font",0,|
|000025d0| 66 6f 6e 74 24 2c 73 69 | 7a 65 78 25 2a 31 36 2c |font$,si|zex%*16,|
|000025e0| 73 69 7a 65 79 25 2a 31 | 36 2c 30 2c 30 20 b8 20 |sizey%*1|6,0,0 . |
|000025f0| 68 61 6e 64 6c 65 0d 0d | 48 1c 20 c8 99 22 46 6f |handle..|H. .."Fo|
|00002600| 6e 74 5f 53 65 74 46 6f | 6e 74 22 2c 68 61 6e 64 |nt_SetFo|nt",hand|
|00002610| 6c 65 0d 0d 52 33 20 c8 | 99 22 46 6f 6e 74 5f 53 |le..R3 .|."Font_S|
|00002620| 65 74 50 61 6c 65 74 74 | 65 22 2c 2c 30 2c 38 2c |etPalett|e",,0,8,|
|00002630| 30 2c 26 30 30 30 30 30 | 30 30 30 2c 26 46 46 46 |0,&00000|000,&FFF|
|00002640| 46 46 46 30 30 0d 0d 5c | 2a 20 c8 99 22 46 6f 6e |FFF00..\|* .."Fon|
|00002650| 74 5f 50 61 69 6e 74 22 | 2c 68 61 6e 64 6c 65 2c |t_Paint"|,handle,|
|00002660| 74 65 78 74 24 2c 26 31 | 34 2c 78 25 2c 79 25 0d |text$,&1|4,x%,y%.|
|00002670| 0d 66 05 e1 0d 0d 70 04 | 0d 0d 7a 24 dd 20 a4 73 |.f....p.|..z$. .s|
|00002680| 79 73 74 65 6d 5f 76 61 | 72 69 61 62 6c 65 28 73 |ystem_va|riable(s|
|00002690| 79 73 76 61 72 5f 6e 61 | 6d 65 24 29 0d 0d 84 2e |ysvar_na|me$)....|
|000026a0| f4 20 52 65 61 64 73 20 | 74 68 65 20 63 6f 6e 74 |. Reads |the cont|
|000026b0| 65 6e 74 73 20 6f 66 20 | 61 20 73 79 73 74 65 6d |ents of |a system|
|000026c0| 20 76 61 72 69 61 62 6c | 65 2e 0d 0d 8e 13 f4 20 | variabl|e...... |
|000026d0| 4c 4f 43 41 4c 20 6c 65 | 6e 67 74 68 25 0d 0d 98 |LOCAL le|ngth%...|
|000026e0| 40 20 c8 99 20 22 58 4f | 53 5f 52 65 61 64 56 61 |@ .. "XO|S_ReadVa|
|000026f0| 72 56 61 6c 22 2c 73 79 | 73 76 61 72 5f 6e 61 6d |rVal",sy|svar_nam|
|00002700| 65 24 2b bd 28 30 29 2c | 62 6c 6f 63 6b 25 2c 2d |e$+.(0),|block%,-|
|00002710| 31 20 b8 20 2c 2c 6c 65 | 6e 67 74 68 25 0d 0d a2 |1 . ,,le|ngth%...|
|00002720| 44 20 e7 20 6c 65 6e 67 | 74 68 25 3d 30 20 85 20 |D . leng|th%=0 . |
|00002730| 26 30 2c 22 53 79 73 74 | 65 6d 20 76 61 72 69 61 |&0,"Syst|em varia|
|00002740| 62 6c 65 20 27 22 2b 73 | 79 73 76 61 72 5f 6e 61 |ble '"+s|ysvar_na|
|00002750| 6d 65 24 2b 22 27 20 6e | 6f 74 20 66 6f 75 6e 64 |me$+"' n|ot found|
|00002760| 22 0d 0d ac 44 20 c8 99 | 20 22 58 4f 53 5f 52 65 |"...D ..| "XOS_Re|
|00002770| 61 64 56 61 72 56 61 6c | 22 2c 73 79 73 76 61 72 |adVarVal|",sysvar|
|00002780| 5f 6e 61 6d 65 24 2b bd | 28 30 29 2c 62 6c 6f 63 |_name$+.|(0),bloc|
|00002790| 6b 25 2c 32 35 35 2c 2c | 33 20 b8 20 2c 2c 6c 65 |k%,255,,|3 . ,,le|
|000027a0| 6e 67 74 68 25 0d 0d b6 | 19 20 3f 28 62 6c 6f 63 |ngth%...|. ?(bloc|
|000027b0| 6b 25 2b 6c 65 6e 67 74 | 68 25 29 3d 31 33 0d 0d |k%+lengt|h%)=13..|
|000027c0| c0 0c 3d 24 62 6c 6f 63 | 6b 25 0d 0d ca 04 0d 0d |..=$bloc|k%......|
|000027d0| d4 11 dd 20 f2 67 65 74 | 5f 63 68 69 70 69 64 0d |... .get|_chipid.|
|000027e0| 0d de 25 20 c8 99 20 22 | 4f 53 5f 52 65 61 64 53 |..% .. "|OS_ReadS|
|000027f0| 79 73 49 6e 66 6f 22 2c | 32 20 b8 20 52 32 2c 52 |ysInfo",|2 . R2,R|
|00002800| 33 2c 52 34 0d 0d e8 12 | 20 e9 20 69 64 70 72 65 |3,R4....| . idpre|
|00002810| 73 65 6e 74 3d b9 0d 0d | f2 20 20 e7 20 52 33 3d |sent=...|. . R3=|
|00002820| 30 20 80 20 52 34 3d 30 | 20 8c 20 69 64 70 72 65 |0 . R4=0| . idpre|
|00002830| 73 65 6e 74 3d a3 0d 0d | fc 10 20 e9 20 63 68 69 |sent=...|.. . chi|
|00002840| 70 69 64 25 3d 30 0d 0e | 06 36 20 e7 20 69 64 70 |pid%=0..|.6 . idp|
|00002850| 72 65 73 65 6e 74 3d a3 | 20 8c 20 e9 20 63 68 69 |resent=.| . . chi|
|00002860| 70 69 64 25 3d 31 30 31 | 30 31 20 8b 20 e9 20 63 |pid%=101|01 . . c|
|00002870| 68 69 70 69 64 25 3d 52 | 33 2b 52 34 0d 0e 10 05 |hipid%=R|3+R4....|
|00002880| e1 0d 0e 1a 04 0d 0e 24 | 0e dd 20 f2 67 65 74 5f |.......$|.. .get_|
|00002890| 68 6d 73 0d 0e 2e 18 20 | 68 6f 75 72 25 3d a0 28 |hms.... |hour%=.(|
|000028a0| c1 91 24 2c 31 37 2c 31 | 33 29 29 0d 0e 38 17 20 |..$,17,1|3))..8. |
|000028b0| 6d 69 6e 25 3d a0 28 c1 | 91 24 2c 32 30 2c 31 33 |min%=.(.|.$,20,13|
|000028c0| 29 29 0d 0e 42 16 20 73 | 65 63 25 3d a0 28 c1 91 |))..B. s|ec%=.(..|
|000028d0| 24 2c 32 33 2c 32 29 29 | 0d 0e 4c 05 e1 0d 0e 56 |$,23,2))|..L....V|
|000028e0| 04 0d 0e 60 11 dd 20 f2 | 69 6e 69 74 69 61 6c 69 |...`.. .|initiali|
|000028f0| 73 65 0d 0e 6a 53 f4 20 | 43 61 6c 6c 20 74 68 69 |se..jS. |Call thi|
|00002900| 73 20 70 72 6f 63 65 64 | 75 72 65 20 61 74 20 74 |s proced|ure at t|
|00002910| 68 65 20 73 74 61 72 74 | 20 6f 66 20 79 6f 75 72 |he start| of your|
|00002920| 20 63 6f 64 65 20 69 66 | 20 79 6f 75 20 77 61 6e | code if| you wan|
|00002930| 74 20 74 6f 20 75 73 65 | 20 74 68 65 20 50 52 4f |t to use| the PRO|
|00002940| 43 64 69 61 6c 0d 0e 74 | 20 f4 20 70 72 6f 63 65 |Cdial..t| . proce|
|00002950| 64 75 72 65 20 69 6e 20 | 79 6f 75 72 20 70 72 6f |dure in |your pro|
|00002960| 67 72 61 6d 2e 0d 0e 7e | 26 20 de 20 64 69 61 6c |gram...~|& . dial|
|00002970| 5f 74 6f 6e 65 31 25 28 | 31 32 29 2c 64 69 61 6c |_tone1%(|12),dial|
|00002980| 5f 74 6f 6e 65 32 25 28 | 31 32 29 0d 0e 88 15 20 |_tone2%(|12).... |
|00002990| 63 6f 6c 24 3d 22 31 36 | 30 31 36 37 31 37 34 22 |col$="16|0167174"|
|000029a0| 0d 0e 92 18 20 72 6f 77 | 24 3d 22 31 32 32 31 33 |.... row|$="12213|
|000029b0| 30 31 33 36 31 34 32 22 | 0d 0e 9c 09 20 61 25 3d |0136142"|.... a%=|
|000029c0| 31 0d 0e a6 11 20 e3 20 | 72 6f 77 25 3d 30 20 b8 |1.... . |row%=0 .|
|000029d0| 20 33 0d 0e b0 12 20 20 | e3 20 63 6f 6c 25 3d 30 | 3.... |. col%=0|
|000029e0| 20 b8 20 32 0d 0e ba 2a | 20 20 20 64 69 61 6c 5f | . 2...*| dial_|
|000029f0| 74 6f 6e 65 31 25 28 61 | 25 29 3d bb 20 c1 63 6f |tone1%(a|%)=. .co|
|00002a00| 6c 24 2c 63 6f 6c 25 2a | 33 2b 31 2c 33 29 0d 0e |l$,col%*|3+1,3)..|
|00002a10| c4 2a 20 20 20 64 69 61 | 6c 5f 74 6f 6e 65 32 25 |.* dia|l_tone2%|
|00002a20| 28 61 25 29 3d bb 20 c1 | 72 6f 77 24 2c 72 6f 77 |(a%)=. .|row$,row|
|00002a30| 25 2a 33 2b 31 2c 33 29 | 0d 0e ce 0c 20 20 20 61 |%*3+1,3)|.... a|
|00002a40| 25 2b 3d 31 0d 0e d8 07 | 20 20 ed 0d 0e e2 06 20 |%+=1....| ..... |
|00002a50| ed 0d 0e ec 1e 20 c8 99 | 20 22 53 6f 75 6e 64 5f |..... ..| "Sound_|
|00002a60| 43 6f 6e 66 69 67 75 72 | 65 22 20 b8 20 69 25 0d |Configur|e" . i%.|
|00002a70| 0e f6 0f 20 e7 20 69 25 | 3c 32 c8 a0 20 32 0d 0f |... . i%|<2.. 2..|
|00002a80| 00 23 20 2a 43 68 61 6e | 6e 65 6c 56 6f 69 63 65 |.# *Chan|nelVoice|
|00002a90| 20 31 20 57 61 76 65 53 | 79 6e 74 68 2d 42 65 65 | 1 WaveS|ynth-Bee|
|00002aa0| 70 0d 0f 0a 23 20 2a 43 | 68 61 6e 6e 65 6c 56 6f |p...# *C|hannelVo|
|00002ab0| 69 63 65 20 32 20 57 61 | 76 65 53 79 6e 74 68 2d |ice 2 Wa|veSynth-|
|00002ac0| 42 65 65 70 0d 0f 14 05 | e1 0d 0f 1e 04 0d 0f 28 |Beep....|.......(|
|00002ad0| 0f dd 20 f2 64 69 61 6c | 28 6e 24 29 0d 0f 32 2b |.. .dial|(n$)..2+|
|00002ae0| f4 20 44 69 61 6c 73 20 | 61 20 70 68 6f 6e 65 20 |. Dials |a phone |
|00002af0| 6e 75 6d 62 65 72 20 75 | 73 69 6e 67 20 44 54 4d |number u|sing DTM|
|00002b00| 46 20 74 6f 6e 65 73 0d | 0f 3c 0e 20 c8 95 20 6e |F tones.|.<. .. n|
|00002b10| 24 3c 3e 22 22 0d 0f 46 | 21 20 20 61 25 3d a7 22 |$<>""..F|! a%=."|
|00002b20| 20 31 32 33 34 35 36 37 | 38 39 2a 30 23 22 2c c0 | 1234567|89*0#",.|
|00002b30| 6e 24 2c 31 29 29 0d 0f | 50 0e 20 20 e7 20 61 25 |n$,1))..|P. . a%|
|00002b40| 3e 30 20 8c 0d 0f 5a 1f | 20 20 20 74 6f 6e 65 31 |>0 ...Z.| tone1|
|00002b50| 25 3d 64 69 61 6c 5f 74 | 6f 6e 65 31 25 28 61 25 |%=dial_t|one1%(a%|
|00002b60| 2d 31 29 0d 0f 64 1f 20 | 20 20 74 6f 6e 65 32 25 |-1)..d. | tone2%|
|00002b70| 3d 64 69 61 6c 5f 74 6f | 6e 65 32 25 28 61 25 2d |=dial_to|ne2%(a%-|
|00002b80| 31 29 0d 0f 6e 29 20 20 | 20 e7 20 74 6f 6e 65 31 |1)..n) | . tone1|
|00002b90| 25 3d 30 20 76 6f 6c 25 | 3d 30 20 8b 20 76 6f 6c |%=0 vol%|=0 . vol|
|00002ba0| 25 3d 26 46 46 46 38 30 | 30 30 30 0d 0f 78 3d 20 |%=&FFF80|000..x= |
|00002bb0| 20 20 c8 99 20 22 53 6f | 75 6e 64 5f 51 53 63 68 | .. "So|und_QSch|
|00002bc0| 65 64 75 6c 65 22 2c 69 | 25 2a 32 30 2b 35 2c 2c |edule",i|%*20+5,,|
|00002bd0| 76 6f 6c 25 20 84 20 31 | 2c 26 33 30 30 30 30 20 |vol% . 1|,&30000 |
|00002be0| 84 20 74 6f 6e 65 31 25 | 0d 0f 82 38 20 20 20 c8 |. tone1%|...8 .|
|00002bf0| 99 20 22 53 6f 75 6e 64 | 5f 51 53 63 68 65 64 75 |. "Sound|_QSchedu|
|00002c00| 6c 65 22 2c 2d 31 2c 2c | 76 6f 6c 25 20 84 20 32 |le",-1,,|vol% . 2|
|00002c10| 2c 26 33 30 30 30 30 20 | 84 20 74 6f 6e 65 32 25 |,&30000 |. tone2%|
|00002c20| 0d 0f 8c 0c 20 20 20 69 | 25 2b 3d 31 0d 0f 96 07 |.... i|%+=1....|
|00002c30| 20 20 cd 0d 0f a0 0f 20 | 20 6e 24 3d c1 6e 24 2c | ..... | n$=.n$,|
|00002c40| 32 29 0d 0f aa 06 20 ce | 0d 0f b4 05 e1 0d 0f be |2).... .|........|
|00002c50| 04 0d 0f c8 1c dd 20 a4 | 67 65 74 6e 61 6d 65 6f |...... .|getnameo|
|00002c60| 66 61 70 70 28 73 74 72 | 69 6e 67 24 29 0d 0f d2 |fapp(str|ing$)...|
|00002c70| 0e 20 ea 20 6e 61 6d 65 | 24 2c 41 0d 0f dc 0d 20 |. . name|$,A.... |
|00002c80| 6e 61 6d 65 24 3d 22 22 | 0d 0f e6 08 20 41 3d 30 |name$=""|.... A=0|
|00002c90| 0d 0f f0 06 20 f5 0d 0f | fa 49 20 20 e7 20 c1 73 |.... ...|.I . .s|
|00002ca0| 74 72 69 6e 67 24 2c 28 | a9 20 73 74 72 69 6e 67 |tring$,(|. string|
|00002cb0| 24 29 2d 41 2c 31 29 3c | 3e 22 2e 22 20 8c 20 6e |$)-A,1)<|>"." . n|
|00002cc0| 61 6d 65 24 2b 3d c1 73 | 74 72 69 6e 67 24 2c 28 |ame$+=.s|tring$,(|
|00002cd0| a9 20 73 74 72 69 6e 67 | 24 29 2d 41 2c 31 29 0d |. string|$)-A,1).|
|00002ce0| 10 04 0b 20 20 41 3d 41 | 2b 31 0d 10 0e 32 20 fd |... A=A|+1...2 .|
|00002cf0| 20 41 3d a9 20 73 74 72 | 69 6e 67 24 20 84 20 c1 | A=. str|ing$ . .|
|00002d00| 73 74 72 69 6e 67 24 2c | 28 a9 20 73 74 72 69 6e |string$,|(. strin|
|00002d10| 67 24 29 2d 41 2c 31 29 | 3d 22 2e 22 0d 10 18 19 |g$)-A,1)|="."....|
|00002d20| 20 e3 20 41 3d a9 20 6e | 61 6d 65 24 20 b8 20 31 | . A=. n|ame$ . 1|
|00002d30| 20 88 20 2d 31 0d 10 22 | 27 20 20 72 65 61 6c 6e | . -1.."|' realn|
|00002d40| 61 6d 65 24 3d 72 65 61 | 6c 6e 61 6d 65 24 2b 28 |ame$=rea|lname$+(|
|00002d50| c1 6e 61 6d 65 24 2c 41 | 2c 31 29 29 0d 10 2c 08 |.name$,A|,1))..,.|
|00002d60| 20 ed 20 41 0d 10 36 0e | 3d 72 65 61 6c 6e 61 6d | . A..6.|=realnam|
|00002d70| 65 24 0d 10 40 04 0d 10 | 4a 18 dd 20 f2 72 69 73 |e$..@...|J.. .ris|
|00002d80| 63 6f 73 62 6f 78 28 74 | 69 74 6c 65 24 29 0d 10 |cosbox(t|itle$)..|
|00002d90| 54 11 20 63 77 69 6e 24 | 3d 74 69 74 6c 65 24 0d |T. cwin$|=title$.|
|00002da0| 10 5e 0f 20 de 20 63 62 | 6c 6b 25 20 33 33 0d 10 |.^. . cb|lk% 33..|
|00002db0| 68 11 20 24 63 62 6c 6b | 25 3d 63 77 69 6e 24 0d |h. $cblk|%=cwin$.|
|00002dc0| 10 72 22 20 c8 99 20 22 | 57 69 6d 70 5f 43 6f 6d |.r" .. "|Wimp_Com|
|00002dd0| 6d 61 6e 64 57 69 6e 64 | 6f 77 22 2c 63 62 6c 6b |mandWind|ow",cblk|
|00002de0| 25 0d 10 7c 05 e1 0d 10 | 86 04 0d 10 90 0d dd 20 |%..|....|....... |
|00002df0| f2 66 61 64 65 75 70 0d | 10 9a 0c 20 76 61 6c 3d |.fadeup.|... val=|
|00002e00| 32 35 35 0d 10 a4 06 20 | f5 0d 10 ae 0c 20 e3 20 |255.... |..... . |
|00002e10| 63 3d 31 b8 37 0d 10 b8 | 48 20 20 e7 20 76 61 6c |c=1.7...|H . val|
|00002e20| 3c 28 28 37 2d 63 29 2a | 33 36 29 20 8c 20 76 61 |<((7-c)*|36) . va|
|00002e30| 6c 3d 76 61 6c 2d 73 74 | 65 70 3a ed 20 8b 20 fb |l=val-st|ep:. . .|
|00002e40| 20 63 2c 76 61 6c 2c 76 | 61 6c 2c 76 61 6c 3a 76 | c,val,v|al,val:v|
|00002e50| 61 6c 3d 76 61 6c 2d 73 | 74 65 70 3a ed 0d 10 c2 |al=val-s|tep:....|
|00002e60| 0c 20 fd 20 76 61 6c 3c | 30 0d 10 cc 05 e1 0d 10 |. . val<|0.......|
|00002e70| d6 04 0d 10 e0 0f dd 20 | f2 66 61 64 65 64 6f 77 |....... |.fadedow|
|00002e80| 6e 0d 10 ea 0a 20 76 61 | 6c 3d 30 0d 10 f4 06 20 |n.... va|l=0.... |
|00002e90| f5 0d 10 fe 0c 20 e3 20 | 63 3d 31 b8 37 0d 11 08 |..... . |c=1.7...|
|00002ea0| 4f 20 20 e7 20 28 28 37 | 2d 63 29 2a 33 36 29 2b |O . ((7|-c)*36)+|
|00002eb0| 76 61 6c 3e 32 35 34 20 | 8c 20 8b 20 fb 20 63 2c |val>254 |. . . c,|
|00002ec0| 28 28 37 2d 63 29 2a 33 | 36 29 2b 76 61 6c 2c 28 |((7-c)*3|6)+val,(|
|00002ed0| 28 37 2d 63 29 2a 33 36 | 29 2b 76 61 6c 2c 28 28 |(7-c)*36|)+val,((|
|00002ee0| 37 2d 63 29 2a 33 36 29 | 2b 76 61 6c 0d 11 12 0e |7-c)*36)|+val....|
|00002ef0| 20 76 61 6c 2b 3d 73 74 | 65 70 0d 11 1c 06 20 ed | val+=st|ep.... .|
|00002f00| 0d 11 26 0e 20 fd 20 76 | 61 6c 3e 32 35 34 0d 11 |..&. . v|al>254..|
|00002f10| 30 1f 20 e6 20 30 2c 31 | 35 3a c8 93 20 c8 90 20 |0. . 0,1|5:.. .. |
|00002f20| 30 2c 30 2c 31 32 38 30 | 2c 31 30 32 34 0d 11 3a |0,0,1280|,1024..:|
|00002f30| 05 e1 0d 11 44 04 0d 11 | 4e 14 dd 20 f2 63 65 6e |....D...|N.. .cen|
|00002f40| 74 72 65 28 74 65 78 74 | 24 29 0d 11 58 11 20 ea |tre(text|$)..X. .|
|00002f50| 20 77 69 64 74 68 25 2c | 61 2c 62 0d 11 62 0e 20 | width%,|a,b..b. |
|00002f60| 77 69 64 74 68 25 3d 39 | 36 0d 11 6c 10 20 e9 20 |width%=9|6..l. . |
|00002f70| 61 3d a9 20 74 65 78 74 | 24 0d 11 76 11 20 e9 20 |a=. text|$..v. . |
|00002f80| 62 3d 77 69 64 74 68 25 | 2d 61 0d 11 80 12 20 f1 |b=width%|-a.... .|
|00002f90| 20 89 28 62 2f 32 29 74 | 65 78 74 24 0d 11 8a 05 | .(b/2)t|ext$....|
|00002fa0| e1 0d ff | |... | |
+--------+-------------------------+-------------------------+--------+--------+
