LICHTGR.1
FILE INFORMATION
FILENAME(S): LICHTGR.1
FILE TYPE(S): PRG
FILE SIZE: 2K
FIRST SEEN: 2025-11-30 01:12:36
APPEARS ON: 1 disk(s)
FILE HASH
0f0557e84aa4a292a965d7a9db06a5c0d29ef37023093c23818778e64949aef0
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MASTER 64 9 | LICHTGR.1 | PRG | C64er, DuncanTwain | 17 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 27 08 64 00 8F 20 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: 2A 2A 2A 2A 2A 2A 2A 00 4D 08 6E 00 8F 20 2A 20 |*******.M.n.. * | 00000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000040: 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 73 08 | *.s.| 00000050: 78 00 8F 20 2A 20 20 20 20 20 20 20 44 20 45 20 |x.. * D E | 00000060: 4D 20 4F 20 20 20 5A 20 55 20 4D 20 20 20 20 20 |M O Z U M | 00000070: 20 20 2A 00 99 08 82 00 8F 20 2A 20 20 20 20 20 | *...... * | 00000080: 20 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D | --------------| 00000090: 2D 20 20 20 20 20 20 20 2A 00 BF 08 8C 00 8F 20 |- *...... | 000000A0: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* | 000000B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 | *.| 000000C0: E5 08 96 00 8F 20 2A 20 20 20 4C 20 49 20 43 20 |..... * L I C | 000000D0: 48 20 54 20 47 20 52 20 49 20 46 20 46 20 45 20 |H T G R I F F E | 000000E0: 4C 20 20 20 2A 00 0B 09 A0 00 8F 20 2A 20 20 20 |L *...... * | 000000F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000100: 2D 2D 2D 2D 2D 2D 2D 20 20 20 2A 00 31 09 AA 00 |------- *.1...| 00000110: 8F 20 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 |. * | 00000120: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000130: 2A 00 57 09 B4 00 8F 20 2A 20 20 42 59 20 20 20 |*.W.... * BY | 00000140: 54 4F 42 49 41 53 20 20 20 20 20 20 20 20 4E 49 |TOBIAS NI| 00000150: 43 4F 4C 20 20 20 2A 00 7D 09 BE 00 8F 20 2A 20 |COL *.}.... * | 00000160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000170: 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 A3 09 | *...| 00000180: C8 00 8F 20 2A 20 20 20 20 20 20 20 4E 45 55 57 |... * NEUW| 00000190: 49 45 53 45 4E 53 54 52 41 53 53 45 20 32 30 20 |IESENSTRASSE 20 | 000001A0: 20 20 2A 00 C9 09 D2 00 8F 20 2A 20 20 20 20 20 | *...... * | 000001B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000001C0: 20 20 20 20 20 20 20 20 2A 00 EF 09 DC 00 8F 20 | *...... | 000001D0: 2A 20 20 20 20 20 20 20 36 30 30 30 20 20 46 52 |* 6000 FR| 000001E0: 41 4E 4B 46 55 52 54 20 20 37 31 20 20 20 2A 00 |ANKFURT 71 *.| 000001F0: 15 0A E6 00 8F 20 2A 20 20 20 20 20 20 20 20 20 |..... * | 00000200: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000210: 20 20 20 20 2A 00 3B 0A F0 00 8F 20 2A 2A 2A 2A | *.;.... ****| 00000220: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000230: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 41 0A FA 00 |***********.A...| 00000240: 20 00 67 0A 04 01 8F 20 2A 2A 2A 2A 2A 2A 2A 2A | .g.... ********| 00000250: 2A 20 49 4E 46 4F 52 4D 41 54 49 4F 4E 20 2A 2A |* INFORMATION **| 00000260: 2A 2A 2A 2A 2A 2A 2A 00 8A 0A 0E 01 99 20 22 93 |*******...... ".| 00000270: 11 11 11 11 53 4F 4C 4C 20 44 45 52 20 50 55 4E |....SOLL DER PUN| 00000280: 4B 54 20 4A 45 57 45 49 4C 53 00 AC 0A 18 01 99 |KT JEWEILS......| 00000290: 20 22 11 57 49 45 44 45 52 20 47 45 4C 4F 45 53 | ".WIEDER GELOES| 000002A0: 43 48 54 20 57 45 52 44 45 4E 3F 11 00 D0 0A 22 |CHT WERDEN?...."| 000002B0: 01 99 20 22 42 49 54 54 45 20 27 4A 27 20 4F 44 |.. "BITTE 'J' OD| 000002C0: 45 52 20 27 4E 27 20 45 49 4E 47 45 42 45 4E 21 |ER 'N' EINGEBEN!| 000002D0: 00 EB 0A 2C 01 A1 20 41 24 20 3A 20 8B 20 41 24 |...,.. A$ : . A$| 000002E0: 20 B2 20 22 22 20 A7 20 33 30 30 00 02 0B 36 01 | . "" . 300...6.| 000002F0: 8B 20 41 24 20 B2 20 22 4E 22 20 A7 20 4C 20 B2 |. A$ . "N" . L .| 00000300: 20 31 00 08 0B 40 01 20 00 2E 0B 4A 01 8F 20 2A | 1...@. ...J.. *| 00000310: 2A 2A 2A 2A 2A 2A 20 49 4E 49 54 49 41 4C 49 53 |****** INITIALIS| 00000320: 49 45 52 55 4E 47 20 2A 2A 2A 2A 2A 2A 2A 00 48 |IERUNG *******.H| 00000330: 0B 54 01 97 20 35 33 32 38 30 2C 30 20 3A 20 97 |.T.. 53280,0 : .| 00000340: 20 35 33 32 38 31 2C 31 00 66 0B 5E 01 99 20 22 | 53281,1.f.^.. "| 00000350: 93 22 20 3A 20 41 20 B2 20 31 30 32 34 20 3A 20 |." : A . 1024 : | 00000360: 42 20 B2 20 34 30 00 7D 0B 68 01 43 20 B2 20 32 |B . 40.}.h.C . 2| 00000370: 34 20 3A 20 44 20 B2 20 35 33 32 36 37 00 83 0B |4 : D . 53267...| 00000380: 72 01 20 00 A9 0B 7C 01 8F 20 2A 2A 2A 2A 2A 20 |r. ...|.. ***** | 00000390: 46 41 52 42 53 50 45 49 43 48 45 52 20 53 45 54 |FARBSPEICHER SET| 000003A0: 5A 45 4E 20 2A 2A 2A 2A 2A 00 C1 0B 86 01 81 20 |ZEN *****...... | 000003B0: 49 20 B2 20 35 35 32 39 36 20 A4 20 35 36 32 39 |I . 55296 . 5629| 000003C0: 35 00 D1 0B 90 01 97 20 49 2C 30 20 3A 20 82 20 |5...... I,0 : . | 000003D0: 49 00 D7 0B 9A 01 20 00 FD 0B A4 01 8F 20 2A 2A |I..... ...... **| 000003E0: 2A 2A 2A 2A 20 20 57 45 52 54 45 20 20 45 49 4E |**** WERTE EIN| 000003F0: 4C 45 53 45 4E 20 20 2A 2A 2A 2A 2A 2A 00 23 0C |LESEN ******.#.| 00000400: AE 01 8F 20 2A 2A 2A 2A 2A 2A 20 55 4E 44 20 53 |... ****** UND S| 00000410: 54 41 42 49 4C 49 53 49 45 52 45 4E 20 2A 2A 2A |TABILISIEREN ***| 00000420: 2A 2A 2A 00 33 0C B8 01 81 20 49 20 B2 20 31 20 |***.3.... I . 1 | 00000430: A4 20 35 00 45 0C C2 01 58 20 B2 20 58 20 AA 20 |. 5.E...X . X . | 00000440: C2 20 28 44 29 00 59 0C CC 01 59 20 B2 20 59 20 |. (D).Y...Y . Y | 00000450: AA 20 C2 20 28 44 AA 31 29 00 61 0C D6 01 82 20 |. . (D.1).a.... | 00000460: 49 00 7F 0C E0 01 58 20 B2 20 B5 20 28 58 AD 35 |I.....X . . (X.5| 00000470: 29 20 3A 20 59 20 B2 20 B5 20 28 59 AD 35 29 00 |) : Y . . (Y.5).| 00000480: 85 0C EA 01 20 00 AB 0C F4 01 8F 20 2A 2A 20 49 |.... ...... ** I| 00000490: 4E 20 4B 4F 4F 52 44 49 4E 41 54 45 4E 20 55 4D |N KOORDINATEN UM| 000004A0: 57 41 4E 44 45 4C 4E 20 20 2A 2A 00 C9 0C FE 01 |WANDELN **.....| 000004B0: 4B 58 20 B2 20 B5 20 28 28 58 AB 35 30 29 AD 31 |KX . . ((X.50).1| 000004C0: 38 30 AC 28 42 AB 31 29 29 00 E3 0C 08 02 4B 59 |80.(B.1)).....KY| 000004D0: 20 B2 20 B5 20 28 28 59 AB 34 35 29 AD 31 39 30 | . . ((Y.45).190| 000004E0: AC 43 29 00 E9 0C 12 02 20 00 0F 0D 1C 02 8F 20 |.C)..... ...... | 000004F0: 2A 2A 20 4B 4F 4F 52 44 49 4E 41 54 45 4E 20 4B |** KOORDINATEN K| 00000500: 4F 4E 54 52 4F 4C 4C 49 45 52 45 4E 20 2A 2A 00 |ONTROLLIEREN **.| 00000510: 25 0D 26 02 8B 20 4B 58 20 B3 20 30 20 A7 20 4B |%.&.. KX . 0 . K| 00000520: 58 20 B2 20 30 00 3B 0D 30 02 8B 20 4B 59 20 B3 |X . 0.;.0.. KY .| 00000530: 20 30 20 A7 20 4B 59 20 B2 20 30 00 55 0D 3A 02 | 0 . KY . 0.U.:.| 00000540: 8B 20 4B 58 20 B1 20 42 AB 31 20 A7 20 4B 58 20 |. KX . B.1 . KX | 00000550: B2 20 42 AB 31 00 6B 0D 44 02 8B 20 4B 59 20 B1 |. B.1.k.D.. KY .| 00000560: 20 43 20 A7 20 4B 59 20 B2 20 43 00 71 0D 4E 02 | C . KY . C.q.N.| 00000570: 20 00 97 0D 58 02 8F 20 2A 2A 2A 2A 20 50 55 4E | ...X.. **** PUN| 00000580: 4B 54 20 53 45 54 5A 45 4E 2F 4C 4F 45 53 43 48 |KT SETZEN/LOESCH| 00000590: 45 4E 20 2A 2A 2A 2A 00 B2 0D 62 02 8B 20 4C B2 |EN ****...b.. L.| 000005A0: 30 20 A7 20 97 20 41 AA 58 41 AA 59 41 AC 42 2C |0 . . A.XA.YA.B,| 000005B0: 33 32 00 C6 0D 6C 02 97 20 41 AA 4B 58 AA 4B 59 |32...l.. A.KX.KY| 000005C0: AC 42 2C 31 36 30 00 CC 0D 76 02 20 00 F2 0D 80 |.B,160...v. ....| 000005D0: 02 8F 20 2A 2A 20 4E 45 55 45 20 57 45 52 54 45 |.. ** NEUE WERTE| 000005E0: 20 26 20 52 55 45 43 4B 53 50 52 55 4E 47 20 20 | & RUECKSPRUNG | 000005F0: 2A 2A 00 18 0E 8A 02 58 41 20 B2 20 4B 58 20 3A |**.....XA . KX :| 00000600: 20 59 41 20 B2 20 4B 59 20 3A 20 58 20 B2 20 30 | YA . KY : X . 0| 00000610: 20 3A 20 59 20 B2 20 30 00 22 0E 94 02 89 20 34 | : Y . 0.".... 4| 00000620: 32 30 00 28 0E 9E 02 20 00 2E 0E A8 02 20 00 34 |20.(... ..... .4| 00000630: 0E B2 02 20 00 5A 0E BC 02 8F 20 2A 2A 2A 2A 2A |... .Z.... *****| 00000640: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000650: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 80 0E C6 02 8F |**********......| 00000660: 20 2A 2A 2A 20 41 45 4E 44 45 52 55 4E 47 45 4E | *** AENDERUNGEN| 00000670: 20 46 55 45 52 20 56 43 2D 32 30 20 20 2A 2A 2A | FUER VC-20 ***| 00000680: 00 A6 0E D0 02 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |...... *********| 00000690: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000006A0: 2A 2A 2A 2A 2A 2A 00 AC 0E DA 02 8F 00 CF 0E E4 |******..........| 000006B0: 02 8F 20 53 45 54 5A 45 4E 20 53 49 45 20 44 49 |.. SETZEN SIE DI| 000006C0: 45 53 45 20 5A 45 49 4C 45 4E 20 45 49 4E 3A 00 |ESE ZEILEN EIN:.| 000006D0: D5 0E EE 02 8F 00 ED 0E F8 02 8F 20 33 34 30 20 |........... 340 | 000006E0: 50 4F 4B 45 20 33 36 38 37 39 2C 32 34 00 11 0F |POKE 36879,24...| 000006F0: 02 03 8F 20 33 35 30 20 50 52 49 4E 54 20 22 93 |... 350 PRINT ".| 00000700: 22 20 3A 20 41 3D 37 36 38 30 20 3A 20 42 3D 32 |" : A=7680 : B=2| 00000710: 32 00 2A 0F 0C 03 8F 20 33 36 30 20 43 3D 32 32 |2.*.... 360 C=22| 00000720: 20 3A 20 44 3D 33 36 38 37 30 00 4B 0F 16 03 8F | : D=36870.K....| 00000730: 20 33 39 30 20 46 4F 52 20 49 20 3D 20 33 38 34 | 390 FOR I = 384| 00000740: 30 30 20 54 4F 20 33 38 39 30 35 00 70 0F 20 03 |00 TO 38905.p. .| 00000750: 8F 20 35 31 30 20 4B 58 20 3D 20 49 4E 54 20 28 |. 510 KX = INT (| 00000760: 28 58 2D 35 35 29 2F 39 35 2A 28 42 2D 31 29 29 |(X-55)/95*(B-1))| 00000770: 00 93 0F 2A 03 8F 20 35 32 30 20 4B 59 20 3D 20 |...*.. 520 KY = | 00000780: 49 4E 54 20 28 28 59 2D 33 38 29 2F 38 39 2A 28 |INT ((Y-38)/89*(| 00000790: 43 29 29 00 99 0F 34 03 8F 00 BD 0F 3E 03 8F 20 |C))...4.....>.. | 000007A0: 57 45 4E 4E 20 53 49 45 20 44 41 53 20 50 52 4F |WENN SIE DAS PRO| 000007B0: 47 52 41 4D 4D 20 41 42 53 50 45 49 2D 00 E2 0F |GRAMM ABSPEI-...| 000007C0: 48 03 8F 20 43 48 45 52 4E 20 57 4F 4C 4C 45 4E |H.. CHERN WOLLEN| 000007D0: 2C 20 53 4F 4C 4C 54 45 4E 20 53 49 45 20 4E 4F |, SOLLTEN SIE NO| 000007E0: 43 48 00 05 10 52 03 8F 20 44 49 45 20 5A 45 49 |CH...R.. DIE ZEI| 000007F0: 4C 45 4E 20 32 37 30 2D 32 39 30 20 41 4E 50 41 |LEN 270-290 ANPA| 00000800: 53 53 45 4E 2E 00 00 00 |SSEN.... |
..'.D.. *******************************.
M.N.. * *.S.
X.. * D E M O Z U M *.....
. * --------------- *......
* *...... *
L I C H T G R I F F E L *... .. *
----------------------- *.1.... *
*.W.... * BY
TOBIAS NICOL *.}.... *
*...H.. * NEUW
IESENSTRASSE 20 *.I.R.. *
*...... * 6000 FR
ANKFURT 71 *...... *
*.;.... ********************
***********.A... .G.... ********* INFORM
ATION *********...... ".....SOLL DER PUN
KT JEWEILS...... ".WIEDER GELOESCHT WERD
EN?..P.".. "BITTE 'J' ODER 'N' EINGEBEN!
...,.. A$ : . A$ . "" . 300...6.. A$ . "
N" . L . 1...@. ...J.. ******* INITIALIS
IERUNG *******.H.T.. 53280,0 : . 53281,1
.F.^.. "." : A . 1024 : B . 40.}.H.C . 2
4 : D . 53267...R. ...|.. ***** FARBSPEI
CHER SETZEN *****.A.... I . 55296 . 5629
5.Q.... I,0 : . I.W... ...... ****** WE
RTE EINLESEN ******.#.... ****** UND S
TABILISIEREN ******.3.... I . 1 . 5.E.B.
X . X . B (D).Y.L.Y . Y . B (D.1).A.V..
I....X . . (X.5) : Y . . (Y.5)..... ...
... ** IN KOORDINATEN UMWANDELN **.I...
KX . . ((X.50).180.(B.1)).....KY . . ((Y
.45).190.C)..... ...... ** KOORDINATEN K
ONTROLLIEREN **.%.&.. KX . 0 . KX . 0.;.
0.. KY . 0 . KY . 0.U.:.. KX . B.1 . KX
. B.1.K.D.. KY . C . KY . C.Q.N. ...X..
**** PUNKT SETZEN/LOESCHEN ****...B.. L.
0 . . A.XA.YA.B,32.F.L.. A.KX.KY.B,160.L
.V. ...... ** NEUE WERTE & RUECKSPRUNG
**.....XA . KX : YA . KY : X . 0 : Y . 0
.".... 420.(... ..... .4... .Z.... *****
**************************...F.. *** AEN
DERUNGEN FUER VC-20 ***...P.. *********
**********************...Z...O.... SETZE
N SIE DIESE ZEILEN EIN:.U.......... 340
POKE 36879,24...... 350 PRINT "." : A=76
80 : B=22.*.... 360 C=22 : D=36870.K....
390 FOR I = 38400 TO 38905.P. .. 510 KX
= INT ((X-55)/95*(B-1))...*.. 520 KY =
INT ((Y-38)/89*(C))...4.....>.. WENN SIE
DAS PROGRAMM ABSPEI-...H.. CHERN WOLLEN
, SOLLTEN SIE NOCH...R.. DIE ZEILEN 270-
290 ANPASSEN....
> CLICK IMAGE PREVIEW FOR FULL MODAL