/ Gold Fish 3 / goldfish_volume_3.bin / files / dev / basic / ace / include / strings.h

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 46 72 6f 6d 20 58 52 41 | 43 54 4f 4e 40 46 55 4c |From XRA|CTON@FUL|
|00000010| 4c 45 52 54 4f 4e 2e 45 | 44 55 20 54 68 75 20 4a |LERTON.E|DU Thu J|
|00000020| 75 6e 20 32 34 20 30 30 | 3a 33 39 3a 31 37 20 31 |un 24 00|:39:17 1|
|00000030| 39 39 33 0a 52 65 74 75 | 72 6e 2d 50 61 74 68 3a |993.Retu|rn-Path:|
|00000040| 20 3c 58 52 41 43 54 4f | 4e 40 46 55 4c 4c 45 52 | <XRACTO|N@FULLER|
|00000050| 54 4f 4e 2e 45 44 55 3e | 0a 52 65 63 65 69 76 65 |TON.EDU>|.Receive|
|00000060| 64 3a 20 66 72 6f 6d 20 | 63 73 75 2e 46 75 6c 6c |d: from |csu.Full|
|00000070| 65 72 74 6f 6e 2e 45 44 | 55 20 62 79 20 6c 65 76 |erton.ED|U by lev|
|00000080| 65 6e 2e 61 70 70 63 6f | 6d 70 2e 75 74 61 73 2e |en.appco|mp.utas.|
|00000090| 65 64 75 2e 61 75 20 28 | 34 2e 31 2f 53 4d 49 2d |edu.au (|4.1/SMI-|
|000000a0| 34 2e 31 29 0a 09 69 64 | 20 41 42 30 35 33 31 30 |4.1)..id| AB05310|
|000000b0| 3b 20 54 68 75 2c 20 32 | 34 20 4a 75 6e 20 39 33 |; Thu, 2|4 Jun 93|
|000000c0| 20 30 30 3a 33 39 3a 30 | 37 20 45 53 54 0a 52 65 | 00:39:0|7 EST.Re|
|000000d0| 63 65 69 76 65 64 3a 20 | 66 72 6f 6d 20 46 55 4c |ceived: |from FUL|
|000000e0| 4c 45 52 54 4f 4e 2e 45 | 44 55 20 62 79 20 46 55 |LERTON.E|DU by FU|
|000000f0| 4c 4c 45 52 54 4f 4e 2e | 45 44 55 20 28 50 4d 44 |LLERTON.|EDU (PMD|
|00000100| 46 20 23 32 34 34 36 20 | 29 20 69 64 0a 20 3c 30 |F #2446 |) id. <0|
|00000110| 31 47 5a 50 4b 45 33 34 | 31 4b 59 30 30 32 51 46 |1GZPKE34|1KY002QF|
|00000120| 54 40 46 55 4c 4c 45 52 | 54 4f 4e 2e 45 44 55 3e |T@FULLER|TON.EDU>|
|00000130| 3b 20 57 65 64 2c 20 32 | 33 20 4a 75 6e 20 31 39 |; Wed, 2|3 Jun 19|
|00000140| 39 33 20 30 37 3a 33 36 | 3a 34 31 20 50 53 54 0a |93 07:36|:41 PST.|
|00000150| 44 61 74 65 3a 20 32 33 | 20 4a 75 6e 20 31 39 39 |Date: 23| Jun 199|
|00000160| 33 20 30 37 3a 33 36 3a | 34 31 20 2d 30 38 30 30 |3 07:36:|41 -0800|
|00000170| 20 28 50 53 54 29 0a 46 | 72 6f 6d 3a 20 52 4f 4c | (PST).F|rom: ROL|
|00000180| 41 4e 44 20 41 43 54 4f | 4e 20 3c 58 52 41 43 54 |AND ACTO|N <XRACT|
|00000190| 4f 4e 40 46 55 4c 4c 45 | 52 54 4f 4e 2e 45 44 55 |ON@FULLE|RTON.EDU|
|000001a0| 3e 0a 53 75 62 6a 65 63 | 74 3a 20 73 74 72 69 6e |>.Subjec|t: strin|
|000001b0| 67 73 2e 68 0a 54 6f 3a | 20 64 62 65 6e 6e 40 6c |gs.h.To:| dbenn@l|
|000001c0| 65 76 65 6e 2e 61 70 70 | 63 6f 6d 70 2e 75 74 61 |even.app|comp.uta|
|000001d0| 73 2e 65 64 75 2e 61 75 | 0a 4d 65 73 73 61 67 65 |s.edu.au|.Message|
|000001e0| 2d 49 64 3a 20 3c 30 31 | 47 5a 50 4b 45 33 34 31 |-Id: <01|GZPKE341|
|000001f0| 4c 30 30 30 32 51 46 54 | 40 46 55 4c 4c 45 52 54 |L0002QFT|@FULLERT|
|00000200| 4f 4e 2e 45 44 55 3e 0a | 58 2d 56 6d 73 2d 54 6f |ON.EDU>.|X-Vms-To|
|00000210| 3a 20 49 4e 25 22 64 62 | 65 6e 6e 40 6c 65 76 65 |: IN%"db|enn@leve|
|00000220| 6e 2e 61 70 70 63 6f 6d | 70 2e 75 74 61 73 2e 65 |n.appcom|p.utas.e|
|00000230| 64 75 2e 61 75 22 0a 4d | 69 6d 65 2d 56 65 72 73 |du.au".M|ime-Vers|
|00000240| 69 6f 6e 3a 20 31 2e 30 | 0a 43 6f 6e 74 65 6e 74 |ion: 1.0|.Content|
|00000250| 2d 54 72 61 6e 73 66 65 | 72 2d 45 6e 63 6f 64 69 |-Transfe|r-Encodi|
|00000260| 6e 67 3a 20 37 42 49 54 | 0a 53 74 61 74 75 73 3a |ng: 7BIT|.Status:|
|00000270| 20 4f 52 0a 0a 52 65 6d | 20 2a 2a 2a 20 4c 43 41 | OR..Rem| *** LCA|
|00000280| 53 45 24 20 28 66 75 6e | 63 74 69 6f 6e 29 0a 52 |SE$ (fun|ction).R|
|00000290| 65 6d 20 2a 2a 2a 0a 52 | 65 6d 20 2a 2a 2a 20 46 |em ***.R|em *** F|
|000002a0| 55 4e 43 54 49 4f 4e 3a | 0a 52 65 6d 20 2a 2a 2a |UNCTION:|.Rem ***|
|000002b0| 20 53 69 6d 75 6c 61 74 | 65 73 20 74 68 65 20 4c | Simulat|es the L|
|000002c0| 43 41 53 45 24 20 66 75 | 6e 63 74 69 6f 6e 20 68 |CASE$ fu|nction h|
|000002d0| 61 72 64 2d 77 69 72 65 | 64 20 69 6e 74 6f 20 73 |ard-wire|d into s|
|000002e0| 6f 6d 65 20 6f 74 68 65 | 72 0a 52 65 6d 20 2a 2a |ome othe|r.Rem **|
|000002f0| 2a 20 42 41 53 49 43 73 | 2e 20 54 61 6b 65 73 20 |* BASICs|. Takes |
|00000300| 61 20 73 74 72 69 6e 67 | 20 61 73 20 69 6e 70 75 |a string| as inpu|
|00000310| 74 2c 20 61 6e 64 20 72 | 65 74 75 72 6e 73 20 74 |t, and r|eturns t|
|00000320| 68 61 74 20 73 74 72 69 | 6e 67 0a 52 65 6d 20 2a |hat stri|ng.Rem *|
|00000330| 2a 2a 20 77 69 74 68 20 | 61 6c 6c 20 75 70 70 65 |** with |all uppe|
|00000340| 72 63 61 73 65 20 6c 65 | 74 74 65 72 73 20 63 6f |rcase le|tters co|
|00000350| 6e 76 65 72 74 65 64 20 | 74 6f 20 6c 6f 77 65 72 |nverted |to lower|
|00000360| 63 61 73 65 2e 0a 52 65 | 6d 20 2a 2a 2a 0a 52 65 |case..Re|m ***.Re|
|00000370| 6d 20 2a 2a 2a 20 52 45 | 56 49 53 49 4f 4e 20 48 |m *** RE|VISION H|
|00000380| 49 53 54 4f 52 59 3a 0a | 52 65 6d 20 2a 2a 2a 20 |ISTORY:.|Rem *** |
|00000390| 56 65 72 73 69 6f 6e 20 | 31 2e 30 3a 20 52 6f 6c |Version |1.0: Rol|
|000003a0| 61 6e 64 20 41 63 74 6f | 6e 20 28 78 72 61 63 74 |and Acto|n (xract|
|000003b0| 6f 6e 40 63 63 76 61 78 | 2e 66 75 6c 6c 65 72 74 |on@ccvax|.fullert|
|000003c0| 6f 6e 2e 65 64 75 29 0a | 52 65 6d 20 2a 2a 2a 0a |on.edu).|Rem ***.|
|000003d0| 52 65 6d 20 2a 2a 2a 20 | 42 55 47 53 3a 0a 52 65 |Rem *** |BUGS:.Re|
|000003e0| 6d 20 2a 2a 2a 20 43 61 | 6e 20 6f 6e 6c 79 20 68 |m *** Ca|n only h|
|000003f0| 61 6e 64 6c 65 20 73 74 | 72 69 6e 67 73 20 75 70 |andle st|rings up|
|00000400| 20 74 6f 20 4d 41 58 53 | 54 52 49 4e 47 4c 45 4e | to MAXS|TRINGLEN|
|00000410| 2e 0a 0a 53 55 42 20 4c | 43 41 53 45 24 28 41 24 |...SUB L|CASE$(A$|
|00000420| 29 0a 20 20 4c 6f 6e 67 | 69 6e 74 20 53 54 45 50 |).  Long|int STEP|
|00000430| 50 45 52 0a 20 20 53 74 | 72 69 6e 67 20 42 24 0a |PER.  St|ring B$.|
|00000440| 20 20 42 24 3d 41 24 0a | 20 20 53 54 45 50 50 45 |  B$=A$.|  STEPPE|
|00000450| 52 3d 40 42 24 0a 52 65 | 6d 20 2a 2a 2a 20 4e 6f |R=@B$.Re|m *** No|
|00000460| 74 20 70 65 72 66 65 63 | 74 6c 79 20 70 6f 72 74 |t perfec|tly port|
|00000470| 61 62 6c 65 2c 20 62 75 | 74 20 65 76 65 72 79 62 |able, bu|t everyb|
|00000480| 6f 64 79 20 75 73 65 73 | 20 41 53 43 49 49 20 74 |ody uses| ASCII t|
|00000490| 68 65 73 65 20 64 61 79 | 73 2c 0a 52 65 6d 20 2a |hese day|s,.Rem *|
|000004a0| 2a 2a 20 72 69 67 68 74 | 3f 0a 20 20 52 65 70 65 |** right|?.  Repe|
|000004b0| 61 74 0a 20 20 20 20 49 | 66 20 50 65 65 6b 28 53 |at.    I|f Peek(S|
|000004c0| 54 45 50 50 45 52 29 3e | 3d 36 35 20 41 6e 64 20 |TEPPER)>|=65 And |
|000004d0| 50 65 65 6b 28 53 54 45 | 50 50 45 52 29 3c 3d 39 |Peek(STE|PPER)<=9|
|000004e0| 30 20 54 68 65 6e 0a 20 | 20 20 20 20 20 50 6f 6b |0 Then. |     Pok|
|000004f0| 65 20 53 54 45 50 50 45 | 52 2c 50 65 65 6b 28 53 |e STEPPE|R,Peek(S|
|00000500| 54 45 50 50 45 52 29 2b | 33 32 0a 20 20 20 20 45 |TEPPER)+|32.    E|
|00000510| 6e 64 20 49 66 0a 20 20 | 20 20 2b 2b 53 54 45 50 |nd If.  |  ++STEP|
|00000520| 50 45 52 0a 20 20 55 6e | 74 69 6c 20 50 65 65 6b |PER.  Un|til Peek|
|00000530| 28 53 54 45 50 50 45 52 | 29 3d 30 0a 20 20 4c 43 |(STEPPER|)=0.  LC|
|00000540| 41 53 45 24 3d 42 24 0a | 45 4e 44 20 53 55 42 0a |ASE$=B$.|END SUB.|
|00000550| 0a 0a 0a 52 65 6d 20 2a | 2a 2a 20 4d 49 44 43 4f |...Rem *|** MIDCO|
|00000560| 4d 24 20 28 66 75 6e 63 | 74 69 6f 6e 29 0a 52 65 |M$ (func|tion).Re|
|00000570| 6d 20 2a 2a 2a 0a 52 65 | 6d 20 2a 2a 2a 20 46 55 |m ***.Re|m *** FU|
|00000580| 4e 43 54 49 4f 4e 3a 0a | 52 65 6d 20 2a 2a 2a 20 |NCTION:.|Rem *** |
|00000590| 53 69 6d 75 6c 61 74 65 | 73 20 74 68 65 20 4d 49 |Simulate|s the MI|
|000005a0| 44 24 20 63 6f 6d 6d 61 | 6e 64 2e 20 41 24 2c 20 |D$ comma|nd. A$, |
|000005b0| 73 74 61 72 74 69 6e 67 | 20 61 74 20 70 6f 73 69 |starting| at posi|
|000005c0| 74 69 6f 6e 20 42 25 2c | 20 68 61 73 0a 52 65 6d |tion B%,| has.Rem|
|000005d0| 20 2a 2a 2a 20 69 74 73 | 20 63 6f 6e 74 65 6e 74 | *** its| content|
|000005e0| 73 20 72 65 70 6c 61 63 | 65 64 20 62 79 20 43 24 |s replac|ed by C$|
|000005f0| 2e 20 54 68 69 73 20 69 | 73 20 64 6f 6e 65 20 75 |. This i|s done u|
|00000600| 6e 74 69 6c 20 65 69 74 | 68 65 72 20 44 25 0a 52 |ntil eit|her D%.R|
|00000610| 65 6d 20 2a 2a 2a 20 63 | 68 61 72 61 63 74 65 72 |em *** c|haracter|
|00000620| 73 20 68 61 76 65 20 62 | 65 65 6e 20 72 65 70 6c |s have b|een repl|
|00000630| 61 63 65 64 2c 20 6f 72 | 20 74 68 65 20 65 6e 64 |aced, or| the end|
|00000640| 20 6f 66 20 65 69 74 68 | 65 72 20 41 24 20 6f 72 | of eith|er A$ or|
|00000650| 20 43 24 0a 52 65 6d 20 | 2a 2a 2a 20 68 61 73 20 | C$.Rem |*** has |
|00000660| 62 65 65 6e 20 72 65 61 | 63 68 65 64 2e 20 54 68 |been rea|ched. Th|
|00000670| 69 73 20 69 73 20 63 6f | 6e 73 69 73 74 65 6e 74 |is is co|nsistent|
|00000680| 20 77 69 74 68 20 74 68 | 65 20 77 61 79 20 69 74 | with th|e way it|
|00000690| 20 69 73 0a 52 65 6d 20 | 2a 2a 2a 20 69 6d 70 6c | is.Rem |*** impl|
|000006a0| 65 6d 65 6e 74 65 64 20 | 69 6e 20 41 6d 69 67 61 |emented |in Amiga|
|000006b0| 42 41 53 49 43 20 28 74 | 68 6f 75 67 68 20 41 6d |BASIC (t|hough Am|
|000006c0| 69 67 61 42 41 53 49 43 | 20 75 73 65 73 20 61 0a |igaBASIC| uses a.|
|000006d0| 52 65 6d 20 2a 2a 2a 20 | 64 69 66 66 65 72 65 6e |Rem *** |differen|
|000006e0| 74 20 73 79 6e 74 61 78 | 29 2e 20 54 68 65 20 63 |t syntax|). The c|
|000006f0| 6f 6e 74 65 6e 74 73 20 | 6f 66 20 41 24 20 61 72 |ontents |of A$ ar|
|00000700| 65 20 74 68 65 6e 20 72 | 65 74 75 72 6e 65 64 20 |e then r|eturned |
|00000710| 74 6f 0a 52 65 6d 20 2a | 2a 2a 20 74 68 65 20 63 |to.Rem *|** the c|
|00000720| 61 6c 6c 69 6e 67 20 70 | 72 6f 67 72 61 6d 2e 0a |alling p|rogram..|
|00000730| 52 65 6d 20 2a 2a 2a 20 | 46 6f 72 20 65 78 61 6d |Rem *** |For exam|
|00000740| 70 6c 65 2c 20 69 66 20 | 4e 41 4d 45 24 20 63 6f |ple, if |NAME$ co|
|00000750| 6e 74 61 69 6e 73 20 74 | 68 65 20 73 74 72 69 6e |ntains t|he strin|
|00000760| 67 20 22 47 6f 6f 64 62 | 79 65 22 2c 0a 52 65 6d |g "Goodb|ye",.Rem|
|00000770| 20 2a 2a 2a 0a 52 65 6d | 20 2a 2a 2a 20 4e 41 47 | ***.Rem| *** NAG|
|00000780| 49 53 41 24 3d 4d 49 44 | 43 4f 4d 24 28 4e 41 4d |ISA$=MID|COM$(NAM|
|00000790| 45 24 2c 32 2c 22 49 63 | 7a 65 72 22 2c 31 29 0a |E$,2,"Ic|zer",1).|
|000007a0| 52 65 6d 20 2a 2a 2a 0a | 52 65 6d 20 2a 2a 2a 20 |Rem ***.|Rem *** |
|000007b0| 77 69 6c 6c 20 6d 61 6b | 65 20 4e 41 47 49 53 41 |will mak|e NAGISA|
|000007c0| 24 20 63 6f 6e 74 61 69 | 6e 20 74 68 65 20 73 74 |$ contai|n the st|
|000007d0| 72 69 6e 67 20 22 47 49 | 6f 64 62 79 65 22 2e 20 |ring "GI|odbye". |
|000007e0| 4e 41 4d 45 24 20 77 69 | 6c 6c 0a 52 65 6d 20 2a |NAME$ wi|ll.Rem *|
|000007f0| 2a 2a 20 62 65 20 75 6e | 61 66 66 65 63 74 65 64 |** be un|affected|
|00000800| 2e 20 54 68 75 73 2c 20 | 69 66 20 79 6f 75 20 61 |. Thus, |if you a|
|00000810| 63 74 75 61 6c 6c 79 20 | 77 61 6e 74 65 64 20 74 |ctually |wanted t|
|00000820| 6f 20 61 6c 74 65 72 20 | 4e 41 4d 45 24 0a 52 65 |o alter |NAME$.Re|
|00000830| 6d 20 2a 2a 2a 20 28 61 | 73 20 74 68 65 20 22 72 |m *** (a|s the "r|
|00000840| 65 61 6c 22 20 4d 49 44 | 24 20 63 6f 6d 6d 61 6e |eal" MID|$ comman|
|00000850| 64 20 77 6f 75 6c 64 20 | 64 6f 29 20 79 6f 75 20 |d would |do) you |
|00000860| 77 6f 75 6c 64 20 68 61 | 76 65 20 74 6f 20 75 73 |would ha|ve to us|
|00000870| 65 0a 52 65 6d 20 2a 2a | 2a 0a 52 65 6d 20 2a 2a |e.Rem **|*.Rem **|
|00000880| 2a 20 4e 41 4d 45 24 3d | 4d 49 44 43 4f 4d 24 28 |* NAME$=|MIDCOM$(|
|00000890| 4e 41 4d 45 24 2c 32 2c | 22 49 63 7a 65 72 22 2c |NAME$,2,|"Iczer",|
|000008a0| 31 29 0a 52 65 6d 20 2a | 2a 2a 0a 52 65 6d 20 2a |1).Rem *|**.Rem *|
|000008b0| 2a 2a 20 4e 6f 74 65 20 | 74 68 61 74 20 73 69 6e |** Note |that sin|
|000008c0| 63 65 20 41 43 45 20 64 | 6f 65 73 20 6e 6f 74 20 |ce ACE d|oes not |
|000008d0| 61 6c 6c 6f 77 20 66 75 | 6e 63 74 69 6f 6e 20 6f |allow fu|nction o|
|000008e0| 76 65 72 6c 6f 61 64 69 | 6e 67 2c 20 61 6c 6c 0a |verloadi|ng, all.|
|000008f0| 52 65 6d 20 2a 2a 2a 20 | 66 6f 75 72 20 70 61 72 |Rem *** |four par|
|00000900| 61 6d 65 74 65 72 73 20 | 61 72 65 20 72 65 71 75 |ameters |are requ|
|00000910| 69 72 65 64 2e 20 50 61 | 73 73 20 44 25 20 61 20 |ired. Pa|ss D% a |
|00000920| 76 65 72 79 20 68 69 67 | 68 20 6e 75 6d 62 65 72 |very hig|h number|
|00000930| 20 69 66 0a 52 65 6d 20 | 2a 2a 2a 20 79 6f 75 20 | if.Rem |*** you |
|00000940| 77 61 6e 74 20 69 74 20 | 69 67 6e 6f 72 65 64 2e |want it |ignored.|
|00000950| 0a 52 65 6d 20 2a 2a 2a | 0a 52 65 6d 20 2a 2a 2a |.Rem ***|.Rem ***|
|00000960| 20 52 45 56 49 53 49 4f | 4e 20 48 49 53 54 4f 52 | REVISIO|N HISTOR|
|00000970| 59 3a 0a 52 65 6d 20 2a | 2a 2a 20 56 65 72 73 69 |Y:.Rem *|** Versi|
|00000980| 6f 6e 20 31 2e 30 3a 20 | 52 6f 6c 61 6e 64 20 41 |on 1.0: |Roland A|
|00000990| 63 74 6f 6e 20 28 78 72 | 61 63 74 6f 6e 40 63 63 |cton (xr|acton@cc|
|000009a0| 76 61 78 2e 66 75 6c 6c | 65 72 74 6f 6e 2e 65 64 |vax.full|erton.ed|
|000009b0| 75 29 0a 52 65 6d 20 2a | 2a 2a 0a 52 65 6d 20 2a |u).Rem *|**.Rem *|
|000009c0| 2a 2a 20 42 55 47 53 3a | 0a 52 65 6d 20 2a 2a 2a |** BUGS:|.Rem ***|
|000009d0| 20 4e 6f 6e 65 20 6b 6e | 6f 77 6e 2e 0a 0a 53 55 | None kn|own...SU|
|000009e0| 42 20 4d 49 44 43 4f 4d | 24 28 41 24 2c 42 25 2c |B MIDCOM|$(A$,B%,|
|000009f0| 43 24 2c 44 25 29 0a 20 | 20 4c 6f 6e 67 69 6e 74 |C$,D%). | Longint|
|00000a00| 20 53 54 45 50 41 2c 20 | 53 54 45 50 43 0a 20 20 | STEPA, |STEPC.  |
|00000a10| 53 54 45 50 41 3d 40 41 | 24 2b 42 25 2d 31 0a 20 |STEPA=@A|$+B%-1. |
|00000a20| 20 53 54 45 50 43 3d 40 | 43 24 0a 20 20 57 68 69 | STEPC=@|C$.  Whi|
|00000a30| 6c 65 20 50 65 65 6b 28 | 53 54 45 50 41 29 3c 3e |le Peek(|STEPA)<>|
|00000a40| 30 20 41 6e 64 20 50 65 | 65 6b 28 53 54 45 50 43 |0 And Pe|ek(STEPC|
|00000a50| 29 3c 3e 30 20 41 6e 64 | 20 44 25 3e 30 0a 20 20 |)<>0 And| D%>0.  |
|00000a60| 20 20 50 6f 6b 65 20 53 | 54 45 50 41 2c 50 65 65 |  Poke S|TEPA,Pee|
|00000a70| 6b 28 53 54 45 50 43 29 | 0a 20 20 20 20 2b 2b 53 |k(STEPC)|.    ++S|
|00000a80| 54 45 50 41 0a 20 20 20 | 20 2b 2b 53 54 45 50 43 |TEPA.   | ++STEPC|
|00000a90| 0a 20 20 20 20 2d 2d 44 | 25 0a 20 20 57 65 6e 64 |.    --D|%.  Wend|
|00000aa0| 0a 20 20 4d 49 44 43 4f | 4d 24 3d 41 24 0a 45 4e |.  MIDCO|M$=A$.EN|
|00000ab0| 44 20 53 55 42 0a 0a    |                         |D SUB.. |        |
+--------+-------------------------+-------------------------+--------+--------+