00000000: 01 1C 08 1C 0A 00 DE 35 00 4A 1C 0B 00 85 22 53 |.......5.J...."S|
00000010: 54 41 52 54 41 44 52 45 53 20 22 3B 53 41 24 3A |TARTADRES ";SA$:|
00000020: 8B 20 CA 28 53 41 24 2C 31 2C 31 29 B2 22 24 22 |. .(SA$,1,1)."$"|
00000030: A7 53 41 B2 D1 28 C9 28 53 41 24 2C 34 29 29 3A |.SA..(.(SA$,4)):|
00000040: D5 53 41 B2 C5 28 53 41 24 29 00 8C 1C 0C 00 85 |.SA..(SA$)......|
00000050: 22 45 49 4E 44 41 44 52 45 53 20 20 22 3B 45 41 |"EINDADRES ";EA|
00000060: 24 3A 8B 20 CA 28 45 41 24 2C 31 2C 31 29 B2 22 |$:. .(EA$,1,1)."|
00000070: 24 22 A7 45 41 B2 D1 28 C9 28 45 41 24 2C 34 29 |$".EA..(.(EA$,4)|
00000080: 29 3A D5 45 41 B2 C5 28 45 41 24 29 00 BF 1C 0E |):.EA..(EA$)....|
00000090: 00 85 22 31 20 52 45 47 45 4C 4E 52 2E 20 22 3B |.."1 REGELNR. ";|
000000A0: 5A 4E 3A 85 22 53 54 41 50 20 47 52 4F 54 45 20 |ZN:."STAP GROTE |
000000B0: 22 3B 53 57 3A 8B 5A 4E B3 31 30 30 A7 31 34 00 |";SW:.ZN.100.14.|
000000C0: DF 1C 10 00 99 C7 28 31 34 37 29 3B 5A 4E 3B 22 |......(147);ZN;"|
000000D0: 46 4F 52 49 3D 22 53 41 22 54 4F 22 45 41 22 00 |FORI="SA"TO"EA".|
000000E0: 1F 1D 12 00 5A 4E B2 5A 4E AA 53 57 3A 99 5A 4E |....ZN.ZN.SW:.ZN|
000000F0: 3B 22 52 45 41 44 20 41 24 3A 50 4F 4B 45 20 49 |;"READ A$:POKE I|
00000100: 2C 44 45 43 28 41 24 29 22 3A 5A 4E B2 5A 4E AA |,DEC(A$)":ZN.ZN.|
00000110: 53 57 3A 99 5A 4E 3B 22 4E 45 58 54 20 49 22 00 |SW:.ZN;"NEXT I".|
00000120: 34 1D 14 00 5A 4E B2 5A 4E AA 53 57 3A 99 5A 4E |4...ZN.ZN.SW:.ZN|
00000130: 3B 22 3A 22 00 43 1D 16 00 99 22 47 4F 54 4F 20 |;":".C...."GOTO |
00000140: 32 36 22 00 6B 1D 18 00 97 38 34 32 2C 31 39 3A |26".k....842,19:|
00000150: 81 49 B2 31 A4 35 3A 97 38 34 32 AA 49 2C 31 33 |.I.1.5:.842.I,13|
00000160: 3A 82 3A 97 32 30 38 2C 36 3A 80 00 86 1D 1A 00 |:.:.208,6:......|
00000170: 5A 4E B2 5A 4E AA 53 57 3A E8 3A 99 5A 4E 3B 22 |ZN.ZN.SW:.:.ZN;"|
00000180: 44 41 54 41 22 3B 00 96 1D 1C 00 81 49 B2 53 41 |DATA";......I.SA|
00000190: A4 53 41 AA 31 34 00 AD 1D 1E 00 99 C9 28 D2 28 |.SA.14.......(.(|
000001A0: C2 28 49 29 29 2C 32 29 AA 22 2C 22 3B 00 BB 1D |.(I)),2).",";...|
000001B0: 20 00 82 49 3A 99 C7 28 32 30 29 00 E0 1D 22 00 | ..I:..(20)...".|
000001C0: 99 22 53 41 3D 22 53 41 22 3A 45 41 3D 22 45 41 |."SA="SA":EA="EA|
000001D0: 22 3A 53 57 3D 22 53 57 22 3A 5A 4E 3D 22 5A 4E |":SW="SW":ZN="ZN|
000001E0: 00 16 1E 24 00 99 22 11 11 47 4F 54 4F 33 38 22 |...$.."..GOTO38"|
000001F0: 3A 97 20 38 34 32 2C 31 39 3A 81 54 B2 31 A4 33 |:. 842,19:.T.1.3|
00000200: 3A 97 38 34 32 AA 54 2C 31 33 3A 82 3A 97 20 32 |:.842.T,13:.:. 2|
00000210: 30 38 2C 35 3A 80 00 2E 1E 26 00 53 41 B2 53 41 |08,5:....&.SA.SA|
00000220: AA 31 35 3A 8B 53 41 B3 45 41 A7 20 32 36 00 5B |.15:.SA.EA. 26.[|
00000230: 1E 28 00 E8 3A 99 22 44 45 4C 45 54 45 2D 39 39 |.(..:."DELETE-99|
00000240: 22 3A 97 38 34 32 2C 31 39 3A 97 20 38 34 33 2C |":.842,19:. 843,|
00000250: 31 33 3A 97 32 30 38 2C 32 3A 80 00 00 00 |13:.208,2:.... |
.......5.J...."STARTADRES ";SA$:. J(SA$,
1,1)."$".SA.Q(I(SA$,4)):USA.E(SA$)......
"EINDADRES ";EA$:. J(EA$,1,1)."$".EA.Q(
I(EA$,4)):UEA.E(EA$)......"1 REGELNR. ";
ZN:."STAP GROTE ";SW:.ZN.100.14......G(1
47);ZN;"FORI="SA"TO"EA".....ZN.ZN.SW:.ZN
;"READ A$:POKE I,DEC(A$)":ZN.ZN.SW:.ZN;"
NEXT I".4...ZN.ZN.SW:.ZN;":".C...."GOTO
26".K....842,19:.I.1.5:.842.I,13:.:.208,
6:......ZN.ZN.SW:.:.ZN;"DATA";......I.SA
.SA.14......I(R(B(I)),2).",";... ..I:.G(
20)...".."SA="SA":EA="EA":SW="SW":ZN="ZN
...$.."..GOTO38":. 842,19:.T.1.3:.842.T,
13:.:. 208,5:....&.SA.SA.15:.SA.EA. 26.[
.(..:."DELETE-99":.842,19:. 843,13:.208,
2:....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL