home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 5 / Amiga Tools 5.iso / tools / usefull / blocnotes / note00001a700000049600000a1b! < prev    next >
Unknown  |  1996-07-13  |  1.2 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.

ConfidenceProgramDetectionMatch TypeSupport
100% file data default


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| ab 40 00 27 00 8c 00 64 | 00 f8 00 54 a7 00 00 00 |.@.'...d|...T....|
|00000010| 00 00 00 00 00 1a 70 00 | 00 04 96 00 00 0a 1b 01 |......p.|........|
|00000020| 00 00 00 00 00 01 00 2f | 2a 53 63 72 6f 6c 6c 65 |......./|*Scrolle|
|00000030| 72 2e 72 65 78 78 20 76 | 33 2e 37 2a 2f 0a 49 46 |r.rexx v|3.7*/.IF|
|00000040| 20 50 4f 53 28 27 62 6c | 6f 63 6e 6f 74 65 73 2e | POS('bl|ocnotes.|
|00000050| 72 65 78 78 27 20 2c 20 | 53 48 4f 57 28 27 50 6f |rexx' , |SHOW('Po|
|00000060| 72 74 73 27 29 29 3d 30 | 20 54 48 45 4e 20 64 6f |rts'))=0| THEN do|
|00000070| 0a 20 20 20 73 61 79 20 | 22 53 6f 72 72 79 2c 20 |.   say |"Sorry, |
|00000080| 49 20 6e 65 65 64 20 42 | 6c 6f 63 6e 6f 74 65 73 |I need B|locnotes|
|00000090| 2e 20 52 75 6e 20 69 74 | 20 66 69 72 73 74 22 0a |. Run it| first".|
|000000a0| 20 20 20 65 78 69 74 0a | 65 6e 64 0a 0a 61 64 64 |   exit.|end..add|
|000000b0| 72 65 73 73 20 27 62 6c | 6f 63 6e 6f 74 65 73 2e |ress 'bl|ocnotes.|
|000000c0| 72 65 78 78 27 0a 6f 70 | 74 69 6f 6e 73 20 72 65 |rexx'.op|tions re|
|000000d0| 73 75 6c 74 73 0a 0a 2f | 2a 2a 2a 2a 2a 2a 2a 2a |sults../|********|
|000000e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000100| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000110| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 0a 20 41 64 6a 75 |********|**. Adju|
|00000120| 73 74 20 74 68 65 73 65 | 20 76 61 72 69 61 62 6c |st these| variabl|
|00000130| 65 73 20 74 6f 20 66 69 | 74 20 69 6e 20 79 6f 75 |es to fi|t in you|
|00000140| 72 20 73 79 73 74 65 6d | 2e 0a 2a 2a 2a 2a 2a 2a |r system|..******|
|00000150| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000160| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000170| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000180| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2f 0a 0a 46 |********|****/..F|
|00000190| 4e 61 6d 65 3d 22 4c 65 | 74 74 65 72 47 6f 74 68 |Name="Le|tterGoth|
|000001a0| 69 63 2e 66 6f 6e 74 22 | 20 20 20 20 20 20 20 20 |ic.font"|        |
|000001b0| 20 20 2f 2a 46 6f 6e 74 | 20 74 6f 20 75 73 65 2a |  /*Font| to use*|
|000001c0| 2f 0a 46 53 69 7a 65 3d | 36 30 20 20 20 20 20 20 |/.FSize=|60      |
|000001d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000001e0| 20 20 20 20 20 2f 2a 53 | 69 7a 65 20 6f 66 20 74 |     /*S|ize of t|
|000001f0| 68 65 20 66 6f 6e 74 2a | 2f 0a 2f 2a 2a 2a 2a 2a |he font*|/./*****|
|00000200| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000210| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000220| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000230| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2f 0a 0a 0a |********|****/...|
|00000240| 47 45 54 53 43 52 45 45 | 4e 44 41 54 41 0a 70 61 |GETSCREE|NDATA.pa|
|00000250| 72 73 65 20 56 41 52 20 | 72 65 73 75 6c 74 20 2e |rse VAR |result .|
|00000260| 20 2e 20 53 63 72 57 20 | 53 63 72 48 20 2e 0a 0a | . ScrW |ScrH ...|
|00000270| 57 57 3d 46 53 69 7a 65 | 2a 35 0a 57 48 3d 46 53 |WW=FSize|*5.WH=FS|
|00000280| 69 7a 65 2b 37 0a 53 70 | 65 65 64 3d 33 0a 0a 66 |ize+7.Sp|eed=3..f|
|00000290| 6f 72 65 76 65 72 3d 30 | 0a 0a 69 66 20 77 6f 72 |orever=0|..if wor|
|000002a0| 64 73 28 41 72 67 28 31 | 29 29 3c 32 20 74 68 65 |ds(Arg(1|))<2 the|
|000002b0| 6e 20 64 6f 0a 20 20 20 | 69 66 20 41 72 67 28 31 |n do.   |if Arg(1|
|000002c0| 29 3d 27 3f 27 20 74 68 | 65 6e 20 64 6f 0a 20 20 |)='?' th|en do.  |
|000002d0| 20 20 20 20 73 61 79 20 | 27 55 53 41 47 45 3a 20 |    say |'USAGE: |
|000002e0| 72 78 20 53 63 72 6f 6c | 6c 65 72 20 3c 74 69 6d |rx Scrol|ler <tim|
|000002f0| 65 73 3e 20 3c 73 74 72 | 69 6e 67 3e 27 0a 20 20 |es> <str|ing>'.  |
|00000300| 20 20 20 20 73 61 79 20 | 27 4d 61 78 69 6d 75 6d |    say |'Maximum|
|00000310| 20 6c 65 6e 67 74 68 20 | 69 73 20 37 30 20 63 68 | length |is 70 ch|
|00000320| 61 72 73 2e 27 0a 20 20 | 20 65 6e 64 0a 20 20 20 |ars.'.  | end.   |
|00000330| 74 69 6d 65 73 3d 33 0a | 20 20 20 73 74 72 69 6e |times=3.|   strin|
|00000340| 67 3d 27 55 53 41 47 45 | 3a 20 72 78 20 53 63 72 |g='USAGE|: rx Scr|
|00000350| 6f 6c 6c 65 72 2e 72 65 | 78 78 20 3c 74 69 6d 65 |oller.re|xx <time|
|00000360| 73 3e 20 3c 73 74 72 69 | 6e 67 3e 2e 50 72 65 73 |s> <stri|ng>.Pres|
|00000370| 73 20 61 20 6b 65 79 2e | 27 0a 65 6e 64 0a 65 6c |s a key.|'.end.el|
|00000380| 73 65 20 64 6f 0a 20 20 | 20 74 69 6d 65 73 3d 77 |se do.  | times=w|
|00000390| 6f 72 64 28 61 72 67 28 | 31 29 2c 31 29 0a 20 20 |ord(arg(|1),1).  |
|000003a0| 20 69 66 20 74 69 6d 65 | 73 3d 30 20 74 68 65 6e | if time|s=0 then|
|000003b0| 20 66 6f 72 65 76 65 72 | 3d 31 0a 20 20 20 69 66 | forever|=1.   if|
|000003c0| 20 28 74 69 6d 65 73 3d | 30 29 7c 28 74 69 6d 65 | (times=|0)|(time|
|000003d0| 73 3e 34 30 29 20 74 68 | 65 6e 20 74 69 6d 65 73 |s>40) th|en times|
|000003e0| 3d 32 0a 0a 20 20 20 70 | 3d 50 4f 53 28 27 20 27 |=2..   p|=POS(' '|
|000003f0| 2c 41 72 67 28 31 29 29 | 0a 20 20 20 73 74 72 69 |,Arg(1))|.   stri|
|00000400| 6e 67 3d 52 49 47 48 54 | 28 41 72 67 28 31 29 2c |ng=RIGHT|(Arg(1),|
|00000410| 4c 45 4e 47 54 48 28 41 | 72 67 28 31 29 29 2d 70 |LENGTH(A|rg(1))-p|
|00000420| 29 0a 20 20 20 69 66 20 | 4c 45 4e 47 54 48 28 73 |).   if |LENGTH(s|
|00000430| 74 72 69 6e 67 29 3e 37 | 30 20 74 68 65 6e 20 64 |tring)>7|0 then d|
|00000440| 6f 0a 20 20 20 20 20 20 | 73 74 72 69 6e 67 3d 6c |o.      |string=l|
|00000450| 65 66 74 28 73 74 72 69 | 6e 67 2c 37 30 29 3b 0a |eft(stri|ng,70);.|
|00000460| 20 20 20 65 6e 64 0a 65 | 6e 64 0a 0a 4f 50 45 4e |   end.e|nd..OPEN|
|00000470| 20 54 52 55 4e 43 28 53 | 63 72 57 2d 57 57 29 2f | TRUNC(S|crW-WW)/|
|00000480| 32 20 54 52 55 4e 43 28 | 28 53 63 72 48 2d 57 48 |2 TRUNC(|(ScrH-WH|
|00000490| 29 2f 33 29 20 57 57 20 | 57 48 20 46 4f 4e 54 4e |)/3) WW |WH FONTN|
|000004a0| 41 4d 45 20 46 4e 61 6d | 65 20 46 4f 4e 54 53 49 |AME FNam|e FONTSI|
|000004b0| 5a 45 20 46 53 69 7a 65 | 20 4e 4f 53 41 56 45 20 |ZE FSize| NOSAVE |
|000004c0| 4e 4f 47 41 44 47 45 54 | 20 4e 4f 45 44 49 54 0a |NOGADGET| NOEDIT.|
|000004d0| 4e 4f 53 43 52 4f 4c 4c | 45 52 20 53 43 52 45 45 |NOSCROLL|ER SCREE|
|000004e0| 4e 20 27 57 6f 72 6b 62 | 65 6e 63 68 27 0a 69 64 |N 'Workb|ench'.id|
|000004f0| 3d 72 65 73 75 6c 74 0a |                         |=result.|        |
+--------+-------------------------+-------------------------+--------+--------+