PROGRAMM-TIPS
FILE INFORMATION
FILENAME(S): PROGRAMM-TIPS
FILE TYPE(S): PRG
FILE SIZE: 3.8K
FIRST SEEN: 2025-11-30 01:07:59
APPEARS ON: 2 disk(s)
FILE HASH
a31f272896697250fc7fc0ddf1d6e7e7d43de1ef07f27070d04f87c8d1bc16dd
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| D IVERSE | PROGRAMM-TIPS | PRG | Treasure Chest - Wolfgang Rauprich | 23 | 5 | DOWNLOAD FILE |
| FREEWARE DISK NR | PROGRAMM-TIPS | PRG | Treasure Chest - Wolfgang Rauprich | 23 | 5 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1D 08 00 00 97 34 35 2C C2 28 31 37 34 29 |.......45,.(174)|
00000010: 3A 97 34 36 2C C2 28 31 37 35 29 3A 9C 00 33 08 |:.46,.(175):..3.|
00000020: 0A 00 97 35 33 32 38 30 2C 30 3A 97 35 33 32 38 |...53280,0:.5328|
00000030: 31 2C 30 00 65 08 0F 00 44 24 B2 22 C3 C3 C3 C3 |1,0.e...D$."....|
00000040: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00000050: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00000060: C3 C3 C3 C3 22 00 98 08 14 00 99 22 93 9A D5 C3 |...."......"....|
00000070: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00000080: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00000090: C3 C3 C3 C3 C3 C9 22 3B 00 CB 08 1E 00 99 22 C2 |......";......".|
000000A0: 12 20 20 20 50 52 4F 47 52 41 4D 4D 20 2D 20 48 |. PROGRAMM - H|
000000B0: 49 4C 46 53 52 4F 55 54 49 4E 45 4E 20 20 20 56 |ILFSROUTINEN V|
000000C0: 43 20 36 34 20 20 20 92 C2 22 3B 00 FB 08 2D 00 |C 64 ..";...-.|
000000D0: 99 22 CA C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |."..............|
000000E0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
000000F0: C3 C3 C3 C3 C3 C3 C3 C3 C3 CB 22 00 1E 09 32 00 |.........."...2.|
00000100: 99 22 11 3C 12 20 31 20 92 3E 20 20 50 52 4F 47 |.".<. 1 .> PROG|
00000110: 52 41 4D 4D 20 2D 20 53 43 48 55 54 5A 22 00 49 |RAMM - SCHUTZ".I|
00000120: 09 3C 00 99 22 11 3C 12 20 32 20 92 3E 20 20 50 |.<..".<. 2 .> P|
00000130: 52 4F 47 52 41 4D 4D 20 2D 20 56 45 52 42 45 53 |ROGRAMM - VERBES|
00000140: 53 45 52 55 4E 47 45 4E 22 00 6D 09 46 00 99 22 |SERUNGEN".m.F.."|
00000150: 11 3C 12 20 33 20 92 3E 20 20 46 4C 4F 50 50 59 |.<. 3 .> FLOPPY|
00000160: 20 20 20 2D 20 41 42 46 52 41 47 45 22 00 91 09 | - ABFRAGE"...|
00000170: 50 00 99 22 11 3C 12 20 34 20 92 3E 20 20 50 52 |P..".<. 4 .> PR|
00000180: 49 4E 54 45 52 20 20 2D 20 41 42 46 52 41 47 45 |INTER - ABFRAGE|
00000190: 22 00 B5 09 51 00 99 22 11 3C 12 20 45 20 92 3E |"...Q..".<. E .>|
000001A0: 20 20 50 52 4F 47 52 41 4D 4D 20 20 20 42 45 45 | PROGRAMM BEE|
000001B0: 4E 44 45 4E 22 00 FA 09 5A 00 81 49 B2 31 A4 31 |NDEN"...Z..I.1.1|
000001C0: 30 3A 99 22 13 11 11 11 11 11 11 11 11 11 11 11 |0:."............|
000001D0: 11 11 11 11 11 11 11 20 20 20 20 20 20 20 20 20 |....... |
000001E0: 42 49 54 54 45 20 5A 49 46 46 45 52 20 57 41 45 |BITTE ZIFFER WAE|
000001F0: 48 4C 45 4E 20 21 20 22 3A 82 00 41 0A 64 00 81 |HLEN ! ":..A.d..|
00000200: 49 B2 31 A4 31 30 3A 99 22 13 11 11 11 11 11 11 |I.1.10:.".......|
00000210: 11 11 11 11 11 11 11 11 11 11 11 11 20 20 20 20 |............ |
00000220: 20 20 20 20 12 20 42 49 54 54 45 20 5A 49 46 46 | . BITTE ZIFF|
00000230: 45 52 20 57 41 45 48 4C 45 4E 20 21 20 92 22 3A |ER WAEHLEN ! .":|
00000240: 82 00 53 0A 6E 00 A1 45 24 3A 8B 45 24 B2 22 22 |..S.n..E$:.E$.""|
00000250: A7 39 30 00 63 0A 78 00 8B 45 24 B2 22 31 22 A7 |.90.c.x..E$."1".|
00000260: 36 32 30 00 73 0A 82 00 8B 45 24 B2 22 32 22 A7 |620.s....E$."2".|
00000270: 33 36 30 00 83 0A 8C 00 8B 45 24 B2 22 33 22 A7 |360......E$."3".|
00000280: 31 37 30 00 93 0A 96 00 8B 45 24 B2 22 34 22 A7 |170......E$."4".|
00000290: 32 36 30 00 A6 0A 9B 00 8B 45 24 B2 22 45 22 A7 |260......E$."E".|
000002A0: 9E 36 34 37 36 30 00 AF 0A A0 00 89 31 31 30 00 |.64760......110.|
000002B0: DB 0A AA 00 99 22 93 49 4D 20 50 52 4F 47 52 41 |.....".IM PROGRA|
000002C0: 4D 4D 20 4D 55 45 53 53 45 4E 20 46 4F 4C 47 45 |MM MUESSEN FOLGE|
000002D0: 4E 44 45 20 5A 45 49 4C 45 4E 22 00 EF 0A B4 00 |NDE ZEILEN".....|
000002E0: 99 22 11 53 54 45 48 45 4E 3A 22 3A 99 44 24 00 |.".STEHEN:":.D$.|
000002F0: 19 0B BE 00 99 22 11 11 31 30 30 20 50 4F 4B 45 |....."..100 POKE|
00000300: 37 36 38 2C 36 31 3A 4F 50 45 4E 31 2C 38 2C 31 |768,61:OPEN1,8,1|
00000310: 35 3A 43 4C 4F 53 45 31 22 00 43 0B C8 00 99 22 |5:CLOSE1".C...."|
00000320: 11 31 31 30 20 50 4F 4B 45 37 36 38 2C 31 33 39 |.110 POKE768,139|
00000330: 3A 49 46 53 54 3C 3E 2D 31 32 38 54 48 45 4E 31 |:IFST<>-128THEN1|
00000340: 33 30 22 00 7B 0B D2 00 99 22 11 31 32 30 20 50 |30".{....".120 P|
00000350: 52 49 4E 54 22 C7 28 33 34 29 22 46 4C 4F 50 50 |RINT".(34)"FLOPP|
00000360: 59 20 41 55 53 47 45 53 43 48 41 4C 54 45 54 22 |Y AUSGESCHALTET"|
00000370: C7 28 33 34 29 22 3A 45 4E 44 22 00 AD 0B DC 00 |.(34)":END".....|
00000380: 99 22 11 31 33 30 20 50 52 49 4E 54 22 C7 28 33 |.".130 PRINT".(3|
00000390: 34 29 22 46 4C 4F 50 50 59 20 45 49 4E 47 45 53 |4)"FLOPPY EINGES|
000003A0: 43 48 41 4C 54 45 54 22 C7 28 33 34 29 00 D9 0B |CHALTET".(34)...|
000003B0: E6 00 99 22 11 31 34 30 20 50 52 49 4E 54 22 C7 |...".140 PRINT".|
000003C0: 28 33 34 29 22 50 52 4F 47 52 41 4D 4D 2D 53 54 |(34)"PROGRAMM-ST|
000003D0: 41 52 54 22 C7 28 33 34 29 00 01 0C F0 00 99 A6 |ART".(34).......|
000003E0: 38 29 22 11 11 11 11 12 20 42 49 54 54 45 20 54 |8)"..... BITTE T|
000003F0: 41 53 54 45 20 44 52 55 45 43 4B 45 4E 20 21 20 |ASTE DRUECKEN ! |
00000400: 22 00 1E 0C FA 00 97 31 39 38 2C 30 3A 92 31 39 |"......198,0:.19|
00000410: 38 2C 31 3A 97 31 39 38 2C 30 3A 89 31 30 00 4A |8,1:.198,0:.10.J|
00000420: 0C 04 01 99 22 93 49 4D 20 50 52 4F 47 52 41 4D |....".IM PROGRAM|
00000430: 4D 20 4D 55 45 53 53 45 4E 20 46 4F 4C 47 45 4E |M MUESSEN FOLGEN|
00000440: 44 45 20 5A 45 49 4C 45 4E 22 00 5E 0C 0E 01 99 |DE ZEILEN".^....|
00000450: 22 11 53 54 45 48 45 4E 3A 22 3A 99 44 24 00 8D |".STEHEN:":.D$..|
00000460: 0C 22 01 99 22 11 11 31 30 30 20 50 4F 4B 45 37 |.".."..100 POKE7|
00000470: 36 38 2C 36 31 3A 4F 50 45 4E 31 2C 34 3A 50 52 |68,61:OPEN1,4:PR|
00000480: 49 4E 54 23 31 3A 43 4C 4F 53 45 31 22 00 B7 0C |INT#1:CLOSE1"...|
00000490: 2C 01 99 22 11 31 31 30 20 50 4F 4B 45 37 36 38 |,..".110 POKE768|
000004A0: 2C 31 33 39 3A 49 46 53 54 3C 3E 2D 31 32 38 54 |,139:IFST<>-128T|
000004B0: 48 45 4E 31 33 30 22 00 F0 0C 36 01 99 22 11 31 |HEN130"...6..".1|
000004C0: 32 30 20 50 52 49 4E 54 22 C7 28 33 34 29 22 44 |20 PRINT".(34)"D|
000004D0: 52 55 43 4B 45 52 20 41 55 53 47 45 53 43 48 41 |RUCKER AUSGESCHA|
000004E0: 4C 54 45 54 22 C7 28 33 34 29 22 3A 45 4E 44 22 |LTET".(34)":END"|
000004F0: 00 23 0D 40 01 99 22 11 31 33 30 20 50 52 49 4E |.#.@..".130 PRIN|
00000500: 54 22 C7 28 33 34 29 22 44 52 55 43 4B 45 52 20 |T".(34)"DRUCKER |
00000510: 45 49 4E 47 45 53 43 48 41 4C 54 45 54 22 C7 28 |EINGESCHALTET".(|
00000520: 33 34 29 00 4F 0D 4A 01 99 22 11 31 34 30 20 50 |34).O.J..".140 P|
00000530: 52 49 4E 54 22 C7 28 33 34 29 22 50 52 4F 47 52 |RINT".(34)"PROGR|
00000540: 41 4D 4D 2D 53 54 41 52 54 22 C7 28 33 34 29 00 |AMM-START".(34).|
00000550: 77 0D 54 01 99 A6 38 29 22 11 11 11 11 12 20 42 |w.T...8)"..... B|
00000560: 49 54 54 45 20 54 41 53 54 45 20 44 52 55 45 43 |ITTE TASTE DRUEC|
00000570: 4B 45 4E 20 21 20 22 00 94 0D 5E 01 97 31 39 38 |KEN ! "...^..198|
00000580: 2C 30 3A 92 31 39 38 2C 31 3A 97 31 39 38 2C 30 |,0:.198,1:.198,0|
00000590: 3A 89 31 30 00 BA 0D 68 01 99 22 93 20 20 20 20 |:.10...h..". |
000005A0: 20 20 20 20 20 20 20 56 45 52 42 45 53 53 45 52 | VERBESSER|
000005B0: 55 4E 47 20 4E 52 2E 20 31 22 00 DA 0D 72 01 99 |UNG NR. 1"...r..|
000005C0: A6 31 33 29 22 11 11 5A 41 48 4C 45 4E 20 52 55 |.13)"..ZAHLEN RU|
000005D0: 4E 44 45 4E 11 22 3A 99 44 24 00 1F 0E 86 01 99 |NDEN.":.D$......|
000005E0: 22 11 31 30 30 20 41 3D 49 4E 54 28 5A 41 48 4C |".100 A=INT(ZAHL|
000005F0: 2A 31 30 5E 41 4E 5A 2E 20 44 45 5A 2E 53 54 45 |*10^ANZ. DEZ.STE|
00000600: 4C 4C 45 4E 2B 2E 35 29 5E 20 20 20 20 20 41 4E |LLEN+.5)^ AN|
00000610: 5A 2E 20 44 45 5A 2E 53 54 45 4C 4C 45 4E 22 00 |Z. DEZ.STELLEN".|
00000620: 33 0E 90 01 99 22 11 31 31 30 20 50 52 49 4E 54 |3....".110 PRINT|
00000630: 20 41 22 00 5B 0E 9A 01 99 A6 38 29 22 11 11 11 | A".[.....8)"...|
00000640: 11 12 20 42 49 54 54 45 20 54 41 53 54 45 20 44 |.. BITTE TASTE D|
00000650: 52 55 45 43 4B 45 4E 20 21 20 22 00 74 0E A4 01 |RUECKEN ! ".t...|
00000660: 97 31 39 38 2C 30 3A 92 31 39 38 2C 31 3A 97 31 |.198,0:.198,1:.1|
00000670: 39 38 2C 30 00 9A 0E AE 01 99 22 93 20 20 20 20 |98,0......". |
00000680: 20 20 20 20 20 20 20 56 45 52 42 45 53 53 45 52 | VERBESSER|
00000690: 55 4E 47 20 4E 52 2E 20 32 22 00 BC 0E B8 01 99 |UNG NR. 2"......|
000006A0: A6 31 32 29 22 11 11 46 55 45 48 52 45 4E 44 45 |.12)"..FUEHRENDE|
000006B0: 20 4E 55 4C 4C 45 4E 22 3A 99 44 24 00 E0 0E C2 | NULLEN":.D$....|
000006C0: 01 99 22 31 30 30 20 58 24 3D 52 49 47 48 54 24 |.."100 X$=RIGHT$|
000006D0: 28 53 54 52 24 28 31 30 30 2B 41 29 2C 32 29 22 |(STR$(100+A),2)"|
000006E0: 00 F5 0E CC 01 99 22 11 31 31 30 20 50 52 49 4E |......".110 PRIN|
000006F0: 54 20 58 24 22 00 0D 0F D6 01 99 22 11 31 32 30 |T X$"......".120|
00000700: 20 52 45 4D 20 58 24 20 3D 20 30 32 22 00 4F 0F | REM X$ = 02".O.|
00000710: E0 01 99 22 11 31 33 30 20 52 45 4D 20 57 45 4E |...".130 REM WEN|
00000720: 4E 20 33 20 53 54 45 4C 4C 45 4E 2C 20 44 41 4E |N 3 STELLEN, DAN|
00000730: 4E 20 58 24 3D 52 49 47 48 54 24 28 53 20 20 20 |N X$=RIGHT$(S |
00000740: 20 54 52 24 28 31 30 30 30 2B 41 29 2C 33 29 00 | TR$(1000+A),3).|
00000750: 68 0F E5 01 99 22 11 31 34 30 20 52 45 4D 20 58 |h....".140 REM X|
00000760: 24 20 3D 20 30 30 32 22 00 90 0F EA 01 99 A6 38 |$ = 002".......8|
00000770: 29 22 11 11 11 11 12 20 42 49 54 54 45 20 54 41 |)"..... BITTE TA|
00000780: 53 54 45 20 44 52 55 45 43 4B 45 4E 20 21 20 22 |STE DRUECKEN ! "|
00000790: 00 A9 0F F4 01 97 31 39 38 2C 30 3A 92 31 39 38 |......198,0:.198|
000007A0: 2C 31 3A 97 31 39 38 2C 30 00 CF 0F FE 01 99 22 |,1:.198,0......"|
000007B0: 93 20 20 20 20 20 20 20 20 20 20 20 56 45 52 42 |. VERB|
000007C0: 45 53 53 45 52 55 4E 47 20 4E 52 2E 20 33 22 00 |ESSERUNG NR. 3".|
000007D0: FE 0F 08 02 99 A6 35 29 22 11 11 5A 45 49 4C 45 |......5)"..ZEILE|
000007E0: 4E 20 41 55 46 20 42 49 4C 44 53 43 48 49 52 4D |N AUF BILDSCHIRM|
000007F0: 20 4C 4F 45 53 43 48 45 4E 22 3A 99 44 24 00 28 | LOESCHEN":.D$.(|
00000800: 10 12 02 99 22 11 31 30 30 20 50 4F 4B 45 37 38 |....".100 POKE78|
00000810: 31 2C 5A 45 49 4C 45 4E 4E 55 4D 4D 45 52 3A 53 |1,ZEILENNUMMER:S|
00000820: 59 53 35 39 39 30 33 22 00 50 10 17 02 99 A6 38 |YS59903".P.....8|
00000830: 29 22 11 11 11 11 12 20 42 49 54 54 45 20 54 41 |)"..... BITTE TA|
00000840: 53 54 45 20 44 52 55 45 43 4B 45 4E 20 21 20 22 |STE DRUECKEN ! "|
00000850: 00 69 10 1C 02 97 31 39 38 2C 30 3A 92 31 39 38 |.i....198,0:.198|
00000860: 2C 31 3A 97 31 39 38 2C 30 00 8F 10 26 02 99 22 |,1:.198,0...&.."|
00000870: 93 20 20 20 20 20 20 20 20 20 20 20 56 45 52 42 |. VERB|
00000880: 45 53 53 45 52 55 4E 47 20 4E 52 2E 20 34 22 00 |ESSERUNG NR. 4".|
00000890: AD 10 30 02 99 A6 31 34 29 22 11 11 52 45 53 45 |..0...14)"..RESE|
000008A0: 54 20 4B 49 4C 4C 45 52 22 3A 99 44 24 00 D7 10 |T KILLER":.D$...|
000008B0: 3A 02 99 22 11 31 30 30 20 46 4F 52 49 3D 31 54 |:..".100 FORI=1T|
000008C0: 4F 39 3A 52 45 41 44 41 3A 50 4F 4B 45 33 32 37 |O9:READA:POKE327|
000008D0: 36 37 2B 49 2C 44 22 00 E9 10 44 02 99 22 11 31 |67+I,D"...D..".1|
000008E0: 31 30 20 4E 45 58 54 49 22 00 15 11 4E 02 99 22 |10 NEXTI"...N.."|
000008F0: 11 31 32 30 20 44 41 54 41 30 2C 30 2C 32 35 35 |.120 DATA0,0,255|
00000900: 2C 30 2C 31 39 35 2C 31 39 34 2C 32 30 35 2C 35 |,0,195,194,205,5|
00000910: 36 2C 34 38 22 00 3D 11 58 02 99 A6 38 29 22 11 |6,48".=.X...8)".|
00000920: 11 11 11 12 20 42 49 54 54 45 20 54 41 53 54 45 |.... BITTE TASTE|
00000930: 20 44 52 55 45 43 4B 45 4E 20 21 20 22 00 5A 11 | DRUECKEN ! ".Z.|
00000940: 62 02 97 31 39 38 2C 30 3A 92 31 39 38 2C 31 3A |b..198,0:.198,1:|
00000950: 97 31 39 38 2C 30 3A 89 31 30 00 81 11 6C 02 99 |.198,0:.10...l..|
00000960: 22 93 20 20 20 20 20 20 20 20 20 20 50 52 4F 47 |". PROG|
00000970: 52 41 4D 4D 2D 53 43 48 55 54 5A 20 4E 52 2E 31 |RAMM-SCHUTZ NR.1|
00000980: 22 00 A7 11 76 02 99 A6 39 29 22 11 11 50 52 4F |"...v...9)"..PRO|
00000990: 47 52 41 4D 4D 4B 49 4C 4C 45 52 20 50 4F 4B 45 |GRAMMKILLER POKE|
000009A0: 27 53 22 3A 99 44 24 00 E8 11 80 02 99 22 11 50 |'S":.D$......".P|
000009B0: 4F 4B 45 20 37 37 36 2C 31 22 3A 99 22 11 50 4F |OKE 776,1":.".PO|
000009C0: 4B 45 20 37 37 37 2C 31 22 3A 99 22 11 50 4F 4B |KE 777,1":.".POK|
000009D0: 45 37 37 30 2C 30 22 3A 99 22 11 50 4F 4B 45 20 |E770,0":.".POKE |
000009E0: 37 37 34 2C 32 32 36 22 00 FD 11 8A 02 99 22 11 |774,226"......".|
000009F0: 50 4F 4B 45 20 37 37 35 2C 32 35 32 22 00 25 12 |POKE 775,252".%.|
00000A00: 94 02 99 A6 38 29 22 11 11 11 11 12 20 42 49 54 |....8)"..... BIT|
00000A10: 54 45 20 54 41 53 54 45 20 44 52 55 45 43 4B 45 |TE TASTE DRUECKE|
00000A20: 4E 20 21 20 22 00 3E 12 9E 02 97 31 39 38 2C 30 |N ! ".>....198,0|
00000A30: 3A 92 31 39 38 2C 31 3A 97 31 39 38 2C 30 00 65 |:.198,1:.198,0.e|
00000A40: 12 A8 02 99 22 93 20 20 20 20 20 20 20 20 20 20 |....". |
00000A50: 50 52 4F 47 52 41 4D 4D 2D 53 43 48 55 54 5A 20 |PROGRAMM-SCHUTZ |
00000A60: 4E 52 2E 32 22 00 88 12 B2 02 99 A6 31 31 29 22 |NR.2".......11)"|
00000A70: 11 11 4C 49 53 54 53 43 48 55 54 5A 20 50 4F 4B |..LISTSCHUTZ POK|
00000A80: 45 27 53 22 3A 99 44 24 00 D2 12 BC 02 99 22 11 |E'S":.D$......".|
00000A90: 50 4F 4B 45 20 37 37 35 2C 32 30 30 22 3A 99 22 |POKE 775,200":."|
00000AA0: 11 50 4F 4B 45 20 37 37 33 2C 30 22 3A 99 22 11 |.POKE 773,0":.".|
00000AB0: 50 4F 4B 45 20 37 37 35 2C 31 20 20 20 3A 20 52 |POKE 775,1 : R|
00000AC0: 45 4D 20 4C 49 53 54 53 43 48 55 54 5A 20 45 49 |EM LISTSCHUTZ EI|
00000AD0: 4E 22 00 FC 12 C6 02 99 22 11 50 4F 4B 45 20 37 |N"......".POKE 7|
00000AE0: 37 35 2C 31 37 36 20 3A 20 52 45 4D 20 4C 49 53 |75,176 : REM LIS|
00000AF0: 54 53 43 48 55 54 5A 20 41 55 53 22 00 24 13 D0 |TSCHUTZ AUS".$..|
00000B00: 02 99 A6 38 29 22 11 11 11 11 12 20 42 49 54 54 |...8)"..... BITT|
00000B10: 45 20 54 41 53 54 45 20 44 52 55 45 43 4B 45 4E |E TASTE DRUECKEN|
00000B20: 20 21 20 22 00 3D 13 DA 02 97 31 39 38 2C 30 3A | ! ".=....198,0:|
00000B30: 92 31 39 38 2C 31 3A 97 31 39 38 2C 30 00 64 13 |.198,1:.198,0.d.|
00000B40: E4 02 99 22 93 20 20 20 20 20 20 20 20 20 20 50 |...". P|
00000B50: 52 4F 47 52 41 4D 4D 2D 53 43 48 55 54 5A 20 4E |ROGRAMM-SCHUTZ N|
00000B60: 52 2E 33 22 00 8D 13 EE 02 99 A6 38 29 22 11 11 |R.3".......8)"..|
00000B70: 50 52 4F 47 52 41 4D 4D 20 2D 20 4B 49 4C 4C 45 |PROGRAMM - KILLE|
00000B80: 52 20 50 4F 4B 45 27 53 22 3A 99 44 24 00 B3 13 |R POKE'S":.D$...|
00000B90: F8 02 99 22 11 50 4F 4B 45 20 37 37 34 2C 32 32 |...".POKE 774,22|
00000BA0: 36 22 3A 99 22 11 50 4F 4B 45 20 37 37 35 2C 32 |6":.".POKE 775,2|
00000BB0: 35 32 22 00 DB 13 02 03 99 A6 38 29 22 11 11 11 |52".......8)"...|
00000BC0: 11 12 20 42 49 54 54 45 20 54 41 53 54 45 20 44 |.. BITTE TASTE D|
00000BD0: 52 55 45 43 4B 45 4E 20 21 20 22 00 F4 13 0C 03 |RUECKEN ! ".....|
00000BE0: 97 31 39 38 2C 30 3A 92 31 39 38 2C 31 3A 97 31 |.198,0:.198,1:.1|
00000BF0: 39 38 2C 30 00 1B 14 16 03 99 22 93 20 20 20 20 |98,0......". |
00000C00: 20 20 20 20 20 20 50 52 4F 47 52 41 4D 4D 2D 53 | PROGRAMM-S|
00000C10: 43 48 55 54 5A 20 4E 52 2E 34 22 00 41 14 20 03 |CHUTZ NR.4".A. .|
00000C20: 99 A6 31 30 29 22 11 11 50 52 4F 47 52 41 4D 4D |..10)"..PROGRAMM|
00000C30: 20 53 41 56 45 2D 53 43 48 55 54 5A 22 3A 99 44 | SAVE-SCHUTZ":.D|
00000C40: 24 00 56 14 2A 03 99 22 11 50 4F 4B 45 20 38 31 |$.V.*..".POKE 81|
00000C50: 39 2C 32 34 35 22 00 7E 14 34 03 99 A6 38 29 22 |9,245".~.4...8)"|
00000C60: 11 11 11 11 12 20 42 49 54 54 45 20 54 41 53 54 |..... BITTE TAST|
00000C70: 45 20 44 52 55 45 43 4B 45 4E 20 21 20 22 00 97 |E DRUECKEN ! "..|
00000C80: 14 3E 03 97 31 39 38 2C 30 3A 92 31 39 38 2C 31 |.>..198,0:.198,1|
00000C90: 3A 97 31 39 38 2C 30 00 BE 14 48 03 99 22 93 20 |:.198,0...H..". |
00000CA0: 20 20 20 20 20 20 20 20 20 50 52 4F 47 52 41 4D | PROGRAM|
00000CB0: 4D 2D 53 43 48 55 54 5A 20 4E 52 2E 35 22 00 E4 |M-SCHUTZ NR.5"..|
00000CC0: 14 52 03 99 A6 31 30 29 22 11 11 54 41 53 54 45 |.R...10)"..TASTE|
00000CD0: 4E 2D 4B 49 4C 4C 45 52 20 50 4F 4B 45 27 53 22 |N-KILLER POKE'S"|
00000CE0: 3A 99 44 24 00 26 15 5C 03 99 22 11 50 4F 4B 45 |:.D$.&.\..".POKE|
00000CF0: 20 36 35 37 2C 31 32 38 20 3A 52 45 4D 20 43 4F | 657,128 :REM CO|
00000D00: 4D 4D 4F 44 4F 52 45 2B 53 48 49 46 54 2D 54 41 |MMODORE+SHIFT-TA|
00000D10: 53 54 45 20 20 20 20 20 20 20 20 20 20 20 20 20 |STE |
00000D20: 20 20 41 55 53 22 00 68 15 66 03 99 22 11 50 4F | AUS".h.f..".PO|
00000D30: 4B 45 20 38 30 38 2C 32 35 34 20 3A 52 45 4D 20 |KE 808,254 :REM |
00000D40: 52 55 4E 53 54 4F 50 2F 52 45 53 54 4F 52 45 2D |RUNSTOP/RESTORE-|
00000D50: 54 41 53 54 45 4E 20 20 20 20 20 20 20 20 20 20 |TASTEN |
00000D60: 20 20 20 20 41 55 53 22 00 AD 15 70 03 99 22 11 | AUS"...p..".|
00000D70: 50 4F 4B 45 20 36 35 30 2C 31 32 38 20 3A 52 45 |POKE 650,128 :RE|
00000D80: 4D 20 41 55 54 4F 52 45 50 45 41 54 20 41 55 46 |M AUTOREPEAT AUF|
00000D90: 20 41 4C 4C 45 4E 20 20 20 20 20 20 20 20 20 20 | ALLEN |
00000DA0: 20 20 20 20 20 20 54 41 53 54 45 4E 22 00 D5 15 | TASTEN"...|
00000DB0: 7A 03 99 A6 38 29 22 11 11 11 11 12 20 42 49 54 |z...8)"..... BIT|
00000DC0: 54 45 20 54 41 53 54 45 20 44 52 55 45 43 4B 45 |TE TASTE DRUECKE|
00000DD0: 4E 20 21 20 22 00 F2 15 84 03 97 31 39 38 2C 30 |N ! "......198,0|
00000DE0: 3A 92 31 39 38 2C 31 3A 97 31 39 38 2C 30 3A 89 |:.198,1:.198,0:.|
00000DF0: 31 30 00 00 00 00 F5 16 8E 13 8B 45 24 B2 22 32 |10.........E$."2|
00000E00: 22 A7 31 30 00 0C 17 8F 13 8B 45 24 B2 22 33 22 |".10......E$."3"|
00000E10: A7 93 22 43 4F 44 45 4D 22 2C 38 00 16 17 90 13 |.."CODEM",8.....|
00000E20: 89 35 30 30 34 00 00 00 89 35 30 30 34 00 00 00 |.5004....5004...|
00000E30: 93 22 43 4F 44 45 4D 22 2C 38 00 16 17 90 13 89 |."CODEM",8......|
00000E40: 35 30 30 34 00 00 00 2C 38 00 16 17 90 13 89 35 |5004...,8......5|
00000E50: 30 30 34 00 00 00 44 45 4D 22 2C 38 00 16 17 90 |004...DEM",8....|
00000E60: 13 89 35 30 30 34 00 00 00 22 43 4F 44 45 4D 22 |..5004..."CODEM"|
00000E70: 2C 38 00 16 17 90 13 89 35 30 30 34 00 00 00 A7 |,8......5004....|
00000E80: 31 30 00 0C 17 8F 13 8B 45 24 B2 22 33 22 A7 93 |10......E$."3"..|
00000E90: 22 43 4F 44 45 4D 22 2C 38 00 16 17 90 13 89 35 |"CODEM",8......5|
00000EA0: 30 30 34 00 00 00 31 30 00 0C 17 8F 13 8B 45 24 |004...10......E$|
00000EB0: B2 22 33 22 A7 93 22 43 4F 44 45 4D 22 2C 38 00 |."3".."CODEM",8.|
00000EC0: 16 17 90 13 89 35 30 30 34 00 00 00 31 30 00 0C |.....5004...10..|
00000ED0: 17 8F 13 8B 45 24 B2 22 33 22 A7 93 22 43 4F 44 |....E$."3".."COD|
00000EE0: 45 4D 22 2C 38 00 16 17 90 13 89 35 30 30 34 00 |EM",8......5004.|
00000EF0: 00 00 A7 31 30 00 0C 17 8F 13 8B 45 24 B2 22 33 |...10......E$."3|
00000F00: 22 A7 93 22 43 4F 44 45 4D 22 2C 38 00 16 17 90 |".."CODEM",8....|
00000F10: 13 89 35 30 30 34 00 00 00 |..5004... |
.......45,B(174):.46,B(175):..3....53280
,0:.53281,0.E...D$."CCCCCCCCCCCCCCCCCCCC
CCCCCCCCCCCCCCCCCCCC"......"..UCCCCCCCCC
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCI";.K...."B
. PROGRAMM - HILFSROUTINEN VC 64 .
B";...-.."JCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
CCCCCCCCCK"...2..".<. 1 .> PROGRAMM - S
CHUTZ".I.<..".<. 2 .> PROGRAMM - VERBES
SERUNGEN".M.F..".<. 3 .> FLOPPY - ABF
RAGE"...P..".<. 4 .> PRINTER - ABFRAGE
"...Q..".<. E .> PROGRAMM BEENDEN"...
Z..I.1.10:."...................
BITTE ZIFFER WAEHLEN ! ":..A.D..I.1.10:.
"................... . BITTE ZIFF
ER WAEHLEN ! .":..S.N..E$:.E$."".90.C.X.
.E$."1".620.S....E$."2".360......E$."3".
170......E$."4".260......E$."E"..64760..
. ..110......".IM PROGRAMM MUESSEN FOLGE
NDE ZEILEN"......".STEHEN:":.D$......"..
100 POKE768,61:OPEN1,8,15:CLOSE1".C.H.."
.110 POKE768,139:IFST<>-128THEN130".{.R.
.".120 PRINT"G(34)"FLOPPY AUSGESCHALTET"
G(34)":END"......".130 PRINT"G(34)"FLOPP
Y EINGESCHALTET"G(34).Y....".140 PRINT"G
(34)"PROGRAMM-START"G(34).......8)".....
BITTE TASTE DRUECKEN ! "......198,0:.19
8,1:.198,0:.10.J....".IM PROGRAMM MUESSE
N FOLGENDE ZEILEN".^....".STEHEN:":.D$..
.".."..100 POKE768,61:OPEN1,4:PRINT#1:CL
OSE1"...,..".110 POKE768,139:IFST<>-128T
HEN130"...6..".120 PRINT"G(34)"DRUCKER A
USGESCHALTET"G(34)":END".#.@..".130 PRIN
T"G(34)"DRUCKER EINGESCHALTET"G(34).O.J.
.".140 PRINT"G(34)"PROGRAMM-START"G(34).
W.T...8)"..... BITTE TASTE DRUECKEN ! ".
..^..198,0:.198,1:.198,0:.10...H..".
VERBESSERUNG NR. 1".Z.R...13)"..Z
AHLEN RUNDEN.":.D$......".100 A=INT(ZAHL
*10^ANZ. DEZ.STELLEN+.5)^ ANZ. DEZ.S
TELLEN".3....".110 PRINT A".[.....8)"...
.. BITTE TASTE DRUECKEN ! ".T....198,0:.
198,1:.198,0......". VERBESSER
UNG NR. 2".......12)"..FUEHRENDE NULLEN"
:.D$...B.."100 X$=RIGHT$(STR$(100+A),2)"
...L..".110 PRINT X$"...V..".120 REM X$
= 02".O....".130 REM WENN 3 STELLEN, DAN
N X$=RIGHT$(S TR$(1000+A),3).H....".1
40 REM X$ = 002".......8)"..... BITTE TA
STE DRUECKEN ! "......198,0:.198,1:.198,
0.O....". VERBESSERUNG NR. 3".
......5)"..ZEILEN AUF BILDSCHIRM LOESCHE
N":.D$.(....".100 POKE781,ZEILENNUMMER:S
YS59903".P.....8)"..... BITTE TASTE DRUE
CKEN ! ".I....198,0:.198,1:.198,0...&.."
. VERBESSERUNG NR. 4"...0...14
)"..RESET KILLER":.D$.W.:..".100 FORI=1T
O9:READA:POKE32767+I,D"...D..".110 NEXTI
"...N..".120 DATA0,0,255,0,195,194,205,5
6,48".=.X...8)"..... BITTE TASTE DRUECKE
N ! ".Z.B..198,0:.198,1:.198,0:.10...L..
". PROGRAMM-SCHUTZ NR.1"...V...
9)"..PROGRAMMKILLER POKE'S":.D$......".P
OKE 776,1":.".POKE 777,1":.".POKE770,0":
.".POKE 774,226"......".POKE 775,252".%.
....8)"..... BITTE TASTE DRUECKEN ! ".>.
...198,0:.198,1:.198,0.E....".
PROGRAMM-SCHUTZ NR.2".......11)"..LISTSC
HUTZ POKE'S":.D$.R....".POKE 775,200":."
.POKE 773,0":.".POKE 775,1 : REM LISTS
CHUTZ EIN"...F..".POKE 775,176 : REM LIS
TSCHUTZ AUS".$.P...8)"..... BITTE TASTE
DRUECKEN ! ".=.Z..198,0:.198,1:.198,0.D.
...". PROGRAMM-SCHUTZ NR.3"....
...8)"..PROGRAMM - KILLER POKE'S":.D$...
...".POKE 774,226":.".POKE 775,252".....
..8)"..... BITTE TASTE DRUECKEN ! ".....
.198,0:.198,1:.198,0......". PR
OGRAMM-SCHUTZ NR.4".A. ...10)"..PROGRAMM
SAVE-SCHUTZ":.D$.V.*..".POKE 819,245".~
.4...8)"..... BITTE TASTE DRUECKEN ! "..
.>..198,0:.198,1:.198,0...H..".
PROGRAMM-SCHUTZ NR.5"...R...10)"..TASTE
N-KILLER POKE'S":.D$.&.\..".POKE 657,128
:REM COMMODORE+SHIFT-TASTE
AUS".H.F..".POKE 808,254 :REM RUNSTOP/
RESTORE-TASTEN AUS"...P..".
POKE 650,128 :REM AUTOREPEAT AUF ALLEN
TASTEN".U.Z...8)"..... BIT
TE TASTE DRUECKEN ! "......198,0:.198,1:
.198,0:.10.........E$."2".10......E$."3"
.."CODEM",8......5004....5004...."CODEM"
,8......5004...,8......5004...DEM",8....
..5004..."CODEM",8......5004....10......
E$."3".."CODEM",8......5004...10......E$
."3".."CODEM",8......5004...10......E$."
3".."CODEM",8......5004....10......E$."3
".."CODEM",8......5004...
> CLICK IMAGE PREVIEW FOR FULL MODAL