INSTR EXT DEMO

00000000: 01 1C 4B 1C 01 00 99 22  13 13 93 0E 96 20 20 20  |..K....".....   |
00000010: 20 20 20 20 20 20 20 2A  2A 2A 2A 2A 2A 2A 2A 2A  |       *********|
00000020: 2A 2A 2A 2A 20 45 52 57  45 49 54 45 54 45 52 20  |**** ERWEITETER |
00000030: 49 4E 53 54 52 2D C2 45  46 45 48 4C 20 2A 2A 2A  |INSTR-.EFEHL ***|
00000040: 2A 2A 2A 2A 2A 2A 2A 2A  2A 1B 59 00 8E 1C 02 00  |*********.Y.....|
00000050: 99 22 20 20 C1 55 46 52  55 46 3A 20 20 20 05 53  |."  .UFRUF:   .S|
00000060: 59 53 49 41 2C 47 52 4F  53 53 20 3A 20 58 3D 49  |YSIA,GROSS : X=I|
00000070: 4E 53 54 52 28 53 54 52  49 4E 47 2C 54 45 53 54  |NSTR(STRING,TEST|
00000080: 53 54 52 49 4E 47 29 3A  20 53 59 53 49 42 00 CC  |STRING): SYSIB..|
00000090: 1C 03 00 99 22 09 09 9B  47 52 4F 53 53 3D 30 3A  |...."...GROSS=0:|
000000A0: 20 C7 52 4F 53 53 2D 20  55 4E 44 20 CB 4C 45 49  | .ROSS- UND .LEI|
000000B0: 4E 53 43 48 52 45 49 42  55 4E 47 20 42 45 52 55  |NSCHREIBUNG BERU|
000000C0: 45 43 4B 53 49 43 48 54  49 47 45 4E 00 0F 1D 04  |ECKSICHTIGEN....|
000000D0: 00 99 22 09 09 47 52 4F  53 53 3D 31 3A 20 C7 52  |.."..GROSS=1: .R|
000000E0: 4F 53 53 2D 20 55 4E 44  20 CB 4C 45 49 4E 53 43  |OSS- UND .LEINSC|
000000F0: 48 52 45 49 42 55 4E 47  20 4E 49 43 48 54 20 42  |HREIBUNG NICHT B|
00000100: 45 52 55 45 43 4B 53 49  43 48 54 49 47 45 4E 00  |ERUECKSICHTIGEN.|
00000110: 40 1D 05 00 99 22 09 09  D3 4F 4E 44 45 52 5A 45  |@...."...ONDERZE|
00000120: 49 43 48 45 4E 20 57 45  52 44 45 4E 20 49 4D 4D  |ICHEN WERDEN IMM|
00000130: 45 52 20 55 45 42 45 52  53 50 52 55 4E 47 45 4E  |ER UEBERSPRUNGEN|
00000140: 00 83 1D 06 00 99 22 09  20 20 20 20 05 53 59 53  |......".    .SYS|
00000150: 49 41 2B 32 2C 47 52 4F  53 53 2C 4D 41 53 4B 45  |IA+2,GROSS,MASKE|
00000160: 3A 20 58 3D 49 4E 53 54  52 28 53 54 52 49 4E 47  |: X=INSTR(STRING|
00000170: 2C 54 45 53 54 53 54 52  49 4E 47 29 3A 20 53 59  |,TESTSTRING): SY|
00000180: 53 49 42 00 C9 1D 07 00  99 22 09 09 9B CD 41 53  |SIB......"....AS|
00000190: 4B 45 20 44 49 45 4E 54  20 5A 55 4D 20 55 45 42  |KE DIENT ZUM UEB|
000001A0: 45 52 53 50 52 49 4E 47  45 4E 20 56 4F 4E 20 D3  |ERSPRINGEN VON .|
000001B0: 4F 4E 44 45 52 5A 45 49  43 48 45 4E 20 28 4E 4F  |ONDERZEICHEN (NO|
000001C0: 52 4D 41 4C 20 3D 33 32  29 00 06 1E 0A 00 99 22  |RMAL =32)......"|
000001D0: 11 9B 22 3A 97 31 35 37  2C 31 32 38 3A FE 11 22  |..":.157,128:.."|
000001E0: 49 4E 53 54 52 20 45 58  54 2A 22 3A 99 22 9F 91  |INSTR EXT*":."..|
000001F0: 91 91 91 1B 4A 1B 40 11  C2 45 49 53 50 49 45 4C  |....J.@..EISPIEL|
00000200: 45 3A 1B 4A 22 3B 00 26  1E 0B 00 49 41 B2 D1 28  |E:.J";.&...IA..(|
00000210: 22 46 30 30 22 29 3A 49  42 B2 D1 28 22 46 32 32  |"F00"):IB..("F22|
00000220: 22 29 3A 41 B2 30 00 44  1E 0C 00 47 B2 30 3A 49  |"):A.0.D...G.0:I|
00000230: 4E 24 B2 22 D4 45 53 54  22 3A 54 24 B2 22 54 22  |N$.".EST":T$."T"|
00000240: 3A 8D 37 30 00 62 1E 0D  00 47 B2 31 3A 49 4E 24  |:.70.b...G.1:IN$|
00000250: B2 22 D4 45 53 54 22 3A  54 24 B2 22 54 22 3A 8D  |.".EST":T$."T":.|
00000260: 37 30 00 90 1E 0E 00 47  B2 31 3A 49 4E 24 B2 22  |70.....G.1:IN$."|
00000270: C4 49 45 53 20 49 53 54  20 45 49 4E 20 D4 45 53  |.IES IST EIN .ES|
00000280: 54 22 3A 54 24 B2 22 54  3F 53 54 22 3A 8D 37 30  |T":T$."T?ST":.70|
00000290: 00 B5 1E 0F 00 47 B2 31  3A 49 4E 24 B2 22 9C 9E  |.....G.1:IN$."..|
000002A0: D4 45 02 53 1C 54 22 3A  54 24 B2 22 D4 45 53 54  |.E.S.T":T$.".EST|
000002B0: 22 3A 8D 37 30 00 D8 1E  10 00 47 B2 31 3A 49 4E  |":.70.....G.1:IN|
000002C0: 24 B2 22 9C 9E 0E 02 0F  D4 45 53 54 22 3A 54 24  |$."......EST":T$|
000002D0: B2 22 3F 22 3A 8D 37 30  00 02 1F 11 00 47 B2 31  |."?":.70.....G.1|
000002E0: 3A 4D B2 33 32 3A 49 4E  24 B2 22 0E 20 20 20 9F  |:M.32:IN$.".   .|
000002F0: 02 0F D4 45 53 54 22 3A  54 24 B2 22 3F 22 3A 8D  |...EST":T$."?":.|
00000300: 37 31 00 2C 1F 12 00 47  B2 31 3A 4D B2 33 33 3A  |71.,...G.1:M.33:|
00000310: 49 4E 24 B2 22 0E 20 20  20 9F 02 0F D4 45 53 54  |IN$.".   ....EST|
00000320: 22 3A 54 24 B2 22 3F 22  3A 8D 37 31 00 32 1F 13  |":T$."?":.71.2..|
00000330: 00 80 00 88 1F 46 00 99  22 0E 11 09 47 3D 22 C7  |.....F.."...G=".|
00000340: 28 32 37 29 47 22 3A 09  09 49 4E 53 54 52 28 22  |(27)G":..INSTR("|
00000350: C7 28 33 34 29 49 4E 24  C7 28 33 34 29 22 2C 22  |.(34)IN$.(34)","|
00000360: C7 28 33 34 29 54 24 C7  28 33 34 29 22 29 3D 22  |.(34)T$.(34)")="|
00000370: 3B 3A 9E 49 41 2C 47 3A  99 D4 28 49 4E 24 2C 54  |;:.IA,G:..(IN$,T|
00000380: 24 29 3A 9E 49 42 3A 8E  00 EE 1F 47 00 99 22 0E  |$):.IB:....G..".|
00000390: 11 09 47 3D 22 C7 28 32  37 29 47 22 9D 2C 20 4D  |..G=".(27)G"., M|
000003A0: 3D 22 C7 28 32 37 29 4D  22 3A 09 49 4E 53 54 52  |=".(27)M":.INSTR|
000003B0: 28 22 C7 28 33 34 29 49  4E 24 C7 28 33 34 29 22  |(".(34)IN$.(34)"|
000003C0: 2C 22 C7 28 33 34 29 54  24 C7 28 33 34 29 22 29  |,".(34)T$.(34)")|
000003D0: 3D 22 3B 3A 9E 49 41 AA  32 2C 47 2C 4D 3A 99 D4  |=";:.IA.2,G,M:..|
000003E0: 28 49 4E 24 2C 54 24 29  3A 9E 49 42 3A 8E 00 00  |(IN$,T$):.IB:...|
000003F0: 00                                                |.               |

..K....".....          ************* ERW
EITETER INSTR-BEFEHL ************.Y.....
."  AUFRUF:   .SYSIA,GROSS : X=INSTR(STR
ING,TESTSTRING): SYSIB.L...."...GROSS=0:
 GROSS- UND KLEINSCHREIBUNG BERUECKSICHT
IGEN......"..GROSS=1: GROSS- UND KLEINSC
HREIBUNG NICHT BERUECKSICHTIGEN.@...."..
SONDERZEICHEN WERDEN IMMER UEBERSPRUNGEN
......".    .SYSIA+2,GROSS,MASKE: X=INST
R(STRING,TESTSTRING): SYSIB.I...."...MAS
KE DIENT ZUM UEBERSPRINGEN VON SONDERZEI
CHEN (NORMAL =32)......"..":.157,128:.."
INSTR EXT*":."......J.@.BEISPIELE:.J";.&
...IA.Q("F00"):IB.Q("F22"):A.0.D...G.0:I
N$."TEST":T$."T":.70.B...G.1:IN$."TEST":
T$."T":.70.....G.1:IN$."DIES IST EIN TES
T":T$."T?ST":.70.....G.1:IN$."..TE.S.T":
T$."TEST":.70.X...G.1:IN$.".....TEST":T$
."?":.70.....G.1:M.32:IN$.".   ...TEST":
T$."?":.71.,...G.1:M.33:IN$.".   ...TEST
":T$."?":.71.2.......F.."...G="G(27)G":.
.INSTR("G(34)IN$G(34)","G(34)T$G(34)")="
;:.IA,G:.T(IN$,T$):.IB:....G.."...G="G(2
7)G"., M="G(27)M":.INSTR("G(34)IN$G(34)"
,"G(34)T$G(34)")=";:.IA.2,G,M:.T(IN$,T$)
:.IB:....

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL