Multiple names: HILFSROUTINEN, 11.HILFSROUTINEN

FILE INFORMATION

FILENAME(S):
• HILFSROUTINEN<br>• 11.HILFSROUTINEN

FILE TYPE(S): PRG

FILE SIZE: 3.5K

FIRST SEEN: 2025-11-30 01:08:00

APPEARS ON: 4 disk(s)

FILE HASH

38b4842c07961577f6146ea0f0503c7e34c2ae929717f1615ac699a8ed426d04

FOUND ON DISKS (4 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
FREEWARE DISK NR	HILFSROUTINEN	PRG	Treasure Chest - Wolfgang Rauprich	22	4	DOWNLOAD FILE
U TILITIE	HILFSROUTINEN	PRG	Treasure Chest - Wolfgang Rauprich	22	4	DOWNLOAD FILE
U TILITES	11.HILFSROUTINEN	PRG	Treasure Chest - Wolfgang Rauprich	34	0	DOWNLOAD FILE
FREEWARE DISK NR	11.HILFSROUTINEN	PRG	Treasure Chest - Wolfgang Rauprich	34	0	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 17 08 0A 00 97 35  33 32 38 30 2C 30 3A 97  |.......53280,0:.|
00000010: 35 33 32 38 31 2C 30 00  49 08 0F 00 44 24 B2 22  |53281,0.I...D$."|
00000020: C3 C3 C3 C3 C3 C3 C3 C3  C3 C3 C3 C3 C3 C3 C3 C3  |................|
00000030: C3 C3 C3 C3 C3 C3 C3 C3  C3 C3 C3 C3 C3 C3 C3 C3  |................|
00000040: C3 C3 C3 C3 C3 C3 C3 C3  22 00 7B 08 14 00 99 22  |........".{...."|
00000050: 93 D5 C3 C3 C3 C3 C3 C3  C3 C3 C3 C3 C3 C3 C3 C3  |................|
00000060: C3 C3 C3 C3 C3 C3 C3 C3  C3 C3 C3 C3 C3 C3 C3 C3  |................|
00000070: C3 C3 C3 C3 C3 C3 C3 C3  C9 22 3B 00 AE 08 1E 00  |.........";.....|
00000080: 99 22 C2 12 20 20 20 50  52 4F 47 52 41 4D 4D 20  |."..   PROGRAMM |
00000090: 2D 20 48 49 4C 46 53 52  4F 55 54 49 4E 45 4E 20  |- HILFSROUTINEN |
000000A0: 20 20 56 43 20 36 34 20  20 20 92 C2 22 3B 00 DE  |  VC 64   ..";..|
000000B0: 08 2D 00 99 22 CA C3 C3  C3 C3 C3 C3 C3 C3 C3 C3  |.-.."...........|
000000C0: C3 C3 C3 C3 C3 C3 C3 C3  C3 C3 C3 C3 C3 C3 C3 C3  |................|
000000D0: C3 C3 C3 C3 C3 C3 C3 C3  C3 C3 C3 C3 CB 22 00 01  |............."..|
000000E0: 09 32 00 99 22 11 3C 12  20 31 20 92 3E 20 20 50  |.2..".<. 1 .>  P|
000000F0: 52 4F 47 52 41 4D 4D 20  2D 20 53 43 48 55 54 5A  |ROGRAMM - SCHUTZ|
00000100: 22 00 2C 09 3C 00 99 22  11 3C 12 20 32 20 92 3E  |".,.<..".<. 2 .>|
00000110: 20 20 50 52 4F 47 52 41  4D 4D 20 2D 20 56 45 52  |  PROGRAMM - VER|
00000120: 42 45 53 53 45 52 55 4E  47 45 4E 22 00 50 09 46  |BESSERUNGEN".P.F|
00000130: 00 99 22 11 3C 12 20 33  20 92 3E 20 20 46 4C 4F  |..".<. 3 .>  FLO|
00000140: 50 50 59 20 20 20 2D 20  41 42 46 52 41 47 45 22  |PPY   - ABFRAGE"|
00000150: 00 74 09 50 00 99 22 11  3C 12 20 34 20 92 3E 20  |.t.P..".<. 4 .> |
00000160: 20 50 52 49 4E 54 45 52  20 20 2D 20 41 42 46 52  | PRINTER  - ABFR|
00000170: 41 47 45 22 00 98 09 51  00 99 22 11 3C 12 20 45  |AGE"...Q..".<. E|
00000180: 20 92 3E 20 20 50 52 4F  47 52 41 4D 4D 20 20 20  | .>  PROGRAMM   |
00000190: 42 45 45 4E 44 45 4E 22  00 DD 09 5A 00 81 49 B2  |BEENDEN"...Z..I.|
000001A0: 31 A4 31 30 3A 99 22 13  11 11 11 11 11 11 11 11  |1.10:.".........|
000001B0: 11 11 11 11 11 11 11 11  11 11 20 20 20 20 20 20  |..........      |
000001C0: 20 20 20 42 49 54 54 45  20 5A 49 46 46 45 52 20  |   BITTE ZIFFER |
000001D0: 57 41 45 48 4C 45 4E 20  21 20 22 3A 82 00 24 0A  |WAEHLEN ! ":..$.|
000001E0: 64 00 81 49 B2 31 A4 31  30 3A 99 22 13 11 11 11  |d..I.1.10:."....|
000001F0: 11 11 11 11 11 11 11 11  11 11 11 11 11 11 11 20  |............... |
00000200: 20 20 20 20 20 20 20 12  20 42 49 54 54 45 20 5A  |       . BITTE Z|
00000210: 49 46 46 45 52 20 57 41  45 48 4C 45 4E 20 21 20  |IFFER WAEHLEN ! |
00000220: 92 22 3A 82 00 36 0A 6E  00 A1 45 24 3A 8B 45 24  |.":..6.n..E$:.E$|
00000230: B2 22 22 A7 39 30 00 46  0A 78 00 8B 45 24 B2 22  |."".90.F.x..E$."|
00000240: 31 22 A7 36 32 30 00 56  0A 82 00 8B 45 24 B2 22  |1".620.V....E$."|
00000250: 32 22 A7 33 36 30 00 66  0A 8C 00 8B 45 24 B2 22  |2".360.f....E$."|
00000260: 33 22 A7 31 37 30 00 76  0A 96 00 8B 45 24 B2 22  |3".170.v....E$."|
00000270: 34 22 A7 32 36 30 00 89  0A 9B 00 8B 45 24 B2 22  |4".260......E$."|
00000280: 45 22 A7 9E 36 34 37 36  37 00 92 0A A0 00 89 31  |E"..64767......1|
00000290: 31 30 00 BE 0A AA 00 99  22 93 49 4D 20 50 52 4F  |10......".IM PRO|
000002A0: 47 52 41 4D 4D 20 4D 55  45 53 53 45 4E 20 46 4F  |GRAMM MUESSEN FO|
000002B0: 4C 47 45 4E 44 45 20 5A  45 49 4C 45 4E 22 00 D2  |LGENDE ZEILEN"..|
000002C0: 0A B4 00 99 22 11 53 54  45 48 45 4E 3A 22 3A 99  |....".STEHEN:":.|
000002D0: 44 24 00 FC 0A BE 00 99  22 11 11 31 30 30 20 50  |D$......"..100 P|
000002E0: 4F 4B 45 37 36 38 2C 36  31 3A 4F 50 45 4E 31 2C  |OKE768,61:OPEN1,|
000002F0: 38 2C 31 35 3A 43 4C 4F  53 45 31 22 00 26 0B C8  |8,15:CLOSE1".&..|
00000300: 00 99 22 11 31 31 30 20  50 4F 4B 45 37 36 38 2C  |..".110 POKE768,|
00000310: 31 33 39 3A 49 46 53 54  3C 3E 2D 31 32 38 54 48  |139:IFST<>-128TH|
00000320: 45 4E 31 33 30 22 00 5E  0B D2 00 99 22 11 31 32  |EN130".^....".12|
00000330: 30 20 50 52 49 4E 54 22  C7 28 33 34 29 22 46 4C  |0 PRINT".(34)"FL|
00000340: 4F 50 50 59 20 41 55 53  47 45 53 43 48 41 4C 54  |OPPY AUSGESCHALT|
00000350: 45 54 22 C7 28 33 34 29  22 3A 45 4E 44 22 00 90  |ET".(34)":END"..|
00000360: 0B DC 00 99 22 11 31 33  30 20 50 52 49 4E 54 22  |....".130 PRINT"|
00000370: C7 28 33 34 29 22 46 4C  4F 50 50 59 20 45 49 4E  |.(34)"FLOPPY EIN|
00000380: 47 45 53 43 48 41 4C 54  45 54 22 C7 28 33 34 29  |GESCHALTET".(34)|
00000390: 00 BC 0B E6 00 99 22 11  31 34 30 20 50 52 49 4E  |......".140 PRIN|
000003A0: 54 22 C7 28 33 34 29 22  50 52 4F 47 52 41 4D 4D  |T".(34)"PROGRAMM|
000003B0: 2D 53 54 41 52 54 22 C7  28 33 34 29 00 E4 0B F0  |-START".(34)....|
000003C0: 00 99 A6 38 29 22 11 11  11 11 12 20 42 49 54 54  |...8)"..... BITT|
000003D0: 45 20 54 41 53 54 45 20  44 52 55 45 43 4B 45 4E  |E TASTE DRUECKEN|
000003E0: 20 21 20 22 00 01 0C FA  00 97 31 39 38 2C 30 3A  | ! "......198,0:|
000003F0: 92 31 39 38 2C 31 3A 97  31 39 38 2C 30 3A 89 31  |.198,1:.198,0:.1|
00000400: 30 00 2D 0C 04 01 99 22  93 49 4D 20 50 52 4F 47  |0.-....".IM PROG|
00000410: 52 41 4D 4D 20 4D 55 45  53 53 45 4E 20 46 4F 4C  |RAMM MUESSEN FOL|
00000420: 47 45 4E 44 45 20 5A 45  49 4C 45 4E 22 00 41 0C  |GENDE ZEILEN".A.|
00000430: 0E 01 99 22 11 53 54 45  48 45 4E 3A 22 3A 99 44  |...".STEHEN:":.D|
00000440: 24 00 70 0C 22 01 99 22  11 11 31 30 30 20 50 4F  |$.p.".."..100 PO|
00000450: 4B 45 37 36 38 2C 36 31  3A 4F 50 45 4E 31 2C 34  |KE768,61:OPEN1,4|
00000460: 3A 50 52 49 4E 54 23 31  3A 43 4C 4F 53 45 31 22  |:PRINT#1:CLOSE1"|
00000470: 00 9A 0C 2C 01 99 22 11  31 31 30 20 50 4F 4B 45  |...,..".110 POKE|
00000480: 37 36 38 2C 31 33 39 3A  49 46 53 54 3C 3E 2D 31  |768,139:IFST<>-1|
00000490: 32 38 54 48 45 4E 31 33  30 22 00 D3 0C 36 01 99  |28THEN130"...6..|
000004A0: 22 11 31 32 30 20 50 52  49 4E 54 22 C7 28 33 34  |".120 PRINT".(34|
000004B0: 29 22 44 52 55 43 4B 45  52 20 41 55 53 47 45 53  |)"DRUCKER AUSGES|
000004C0: 43 48 41 4C 54 45 54 22  C7 28 33 34 29 22 3A 45  |CHALTET".(34)":E|
000004D0: 4E 44 22 00 06 0D 40 01  99 22 11 31 33 30 20 50  |ND"...@..".130 P|
000004E0: 52 49 4E 54 22 C7 28 33  34 29 22 44 52 55 43 4B  |RINT".(34)"DRUCK|
000004F0: 45 52 20 45 49 4E 47 45  53 43 48 41 4C 54 45 54  |ER EINGESCHALTET|
00000500: 22 C7 28 33 34 29 00 32  0D 4A 01 99 22 11 31 34  |".(34).2.J..".14|
00000510: 30 20 50 52 49 4E 54 22  C7 28 33 34 29 22 50 52  |0 PRINT".(34)"PR|
00000520: 4F 47 52 41 4D 4D 2D 53  54 41 52 54 22 C7 28 33  |OGRAMM-START".(3|
00000530: 34 29 00 5A 0D 54 01 99  A6 38 29 22 11 11 11 11  |4).Z.T...8)"....|
00000540: 12 20 42 49 54 54 45 20  54 41 53 54 45 20 44 52  |. BITTE TASTE DR|
00000550: 55 45 43 4B 45 4E 20 21  20 22 00 77 0D 5E 01 97  |UECKEN ! ".w.^..|
00000560: 31 39 38 2C 30 3A 92 31  39 38 2C 31 3A 97 31 39  |198,0:.198,1:.19|
00000570: 38 2C 30 3A 89 31 30 00  9D 0D 68 01 99 22 93 20  |8,0:.10...h..". |
00000580: 20 20 20 20 20 20 20 20  20 20 56 45 52 42 45 53  |          VERBES|
00000590: 53 45 52 55 4E 47 20 4E  52 2E 20 31 22 00 BD 0D  |SERUNG NR. 1"...|
000005A0: 72 01 99 A6 31 33 29 22  11 11 5A 41 48 4C 45 4E  |r...13)"..ZAHLEN|
000005B0: 20 52 55 4E 44 45 4E 11  22 3A 99 44 24 00 02 0E  | RUNDEN.":.D$...|
000005C0: 86 01 99 22 11 31 30 30  20 41 3D 49 4E 54 28 5A  |...".100 A=INT(Z|
000005D0: 41 48 4C 2A 31 30 5E 41  4E 5A 2E 20 44 45 5A 2E  |AHL*10^ANZ. DEZ.|
000005E0: 53 54 45 4C 4C 45 4E 2B  2E 35 29 5E 20 20 20 20  |STELLEN+.5)^    |
000005F0: 20 41 4E 5A 2E 20 44 45  5A 2E 53 54 45 4C 4C 45  | ANZ. DEZ.STELLE|
00000600: 4E 22 00 16 0E 90 01 99  22 11 31 31 30 20 50 52  |N"......".110 PR|
00000610: 49 4E 54 20 41 22 00 3E  0E 9A 01 99 A6 38 29 22  |INT A".>.....8)"|
00000620: 11 11 11 11 12 20 42 49  54 54 45 20 54 41 53 54  |..... BITTE TAST|
00000630: 45 20 44 52 55 45 43 4B  45 4E 20 21 20 22 00 57  |E DRUECKEN ! ".W|
00000640: 0E A4 01 97 31 39 38 2C  30 3A 92 31 39 38 2C 31  |....198,0:.198,1|
00000650: 3A 97 31 39 38 2C 30 00  7D 0E AE 01 99 22 93 20  |:.198,0.}....". |
00000660: 20 20 20 20 20 20 20 20  20 20 56 45 52 42 45 53  |          VERBES|
00000670: 53 45 52 55 4E 47 20 4E  52 2E 20 32 22 00 9F 0E  |SERUNG NR. 2"...|
00000680: B8 01 99 A6 31 32 29 22  11 11 46 55 45 48 52 45  |....12)"..FUEHRE|
00000690: 4E 44 45 20 4E 55 4C 4C  45 4E 22 3A 99 44 24 00  |NDE NULLEN":.D$.|
000006A0: C3 0E C2 01 99 22 31 30  30 20 58 24 3D 52 49 47  |....."100 X$=RIG|
000006B0: 48 54 24 28 53 54 52 24  28 31 30 30 2B 41 29 2C  |HT$(STR$(100+A),|
000006C0: 32 29 22 00 D8 0E CC 01  99 22 11 31 31 30 20 50  |2)"......".110 P|
000006D0: 52 49 4E 54 20 58 24 22  00 F0 0E D6 01 99 22 11  |RINT X$"......".|
000006E0: 31 32 30 20 52 45 4D 20  58 24 20 3D 20 30 32 22  |120 REM X$ = 02"|
000006F0: 00 32 0F E0 01 99 22 11  31 33 30 20 52 45 4D 20  |.2....".130 REM |
00000700: 57 45 4E 4E 20 33 20 53  54 45 4C 4C 45 4E 2C 20  |WENN 3 STELLEN, |
00000710: 44 41 4E 4E 20 58 24 3D  52 49 47 48 54 24 28 53  |DANN X$=RIGHT$(S|
00000720: 20 20 20 20 54 52 24 28  31 30 30 30 2B 41 29 2C  |    TR$(1000+A),|
00000730: 33 29 00 4B 0F E5 01 99  22 11 31 34 30 20 52 45  |3).K....".140 RE|
00000740: 4D 20 58 24 20 3D 20 30  30 32 22 00 73 0F EA 01  |M X$ = 002".s...|
00000750: 99 A6 38 29 22 11 11 11  11 12 20 42 49 54 54 45  |..8)"..... BITTE|
00000760: 20 54 41 53 54 45 20 44  52 55 45 43 4B 45 4E 20  | TASTE DRUECKEN |
00000770: 21 20 22 00 8C 0F F4 01  97 31 39 38 2C 30 3A 92  |! "......198,0:.|
00000780: 31 39 38 2C 31 3A 97 31  39 38 2C 30 00 B2 0F FE  |198,1:.198,0....|
00000790: 01 99 22 93 20 20 20 20  20 20 20 20 20 20 20 56  |..".           V|
000007A0: 45 52 42 45 53 53 45 52  55 4E 47 20 4E 52 2E 20  |ERBESSERUNG NR. |
000007B0: 33 22 00 E1 0F 08 02 99  A6 35 29 22 11 11 5A 45  |3".......5)"..ZE|
000007C0: 49 4C 45 4E 20 41 55 46  20 42 49 4C 44 53 43 48  |ILEN AUF BILDSCH|
000007D0: 49 52 4D 20 4C 4F 45 53  43 48 45 4E 22 3A 99 44  |IRM LOESCHEN":.D|
000007E0: 24 00 0B 10 12 02 99 22  11 31 30 30 20 50 4F 4B  |$......".100 POK|
000007F0: 45 37 38 31 2C 5A 45 49  4C 45 4E 4E 55 4D 4D 45  |E781,ZEILENNUMME|
00000800: 52 3A 53 59 53 35 39 39  30 33 22 00 33 10 17 02  |R:SYS59903".3...|
00000810: 99 A6 38 29 22 11 11 11  11 12 20 42 49 54 54 45  |..8)"..... BITTE|
00000820: 20 54 41 53 54 45 20 44  52 55 45 43 4B 45 4E 20  | TASTE DRUECKEN |
00000830: 21 20 22 00 4C 10 1C 02  97 31 39 38 2C 30 3A 92  |! ".L....198,0:.|
00000840: 31 39 38 2C 31 3A 97 31  39 38 2C 30 00 72 10 26  |198,1:.198,0.r.&|
00000850: 02 99 22 93 20 20 20 20  20 20 20 20 20 20 20 56  |..".           V|
00000860: 45 52 42 45 53 53 45 52  55 4E 47 20 4E 52 2E 20  |ERBESSERUNG NR. |
00000870: 34 22 00 90 10 30 02 99  A6 31 34 29 22 11 11 52  |4"...0...14)"..R|
00000880: 45 53 45 54 20 4B 49 4C  4C 45 52 22 3A 99 44 24  |ESET KILLER":.D$|
00000890: 00 BA 10 3A 02 99 22 11  31 30 30 20 46 4F 52 49  |...:..".100 FORI|
000008A0: 3D 31 54 4F 39 3A 52 45  41 44 41 3A 50 4F 4B 45  |=1TO9:READA:POKE|
000008B0: 33 32 37 36 37 2B 49 2C  44 22 00 CC 10 44 02 99  |32767+I,D"...D..|
000008C0: 22 11 31 31 30 20 4E 45  58 54 49 22 00 F8 10 4E  |".110 NEXTI"...N|
000008D0: 02 99 22 11 31 32 30 20  44 41 54 41 30 2C 30 2C  |..".120 DATA0,0,|
000008E0: 32 35 35 2C 30 2C 31 39  35 2C 31 39 34 2C 32 30  |255,0,195,194,20|
000008F0: 35 2C 35 36 2C 34 38 22  00 20 11 58 02 99 A6 38  |5,56,48". .X...8|
00000900: 29 22 11 11 11 11 12 20  42 49 54 54 45 20 54 41  |)"..... BITTE TA|
00000910: 53 54 45 20 44 52 55 45  43 4B 45 4E 20 21 20 22  |STE DRUECKEN ! "|
00000920: 00 3D 11 62 02 97 31 39  38 2C 30 3A 92 31 39 38  |.=.b..198,0:.198|
00000930: 2C 31 3A 97 31 39 38 2C  30 3A 89 31 30 00 64 11  |,1:.198,0:.10.d.|
00000940: 6C 02 99 22 93 20 20 20  20 20 20 20 20 20 20 50  |l..".          P|
00000950: 52 4F 47 52 41 4D 4D 2D  53 43 48 55 54 5A 20 4E  |ROGRAMM-SCHUTZ N|
00000960: 52 2E 31 22 00 8A 11 76  02 99 A6 39 29 22 11 11  |R.1"...v...9)"..|
00000970: 50 52 4F 47 52 41 4D 4D  4B 49 4C 4C 45 52 20 50  |PROGRAMMKILLER P|
00000980: 4F 4B 45 27 53 22 3A 99  44 24 00 CB 11 80 02 99  |OKE'S":.D$......|
00000990: 22 11 50 4F 4B 45 20 37  37 36 2C 31 22 3A 99 22  |".POKE 776,1":."|
000009A0: 11 50 4F 4B 45 20 37 37  37 2C 31 22 3A 99 22 11  |.POKE 777,1":.".|
000009B0: 50 4F 4B 45 37 37 30 2C  30 22 3A 99 22 11 50 4F  |POKE770,0":.".PO|
000009C0: 4B 45 20 37 37 34 2C 32  32 36 22 00 E0 11 8A 02  |KE 774,226".....|
000009D0: 99 22 11 50 4F 4B 45 20  37 37 35 2C 32 35 32 22  |.".POKE 775,252"|
000009E0: 00 08 12 94 02 99 A6 38  29 22 11 11 11 11 12 20  |.......8)"..... |
000009F0: 42 49 54 54 45 20 54 41  53 54 45 20 44 52 55 45  |BITTE TASTE DRUE|
00000A00: 43 4B 45 4E 20 21 20 22  00 21 12 9E 02 97 31 39  |CKEN ! ".!....19|
00000A10: 38 2C 30 3A 92 31 39 38  2C 31 3A 97 31 39 38 2C  |8,0:.198,1:.198,|
00000A20: 30 00 48 12 A8 02 99 22  93 20 20 20 20 20 20 20  |0.H....".       |
00000A30: 20 20 20 50 52 4F 47 52  41 4D 4D 2D 53 43 48 55  |   PROGRAMM-SCHU|
00000A40: 54 5A 20 4E 52 2E 32 22  00 6B 12 B2 02 99 A6 31  |TZ NR.2".k.....1|
00000A50: 31 29 22 11 11 4C 49 53  54 53 43 48 55 54 5A 20  |1)"..LISTSCHUTZ |
00000A60: 50 4F 4B 45 27 53 22 3A  99 44 24 00 B5 12 BC 02  |POKE'S":.D$.....|
00000A70: 99 22 11 50 4F 4B 45 20  37 37 35 2C 32 30 30 22  |.".POKE 775,200"|
00000A80: 3A 99 22 11 50 4F 4B 45  20 37 37 33 2C 30 22 3A  |:.".POKE 773,0":|
00000A90: 99 22 11 50 4F 4B 45 20  37 37 35 2C 31 20 20 20  |.".POKE 775,1   |
00000AA0: 3A 20 52 45 4D 20 4C 49  53 54 53 43 48 55 54 5A  |: REM LISTSCHUTZ|
00000AB0: 20 45 49 4E 22 00 DF 12  C6 02 99 22 11 50 4F 4B  | EIN"......".POK|
00000AC0: 45 20 37 37 35 2C 31 37  36 20 3A 20 52 45 4D 20  |E 775,176 : REM |
00000AD0: 4C 49 53 54 53 43 48 55  54 5A 20 41 55 53 22 00  |LISTSCHUTZ AUS".|
00000AE0: 07 13 D0 02 99 A6 38 29  22 11 11 11 11 12 20 42  |......8)"..... B|
00000AF0: 49 54 54 45 20 54 41 53  54 45 20 44 52 55 45 43  |ITTE TASTE DRUEC|
00000B00: 4B 45 4E 20 21 20 22 00  20 13 DA 02 97 31 39 38  |KEN ! ". ....198|
00000B10: 2C 30 3A 92 31 39 38 2C  31 3A 97 31 39 38 2C 30  |,0:.198,1:.198,0|
00000B20: 00 47 13 E4 02 99 22 93  20 20 20 20 20 20 20 20  |.G....".        |
00000B30: 20 20 50 52 4F 47 52 41  4D 4D 2D 53 43 48 55 54  |  PROGRAMM-SCHUT|
00000B40: 5A 20 4E 52 2E 33 22 00  70 13 EE 02 99 A6 38 29  |Z NR.3".p.....8)|
00000B50: 22 11 11 50 52 4F 47 52  41 4D 4D 20 2D 20 4B 49  |"..PROGRAMM - KI|
00000B60: 4C 4C 45 52 20 50 4F 4B  45 27 53 22 3A 99 44 24  |LLER POKE'S":.D$|
00000B70: 00 96 13 F8 02 99 22 11  50 4F 4B 45 20 37 37 34  |......".POKE 774|
00000B80: 2C 32 32 36 22 3A 99 22  11 50 4F 4B 45 20 37 37  |,226":.".POKE 77|
00000B90: 35 2C 32 35 32 22 00 BE  13 02 03 99 A6 38 29 22  |5,252".......8)"|
00000BA0: 11 11 11 11 12 20 42 49  54 54 45 20 54 41 53 54  |..... BITTE TAST|
00000BB0: 45 20 44 52 55 45 43 4B  45 4E 20 21 20 22 00 D7  |E DRUECKEN ! "..|
00000BC0: 13 0C 03 97 31 39 38 2C  30 3A 92 31 39 38 2C 31  |....198,0:.198,1|
00000BD0: 3A 97 31 39 38 2C 30 00  FE 13 16 03 99 22 93 20  |:.198,0......". |
00000BE0: 20 20 20 20 20 20 20 20  20 50 52 4F 47 52 41 4D  |         PROGRAM|
00000BF0: 4D 2D 53 43 48 55 54 5A  20 4E 52 2E 34 22 00 24  |M-SCHUTZ NR.4".$|
00000C00: 14 20 03 99 A6 31 30 29  22 11 11 50 52 4F 47 52  |. ...10)"..PROGR|
00000C10: 41 4D 4D 20 53 41 56 45  2D 53 43 48 55 54 5A 22  |AMM SAVE-SCHUTZ"|
00000C20: 3A 99 44 24 00 39 14 2A  03 99 22 11 50 4F 4B 45  |:.D$.9.*..".POKE|
00000C30: 20 38 31 39 2C 32 34 35  22 00 61 14 34 03 99 A6  | 819,245".a.4...|
00000C40: 38 29 22 11 11 11 11 12  20 42 49 54 54 45 20 54  |8)"..... BITTE T|
00000C50: 41 53 54 45 20 44 52 55  45 43 4B 45 4E 20 21 20  |ASTE DRUECKEN ! |
00000C60: 22 00 7A 14 3E 03 97 31  39 38 2C 30 3A 92 31 39  |".z.>..198,0:.19|
00000C70: 38 2C 31 3A 97 31 39 38  2C 30 00 A1 14 48 03 99  |8,1:.198,0...H..|
00000C80: 22 93 20 20 20 20 20 20  20 20 20 20 50 52 4F 47  |".          PROG|
00000C90: 52 41 4D 4D 2D 53 43 48  55 54 5A 20 4E 52 2E 35  |RAMM-SCHUTZ NR.5|
00000CA0: 22 00 C7 14 52 03 99 A6  31 30 29 22 11 11 54 41  |"...R...10)"..TA|
00000CB0: 53 54 45 4E 2D 4B 49 4C  4C 45 52 20 50 4F 4B 45  |STEN-KILLER POKE|
00000CC0: 27 53 22 3A 99 44 24 00  09 15 5C 03 99 22 11 50  |'S":.D$...\..".P|
00000CD0: 4F 4B 45 20 36 35 37 2C  31 32 38 20 3A 52 45 4D  |OKE 657,128 :REM|
00000CE0: 20 43 4F 4D 4D 4F 44 4F  52 45 2B 53 48 49 46 54  | COMMODORE+SHIFT|
00000CF0: 2D 54 41 53 54 45 20 20  20 20 20 20 20 20 20 20  |-TASTE          |
00000D00: 20 20 20 20 20 41 55 53  22 00 4B 15 66 03 99 22  |     AUS".K.f.."|
00000D10: 11 50 4F 4B 45 20 38 30  38 2C 32 35 34 20 3A 52  |.POKE 808,254 :R|
00000D20: 45 4D 20 52 55 4E 53 54  4F 50 2F 52 45 53 54 4F  |EM RUNSTOP/RESTO|
00000D30: 52 45 2D 54 41 53 54 45  4E 20 20 20 20 20 20 20  |RE-TASTEN       |
00000D40: 20 20 20 20 20 20 20 41  55 53 22 00 90 15 70 03  |       AUS"...p.|
00000D50: 99 22 11 50 4F 4B 45 20  36 35 30 2C 31 32 38 20  |.".POKE 650,128 |
00000D60: 3A 52 45 4D 20 41 55 54  4F 52 45 50 45 41 54 20  |:REM AUTOREPEAT |
00000D70: 41 55 46 20 41 4C 4C 45  4E 20 20 20 20 20 20 20  |AUF ALLEN       |
00000D80: 20 20 20 20 20 20 20 20  20 54 41 53 54 45 4E 22  |         TASTEN"|
00000D90: 00 B8 15 7A 03 99 A6 38  29 22 11 11 11 11 12 20  |...z...8)"..... |
00000DA0: 42 49 54 54 45 20 54 41  53 54 45 20 44 52 55 45  |BITTE TASTE DRUE|
00000DB0: 43 4B 45 4E 20 21 20 22  00 D5 15 84 03 97 31 39  |CKEN ! "......19|
00000DC0: 38 2C 30 3A 92 31 39 38  2C 31 3A 97 31 39 38 2C  |8,0:.198,1:.198,|
00000DD0: 30 3A 89 31 30 00 00 00                           |0:.10...        |

.......53280,0:.53281,0.I...D$."CCCCCCCC
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC".{...."
.UCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
I";......"B.   PROGRAMM - HILFSROUTINEN 
  VC 64   .B";...-.."JCCCCCCCCCCCCCCCCCC
CCCCCCCCCCCCCCCCCCCCK"...2..".<. 1 .>  P
ROGRAMM - SCHUTZ".,.<..".<. 2 .>  PROGRA
MM - VERBESSERUNGEN".P.F..".<. 3 .>  FLO
PPY   - ABFRAGE".T.P..".<. 4 .>  PRINTER
  - ABFRAGE"...Q..".<. E .>  PROGRAMM   
BEENDEN"...Z..I.1.10:.".................
..         BITTE ZIFFER WAEHLEN ! ":..$.
D..I.1.10:."...................        .
 BITTE ZIFFER WAEHLEN ! .":..6.N..E$:.E$
."".90.F.X..E$."1".620.V....E$."2".360.F
....E$."3".170.V....E$."4".260......E$."
E"..64767... ..110......".IM PROGRAMM MU
ESSEN FOLGENDE ZEILEN".R....".STEHEN:":.
D$......"..100 POKE768,61:OPEN1,8,15:CLO
SE1".&.H..".110 POKE768,139:IFST<>-128TH
EN130".^.R..".120 PRINT"G(34)"FLOPPY AUS
GESCHALTET"G(34)":END"......".130 PRINT"
G(34)"FLOPPY EINGESCHALTET"G(34)......".
140 PRINT"G(34)"PROGRAMM-START"G(34)....
...8)"..... BITTE TASTE DRUECKEN ! "....
..198,0:.198,1:.198,0:.10.-....".IM PROG
RAMM MUESSEN FOLGENDE ZEILEN".A....".STE
HEN:":.D$.P.".."..100 POKE768,61:OPEN1,4
:PRINT#1:CLOSE1"...,..".110 POKE768,139:
IFST<>-128THEN130".S.6..".120 PRINT"G(34
)"DRUCKER AUSGESCHALTET"G(34)":END"...@.
.".130 PRINT"G(34)"DRUCKER EINGESCHALTET
"G(34).2.J..".140 PRINT"G(34)"PROGRAMM-S
TART"G(34).Z.T...8)"..... BITTE TASTE DR
UECKEN ! ".W.^..198,0:.198,1:.198,0:.10.
..H..".           VERBESSERUNG NR. 1"...
R...13)"..ZAHLEN RUNDEN.":.D$......".100
 A=INT(ZAHL*10^ANZ. DEZ.STELLEN+.5)^    
 ANZ. DEZ.STELLEN"......".110 PRINT A".>
.....8)"..... BITTE TASTE DRUECKEN ! ".W
....198,0:.198,1:.198,0.}....".         
  VERBESSERUNG NR. 2".......12)"..FUEHRE
NDE NULLEN":.D$.C.B.."100 X$=RIGHT$(STR$
(100+A),2)".X.L..".110 PRINT X$"...V..".
120 REM X$ = 02".2....".130 REM WENN 3 S
TELLEN, DANN X$=RIGHT$(S    TR$(1000+A),
3).K....".140 REM X$ = 002".S.....8)"...
.. BITTE TASTE DRUECKEN ! "......198,0:.
198,1:.198,0......".           VERBESSER
UNG NR. 3".......5)"..ZEILEN AUF BILDSCH
IRM LOESCHEN":.D$......".100 POKE781,ZEI
LENNUMMER:SYS59903".3.....8)"..... BITTE
 TASTE DRUECKEN ! ".L....198,0:.198,1:.1
98,0.R.&..".           VERBESSERUNG NR. 
4"...0...14)"..RESET KILLER":.D$...:..".
100 FORI=1TO9:READA:POKE32767+I,D".L.D..
".110 NEXTI"...N..".120 DATA0,0,255,0,19
5,194,205,56,48". .X...8)"..... BITTE TA
STE DRUECKEN ! ".=.B..198,0:.198,1:.198,
0:.10.D.L..".          PROGRAMM-SCHUTZ N
R.1"...V...9)"..PROGRAMMKILLER POKE'S":.
D$.K....".POKE 776,1":.".POKE 777,1":.".
POKE770,0":.".POKE 774,226"......".POKE 
775,252".......8)"..... BITTE TASTE DRUE
CKEN ! ".!....198,0:.198,1:.198,0.H...."
.          PROGRAMM-SCHUTZ NR.2".K.....1
1)"..LISTSCHUTZ POKE'S":.D$......".POKE 
775,200":.".POKE 773,0":.".POKE 775,1   
: REM LISTSCHUTZ EIN"...F..".POKE 775,17
6 : REM LISTSCHUTZ AUS"...P...8)"..... B
ITTE TASTE DRUECKEN ! ". .Z..198,0:.198,
1:.198,0.G....".          PROGRAMM-SCHUT
Z NR.3".P.....8)"..PROGRAMM - KILLER POK
E'S":.D$......".POKE 774,226":.".POKE 77
5,252".......8)"..... BITTE TASTE DRUECK
EN ! ".W....198,0:.198,1:.198,0......". 
         PROGRAMM-SCHUTZ NR.4".$. ...10)
"..PROGRAMM SAVE-SCHUTZ":.D$.9.*..".POKE
 819,245".A.4...8)"..... BITTE TASTE DRU
ECKEN ! ".Z.>..198,0:.198,1:.198,0...H..
".          PROGRAMM-SCHUTZ NR.5".G.R...
10)"..TASTEN-KILLER POKE'S":.D$...\..".P
OKE 657,128 :REM COMMODORE+SHIFT-TASTE  
             AUS".K.F..".POKE 808,254 :R
EM RUNSTOP/RESTORE-TASTEN              A
US"...P..".POKE 650,128 :REM AUTOREPEAT 
AUF ALLEN                TASTEN"...Z...8
)"..... BITTE TASTE DRUECKEN ! ".U....19
8,0:.198,1:.198,0:.10...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL