/ 64'er 1987 August / 64er_Magazin_87-08_1987_Markt__Technik_de_Side_A.d64 / search.src

< prev

next >

view JSON data

view as text

open on a Mac

open on a PC

+--------+-------------------------+-------------------------+--------+--------+
|00000000| d8 1f f7 1f 64 00 3b 2a | 2a 2a 2a 2a 2a 2a 2a 2a |....d.;*|********|
|00000010| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000020| 00 16 20 6e 00 3b 2a 20 | 20 20 20 20 53 55 43 48 |.. n.;* |    SUCH|
|00000030| 52 4f 55 54 49 4e 45 20 | 20 20 20 20 20 20 2a 00 |ROUTINE |      *.|
|00000040| 35 20 78 00 3b 2a 20 28 | 43 29 20 53 41 49 44 20 |5 x.;* (|C) SAID |
|00000050| 42 41 4c 4f 55 49 2c 20 | 31 39 38 37 20 2a 00 54 |BALOUI, |1987 *.T|
|00000060| 20 82 00 3b 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a | ..;****|********|
|00000070| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 00 5a 20 |********|*****.Z |
|00000080| 8c 00 3b 00 60 20 96 00 | 3b 00 66 20 a0 00 3b 00 |..;.` ..|;.f ..;.|
|00000090| 8c 20 aa 00 3b 46 55 4e | 4b 54 49 4f 4e 3a 20 53 |. ..;FUN|KTION: S|
|000000a0| 55 43 48 54 20 49 4e 20 | 45 49 4e 45 4d 20 53 54 |UCHT IN |EINEM ST|
|000000b0| 52 49 4e 47 2d 00 ae 20 | b4 00 3b 41 52 52 41 59 |RING-.. |..;ARRAY|
|000000c0| 20 44 49 45 20 41 4e 47 | 45 47 2e 5a 45 49 43 48 | DIE ANG|EG.ZEICH|
|000000d0| 45 4e 4b 45 54 54 45 00 | b4 20 be 00 3b 00 d6 20 |ENKETTE.|. ..;.. |
|000000e0| c8 00 3b 41 55 46 52 55 | 46 3a 20 53 59 53 20 58 |..;AUFRU|F: SYS X|
|000000f0| 2c 53 55 43 48 4b 52 49 | 54 45 52 49 55 4d 2c 00 |,SUCHKRI|TERIUM,.|
|00000100| f7 20 d2 00 3b 20 20 20 | 20 20 20 20 20 53 55 43 |. ..;   |     SUC|
|00000110| 48 45 20 41 42 2c 53 55 | 43 48 45 20 42 49 53 2c |HE AB,SU|CHE BIS,|
|00000120| 00 1b 21 dc 00 3b 20 20 | 20 20 20 20 20 20 55 45 |..!..;  |      UE|
|00000130| 42 45 52 47 41 42 45 56 | 41 52 2e 28 49 4e 54 45 |BERGABEV|AR.(INTE|
|00000140| 47 45 52 29 00 21 21 e6 | 00 3b 00 45 21 f0 00 3b |GER).!!.|.;.E!..;|
|00000150| 53 55 43 48 4b 52 49 54 | 2e 3a 20 2d 41 42 4b 55 |SUCHKRIT|.: -ABKU|
|00000160| 45 52 5a 45 4e 20 28 22 | 4d 41 49 2a 22 29 00 6b |ERZEN ("|MAI*").k|
|00000170| 21 fa 00 3b 20 20 20 20 | 20 20 20 20 20 20 20 2d |!..;    |       -|
|00000180| 4d 41 53 4b 49 45 52 45 | 4e 20 28 22 4d 3f 41 3f |MASKIERE|N ("M?A?|
|00000190| 45 52 22 29 00 91 21 04 | 01 3b 20 20 20 20 20 20 |ER")..!.|.;      |
|000001a0| 20 20 20 20 20 2d 4b 4f | 4d 42 49 4e 49 45 52 45 |     -KO|MBINIERE|
|000001b0| 4e 20 28 22 4d 3f 49 2a | 22 29 00 b7 21 0e 01 3b |N ("M?I*|")..!..;|
|000001c0| 53 55 43 48 45 20 41 42 | 2f 42 49 53 3a 20 55 4e |SUCHE AB|/BIS: UN|
|000001d0| 54 45 52 45 2f 4f 42 45 | 52 45 20 47 52 45 4e 2d |TERE/OBE|RE GREN-|
|000001e0| 00 dd 21 18 01 3b 20 20 | 20 20 20 20 20 20 20 20 |..!..;  |        |
|000001f0| 20 20 20 20 5a 45 20 44 | 45 53 20 5a 55 20 44 55 |    ZE D|ES ZU DU|
|00000200| 52 43 48 53 55 2d 00 01 | 22 22 01 3b 20 20 20 20 |RCHSU-..|"".;    |
|00000210| 20 20 20 20 20 20 20 20 | 20 20 53 55 43 48 45 4e |        |  SUCHEN|
|00000220| 44 45 4e 20 41 52 52 41 | 59 53 00 24 22 2c 01 3b |DEN ARRA|YS.$",.;|
|00000230| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 28 41 |        |      (A|
|00000240| 24 28 31 30 29 2c 41 24 | 28 33 32 29 29 00 4a 22 |$(10),A$|(32)).J"|
|00000250| 36 01 3b 55 45 42 45 52 | 47 2e 56 41 52 2e 3a 20 |6.;UEBER|G.VAR.: |
|00000260| 49 4e 54 45 47 45 52 56 | 41 52 2e 2c 20 49 4e 20 |INTEGERV|AR., IN |
|00000270| 44 45 52 00 77 22 40 01 | 3b 20 20 20 20 20 20 20 |DER.w"@.|;       |
|00000280| 20 20 20 20 20 20 44 45 | 52 20 49 4e 44 45 58 20 |      DE|R INDEX |
|00000290| 45 49 4e 45 53 20 47 45 | 46 55 4e 44 45 4e 45 4e |EINES GE|FUNDENEN|
|000002a0| 00 a1 22 4a 01 3b 20 20 | 20 20 20 20 20 20 20 20 |.."J.;  |        |
|000002b0| 20 20 20 53 54 52 49 4e | 47 53 20 55 45 42 45 52 |   STRIN|GS UEBER|
|000002c0| 47 45 42 45 4e 20 57 49 | 52 44 00 c7 22 54 01 3b |GEBEN WI|RD.."T.;|
|000002d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 28 30 3d |        |     (0=|
|000002e0| 53 55 43 48 45 20 45 52 | 46 4f 4c 47 4c 4f 53 29 |SUCHE ER|FOLGLOS)|
|000002f0| 00 cd 22 5e 01 3b 00 f2 | 22 68 01 3b 42 53 50 2e |.."^.;..|"h.;BSP.|
|00000300| 3a 20 53 59 53 20 58 2c | 53 24 2c 41 24 28 30 29 |: SYS X,|S$,A$(0)|
|00000310| 2c 41 24 28 31 30 30 29 | 2c 50 25 00 16 23 72 01 |,A$(100)|,P%..#r.|
|00000320| 3b 20 20 20 20 20 20 44 | 55 52 43 48 53 55 43 48 |;      D|URCHSUCH|
|00000330| 54 20 41 24 28 30 29 2d | 41 24 28 31 30 30 29 00 |T A$(0)-|A$(100).|
|00000340| 3c 23 7c 01 3b 20 20 20 | 20 20 20 4e 41 43 48 20 |<#|.;   |   NACH |
|00000350| 53 24 20 55 2e 55 45 42 | 45 52 47 49 42 54 20 52 |S$ U.UEB|ERGIBT R|
|00000360| 45 53 55 4c 54 00 4d 23 | 86 01 3b 20 20 20 20 20 |ESULT.M#|..;     |
|00000370| 20 49 4e 20 50 25 00 53 | 23 90 01 3b 00 59 23 9a | IN P%.S|#..;.Y#.|
|00000380| 01 3b 00 5f 23 a4 01 3b | 00 72 23 ae 01 3b 2a 2a |.;._#..;|.r#..;**|
|00000390| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 00 85 23 b8 01 |********|***..#..|
|000003a0| 3b 2a 2a 2a 20 4c 41 42 | 45 4c 20 2a 2a 2a 00 98 |;*** LAB|EL ***..|
|000003b0| 23 c2 01 3b 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |#..;****|********|
|000003c0| 2a 00 c0 23 cc 01 3b 20 | 20 20 20 20 20 20 20 20 |*..#..; |        |
|000003d0| 20 20 20 20 20 20 20 20 | 20 20 20 3b 50 52 4f 47 |        |   ;PROG|
|000003e0| 52 41 4d 4d 53 54 41 52 | 54 00 ce 23 d6 01 2e 42 |RAMMSTAR|T..#...B|
|000003f0| 41 20 24 43 30 43 30 00 | d4 23 e0 01 3b 00 fa 23 |A $C0C0.|.#..;..#|
|00000400| ea 01 2e 45 51 20 43 48 | 4b 4b 4f 4d 20 20 3d 24 |...EQ CH|KKOM  =$|
|00000410| 41 45 46 44 20 20 20 3b | 4c 49 45 53 54 20 4b 4f |AEFD   ;|LIEST KO|
|00000420| 4d 4d 41 00 26 24 f4 01 | 2e 45 51 20 47 45 54 42 |MMA.&$..|.EQ GETB|
|00000430| 59 54 20 20 3d 24 42 37 | 39 45 20 20 20 3b 4c 49 |YT  =$B7|9E   ;LI|
|00000440| 45 53 54 20 31 2d 42 59 | 54 45 2d 57 45 52 54 00 |EST 1-BY|TE-WERT.|
|00000450| 5a 24 fe 01 2e 45 51 20 | 47 45 54 50 4f 53 20 20 |Z$...EQ |GETPOS  |
|00000460| 3d 24 42 30 38 42 20 20 | 20 3b 48 4f 4c 54 20 50 |=$B08B  | ;HOLT P|
|00000470| 4f 49 4e 54 45 52 20 41 | 55 46 20 56 41 52 49 41 |OINTER A|UF VARIA|
|00000480| 42 4c 45 00 91 24 08 02 | 2e 45 51 20 46 52 4d 4e |BLE..$..|.EQ FRMN|
|00000490| 55 4d 20 20 3d 24 41 44 | 38 41 20 20 20 3b 4c 49 |UM  =$AD|8A   ;LI|
|000004a0| 45 53 54 20 4e 55 2e 41 | 55 53 44 52 55 43 4b 20 |EST NU.A|USDRUCK |
|000004b0| 49 4e 20 46 41 41 43 20 | 45 49 4e 00 c4 24 12 02 |IN FAAC |EIN..$..|
|000004c0| 2e 45 51 20 41 44 52 46 | 4f 52 20 20 3d 24 42 37 |.EQ ADRF|OR  =$B7|
|000004d0| 46 37 20 20 20 3b 57 41 | 4e 44 45 4c 54 20 46 41 |F7   ;WA|NDELT FA|
|000004e0| 43 20 4e 41 43 48 20 49 | 4e 54 45 47 45 52 00 06 |C NACH I|NTEGER..|
|000004f0| 25 1c 02 2e 45 51 20 43 | 48 52 47 45 54 20 20 3d |%...EQ C|HRGET  =|
|00000500| 24 37 33 20 20 20 20 20 | 3b 49 4e 4b 52 45 4d 2e |$73     |;INKREM.|
|00000510| 54 45 58 54 50 54 52 20 | 55 2e 48 4f 4c 54 20 41 |TEXTPTR |U.HOLT A|
|00000520| 4b 54 55 45 4c 4c 45 53 | 20 5a 45 49 43 48 45 4e |KTUELLES| ZEICHEN|
|00000530| 00 37 25 26 02 2e 45 51 | 20 43 48 52 47 4f 54 20 |.7%&..EQ| CHRGOT |
|00000540| 20 3d 24 37 39 20 20 20 | 20 20 3b 48 4f 4c 54 20 | =$79   |  ;HOLT |
|00000550| 41 4b 54 55 45 4c 4c 45 | 53 20 5a 45 49 43 48 45 |AKTUELLE|S ZEICHE|
|00000560| 4e 00 68 25 30 02 2e 45 | 51 20 54 45 58 54 50 54 |N.h%0..E|Q TEXTPT|
|00000570| 52 20 3d 24 37 41 20 20 | 20 20 20 3b 50 4f 49 4e |R =$7A  |   ;POIN|
|00000580| 54 45 52 20 41 55 46 20 | 42 41 53 49 43 2d 54 45 |TER AUF |BASIC-TE|
|00000590| 58 54 00 6e 25 3a 02 3b | 00 91 25 44 02 3b 2a 50 |XT.n%:.;|..%D.;*P|
|000005a0| 4f 49 4e 54 45 52 20 41 | 55 46 20 53 54 52 49 4e |OINTER A|UF STRIN|
|000005b0| 47 44 45 53 43 52 49 50 | 54 2e 2a 00 cc 25 4e 02 |GDESCRIP|T.*..%N.|
|000005c0| 2e 45 51 20 53 55 43 48 | 20 20 20 3d 24 41 37 20 |.EQ SUCH|   =$A7 |
|000005d0| 20 20 20 20 20 3b 50 54 | 52 2e 41 41 55 46 20 44 |     ;PT|R.AAUF D|
|000005e0| 45 53 43 52 2e 56 2e 53 | 55 43 48 4b 52 49 54 2e |ESCR.V.S|UCHKRIT.|
|000005f0| 2d 53 54 52 49 4e 47 00 | 07 26 58 02 2e 45 51 20 |-STRING.|.&X..EQ |
|00000600| 45 4e 44 45 20 20 20 3d | 24 41 39 20 20 20 20 20 |ENDE   =|$A9     |
|00000610| 20 3b 50 54 52 2e 41 55 | 46 20 44 45 53 43 52 2e | ;PTR.AU|F DESCR.|
|00000620| 56 2e 41 52 52 41 59 53 | 54 52 49 4e 47 28 4d 49 |V.ARRAYS|TRING(MI|
|00000630| 4e 29 00 42 26 62 02 2e | 45 51 20 53 54 41 52 54 |N).B&b..|EQ START|
|00000640| 20 20 3d 24 41 42 20 20 | 20 20 20 20 3b 50 54 52 |  =$AB  |    ;PTR|
|00000650| 2e 41 55 46 20 44 45 53 | 43 52 2e 56 2e 41 52 52 |.AUF DES|CR.V.ARR|
|00000660| 41 59 53 54 52 49 4e 47 | 28 4d 41 58 29 00 74 26 |AYSTRING|(MAX).t&|
|00000670| 6c 02 2e 45 51 20 49 4e | 54 56 41 52 20 3d 24 34 |l..EQ IN|TVAR =$4|
|00000680| 37 20 20 20 20 20 20 3b | 50 54 52 2e 41 55 46 20 |7      ;|PTR.AUF |
|00000690| 49 4e 54 45 47 45 52 56 | 41 52 49 41 42 4c 45 00 |INTEGERV|ARIABLE.|
|000006a0| 7a 26 76 02 3b 00 93 26 | 80 02 3b 2a 53 54 52 49 |z&v.;..&|..;*STRI|
|000006b0| 4e 47 44 45 53 52 49 50 | 54 4f 52 45 4e 2a 00 ca |NGDESRIP|TOREN*..|
|000006c0| 26 8a 02 2e 45 51 20 53 | 55 43 48 44 45 53 20 3d |&...EQ S|UCHDES =|
|000006d0| 24 42 34 20 20 20 20 20 | 3b 44 45 53 43 52 2e 20 |$B4     |;DESCR. |
|000006e0| 44 45 53 20 53 55 43 48 | 4b 52 49 54 2e 2d 53 54 |DES SUCH|KRIT.-ST|
|000006f0| 52 49 4e 47 53 00 0b 27 | 94 02 2e 45 51 20 41 4b |RINGS..'|...EQ AK|
|00000700| 54 44 45 53 20 20 3d 24 | 46 42 20 20 20 20 20 3b |TDES  =$|FB     ;|
|00000710| 44 44 45 53 43 52 2e 20 | 44 45 53 20 41 4b 54 55 |DDESCR. |DES AKTU|
|00000720| 45 4c 4c 45 4e 20 56 45 | 52 47 4c 45 49 43 48 53 |ELLEN VE|RGLEICHS|
|00000730| 53 54 52 49 4e 47 53 00 | 11 27 9e 02 3b 00 28 27 |STRINGS.|.'..;.('|
|00000740| a8 02 3b 2a 53 4f 4e 53 | 54 49 47 45 20 4c 41 42 |..;*SONS|TIGE LAB|
|00000750| 20 45 4c 2a 00 62 27 b2 | 02 2e 45 51 20 4c 45 4e | EL*.b'.|..EQ LEN|
|00000760| 46 4c 41 47 20 20 3d 24 | 30 33 33 34 20 20 3b 24 |FLAG  =$|0334  ;$|
|00000770| 30 30 3d 56 4f 4c 4c 56 | 45 52 47 4c 45 49 43 48 |00=VOLLV|ERGLEICH|
|00000780| 3b 24 46 46 3d 41 42 4b | 55 45 52 5a 45 4e 00 8d |;$FF=ABK|UERZEN..|
|00000790| 27 bc 02 2e 45 51 20 50 | 52 55 45 46 4c 45 4e 20 |'...EQ P|RUEFLEN |
|000007a0| 3d 24 30 33 33 35 20 20 | 3b 56 45 52 47 4c 45 49 |=$0335  |;VERGLEI|
|000007b0| 43 48 53 4c 41 45 4e 47 | 45 00 cb 27 c6 02 2e 45 |CHSLAENG|E..'...E|
|000007c0| 51 20 45 4c 45 4d 4e 52 | 20 20 20 3d 24 30 33 33 |Q ELEMNR|   =$033|
|000007d0| 36 20 20 3b 4e 52 2e 44 | 45 53 20 41 4b 54 55 45 |6  ;NR.D|ES AKTUE|
|000007e0| 45 4c 4c 45 4e 20 56 45 | 52 47 4c 45 49 43 48 53 |ELLEN VE|RGLEICHS|
|000007f0| 53 54 52 49 4e 47 53 00 | e3 27 d0 02 2e 45 51 20 |STRINGS.|.'...EQ |
|00000800| 48 45 4c 50 20 20 20 20 | 20 3d 24 30 33 33 38 00 |HELP    | =$0338.|
|00000810| e9 27 da 02 3b 00 ef 27 | e4 02 3b 00 f5 27 ee 02 |.'..;..'|..;..'..|
|00000820| 3b 00 12 28 f8 02 3b 2a | 2a 2a 2a 2a 2a 2a 2a 2a |;..(..;*|********|
|00000830| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 00 2f |********|******./|
|00000840| 28 02 03 3b 2a 2a 2a 20 | 49 4e 49 54 49 41 4c 49 |(..;*** |INITIALI|
|00000850| 53 49 45 52 55 4e 47 20 | 2a 2a 2a 00 4c 28 0c 03 |SIERUNG |***.L(..|
|00000860| 3b 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |;*******|********|
|00000870| 2a 2a 2a 2a 2a 2a 2a 2a | 00 52 28 16 03 3b 00 76 |********|.R(..;.v|
|00000880| 28 20 03 3b 2a 50 4f 49 | 4e 54 45 52 20 41 55 46 |( .;*POI|NTER AUF|
|00000890| 20 53 55 43 48 4b 52 49 | 54 2e 2d 44 45 53 43 52 | SUCHKRI|T.-DESCR|
|000008a0| 2e 2a 00 98 28 2a 03 20 | 4a 53 52 43 48 4b 4b 4f |.*..(*. |JSRCHKKO|
|000008b0| 4d 3b 53 55 43 48 28 2b | 31 29 20 3d 20 50 4f 49 |M;SUCH(+|1) = POI|
|000008c0| 4e 54 45 52 00 b8 28 34 | 03 20 4a 53 52 47 45 54 |NTER..(4|. JSRGET|
|000008d0| 50 4f 53 3b 41 55 46 20 | 44 45 53 43 52 49 50 54 |POS;AUF |DESCRIPT|
|000008e0| 4f 52 45 4e 00 da 28 3e | 03 20 53 54 41 53 55 43 |OREN..(>|. STASUC|
|000008f0| 48 3b 44 45 53 20 53 55 | 43 48 4b 52 49 54 2e 53 |H;DES SU|CHKRIT.S|
|00000900| 54 52 49 4e 47 53 00 e9 | 28 48 03 20 53 54 59 53 |TRINGS..|(H. STYS|
|00000910| 55 43 48 2b 31 00 ef 28 | 52 03 3b 00 f5 28 5c 03 |UCH+1..(|R.;..(\.|
|00000920| 3b 00 13 29 66 03 3b 2a | 53 55 43 48 44 45 53 43 |;..)f.;*|SUCHDESC|
|00000930| 52 49 50 54 4f 52 45 4e | 20 48 4f 4c 45 4e 2a 00 |RIPTOREN| HOLEN*.|
|00000940| 3b 29 70 03 20 4c 44 59 | 23 24 30 32 3b 53 55 43 |;)p. LDY|#$02;SUC|
|00000950| 48 44 45 53 28 2b 32 29 | 20 3d 20 44 45 53 43 52 |HDES(+2)| = DESCR|
|00000960| 49 50 54 4f 52 45 4e 00 | 68 29 7a 03 47 45 54 53 |IPTOREN.|h)z.GETS|
|00000970| 55 43 48 20 4c 44 41 28 | 53 55 43 48 29 2c 59 3b |UCH LDA(|SUCH),Y;|
|00000980| 44 45 53 20 53 55 43 48 | 4b 52 49 54 2e 53 54 52 |DES SUCH|KRIT.STR|
|00000990| 49 4e 47 53 00 7a 29 84 | 03 20 53 54 41 53 55 43 |INGS.z).|. STASUC|
|000009a0| 48 44 45 53 2c 59 00 83 | 29 8e 03 20 44 45 59 00 |HDES,Y..|).. DEY.|
|000009b0| 93 29 98 03 20 42 50 4c | 47 45 54 53 55 43 48 00 |.).. BPL|GETSUCH.|
|000009c0| 99 29 a2 03 3b 00 9f 29 | ac 03 3b 00 ba 29 b6 03 |.)..;..)|..;..)..|
|000009d0| 3b 2a 45 4c 45 4d 45 4e | 54 4e 55 4d 4d 45 52 20 |;*ELEMEN|TNUMMER |
|000009e0| 48 4f 4c 45 4e 2a 00 ca | 29 c0 03 20 4c 44 41 54 |HOLEN*..|).. LDAT|
|000009f0| 45 58 54 50 54 52 00 d3 | 29 ca 03 20 50 48 41 00 |EXTPTR..|).. PHA.|
|00000a00| e5 29 d4 03 20 4c 44 41 | 54 45 58 54 50 54 52 2b |.).. LDA|TEXTPTR+|
|00000a10| 31 00 ee 29 de 03 20 50 | 48 41 00 f4 29 e8 03 3b |1..).. P|HA..)..;|
|00000a20| 00 1e 2a f2 03 56 4f 52 | 57 41 45 52 54 53 20 4a |..*..VOR|WAERTS J|
|00000a30| 53 52 43 48 52 47 45 54 | 3b 45 4c 45 4d 4e 52 28 |SRCHRGET|;ELEMNR(|
|00000a40| 2b 31 29 3d 4e 55 4d 4d | 45 52 00 40 2a fc 03 20 |+1)=NUMM|ER.@*.. |
|00000a50| 43 4d 50 23 22 28 22 3b | 44 45 52 20 41 52 52 41 |CMP#"(";|DER ARRA|
|00000a60| 59 55 4e 54 45 52 47 52 | 45 4e 5a 45 00 52 2a 06 |YUNTERGR|ENZE.R*.|
|00000a70| 04 20 42 4e 45 56 4f 52 | 57 41 45 52 54 53 00 58 |. BNEVOR|WAERTS.X|
|00000a80| 2a 10 04 3b 00 67 2a 1a | 04 20 4a 53 52 46 52 4d |*..;.g*.|. JSRFRM|
|00000a90| 4e 55 4d 00 76 2a 24 04 | 20 4a 53 52 41 44 52 46 |NUM.v*$.| JSRADRF|
|00000aa0| 4f 52 00 85 2a 2e 04 20 | 53 54 59 45 4c 45 4d 4e |OR..*.. |STYELEMN|
|00000ab0| 52 00 96 2a 38 04 20 53 | 54 41 45 4c 45 4d 4e 52 |R..*8. S|TAELEMNR|
|00000ac0| 2b 31 00 9c 2a 42 04 3b | 00 a5 2a 4c 04 20 50 4c |+1..*B.;|..*L. PL|
|00000ad0| 41 00 b7 2a 56 04 20 53 | 54 41 54 45 58 54 50 54 |A..*V. S|TATEXTPT|
|00000ae0| 52 2b 31 00 c0 2a 60 04 | 20 50 4c 41 00 d0 2a 6a |R+1..*`.| PLA..*j|
|00000af0| 04 20 53 54 41 54 45 58 | 54 50 54 52 00 d6 2a 74 |. STATEX|TPTR..*t|
|00000b00| 04 3b 00 dc 2a 7e 04 3b | 00 02 2b 88 04 3b 2a 50 |.;..*~.;|..+..;*P|
|00000b10| 4f 49 4e 54 45 52 20 41 | 55 46 20 53 54 52 49 4e |OINTER A|UF STRIN|
|00000b20| 47 44 45 53 43 52 2e 20 | 48 4f 4c 45 4e 2a 00 11 |GDESCR. |HOLEN*..|
|00000b30| 2b 92 04 20 4a 53 52 43 | 48 4b 4b 4f 4d 00 36 2b |+.. JSRC|HKKOM.6+|
|00000b40| 9c 04 20 4a 53 52 47 45 | 54 50 4f 53 3b 53 54 41 |.. JSRGE|TPOS;STA|
|00000b50| 52 54 28 2b 31 29 3d 50 | 4f 49 4e 54 45 52 20 41 |RT(+1)=P|OINTER A|
|00000b60| 55 46 00 55 2b a6 04 20 | 53 54 41 53 54 41 52 54 |UF.U+.. |STASTART|
|00000b70| 3b 44 45 53 43 52 49 50 | 54 4f 52 45 4e 20 56 4f |;DESCRIP|TOREN VO|
|00000b80| 4e 00 76 2b b0 04 20 53 | 54 59 53 54 41 52 54 2b |N.v+.. S|TYSTART+|
|00000b90| 31 3b 41 52 52 41 59 53 | 54 52 49 4e 47 28 4d 49 |1;ARRAYS|TRING(MI|
|00000ba0| 4e 29 00 7c 2b ba 04 3b | 00 a0 2b c4 04 20 4a 53 |N).|+..;|..+.. JS|
|00000bb0| 52 43 48 4b 4b 4f 4d 3b | 45 4e 44 45 28 2b 31 29 |RCHKKOM;|ENDE(+1)|
|00000bc0| 3d 50 4f 49 4e 54 45 52 | 20 41 55 46 00 c0 2b ce |=POINTER| AUF..+.|
|00000bd0| 04 20 4a 53 52 47 45 54 | 50 4f 53 3b 44 45 53 43 |. JSRGET|POS;DESC|
|00000be0| 52 49 50 54 4f 52 45 4e | 20 56 4f 4e 00 de 2b d8 |RIPTOREN| VON..+.|
|00000bf0| 04 20 53 54 41 45 4e 44 | 45 3b 41 52 52 41 59 53 |. STAEND|E;ARRAYS|
|00000c00| 54 52 49 4e 47 28 4d 41 | 58 29 00 ed 2b e2 04 20 |TRING(MA|X)..+.. |
|00000c10| 53 54 59 45 4e 44 45 2b | 31 00 f3 2b ec 04 3b 00 |STYENDE+|1..+..;.|
|00000c20| f9 2b f6 04 3b 00 ff 2b | 00 05 3b 00 1a 2c 0a 05 |.+..;..+|..;..,..|
|00000c30| 3b 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |;*******|********|
|00000c40| 2a 2a 2a 2a 2a 2a 00 35 | 2c 14 05 3b 2a 2a 2a 20 |******.5|,..;*** |
|00000c50| 48 41 55 50 54 50 52 4f | 47 52 41 4d 4d 20 2a 2a |HAUPTPRO|GRAMM **|
|00000c60| 2a 00 50 2c 1e 05 3b 2a | 2a 2a 2a 2a 2a 2a 2a 2a |*.P,..;*|********|
|00000c70| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 00 56 2c 28 |********|****.V,(|
|00000c80| 05 3b 00 78 2c 32 05 3b | 2a 56 45 52 47 4c 45 49 |.;.x,2.;|*VERGLEI|
|00000c90| 43 48 53 4c 41 45 4e 47 | 45 20 45 52 4d 49 54 54 |CHSLAENG|E ERMITT|
|00000ca0| 45 4c 4e 2a 00 a2 2c 3c | 05 20 4c 44 41 23 24 30 |ELN*..,<|. LDA#$0|
|00000cb0| 30 3b 4c 45 4e 46 4c 41 | 47 3a 20 24 30 30 3d 4b |0;LENFLA|G: $00=K|
|00000cc0| 45 49 4e 20 41 42 4b 55 | 45 52 5a 45 4e 2c 00 c0 |EIN ABKU|ERZEN,..|
|00000cd0| 2c 46 05 20 53 54 41 4c | 45 4e 46 4c 41 47 3b 24 |,F. STAL|ENFLAG;$|
|00000ce0| 46 46 3d 41 42 4b 55 45 | 52 5a 45 4e 00 e8 2c 50 |FF=ABKUE|RZEN..,P|
|00000cf0| 05 20 4c 44 59 53 55 43 | 48 44 45 53 3b 50 52 55 |. LDYSUC|HDES;PRU|
|00000d00| 45 46 4c 45 4e 3a 20 45 | 4e 54 48 41 45 4c 54 20 |EFLEN: E|NTHAELT |
|00000d10| 42 45 49 4d 00 07 2d 5a | 05 20 53 54 59 50 52 55 |BEIM..-Z|. STYPRU|
|00000d20| 45 46 4c 45 4e 3b 41 42 | 4b 55 45 52 5a 45 4e 20 |EFLEN;AB|KUERZEN |
|00000d30| 44 49 45 00 1f 2d 64 05 | 20 44 45 59 3b 53 54 52 |DIE..-d.| DEY;STR|
|00000d40| 49 4e 47 4c 41 45 4e 47 | 45 2d 31 00 45 2d 6e 05 |INGLAENG|E-1.E-n.|
|00000d50| 20 4c 44 41 28 53 55 43 | 48 44 45 53 2b 31 29 2c | LDA(SUC|HDES+1),|
|00000d60| 59 3b 28 4f 48 4e 45 22 | 2a 22 29 2c 53 4f 4e 53 |Y;(OHNE"|*"),SONS|
|00000d70| 54 00 69 2d 78 05 20 43 | 4d 50 23 22 2a 22 3b 44 |T.i-x. C|MP#"*";D|
|00000d80| 49 45 20 45 43 48 54 45 | 20 53 54 52 49 4e 47 4c |IE ECHTE| STRINGL|
|00000d90| 41 45 4e 47 45 00 8b 2d | 82 05 20 42 4e 45 47 45 |AENGE..-|.. BNEGE|
|00000da0| 54 44 45 53 3b 56 45 52 | 47 4c 45 49 43 48 20 50 |TDES;VER|GLEICH P|
|00000db0| 4f 53 49 54 49 56 2c 00 | ad 2d 8c 05 20 44 45 43 |OSITIV,.|.-.. DEC|
|00000dc0| 4c 45 4e 46 4c 41 47 3b | 57 45 4e 4e 20 22 2a 22 |LENFLAG;|WENN "*"|
|00000dd0| 20 45 49 4e 5a 49 47 45 | 53 00 ca 2d 96 05 20 44 | EINZIGE|S..-.. D|
|00000de0| 45 43 50 52 55 45 46 4c | 45 4e 3b 5a 45 49 43 48 |ECPRUEFL|EN;ZEICH|
|00000df0| 45 4e 20 49 53 54 00 d0 | 2d a0 05 3b 00 d6 2d aa |EN IST..|-..;..-.|
|00000e00| 05 3b 00 fa 2d b4 05 3b | 2a 41 4b 54 55 45 4c 4c |.;..-..;|*AKTUELL|
|00000e10| 45 4e 20 53 54 52 49 4e | 47 44 45 53 43 52 2e 20 |EN STRIN|GDESCR. |
|00000e20| 48 4f 4c 45 4e 2a 00 25 | 2e be 05 47 45 54 44 45 |HOLEN*.%|...GETDE|
|00000e30| 53 20 4c 44 59 23 24 30 | 32 3b 41 4b 54 44 45 53 |S LDY#$0|2;AKTDES|
|00000e40| 28 2b 32 29 3d 44 45 53 | 43 52 49 50 54 4f 52 45 |(+2)=DES|CRIPTORE|
|00000e50| 4e 00 53 2e c8 05 47 45 | 54 44 45 53 31 20 4c 44 |N.S...GE|TDES1 LD|
|00000e60| 41 28 53 54 41 52 54 29 | 2c 59 3b 56 4f 4e 20 41 |A(START)|,Y;VON A|
|00000e70| 52 52 41 59 53 54 52 49 | 4e 47 28 4d 49 4e 29 00 |RRAYSTRI|NG(MIN).|
|00000e80| 64 2e d2 05 20 53 54 41 | 41 4b 54 44 45 53 2c 59 |d... STA|AKTDES,Y|
|00000e90| 00 6d 2e dc 05 20 44 45 | 59 00 7d 2e e6 05 20 42 |.m... DE|Y.}... B|
|00000ea0| 50 4c 47 45 54 44 45 53 | 31 00 83 2e f0 05 3b 00 |PLGETDES|1.....;.|
|00000eb0| 89 2e fa 05 3b 00 a7 2e | 04 06 3b 2a 53 4f 4e 44 |....;...|..;*SOND|
|00000ec0| 45 52 46 41 45 4c 4c 45 | 20 42 45 48 41 4e 44 45 |ERFAELLE| BEHANDE|
|00000ed0| 4c 4e 2a 00 b8 2e 0e 06 | 20 4c 44 41 50 52 55 45 |LN*.....| LDAPRUE|
|00000ee0| 46 4c 45 4e 00 dd 2e 18 | 06 20 20 42 45 51 50 4f |FLEN....|.  BEQPO|
|00000ef0| 53 49 54 49 56 3b 31 29 | 56 45 52 47 4c 45 49 43 |SITIV;1)|VERGLEIC|
|00000f00| 48 20 50 4f 53 49 54 49 | 56 2c 00 0e 2f 22 06 3b |H POSITI|V,../".;|
|00000f10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000f20| 20 20 20 20 20 20 20 20 | 20 57 45 4e 4e 20 50 52 |        | WENN PR|
|00000f30| 55 45 46 4c 41 45 4e 47 | 45 3d 30 00 1d 2f 2c 06 |UEFLAENG|E=0../,.|
|00000f40| 20 43 4d 50 41 4b 54 44 | 45 53 00 3b 2f 36 06 20 | CMPAKTD|ES.;/6. |
|00000f50| 50 48 50 3b 32 29 56 45 | 52 47 4c 45 49 43 48 20 |PHP;2)VE|RGLEICH |
|00000f60| 4e 45 47 41 54 49 56 2c | 00 5e 2f 40 06 20 4c 44 |NEGATIV,|.^/@. LD|
|00000f70| 41 4c 45 4e 46 4c 41 47 | 3b 57 45 4e 4e 20 22 2a |ALENFLAG|;WENN "*|
|00000f80| 22 20 45 4e 54 48 41 4c | 54 45 4e 00 82 2f 4a 06 |" ENTHAL|TEN../J.|
|00000f90| 20 42 45 51 4e 4f 53 54 | 45 52 4e 3b 55 4e 44 20 | BEQNOST|ERN;UND |
|00000fa0| 56 45 52 4c 45 49 43 48 | 53 53 54 52 49 4e 47 00 |VERLEICH|SSTRING.|
|00000fb0| 9d 2f 54 06 20 50 4c 50 | 3b 4e 49 43 48 54 20 4c |./T. PLP|;NICHT L|
|00000fc0| 41 45 4e 47 45 52 20 41 | 4c 53 00 d0 2f 5e 06 3b |AENGER A|LS../^.;|
|00000fd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000fe0| 20 20 20 20 20 20 20 20 | 20 53 55 43 48 4b 52 49 |        | SUCHKRI|
|00000ff0| 54 45 52 49 55 4d 53 53 | 54 52 49 4e 47 00 f3 2f |TERIUMSS|TRING../|
|00001000| 68 06 20 42 43 53 4e 45 | 58 54 53 54 52 3b 55 2e |h. BCSNE|XTSTR;U.|
|00001010| 41 4b 54 55 45 4c 4c 45 | 4d 20 53 54 52 49 4e 47 |AKTUELLE|M STRING|
|00001020| 00 03 30 72 06 20 42 43 | 43 50 52 55 45 46 45 4e |..0r. BC|CPRUEFEN|
|00001030| 00 36 30 7c 06 3b 20 20 | 20 20 20 20 20 20 20 20 |.60|.;  |        |
|00001040| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 33 |        |       3|
|00001050| 29 56 45 52 47 4c 45 49 | 43 48 20 4e 45 47 41 54 |)VERGLEI|CH NEGAT|
|00001060| 49 56 2c 00 5e 30 86 06 | 4e 4f 53 54 45 52 4e 20 |IV,.^0..|NOSTERN |
|00001070| 50 4c 50 3b 57 45 4e 4e | 20 4b 45 49 4e 20 22 2a |PLP;WENN| KEIN "*|
|00001080| 22 20 45 4e 54 48 41 4c | 54 45 4e 00 80 30 90 06 |" ENTHAL|TEN..0..|
|00001090| 20 42 4e 45 4e 45 58 54 | 53 54 52 3b 55 4e 44 20 | BNENEXT|STR;UND |
|000010a0| 53 54 52 49 4e 47 4c 41 | 45 4e 47 45 4e 00 ae 30 |STRINGLA|ENGEN..0|
|000010b0| 9a 06 3b 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |..;     |        |
|000010c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 55 4e 54 45 |        |    UNTE|
|000010d0| 52 53 43 48 49 45 44 4c | 49 43 48 00 b4 30 a4 06 |RSCHIEDL|ICH..0..|
|000010e0| 3b 00 cb 30 ae 06 3b 2a | 53 54 52 49 4e 47 56 45 |;..0..;*|STRINGVE|
|000010f0| 52 47 4c 45 49 43 48 2a | 00 ed 30 b8 06 50 52 55 |RGLEICH*|..0..PRU|
|00001100| 45 46 45 4e 20 4c 44 59 | 23 24 30 30 3b 5a 45 49 |EFEN LDY|#$00;ZEI|
|00001110| 43 48 45 4e 57 45 49 53 | 45 52 00 1e 31 c2 06 50 |CHENWEIS|ER..1..P|
|00001120| 52 55 45 46 4c 4f 4f 50 | 50 20 4c 44 41 28 53 55 |RUEFLOOP|P LDA(SU|
|00001130| 43 48 44 45 53 2b 31 29 | 2c 59 3b 56 45 52 47 4c |CHDES+1)|,Y;VERGL|
|00001140| 45 49 43 48 20 42 49 53 | 20 5a 55 52 00 37 31 cc |EICH BIS| ZUR.71.|
|00001150| 06 20 43 4d 50 23 22 3f | 22 3b 50 52 55 45 46 4c |. CMP#"?|";PRUEFL|
|00001160| 41 45 4e 47 45 00 5d 31 | d6 06 20 20 42 45 51 4e |AENGE.]1|..  BEQN|
|00001170| 45 58 54 43 48 41 52 3b | 28 22 3f 22 20 49 53 54 |EXTCHAR;|("?" IST|
|00001180| 20 49 4d 4d 45 52 20 4f | 4b 41 59 29 00 7c 31 e0 | IMMER O|KAY).|1.|
|00001190| 06 20 43 4d 50 28 41 4b | 54 44 45 53 2b 31 29 2c |. CMP(AK|TDES+1),|
|000011a0| 59 3b 56 45 52 47 4c 2e | 49 53 54 00 9a 31 ea 06 |Y;VERGL.|IST..1..|
|000011b0| 20 42 4e 45 4e 45 58 54 | 53 54 52 3b 4e 45 47 41 | BNENEXT|STR;NEGA|
|000011c0| 54 49 56 2c 20 57 45 4e | 4e 00 bd 31 f4 06 4e 45 |TIV, WEN|N..1..NE|
|000011d0| 58 54 43 48 41 52 20 49 | 4e 59 3b 45 49 4e 20 5a |XTCHAR I|NY;EIN Z|
|000011e0| 45 49 43 48 45 4e 20 4e | 49 43 48 54 00 dd 31 fe |EICHEN N|ICHT..1.|
|000011f0| 06 20 43 50 59 50 52 55 | 45 46 4c 45 4e 3b 55 45 |. CPYPRU|EFLEN;UE|
|00001200| 42 45 52 45 49 4e 53 54 | 49 4d 4d 54 00 ef 31 08 |BEREINST|IMMT..1.|
|00001210| 07 20 42 43 43 50 52 55 | 45 46 4c 4f 4f 50 00 08 |. BCCPRU|EFLOOP..|
|00001220| 32 12 07 50 4f 53 42 52 | 41 4e 43 48 20 42 45 51 |2..POSBR|ANCH BEQ|
|00001230| 50 4f 53 49 54 49 56 00 | 0e 32 1c 07 3b 00 14 32 |POSITIV.|.2..;..2|
|00001240| 26 07 3b 00 38 32 30 07 | 3b 2a 50 4f 49 4e 54 45 |&.;.820.|;*POINTE|
|00001250| 52 20 41 55 46 20 4e 45 | 58 54 53 54 52 49 4e 47 |R AUF NE|XTSTRING|
|00001260| 44 45 53 43 52 2e 2a 00 | 4d 32 3a 07 4e 45 58 54 |DESCR.*.|M2:.NEXT|
|00001270| 53 54 52 20 4c 44 41 53 | 54 41 52 54 00 62 32 44 |STR LDAS|TART.b2D|
|00001280| 07 20 43 4c 43 3b 50 4f | 49 4e 54 45 52 20 41 55 |. CLC;PO|INTER AU|
|00001290| 46 00 80 32 4e 07 20 41 | 44 43 23 24 30 33 3b 4e |F..2N. A|DC#$03;N|
|000012a0| 41 45 43 48 53 54 45 4e | 20 53 54 52 49 4e 47 00 |AECHSTEN| STRING.|
|000012b0| a1 32 58 07 20 53 54 41 | 53 54 41 52 54 3b 53 45 |.2X. STA|START;SE|
|000012c0| 54 5a 45 4e 20 28 3d 41 | 4b 54 55 45 4c 4c 45 52 |TZEN (=A|KTUELLER|
|000012d0| 00 bb 32 62 07 20 42 43 | 43 49 4e 43 4e 52 3b 50 |..2b. BC|CINCNR;P|
|000012e0| 4f 49 4e 54 45 52 20 2b | 33 29 00 cb 32 6c 07 20 |OINTER +|3)..2l. |
|000012f0| 49 4e 43 53 54 41 52 54 | 2b 31 00 d1 32 76 07 3b |INCSTART|+1..2v.;|
|00001300| 00 d7 32 80 07 3b 00 f7 | 32 8a 07 3b 2a 45 4c 45 |..2..;..|2..;*ELE|
|00001310| 4d 45 4e 54 4e 52 2e 49 | 4e 4b 52 45 4d 45 4e 54 |MENTNR.I|NKREMENT|
|00001320| 49 45 52 45 4e 2a 00 0b | 33 94 07 49 4e 43 4e 52 |IEREN*..|3..INCNR|
|00001330| 20 49 4e 43 45 4c 45 4d | 4e 52 00 29 33 9e 07 20 | INCELEM|NR.)3.. |
|00001340| 42 4e 45 43 4f 4d 50 50 | 54 52 3b 45 4c 45 4d 45 |BNECOMPP|TR;ELEME|
|00001350| 4e 54 4e 52 2c 20 55 4d | 00 48 33 a8 07 20 49 4e |NTNR, UM|.H3.. IN|
|00001360| 43 45 4c 45 4d 4e 52 2b | 31 3b 45 49 4e 53 20 45 |CELEMNR+|1;EINS E|
|00001370| 52 48 4f 45 48 45 4e 00 | 4e 33 b2 07 3b 00 54 33 |RHOEHEN.|N3..;.T3|
|00001380| bc 07 3b 00 78 33 c6 07 | 3b 2a 50 4f 49 4e 54 45 |..;.x3..|;*POINTE|
|00001390| 52 20 4d 49 54 20 45 4e | 44 45 20 56 45 52 47 4c |R MIT EN|DE VERGL|
|000013a0| 45 49 43 48 45 4e 2a 00 | 8f 33 d0 07 43 4f 4d 50 |EICHEN*.|.3..COMP|
|000013b0| 50 54 52 20 4c 44 41 53 | 54 41 52 54 2b 31 00 b1 |PTR LDAS|TART+1..|
|000013c0| 33 da 07 20 43 4d 50 45 | 4e 44 45 2b 31 3b 53 55 |3.. CMPE|NDE+1;SU|
|000013d0| 43 48 45 20 49 53 54 20 | 42 45 45 4e 44 45 54 2c |CHE IST |BEENDET,|
|000013e0| 00 d0 33 e4 07 20 42 43 | 43 47 45 54 44 45 53 3b |..3.. BC|CGETDES;|
|000013f0| 57 45 4e 4e 20 28 53 54 | 41 52 54 28 2b 31 29 00 |WENN (ST|ART(+1).|
|00001400| eb 33 ee 07 20 4c 44 41 | 53 54 41 52 54 3b 47 52 |.3.. LDA|START;GR|
|00001410| 4f 45 53 53 45 52 20 49 | 53 54 00 05 34 f8 07 20 |OESSER I|ST..4.. |
|00001420| 43 4d 50 45 4e 44 45 3b | 41 4c 53 20 45 4e 44 45 |CMPENDE;|ALS ENDE|
|00001430| 28 2b 31 29 00 14 34 02 | 08 20 42 43 43 47 45 54 |(+1)..4.|. BCCGET|
|00001440| 44 45 53 00 23 34 0c 08 | 20 42 45 51 47 45 54 44 |DES.#4..| BEQGETD|
|00001450| 45 53 00 29 34 16 08 3b | 00 2f 34 20 08 3b 00 49 |ES.)4..;|./4 .;.I|
|00001460| 34 2a 08 3b 2a 56 45 52 | 47 4c 45 49 43 48 20 4e |4*.;*VER|GLEICH N|
|00001470| 45 47 41 54 54 49 56 2a | 00 5d 34 34 08 4e 45 47 |EGATTIV*|.]44.NEG|
|00001480| 41 54 49 56 20 4c 44 41 | 23 24 30 30 00 79 34 3e |ATIV LDA|#$00.y4>|
|00001490| 08 20 53 54 41 45 4c 45 | 4d 4e 52 3b 45 4c 45 4d |. STAELE|MNR;ELEM|
|000014a0| 45 4e 54 4e 52 2e 3d 30 | 00 8a 34 48 08 20 53 54 |ENTNR.=0|..4H. ST|
|000014b0| 41 45 4c 45 4d 4e 52 2b | 31 00 90 34 52 08 3b 00 |AELEMNR+|1..4R.;.|
|000014c0| 96 34 5c 08 3b 00 af 34 | 66 08 3b 2a 56 45 52 47 |.4\.;..4|f.;*VERG|
|000014d0| 4c 45 49 43 48 20 50 4f | 53 49 54 49 56 2a 00 dd |LEICH PO|SITIV*..|
|000014e0| 34 70 08 50 4f 53 49 54 | 49 56 20 4a 53 52 43 48 |4p.POSIT|IV JSRCH|
|000014f0| 4b 4b 4f 4d 3b 50 4f 49 | 4e 54 45 52 20 41 55 46 |KKOM;POI|NTER AUF|
|00001500| 20 49 4e 54 45 47 45 52 | 56 41 52 2e 00 02 35 7a | INTEGER|VAR...5z|
|00001510| 08 20 4a 53 52 47 45 54 | 50 4f 53 3b 4e 41 43 48 |. JSRGET|POS;NACH|
|00001520| 20 49 4e 54 56 41 52 28 | 2b 31 29 20 48 4f 4c 45 | INTVAR(|+1) HOLE|
|00001530| 4e 00 08 35 84 08 3b 00 | 27 35 8e 08 20 4c 44 58 |N..5..;.|'5.. LDX|
|00001540| 45 4c 45 4d 4e 52 3b 45 | 4c 45 4d 45 4e 54 4e 52 |ELEMNR;E|LEMENTNR|
|00001550| 2e 4c 41 44 45 4e 00 38 | 35 98 08 20 4c 44 41 45 |.LADEN.8|5.. LDAE|
|00001560| 4c 45 4d 4e 52 2b 31 00 | 3e 35 a2 08 3b 00 44 35 |LEMNR+1.|>5..;.D5|
|00001570| ac 08 3b 00 5f 35 b6 08 | 3b 2a 45 52 47 45 42 4e |..;._5..|;*ERGEBN|
|00001580| 49 49 53 20 55 45 42 45 | 52 47 45 42 45 4e 2a 00 |IIS UEBE|RGEBEN*.|
|00001590| 70 35 c0 08 42 41 43 4b | 20 4c 44 59 23 24 30 30 |p5..BACK| LDY#$00|
|000015a0| 00 8e 35 ca 08 20 53 54 | 41 28 49 4e 54 56 41 52 |..5.. ST|A(INTVAR|
|000015b0| 29 2c 59 3b 45 4c 45 4d | 45 4e 54 4e 52 2e 00 a7 |),Y;ELEM|ENTNR...|
|000015c0| 35 d4 08 20 49 4e 59 3b | 49 4e 20 44 49 45 20 49 |5.. INY;|IN DIE I|
|000015d0| 4e 54 45 47 45 52 2d 00 | b9 35 de 08 20 54 58 41 |NTEGER-.|.5.. TXA|
|000015e0| 3b 56 41 52 49 41 42 4c | 45 00 d5 35 e8 08 20 53 |;VARIABL|E..5.. S|
|000015f0| 54 41 28 49 4e 54 56 41 | 52 29 2c 59 3b 4b 4f 50 |TA(INTVA|R),Y;KOP|
|00001600| 49 45 52 45 4e 00 e7 35 | f2 08 20 52 54 53 3b 3d |IEREN..5|.. RTS;=|
|00001610| 3e 20 42 41 53 49 43 00 | 00 00                   |> BASIC.|..      |
+--------+-------------------------+-------------------------+--------+--------+