LASER

FILE INFORMATION

FILENAME(S): LASER

FILE TYPE(S): PRG

FILE SIZE: 2.2K

FIRST SEEN: 2025-12-02 23:47:01

APPEARS ON: 2 disk(s)

FILE HASH

935c35ff81a6d024a4bb3c53397138a696f89eea2344936d53bda7b732de9084

FOUND ON DISKS (2 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
SWASTI_FLOHMARKT	LASER	PRG	swasti, flohmarkt	9	7	DOWNLOAD FILE
SWASTI_FLOHMARKT	LASER	PRG	swasti, flohmarkt	9	7	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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

00000000: 01 08 19 08 05 00 8F 20  20 20 2A 2A 2A 2A 2A 2A  |.......   ******|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A  2A 00 31 08 06 00 8F 20  |*********.1.... |
00000020: 20 20 2A 20 20 4C 20 41  20 53 20 45 20 52 20 20  |  *  L A S E R  |
00000030: 2A 00 49 08 07 00 8F 20  20 20 2A 2A 2A 2A 2A 2A  |*.I....   ******|
00000040: 2A 2A 2A 2A 2A 2A 2A 2A  2A 00 4F 08 08 00 3A 00  |*********.O...:.|
00000050: 55 08 09 00 3A 00 5E 08  0A 00 99 22 93 22 00 7C  |U...:.^....".".||
00000060: 08 14 00 99 20 64 28 31  32 2C 34 29 22 CF B7 B7  |.... d(12,4)"...|
00000070: B7 B7 B7 B7 B7 B7 B7 B7  B7 B7 D0 22 00 9A 08 1E  |..........."....|
00000080: 00 99 20 64 28 31 32 2C  35 29 22 B4 20 4C 20 41  |.. d(12,5)". L A|
00000090: 20 53 20 45 20 52 20 20  AA 22 00 B8 08 28 00 99  | S E R  ."...(..|
000000A0: 20 64 28 31 32 2C 36 29  22 CC AF AF AF AF AF AF  | d(12,6)".......|
000000B0: AF AF AF AF AF AF BA 22  00 E8 08 32 00 99 20 64  |......."...2.. d|
000000C0: 28 33 2C 31 30 29 22 44  49 45 20 5A 41 48 4C 20  |(3,10)"DIE ZAHL |
000000D0: 44 45 52 20 41 4E 47 45  52 45 47 54 45 4E 20 41  |DER ANGEREGTEN A|
000000E0: 54 4F 4D 45 20 5A 55 22  00 19 09 3C 00 99 20 64  |TOME ZU"...<.. d|
000000F0: 28 33 2C 31 32 29 22 42  45 47 49 4E 4E 20 48 41  |(3,12)"BEGINN HA|
00000100: 45 4E 47 54 20 56 4F 4E  20 44 45 52 20 45 4E 45  |ENGT VON DER ENE|
00000110: 52 47 49 45 20 41 42 2E  22 00 49 09 46 00 99 20  |RGIE AB.".I.F.. |
00000120: 64 28 33 2C 31 34 29 22  44 49 45 20 5A 41 48 4C  |d(3,14)"DIE ZAHL|
00000130: 20 44 45 52 20 50 48 4F  54 4F 4E 45 4E 20 48 41  | DER PHOTONEN HA|
00000140: 45 4E 47 54 20 56 4F 4E  22 00 7A 09 50 00 99 20  |ENGT VON".z.P.. |
00000150: 64 28 33 2C 31 36 29 22  44 45 52 20 5A 41 48 4C  |d(3,16)"DER ZAHL|
00000160: 20 44 45 52 20 41 4E 47  45 52 45 47 54 45 4E 20  | DER ANGEREGTEN |
00000170: 41 54 4F 4D 45 20 41 42  2E 22 00 AB 09 5A 00 99  |ATOME AB."...Z..|
00000180: 20 64 28 33 2C 31 39 29  22 4E 55 52 20 42 45 49  | d(3,19)"NUR BEI|
00000190: 20 41 55 53 52 45 49 43  48 45 4E 44 45 52 20 5A  | AUSREICHENDER Z|
000001A0: 55 4E 41 48 4D 45 20 44  45 52 22 00 DC 09 64 00  |UNAHME DER"...d.|
000001B0: 99 20 64 28 33 2C 32 31  29 22 50 48 4F 54 4F 4E  |. d(3,21)"PHOTON|
000001C0: 45 4E 20 4B 41 4E 4E 20  44 45 52 20 4C 41 53 45  |EN KANN DER LASE|
000001D0: 52 20 5A 55 45 4E 44 45  4E 20 21 22 00 E6 09 6E  |R ZUENDEN !"...n|
000001E0: 00 64 66 20 32 30 00 F3  09 78 00 99 22 93 22 3A  |.df 20...x..".":|
000001F0: 99 3A 99 00 0B 0A 82 00  97 20 35 33 32 38 30 2C  |.:....... 53280,|
00000200: 36 3A 97 20 35 33 32 38  31 2C 31 00 11 0A 87 00  |6:. 53281,1.....|
00000210: 3A 00 23 0A 88 00 8F 20  2A 2A 2A 20 20 20 2A 20  |:.#.... ***   * |
00000220: 2A 20 2A 00 3B 0A 89 00  8F 20 2A 2A 2A 20 20 45  |* *.;.... ***  E|
00000230: 49 4E 47 41 42 45 20 20  2A 2A 2A 00 4D 0A 8A 00  |INGABE  ***.M...|
00000240: 8F 20 2A 2A 2A 20 20 20  2A 20 2A 20 2A 00 7C 0A  |. ***   * * *.|.|
00000250: 8C 00 85 22 20 56 45 52  45 49 4E 46 41 43 48 54  |..." VEREINFACHT|
00000260: 45 20 45 49 4E 47 41 42  45 20 4A 2F 4E 20 20 20  |E EINGABE J/N   |
00000270: 4A 9D 9D 9D 22 3B 45 24  3A 99 3A 99 00 90 0A 96  |J...";E$:.:.....|
00000280: 00 8B 20 45 24 B3 B1 22  4A 22 20 A7 20 32 30 30  |.. E$.."J" . 200|
00000290: 00 B7 0A A0 00 85 22 20  5A 55 4E 41 48 4D 53 52  |......" ZUNAHMSR|
000002A0: 41 54 45 20 52 20 20 20  32 2E 30 35 9D 9D 9D 9D  |ATE R   2.05....|
000002B0: 9D 9D 22 3B 52 3A 99 00  E6 0A AA 00 85 22 20 56  |..";R:......." V|
000002C0: 45 52 4D 49 4E 44 45 52  55 4E 47 53 52 41 54 45  |ERMINDERUNGSRATE|
000002D0: 20 42 20 20 20 2E 30 30  31 9D 9D 9D 9D 9D 9D 22  | B   .001......"|
000002E0: 3B 42 3A 99 3A 99 00 F0  0A B4 00 89 20 32 33 30  |;B:.:....... 230|
000002F0: 00 17 0B C8 00 85 20 22  20 47 45 57 49 4E 4E 52  |...... " GEWINNR|
00000300: 41 54 45 20 41 20 20 20  30 2E 30 38 9D 9D 9D 9D  |ATE A   0.08....|
00000310: 9D 9D 22 3B 41 3A 99 00  3C 0B D2 00 85 22 20 56  |..";A:..<...." V|
00000320: 45 52 4C 55 53 54 52 41  54 45 20 4B 20 20 20 36  |ERLUSTRATE K   6|
00000330: 2E 37 9D 9D 9D 9D 9D 22  3B 4B 3A 99 00 66 0B DC  |.7.....";K:..f..|
00000340: 00 85 22 20 56 45 52 4C  55 53 54 20 41 4E 47 45  |.." VERLUST ANGE|
00000350: 52 45 47 54 20 47 20 20  20 2E 30 31 9D 9D 9D 9D  |REGT G   .01....|
00000360: 9D 22 3B 47 3A 99 00 9B  0B E6 00 85 22 20 41 4E  |.";G:......." AN|
00000370: 47 45 52 45 47 54 45 20  41 54 4F 4D 45 20 5A 55  |GEREGTE ATOME ZU|
00000380: 20 42 45 47 49 4E 4E 20  4E 30 20 20 20 31 30 30  | BEGINN N0   100|
00000390: 9D 9D 9D 9D 9D 22 3B 4E  30 3A 99 00 CD 0B F0 00  |.....";N0:......|
000003A0: 85 22 20 50 48 4F 54 4F  4E 45 4E 5A 41 48 4C 20  |." PHOTONENZAHL |
000003B0: 5A 55 20 42 45 47 49 4E  4E 20 58 30 20 20 20 38  |ZU BEGINN X0   8|
000003C0: 30 9D 9D 9D 9D 22 3B 58  30 3A 99 3A 99 00 F0 0B  |0....";X0:.:....|
000003D0: FA 00 85 22 20 53 4B 41  4C 45 4E 46 41 4B 54 4F  |..." SKALENFAKTO|
000003E0: 52 20 20 20 31 30 9D 9D  9D 9D 22 3B 53 5A 3A 99  |R   10....";SZ:.|
000003F0: 00 20 0C 04 01 85 22 20  53 4B 41 4C 45 4E 46 41  |. ...." SKALENFA|
00000400: 4B 54 4F 52 20 50 48 4F  54 4F 4E 45 4E 5A 41 48  |KTOR PHOTONENZAH|
00000410: 4C 20 20 20 2E 30 38 9D  9D 9D 9D 9D 22 3B 53 4B  |L   .08.....";SK|
00000420: 00 36 0C 0E 01 8B 20 58  30 AC 53 4B B1 31 38 30  |.6.... X0.SK.180|
00000430: 20 A7 20 32 36 30 00 49  0C 18 01 8B 20 45 24 B2  | . 260.I.... E$.|
00000440: 22 4A 22 20 A7 20 33 31  30 00 5E 0C 2C 01 52 B2  |"J" . 310.^.,.R.|
00000450: 41 AC 4E 30 AB 4B AA 31  3A 42 B2 41 AC 47 00 67  |A.N0.K.1:B.A.G.g|
00000460: 0C 36 01 58 B2 58 30 00  7F 0C 40 01 54 4D B2 31  |.6.X.X0...@.TM.1|
00000470: 34 30 AD 53 5A 3A 58 4D  B2 31 38 30 AD 53 4B 00  |40.SZ:XM.180.SK.|
00000480: 8A 0C 4A 01 8D 20 31 30  30 30 00 90 0C EF 01 3A  |..J.. 1000.....:|
00000490: 00 A5 0C F0 01 8F 20 2A  2A 2A 20 20 20 20 20 20  |...... ***      |
000004A0: 2A 20 2A 20 2A 00 C1 0C  F1 01 8F 20 2A 2A 2A 20  |* * *...... *** |
000004B0: 64 08 48 45 4E 53 43 48  4C 45 49 46 45 20 2A 2A  |d.HENSCHLEIFE **|
000004C0: 2A 00 D6 0C F2 01 8F 20  2A 2A 2A 20 20 20 20 20  |*...... ***     |
000004D0: 20 2A 20 2A 20 2A 00 DC  0C F3 01 3A 00 EB 0C F4  | * * *.....:....|
000004E0: 01 81 20 54 B2 31 20 A4  20 54 4D 00 FB 0C FE 01  |.. T.1 . TM.....|
000004F0: 58 B2 52 AC 58 AB 42 AC  58 AC 58 00 0C 0D 08 02  |X.R.X.B.X.X.....|
00000500: 8B 20 58 B1 58 4D 20 A7  20 36 30 30 00 1D 0D 12  |. X.XM . 600....|
00000510: 02 8B 20 58 B3 B2 30 20  A7 20 36 30 30 00 28 0D  |.. X..0 . 600.(.|
00000520: 1C 02 8D 20 32 30 30 30  00 30 0D 26 02 82 20 54  |... 2000.0.&.. T|
00000530: 00 36 0D 53 02 3A 00 47  0D 54 02 8F 20 2A 2A 2A  |.6.S.:.G.T.. ***|
00000540: 20 20 2A 20 2A 20 2A 00  5D 0D 55 02 8F 20 2A 2A  |  * * *.].U.. **|
00000550: 2A 20 45 20 4E 20 44 20  45 20 2A 2A 2A 00 6E 0D  |* E N D E ***.n.|
00000560: 56 02 8F 20 2A 2A 2A 20  20 2A 20 2A 20 2A 00 74  |V.. ***  * * *.t|
00000570: 0D 57 02 3A 00 82 0D 58  02 81 20 49 B2 31 20 A4  |.W.:...X.. I.1 .|
00000580: 20 34 00 A5 0D 62 02 64  6F 20 31 39 30 2C 31 39  | 4...b.do 190,19|
00000590: 30 2C 22 52 45 54 55 52  4E 20 2D 2D 3E 22 2C 30  |0,"RETURN -->",0|
000005A0: 2C 31 2C 31 32 00 B7 0D  6C 02 81 20 5A B2 31 20  |,1,12...l.. Z.1 |
000005B0: A4 20 31 30 30 3A 82 00  DA 0D 76 02 64 6F 20 31  |. 100:....v.do 1|
000005C0: 39 30 2C 31 39 30 2C 22  52 45 54 55 52 4E 20 2D  |90,190,"RETURN -|
000005D0: 2D 3E 22 2C 31 2C 31 2C  31 32 00 EC 0D 80 02 81  |->",1,1,12......|
000005E0: 20 5A B2 31 20 A4 20 31  30 30 3A 82 00 F2 0D 8A  | Z.1 . 100:.....|
000005F0: 02 82 00 FE 0D 94 02 64  66 20 31 30 30 30 00 07  |.......df 1000..|
00000600: 0E 9E 02 64 70 20 30 00  13 0E A8 02 9C 3A 89 20  |...dp 0......:. |
00000610: 31 32 30 00 19 0E B2 02  80 00 1F 0E E3 03 3A 00  |120...........:.|
00000620: 35 0E E4 03 8F 20 2A 2A  2A 20 20 20 20 20 20 20  |5.... ***       |
00000630: 2A 20 2A 20 2A 00 55 0E  E5 03 8F 20 2A 2A 2A 20  |* * *.U.... *** |
00000640: 4B 4F 4F 52 44 49 4E 41  54 45 4E 53 59 53 54 45  |KOORDINATENSYSTE|
00000650: 4D 20 2A 2A 2A 00 6B 0E  E6 03 8F 20 2A 2A 2A 20  |M ***.k.... *** |
00000660: 20 20 20 20 20 20 2A 20  2A 20 2A 00 71 0E E7 03  |      * * *.q...|
00000670: 3A 00 89 0E E8 03 64 01  20 31 33 2C 31 31 3A 97  |:.....d. 13,11:.|
00000680: 20 35 33 32 38 30 2C 31  31 00 9F 0E F2 03 64 03  | 53280,11.....d.|
00000690: 20 32 30 2C 31 30 2C 32  30 2C 31 38 30 2C 31 00  | 20,10,20,180,1.|
000006A0: B7 0E FC 03 64 03 20 32  30 2C 31 38 30 2C 31 36  |....d. 20,180,16|
000006B0: 30 2C 31 38 30 2C 31 00  C3 0E 06 04 51 B2 53 4B  |0,180,1.....Q.SK|
000006C0: AC 58 30 00 DE 0E 10 04  64 03 20 31 35 2C 31 38  |.X0.....d. 15,18|
000006D0: 30 AB 51 2C 32 35 2C 31  38 30 AB 51 2C 31 00 F3  |0.Q,25,180.Q,1..|
000006E0: 0E 1A 04 51 24 B2 22 58  30 20 3D 20 22 AA C4 28  |...Q$."X0 = "..(|
000006F0: 58 30 29 00 09 0F 24 04  64 6F 20 35 2C 31 39 30  |X0)...$.do 5,190|
00000700: 2C 51 24 2C 31 2C 31 2C  38 00 2B 0F 2E 04 64 6F  |,Q$,1,1,8.+...do|
00000710: 20 32 35 2C 31 35 2C 22  50 48 4F 54 4F 4E 45 4E  | 25,15,"PHOTONEN|
00000720: 5A 41 48 4C 22 2C 31 2C  31 2C 39 00 47 0F 38 04  |ZAHL",1,1,9.G.8.|
00000730: 64 6F 20 31 33 30 2C 31  39 30 2C 22 5A 45 49 54  |do 130,190,"ZEIT|
00000740: 22 2C 31 2C 31 2C 39 00  67 0F 42 04 64 6F 20 31  |",1,1,9.g.B.do 1|
00000750: 37 35 2C 31 35 2C 22 50  48 4F 54 4F 4E 45 4E 3A  |75,15,"PHOTONEN:|
00000760: 22 2C 31 2C 31 2C 39 00  89 0F 4C 04 64 6F 20 31  |",1,1,9...L.do 1|
00000770: 37 35 2C 33 35 2C 22 58  3D 52 2A 58 2D 42 2A 58  |75,35,"X=R*X-B*X|
00000780: 2A 58 22 2C 31 2C 31 2C  39 00 AB 0F 56 04 64 6F  |*X",1,1,9...V.do|
00000790: 20 31 37 35 2C 37 30 2C  22 5A 55 4E 41 48 4D 53  | 175,70,"ZUNAHMS|
000007A0: 52 41 54 45 22 2C 31 2C  31 2C 39 00 CC 0F 60 04  |RATE",1,1,9...`.|
000007B0: 52 24 B2 22 52 20 3D 20  22 AA C4 28 2E 30 31 AC  |R$."R = "..(.01.|
000007C0: B5 28 31 30 30 AC 52 AA  2E 35 29 29 00 E3 0F 6A  |.(100.R..5))...j|
000007D0: 04 64 6F 20 31 37 35 2C  39 30 2C 52 24 2C 31 2C  |.do 175,90,R$,1,|
000007E0: 31 2C 39 00 0C 10 74 04  64 6F 20 31 37 30 2C 31  |1,9...t.do 170,1|
000007F0: 32 30 2C 22 56 45 52 4D  49 4E 44 45 52 55 4E 47  |20,"VERMINDERUNG|
00000800: 53 52 41 54 45 22 2C 31  2C 31 2C 39 00 31 10 7E  |SRATE",1,1,9.1.~|
00000810: 04 42 24 B2 22 42 20 3D  20 22 AA C4 28 2E 30 30  |.B$."B = "..(.00|
00000820: 30 31 AC B5 28 31 30 30  30 30 AC 42 AA 2E 35 29  |01..(10000.B..5)|
00000830: 29 00 49 10 88 04 64 6F  20 31 37 35 2C 31 34 30  |).I...do 175,140|
00000840: 2C 42 24 2C 31 2C 31 2C  38 00 4F 10 92 04 8E 00  |,B$,1,1,8.O.....|
00000850: 55 10 CB 07 3A 00 66 10  CC 07 8F 20 2A 2A 2A 20  |U...:.f.... *** |
00000860: 20 2A 20 2A 20 2A 00 7D  10 CD 07 8F 20 2A 2A 2A  | * * *.}.... ***|
00000870: 20 20 47 52 41 46 49 4B  20 20 2A 2A 2A 00 8E 10  |  GRAFIK  ***...|
00000880: CE 07 8F 20 2A 2A 2A 20  20 2A 20 2A 20 2A 00 94  |... ***  * * *..|
00000890: 10 CF 07 3A 00 AF 10 D0  07 54 53 B2 32 30 AA 53  |...:.....TS.20.S|
000008A0: 5A AC 54 3A 58 53 B2 31  38 30 AB 53 4B AC 58 00  |Z.T:XS.180.SK.X.|
000008B0: CA 10 E4 07 64 6F 20 54  53 AB 34 2C 58 53 AB 34  |....do TS.4,XS.4|
000008C0: 2C 22 2E 22 2C 31 2C 31  2C 31 00 DE 10 EE 07 81  |,".",1,1,1......|
000008D0: 20 49 B2 30 20 A4 20 34  30 30 3A 82 20 49 00 E4  | I.0 . 400:. I..|
000008E0: 10 F8 07 8E 00 00 00 8B  00 00 FF 20 2C           |........... ,   |

.......   ***************.1....   *  L A
 S E R  *.I....   ***************.O...:.
U...:.^....".".|.... D(12,4)"O..........
..P"...... D(12,5)". L A S E R  ."...(..
 D(12,6)"L............."...2.. D(3,10)"D
IE ZAHL DER ANGEREGTEN ATOME ZU"...<.. D
(3,12)"BEGINN HAENGT VON DER ENERGIE AB.
".I.F.. D(3,14)"DIE ZAHL DER PHOTONEN HA
ENGT VON".Z.P.. D(3,16)"DER ZAHL DER ANG
EREGTEN ATOME AB."...Z.. D(3,19)"NUR BEI
 AUSREICHENDER ZUNAHME DER"...D.. D(3,21
)"PHOTONEN KANN DER LASER ZUENDEN !"...N
.DF 20...X..".":.:....... 53280,6:. 5328
1,1.....:.#.... ***   * * *.;.... ***  E
INGABE  ***.M.... ***   * * *.|...." VER
EINFACHTE EINGABE J/N   J...";E$:.:.....
.. E$.."J" . 200... .." ZUNAHMSRATE R   
2.05......";R:......." VERMINDERUNGSRATE
 B   .001......";B:.:....... 230...H.. "
 GEWINNRATE A   0.08......";A:..<.R.." V
ERLUSTRATE K   6.7.....";K:..F...." VERL
UST ANGEREGT G   .01.....";G:......." AN
GEREGTE ATOME ZU BEGINN N0   100.....";N
0:..M...." PHOTONENZAHL ZU BEGINN X0   8
0....";X0:.:......." SKALENFAKTOR   10..
..";SZ:.. ...." SKALENFAKTOR PHOTONENZAH
L   .08.....";SK.6.... X0.SK.180 . 260.I
.... E$."J" . 310.^.,.R.A.N0.K.1:B.A.G.G
.6.X.X0..@.TM.140.SZ:XM.180.SK...J.. 10
00.....:...... ***      * * *.A.... *** 
D.HENSCHLEIFE ***.V.... ***      * * *..
...:...... T.1 . TM.....X.R.X.B.X.X.....
. X.XM . 600...... X..0 . 600.(.... 2000
.0.&.. T.6.S.:.G.T.. ***  * * *.].U.. **
* E N D E ***.N.V.. ***  * * *.T.W.:...X
.. I.1 . 4...B.DO 190,190,"RETURN -->",0
,1,12...L.. Z.1 . 100:..Z.V.DO 190,190,"
RETURN -->",1,1,12...... Z.1 . 100:.....
.......DF 1000.....DP 0......:. 120.....
......:.5.... ***       * * *.U.... *** 
KOORDINATENSYSTEM ***.K.... ***       * 
* *.Q...:.....D. 13,11:. 53280,11.....D.
 20,10,20,180,1.....D. 20,180,160,180,1.
C...Q.SK.X0.....D. 15,180.Q,25,180.Q,1..
...Q$."X0 = ".D(X0)...$.DO 5,190,Q$,1,1,
8.+...DO 25,15,"PHOTONENZAHL",1,1,9.G.8.
DO 130,190,"ZEIT",1,1,9.G.B.DO 175,15,"P
HOTONEN:",1,1,9...L.DO 175,35,"X=R*X-B*X
*X",1,1,9...V.DO 175,70,"ZUNAHMSRATE",1,
1,9.L.`.R$."R = ".D(.01..(100.R..5))...J
.DO 175,90,R$,1,1,9...T.DO 170,120,"VERM
INDERUNGSRATE",1,1,9.1.~.B$."B = ".D(.00
01..(10000.B..5)).I...DO 175,140,B$,1,1,
8.O.....U.K.:.F.L.. ***  * * *.}.M.. ***
  GRAFIK  ***...N.. ***  * * *...O.:...P
.TS.20.SZ.T:XS.180.SK.X.J...DO TS.4,XS.4
,".",1,1,1...... I.0 . 400:. I..........
... ,

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL