HILFSROUTINEN
FILE INFORMATION
FILENAME(S): HILFSROUTINEN
FILE TYPE(S): PRG
FILE SIZE: 3.5K
FIRST SEEN: 2025-10-20 14:32:01
APPEARS ON: 1 disk(s)
FILE HASH
125e57b6b704ec06ff0a13d023929f920bf66e09223adcfa99c48bce373e8b73
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MASTERMMSOFT | HILFSROUTINEN | PRG | Treasure Chest - Klaus Der Suhler | 8 | 9 | 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 E1 | VC 64 ..";..|
000000B0: 08 28 00 99 22 C2 12 20 20 43 4F 50 59 52 49 47 |.(..".. COPYRIG|
000000C0: 48 54 20 3C 43 3E 20 31 39 38 35 20 42 59 20 44 |HT <C> 1985 BY D|
000000D0: 49 45 54 45 52 20 50 4C 41 55 4D 20 20 92 C2 22 |IETER PLAUM .."|
000000E0: 3B 00 11 09 2D 00 99 22 CA C3 C3 C3 C3 C3 C3 C3 |;...-.."........|
000000F0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................|
00000100: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 CB |................|
00000110: 22 00 34 09 32 00 99 22 11 3C 12 20 31 20 92 3E |".4.2..".<. 1 .>|
00000120: 20 20 50 52 4F 47 52 41 4D 4D 20 2D 20 53 43 48 | PROGRAMM - SCH|
00000130: 55 54 5A 22 00 5F 09 3C 00 99 22 11 3C 12 20 32 |UTZ"._.<..".<. 2|
00000140: 20 92 3E 20 20 50 52 4F 47 52 41 4D 4D 20 2D 20 | .> PROGRAMM - |
00000150: 56 45 52 42 45 53 53 45 52 55 4E 47 45 4E 22 00 |VERBESSERUNGEN".|
00000160: 83 09 46 00 99 22 11 3C 12 20 33 20 92 3E 20 20 |..F..".<. 3 .> |
00000170: 46 4C 4F 50 50 59 20 20 20 2D 20 41 42 46 52 41 |FLOPPY - ABFRA|
00000180: 47 45 22 00 A7 09 50 00 99 22 11 3C 12 20 34 20 |GE"...P..".<. 4 |
00000190: 92 3E 20 20 50 52 49 4E 54 45 52 20 20 2D 20 41 |.> PRINTER - A|
000001A0: 42 46 52 41 47 45 22 00 CB 09 51 00 99 22 11 3C |BFRAGE"...Q..".<|
000001B0: 12 20 45 20 92 3E 20 20 50 52 4F 47 52 41 4D 4D |. E .> PROGRAMM|
000001C0: 20 20 20 42 45 45 4E 44 45 4E 22 00 10 0A 5A 00 | BEENDEN"...Z.|
000001D0: 81 49 B2 31 A4 31 30 3A 99 22 13 11 11 11 11 11 |.I.1.10:."......|
000001E0: 11 11 11 11 11 11 11 11 11 11 11 11 11 20 20 20 |............. |
000001F0: 20 20 20 20 20 20 42 49 54 54 45 20 5A 49 46 46 | BITTE ZIFF|
00000200: 45 52 20 57 41 45 48 4C 45 4E 20 21 20 22 3A 82 |ER WAEHLEN ! ":.|
00000210: 00 57 0A 64 00 81 49 B2 31 A4 31 30 3A 99 22 13 |.W.d..I.1.10:.".|
00000220: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000230: 11 11 20 20 20 20 20 20 20 20 12 20 42 49 54 54 |.. . BITT|
00000240: 45 20 5A 49 46 46 45 52 20 57 41 45 48 4C 45 4E |E ZIFFER WAEHLEN|
00000250: 20 21 20 92 22 3A 82 00 69 0A 6E 00 A1 45 24 3A | ! .":..i.n..E$:|
00000260: 8B 45 24 B2 22 22 A7 39 30 00 79 0A 78 00 8B 45 |.E$."".90.y.x..E|
00000270: 24 B2 22 31 22 A7 36 32 30 00 89 0A 82 00 8B 45 |$."1".620......E|
00000280: 24 B2 22 32 22 A7 33 36 30 00 99 0A 8C 00 8B 45 |$."2".360......E|
00000290: 24 B2 22 33 22 A7 31 37 30 00 A9 0A 96 00 8B 45 |$."3".170......E|
000002A0: 24 B2 22 34 22 A7 32 36 30 00 BC 0A 9B 00 8B 45 |$."4".260......E|
000002B0: 24 B2 22 45 22 A7 9E 36 34 37 36 37 00 C5 0A A0 |$."E"..64767....|
000002C0: 00 89 31 31 30 00 F1 0A AA 00 99 22 93 49 4D 20 |..110......".IM |
000002D0: 50 52 4F 47 52 41 4D 4D 20 4D 55 45 53 53 45 4E |PROGRAMM MUESSEN|
000002E0: 20 46 4F 4C 47 45 4E 44 45 20 5A 45 49 4C 45 4E | FOLGENDE ZEILEN|
000002F0: 22 00 05 0B B4 00 99 22 11 53 54 45 48 45 4E 3A |"......".STEHEN:|
00000300: 22 3A 99 44 24 00 2F 0B BE 00 99 22 11 11 31 30 |":.D$./...."..10|
00000310: 30 20 50 4F 4B 45 37 36 38 2C 36 31 3A 4F 50 45 |0 POKE768,61:OPE|
00000320: 4E 31 2C 38 2C 31 35 3A 43 4C 4F 53 45 31 22 00 |N1,8,15:CLOSE1".|
00000330: 59 0B C8 00 99 22 11 31 31 30 20 50 4F 4B 45 37 |Y....".110 POKE7|
00000340: 36 38 2C 31 33 39 3A 49 46 53 54 3C 3E 2D 31 32 |68,139:IFST<>-12|
00000350: 38 54 48 45 4E 31 33 30 22 00 91 0B D2 00 99 22 |8THEN130"......"|
00000360: 11 31 32 30 20 50 52 49 4E 54 22 C7 28 33 34 29 |.120 PRINT".(34)|
00000370: 22 46 4C 4F 50 50 59 20 41 55 53 47 45 53 43 48 |"FLOPPY AUSGESCH|
00000380: 41 4C 54 45 54 22 C7 28 33 34 29 22 3A 45 4E 44 |ALTET".(34)":END|
00000390: 22 00 C3 0B DC 00 99 22 11 31 33 30 20 50 52 49 |"......".130 PRI|
000003A0: 4E 54 22 C7 28 33 34 29 22 46 4C 4F 50 50 59 20 |NT".(34)"FLOPPY |
000003B0: 45 49 4E 47 45 53 43 48 41 4C 54 45 54 22 C7 28 |EINGESCHALTET".(|
000003C0: 33 34 29 00 EF 0B E6 00 99 22 11 31 34 30 20 50 |34)......".140 P|
000003D0: 52 49 4E 54 22 C7 28 33 34 29 22 50 52 4F 47 52 |RINT".(34)"PROGR|
000003E0: 41 4D 4D 2D 53 54 41 52 54 22 C7 28 33 34 29 00 |AMM-START".(34).|
000003F0: 17 0C F0 00 99 A6 38 29 22 11 11 11 11 12 20 42 |......8)"..... B|
00000400: 49 54 54 45 20 54 41 53 54 45 20 44 52 55 45 43 |ITTE TASTE DRUEC|
00000410: 4B 45 4E 20 21 20 22 00 34 0C FA 00 97 31 39 38 |KEN ! ".4....198|
00000420: 2C 30 3A 92 31 39 38 2C 31 3A 97 31 39 38 2C 30 |,0:.198,1:.198,0|
00000430: 3A 89 31 30 00 60 0C 04 01 99 22 93 49 4D 20 50 |:.10.`....".IM P|
00000440: 52 4F 47 52 41 4D 4D 20 4D 55 45 53 53 45 4E 20 |ROGRAMM MUESSEN |
00000450: 46 4F 4C 47 45 4E 44 45 20 5A 45 49 4C 45 4E 22 |FOLGENDE ZEILEN"|
00000460: 00 74 0C 0E 01 99 22 11 53 54 45 48 45 4E 3A 22 |.t....".STEHEN:"|
00000470: 3A 99 44 24 00 A3 0C 22 01 99 22 11 11 31 30 30 |:.D$...".."..100|
00000480: 20 50 4F 4B 45 37 36 38 2C 36 31 3A 4F 50 45 4E | POKE768,61:OPEN|
00000490: 31 2C 34 3A 50 52 49 4E 54 23 31 3A 43 4C 4F 53 |1,4:PRINT#1:CLOS|
000004A0: 45 31 22 00 CD 0C 2C 01 99 22 11 31 31 30 20 50 |E1"...,..".110 P|
000004B0: 4F 4B 45 37 36 38 2C 31 33 39 3A 49 46 53 54 3C |OKE768,139:IFST<|
000004C0: 3E 2D 31 32 38 54 48 45 4E 31 33 30 22 00 06 0D |>-128THEN130"...|
000004D0: 36 01 99 22 11 31 32 30 20 50 52 49 4E 54 22 C7 |6..".120 PRINT".|
000004E0: 28 33 34 29 22 44 52 55 43 4B 45 52 20 41 55 53 |(34)"DRUCKER AUS|
000004F0: 47 45 53 43 48 41 4C 54 45 54 22 C7 28 33 34 29 |GESCHALTET".(34)|
00000500: 22 3A 45 4E 44 22 00 39 0D 40 01 99 22 11 31 33 |":END".9.@..".13|
00000510: 30 20 50 52 49 4E 54 22 C7 28 33 34 29 22 44 52 |0 PRINT".(34)"DR|
00000520: 55 43 4B 45 52 20 45 49 4E 47 45 53 43 48 41 4C |UCKER EINGESCHAL|
00000530: 54 45 54 22 C7 28 33 34 29 00 65 0D 4A 01 99 22 |TET".(34).e.J.."|
00000540: 11 31 34 30 20 50 52 49 4E 54 22 C7 28 33 34 29 |.140 PRINT".(34)|
00000550: 22 50 52 4F 47 52 41 4D 4D 2D 53 54 41 52 54 22 |"PROGRAMM-START"|
00000560: C7 28 33 34 29 00 8D 0D 54 01 99 A6 38 29 22 11 |.(34)...T...8)".|
00000570: 11 11 11 12 20 42 49 54 54 45 20 54 41 53 54 45 |.... BITTE TASTE|
00000580: 20 44 52 55 45 43 4B 45 4E 20 21 20 22 00 AA 0D | DRUECKEN ! "...|
00000590: 5E 01 97 31 39 38 2C 30 3A 92 31 39 38 2C 31 3A |^..198,0:.198,1:|
000005A0: 97 31 39 38 2C 30 3A 89 31 30 00 D0 0D 68 01 99 |.198,0:.10...h..|
000005B0: 22 93 20 20 20 20 20 20 20 20 20 20 20 56 45 52 |". VER|
000005C0: 42 45 53 53 45 52 55 4E 47 20 4E 52 2E 20 31 22 |BESSERUNG NR. 1"|
000005D0: 00 F0 0D 72 01 99 A6 31 33 29 22 11 11 5A 41 48 |...r...13)"..ZAH|
000005E0: 4C 45 4E 20 52 55 4E 44 45 4E 11 22 3A 99 44 24 |LEN RUNDEN.":.D$|
000005F0: 00 35 0E 86 01 99 22 11 31 30 30 20 41 3D 49 4E |.5....".100 A=IN|
00000600: 54 28 5A 41 48 4C 2A 31 30 5E 41 4E 5A 2E 20 44 |T(ZAHL*10^ANZ. D|
00000610: 45 5A 2E 53 54 45 4C 4C 45 4E 2B 2E 35 29 5E 20 |EZ.STELLEN+.5)^ |
00000620: 20 20 20 20 41 4E 5A 2E 20 44 45 5A 2E 53 54 45 | ANZ. DEZ.STE|
00000630: 4C 4C 45 4E 22 00 49 0E 90 01 99 22 11 31 31 30 |LLEN".I....".110|
00000640: 20 50 52 49 4E 54 20 41 22 00 71 0E 9A 01 99 A6 | PRINT A".q.....|
00000650: 38 29 22 11 11 11 11 12 20 42 49 54 54 45 20 54 |8)"..... BITTE T|
00000660: 41 53 54 45 20 44 52 55 45 43 4B 45 4E 20 21 20 |ASTE DRUECKEN ! |
00000670: 22 00 8A 0E A4 01 97 31 39 38 2C 30 3A 92 31 39 |"......198,0:.19|
00000680: 38 2C 31 3A 97 31 39 38 2C 30 00 B0 0E AE 01 99 |8,1:.198,0......|
00000690: 22 93 20 20 20 20 20 20 20 20 20 20 20 56 45 52 |". VER|
000006A0: 42 45 53 53 45 52 55 4E 47 20 4E 52 2E 20 32 22 |BESSERUNG NR. 2"|
000006B0: 00 D2 0E B8 01 99 A6 31 32 29 22 11 11 46 55 45 |.......12)"..FUE|
000006C0: 48 52 45 4E 44 45 20 4E 55 4C 4C 45 4E 22 3A 99 |HRENDE NULLEN":.|
000006D0: 44 24 00 F6 0E C2 01 99 22 31 30 30 20 58 24 3D |D$......"100 X$=|
000006E0: 52 49 47 48 54 24 28 53 54 52 24 28 31 30 30 2B |RIGHT$(STR$(100+|
000006F0: 41 29 2C 32 29 22 00 0B 0F CC 01 99 22 11 31 31 |A),2)"......".11|
00000700: 30 20 50 52 49 4E 54 20 58 24 22 00 23 0F D6 01 |0 PRINT X$".#...|
00000710: 99 22 11 31 32 30 20 52 45 4D 20 58 24 20 3D 20 |.".120 REM X$ = |
00000720: 30 32 22 00 65 0F E0 01 99 22 11 31 33 30 20 52 |02".e....".130 R|
00000730: 45 4D 20 57 45 4E 4E 20 33 20 53 54 45 4C 4C 45 |EM WENN 3 STELLE|
00000740: 4E 2C 20 44 41 4E 4E 20 58 24 3D 52 49 47 48 54 |N, DANN X$=RIGHT|
00000750: 24 28 53 20 20 20 20 54 52 24 28 31 30 30 30 2B |$(S TR$(1000+|
00000760: 41 29 2C 33 29 00 7E 0F E5 01 99 22 11 31 34 30 |A),3).~....".140|
00000770: 20 52 45 4D 20 58 24 20 3D 20 30 30 32 22 00 A6 | REM X$ = 002"..|
00000780: 0F EA 01 99 A6 38 29 22 11 11 11 11 12 20 42 49 |.....8)"..... BI|
00000790: 54 54 45 20 54 41 53 54 45 20 44 52 55 45 43 4B |TTE TASTE DRUECK|
000007A0: 45 4E 20 21 20 22 00 BF 0F F4 01 97 31 39 38 2C |EN ! "......198,|
000007B0: 30 3A 92 31 39 38 2C 31 3A 97 31 39 38 2C 30 00 |0:.198,1:.198,0.|
000007C0: E5 0F FE 01 99 22 93 20 20 20 20 20 20 20 20 20 |.....". |
000007D0: 20 20 56 45 52 42 45 53 53 45 52 55 4E 47 20 4E | VERBESSERUNG N|
000007E0: 52 2E 20 33 22 00 14 10 08 02 99 A6 35 29 22 11 |R. 3".......5)".|
000007F0: 11 5A 45 49 4C 45 4E 20 41 55 46 20 42 49 4C 44 |.ZEILEN AUF BILD|
00000800: 53 43 48 49 52 4D 20 4C 4F 45 53 43 48 45 4E 22 |SCHIRM LOESCHEN"|
00000810: 3A 99 44 24 00 3E 10 12 02 99 22 11 31 30 30 20 |:.D$.>....".100 |
00000820: 50 4F 4B 45 37 38 31 2C 5A 45 49 4C 45 4E 4E 55 |POKE781,ZEILENNU|
00000830: 4D 4D 45 52 3A 53 59 53 35 39 39 30 33 22 00 66 |MMER:SYS59903".f|
00000840: 10 17 02 99 A6 38 29 22 11 11 11 11 12 20 42 49 |.....8)"..... BI|
00000850: 54 54 45 20 54 41 53 54 45 20 44 52 55 45 43 4B |TTE TASTE DRUECK|
00000860: 45 4E 20 21 20 22 00 7F 10 1C 02 97 31 39 38 2C |EN ! "......198,|
00000870: 30 3A 92 31 39 38 2C 31 3A 97 31 39 38 2C 30 00 |0:.198,1:.198,0.|
00000880: A5 10 26 02 99 22 93 20 20 20 20 20 20 20 20 20 |..&..". |
00000890: 20 20 56 45 52 42 45 53 53 45 52 55 4E 47 20 4E | VERBESSERUNG N|
000008A0: 52 2E 20 34 22 00 C3 10 30 02 99 A6 31 34 29 22 |R. 4"...0...14)"|
000008B0: 11 11 52 45 53 45 54 20 4B 49 4C 4C 45 52 22 3A |..RESET KILLER":|
000008C0: 99 44 24 00 ED 10 3A 02 99 22 11 31 30 30 20 46 |.D$...:..".100 F|
000008D0: 4F 52 49 3D 31 54 4F 39 3A 52 45 41 44 41 3A 50 |ORI=1TO9:READA:P|
000008E0: 4F 4B 45 33 32 37 36 37 2B 49 2C 44 22 00 FF 10 |OKE32767+I,D"...|
000008F0: 44 02 99 22 11 31 31 30 20 4E 45 58 54 49 22 00 |D..".110 NEXTI".|
00000900: 2B 11 4E 02 99 22 11 31 32 30 20 44 41 54 41 30 |+.N..".120 DATA0|
00000910: 2C 30 2C 32 35 35 2C 30 2C 31 39 35 2C 31 39 34 |,0,255,0,195,194|
00000920: 2C 32 30 35 2C 35 36 2C 34 38 22 00 53 11 58 02 |,205,56,48".S.X.|
00000930: 99 A6 38 29 22 11 11 11 11 12 20 42 49 54 54 45 |..8)"..... BITTE|
00000940: 20 54 41 53 54 45 20 44 52 55 45 43 4B 45 4E 20 | TASTE DRUECKEN |
00000950: 21 20 22 00 70 11 62 02 97 31 39 38 2C 30 3A 92 |! ".p.b..198,0:.|
00000960: 31 39 38 2C 31 3A 97 31 39 38 2C 30 3A 89 31 30 |198,1:.198,0:.10|
00000970: 00 97 11 6C 02 99 22 93 20 20 20 20 20 20 20 20 |...l..". |
00000980: 20 20 50 52 4F 47 52 41 4D 4D 2D 53 43 48 55 54 | PROGRAMM-SCHUT|
00000990: 5A 20 4E 52 2E 31 22 00 BD 11 76 02 99 A6 39 29 |Z NR.1"...v...9)|
000009A0: 22 11 11 50 52 4F 47 52 41 4D 4D 4B 49 4C 4C 45 |"..PROGRAMMKILLE|
000009B0: 52 20 50 4F 4B 45 27 53 22 3A 99 44 24 00 FE 11 |R POKE'S":.D$...|
000009C0: 80 02 99 22 11 50 4F 4B 45 20 37 37 36 2C 31 22 |...".POKE 776,1"|
000009D0: 3A 99 22 11 50 4F 4B 45 20 37 37 37 2C 31 22 3A |:.".POKE 777,1":|
000009E0: 99 22 11 50 4F 4B 45 37 37 30 2C 30 22 3A 99 22 |.".POKE770,0":."|
000009F0: 11 50 4F 4B 45 20 37 37 34 2C 32 32 36 22 00 13 |.POKE 774,226"..|
00000A00: 12 8A 02 99 22 11 50 4F 4B 45 20 37 37 35 2C 32 |....".POKE 775,2|
00000A10: 35 32 22 00 3B 12 94 02 99 A6 38 29 22 11 11 11 |52".;.....8)"...|
00000A20: 11 12 20 42 49 54 54 45 20 54 41 53 54 45 20 44 |.. BITTE TASTE D|
00000A30: 52 55 45 43 4B 45 4E 20 21 20 22 00 54 12 9E 02 |RUECKEN ! ".T...|
00000A40: 97 31 39 38 2C 30 3A 92 31 39 38 2C 31 3A 97 31 |.198,0:.198,1:.1|
00000A50: 39 38 2C 30 00 7B 12 A8 02 99 22 93 20 20 20 20 |98,0.{....". |
00000A60: 20 20 20 20 20 20 50 52 4F 47 52 41 4D 4D 2D 53 | PROGRAMM-S|
00000A70: 43 48 55 54 5A 20 4E 52 2E 32 22 00 9E 12 B2 02 |CHUTZ NR.2".....|
00000A80: 99 A6 31 31 29 22 11 11 4C 49 53 54 53 43 48 55 |..11)"..LISTSCHU|
00000A90: 54 5A 20 50 4F 4B 45 27 53 22 3A 99 44 24 00 E8 |TZ POKE'S":.D$..|
00000AA0: 12 BC 02 99 22 11 50 4F 4B 45 20 37 37 35 2C 32 |....".POKE 775,2|
00000AB0: 30 30 22 3A 99 22 11 50 4F 4B 45 20 37 37 33 2C |00":.".POKE 773,|
00000AC0: 30 22 3A 99 22 11 50 4F 4B 45 20 37 37 35 2C 31 |0":.".POKE 775,1|
00000AD0: 20 20 20 3A 20 52 45 4D 20 4C 49 53 54 53 43 48 | : REM LISTSCH|
00000AE0: 55 54 5A 20 45 49 4E 22 00 12 13 C6 02 99 22 11 |UTZ EIN"......".|
00000AF0: 50 4F 4B 45 20 37 37 35 2C 31 37 36 20 3A 20 52 |POKE 775,176 : R|
00000B00: 45 4D 20 4C 49 53 54 53 43 48 55 54 5A 20 41 55 |EM LISTSCHUTZ AU|
00000B10: 53 22 00 3A 13 D0 02 99 A6 38 29 22 11 11 11 11 |S".:.....8)"....|
00000B20: 12 20 42 49 54 54 45 20 54 41 53 54 45 20 44 52 |. BITTE TASTE DR|
00000B30: 55 45 43 4B 45 4E 20 21 20 22 00 53 13 DA 02 97 |UECKEN ! ".S....|
00000B40: 31 39 38 2C 30 3A 92 31 39 38 2C 31 3A 97 31 39 |198,0:.198,1:.19|
00000B50: 38 2C 30 00 7A 13 E4 02 99 22 93 20 20 20 20 20 |8,0.z....". |
00000B60: 20 20 20 20 20 50 52 4F 47 52 41 4D 4D 2D 53 43 | PROGRAMM-SC|
00000B70: 48 55 54 5A 20 4E 52 2E 33 22 00 A3 13 EE 02 99 |HUTZ NR.3"......|
00000B80: A6 38 29 22 11 11 50 52 4F 47 52 41 4D 4D 20 2D |.8)"..PROGRAMM -|
00000B90: 20 4B 49 4C 4C 45 52 20 50 4F 4B 45 27 53 22 3A | KILLER POKE'S":|
00000BA0: 99 44 24 00 C9 13 F8 02 99 22 11 50 4F 4B 45 20 |.D$......".POKE |
00000BB0: 37 37 34 2C 32 32 36 22 3A 99 22 11 50 4F 4B 45 |774,226":.".POKE|
00000BC0: 20 37 37 35 2C 32 35 32 22 00 F1 13 02 03 99 A6 | 775,252".......|
00000BD0: 38 29 22 11 11 11 11 12 20 42 49 54 54 45 20 54 |8)"..... BITTE T|
00000BE0: 41 53 54 45 20 44 52 55 45 43 4B 45 4E 20 21 20 |ASTE DRUECKEN ! |
00000BF0: 22 00 0A 14 0C 03 97 31 39 38 2C 30 3A 92 31 39 |"......198,0:.19|
00000C00: 38 2C 31 3A 97 31 39 38 2C 30 00 31 14 16 03 99 |8,1:.198,0.1....|
00000C10: 22 93 20 20 20 20 20 20 20 20 20 20 50 52 4F 47 |". PROG|
00000C20: 52 41 4D 4D 2D 53 43 48 55 54 5A 20 4E 52 2E 34 |RAMM-SCHUTZ NR.4|
00000C30: 22 00 57 14 20 03 99 A6 31 30 29 22 11 11 50 52 |".W. ...10)"..PR|
00000C40: 4F 47 52 41 4D 4D 20 53 41 56 45 2D 53 43 48 55 |OGRAMM SAVE-SCHU|
00000C50: 54 5A 22 3A 99 44 24 00 6C 14 2A 03 99 22 11 50 |TZ":.D$.l.*..".P|
00000C60: 4F 4B 45 20 38 31 39 2C 32 34 35 22 00 94 14 34 |OKE 819,245"...4|
00000C70: 03 99 A6 38 29 22 11 11 11 11 12 20 42 49 54 54 |...8)"..... BITT|
00000C80: 45 20 54 41 53 54 45 20 44 52 55 45 43 4B 45 4E |E TASTE DRUECKEN|
00000C90: 20 21 20 22 00 AD 14 3E 03 97 31 39 38 2C 30 3A | ! "...>..198,0:|
00000CA0: 92 31 39 38 2C 31 3A 97 31 39 38 2C 30 00 D4 14 |.198,1:.198,0...|
00000CB0: 48 03 99 22 93 20 20 20 20 20 20 20 20 20 20 50 |H..". P|
00000CC0: 52 4F 47 52 41 4D 4D 2D 53 43 48 55 54 5A 20 4E |ROGRAMM-SCHUTZ N|
00000CD0: 52 2E 35 22 00 FA 14 52 03 99 A6 31 30 29 22 11 |R.5"...R...10)".|
00000CE0: 11 54 41 53 54 45 4E 2D 4B 49 4C 4C 45 52 20 50 |.TASTEN-KILLER P|
00000CF0: 4F 4B 45 27 53 22 3A 99 44 24 00 3C 15 5C 03 99 |OKE'S":.D$.<.\..|
00000D00: 22 11 50 4F 4B 45 20 36 35 37 2C 31 32 38 20 3A |".POKE 657,128 :|
00000D10: 52 45 4D 20 43 4F 4D 4D 4F 44 4F 52 45 2B 53 48 |REM COMMODORE+SH|
00000D20: 49 46 54 2D 54 41 53 54 45 20 20 20 20 20 20 20 |IFT-TASTE |
00000D30: 20 20 20 20 20 20 20 20 41 55 53 22 00 7E 15 66 | AUS".~.f|
00000D40: 03 99 22 11 50 4F 4B 45 20 38 30 38 2C 32 35 34 |..".POKE 808,254|
00000D50: 20 3A 52 45 4D 20 52 55 4E 53 54 4F 50 2F 52 45 | :REM RUNSTOP/RE|
00000D60: 53 54 4F 52 45 2D 54 41 53 54 45 4E 20 20 20 20 |STORE-TASTEN |
00000D70: 20 20 20 20 20 20 20 20 20 20 41 55 53 22 00 C3 | AUS"..|
00000D80: 15 70 03 99 22 11 50 4F 4B 45 20 36 35 30 2C 31 |.p..".POKE 650,1|
00000D90: 32 38 20 3A 52 45 4D 20 41 55 54 4F 52 45 50 45 |28 :REM AUTOREPE|
00000DA0: 41 54 20 41 55 46 20 41 4C 4C 45 4E 20 20 20 20 |AT AUF ALLEN |
00000DB0: 20 20 20 20 20 20 20 20 20 20 20 20 54 41 53 54 | TAST|
00000DC0: 45 4E 22 00 EB 15 7A 03 99 A6 38 29 22 11 11 11 |EN"...z...8)"...|
00000DD0: 11 12 20 42 49 54 54 45 20 54 41 53 54 45 20 44 |.. BITTE TASTE D|
00000DE0: 52 55 45 43 4B 45 4E 20 21 20 22 00 08 16 84 03 |RUECKEN ! ".....|
00000DF0: 97 31 39 38 2C 30 3A 92 31 39 38 2C 31 3A 97 31 |.198,0:.198,1:.1|
00000E00: 39 38 2C 30 3A 89 31 30 00 00 00 |98,0:.10... |
.......53280,0:.53281,0.I...D$."CCCCCCCC
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC".{...."
.UCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
I";......"B. PROGRAMM - HILFSROUTINEN
VC 64 .B";...(.."B. COPYRIGHT <C> 1
985 BY DIETER PLAUM .B";...-.."JCCCCCCC
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCK".4.2.."
.<. 1 .> PROGRAMM - SCHUTZ"._.<..".<. 2
.> PROGRAMM - VERBESSERUNGEN"...F..".<
. 3 .> FLOPPY - ABFRAGE"...P..".<. 4
.> PRINTER - ABFRAGE".K.Q..".<. E .>
PROGRAMM BEENDEN"...Z..I.1.10:."......
............. BITTE ZIFFER WAEHL
EN ! ":..W.D..I.1.10:.".................
.. . BITTE ZIFFER WAEHLEN ! .":..
I.N..E$:.E$."".90.Y.X..E$."1".620......E
$."2".360......E$."3".170......E$."4".26
0......E$."E"..64767.E. ..110......".IM
PROGRAMM MUESSEN FOLGENDE ZEILEN"......"
.STEHEN:":.D$./...."..100 POKE768,61:OPE
N1,8,15:CLOSE1".Y.H..".110 POKE768,139:I
FST<>-128THEN130"...R..".120 PRINT"G(34)
"FLOPPY AUSGESCHALTET"G(34)":END".C...."
.130 PRINT"G(34)"FLOPPY EINGESCHALTET"G(
34)......".140 PRINT"G(34)"PROGRAMM-STAR
T"G(34).......8)"..... BITTE TASTE DRUEC
KEN ! ".4....198,0:.198,1:.198,0:.10.`..
..".IM PROGRAMM MUESSEN FOLGENDE ZEILEN"
.T....".STEHEN:":.D$...".."..100 POKE768
,61:OPEN1,4:PRINT#1:CLOSE1".M.,..".110 P
OKE768,139:IFST<>-128THEN130"...6..".120
PRINT"G(34)"DRUCKER AUSGESCHALTET"G(34)
":END".9.@..".130 PRINT"G(34)"DRUCKER EI
NGESCHALTET"G(34).E.J..".140 PRINT"G(34)
"PROGRAMM-START"G(34)...T...8)"..... BIT
TE TASTE DRUECKEN ! "...^..198,0:.198,1:
.198,0:.10.P.H..". VERBESSERUN
G NR. 1"...R...13)"..ZAHLEN RUNDEN.":.D$
.5....".100 A=INT(ZAHL*10^ANZ. DEZ.STELL
EN+.5)^ ANZ. DEZ.STELLEN".I....".110
PRINT A".Q.....8)"..... BITTE TASTE DRU
ECKEN ! "......198,0:.198,1:.198,0......
". VERBESSERUNG NR. 2".R.....1
2)"..FUEHRENDE NULLEN":.D$...B.."100 X$=
RIGHT$(STR$(100+A),2)"...L..".110 PRINT
X$".#.V..".120 REM X$ = 02".E....".130 R
EM WENN 3 STELLEN, DANN X$=RIGHT$(S T
R$(1000+A),3).~....".140 REM X$ = 002"..
.....8)"..... BITTE TASTE DRUECKEN ! "..
....198,0:.198,1:.198,0......".
VERBESSERUNG NR. 3".......5)"..ZEILEN
AUF BILDSCHIRM LOESCHEN":.D$.>....".100
POKE781,ZEILENNUMMER:SYS59903".F.....8)"
..... BITTE TASTE DRUECKEN ! ".....198,
0:.198,1:.198,0...&..". VERBES
SERUNG NR. 4".C.0...14)"..RESET KILLER":
.D$...:..".100 FORI=1TO9:READA:POKE32767
+I,D"...D..".110 NEXTI".+.N..".120 DATA0
,0,255,0,195,194,205,56,48".S.X...8)"...
.. BITTE TASTE DRUECKEN ! ".P.B..198,0:.
198,1:.198,0:.10...L..". PROGRA
MM-SCHUTZ NR.1"...V...9)"..PROGRAMMKILLE
R POKE'S":.D$......".POKE 776,1":.".POKE
777,1":.".POKE770,0":.".POKE 774,226"..
....".POKE 775,252".;.....8)"..... BITTE
TASTE DRUECKEN ! ".T....198,0:.198,1:.1
98,0.{....". PROGRAMM-SCHUTZ NR
.2".......11)"..LISTSCHUTZ POKE'S":.D$..
....".POKE 775,200":.".POKE 773,0":.".PO
KE 775,1 : REM LISTSCHUTZ EIN"...F..".
POKE 775,176 : REM LISTSCHUTZ AUS".:.P..
.8)"..... BITTE TASTE DRUECKEN ! ".S.Z..
198,0:.198,1:.198,0.Z....". PRO
GRAMM-SCHUTZ NR.3".......8)"..PROGRAMM -
KILLER POKE'S":.D$.I....".POKE 774,226"
:.".POKE 775,252".......8)"..... BITTE T
ASTE DRUECKEN ! "......198,0:.198,1:.198
,0.1....". PROGRAMM-SCHUTZ NR.4
".W. ...10)"..PROGRAMM SAVE-SCHUTZ":.D$.
L.*..".POKE 819,245"...4...8)"..... BITT
E TASTE DRUECKEN ! "...>..198,0:.198,1:.
198,0.T.H..". PROGRAMM-SCHUTZ N
R.5"...R...10)"..TASTEN-KILLER POKE'S":.
D$.<.\..".POKE 657,128 :REM COMMODORE+SH
IFT-TASTE AUS".~.F..".POKE
808,254 :REM RUNSTOP/RESTORE-TASTEN
AUS".C.P..".POKE 650,128 :REM
AUTOREPEAT AUF ALLEN TAST
EN"...Z...8)"..... BITTE TASTE DRUECKEN
! "......198,0:.198,1:.198,0:.10...
> CLICK IMAGE PREVIEW FOR FULL MODAL