NAME1
FILE INFORMATION
FILENAME(S): NAME1
FILE TYPE(S): PRG
FILE SIZE: 3K
FIRST SEEN: 2025-11-30 16:18:10
APPEARS ON: 2 disk(s)
FILE HASH
47275bd6774eb1dba59f59e90f8762e4c4748bb6981ae20364cd1cb77d41d1ba
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FIBU150 64 C KJ | NAME1 | PRG | BrainSkull, Leopold Zyka | 16 | 2 | DOWNLOAD FILE |
| FIBU150 64 C KJ | NAME1 | PRG | BrainSkull, Leopold Zyka | 16 | 2 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 18 08 01 00 8F 20 50 47 4D 2D 4E 41 4D 45 |....... PGM-NAME| 00000010: 20 3D 20 4E 41 4D 45 31 00 24 08 05 00 86 41 28 | = NAME1.$....A(| 00000020: 31 35 30 29 00 31 08 06 00 86 41 24 28 31 35 30 |150).1....A$(150| 00000030: 29 00 3E 08 07 00 86 4F 44 28 31 35 30 29 00 4B |).>....OD(150).K| 00000040: 08 0A 00 86 4B 24 28 31 35 30 29 00 58 08 0B 00 |....K$(150).X...| 00000050: 86 42 4C 28 31 35 30 29 00 65 08 0C 00 86 45 42 |.BL(150).e....EB| 00000060: 28 31 35 30 29 00 72 08 0D 00 86 4A 53 28 31 35 |(150).r....JS(15| 00000070: 30 29 00 7F 08 0E 00 86 4A 48 28 31 35 30 29 00 |0)......JH(150).| 00000080: 8C 08 0F 00 86 50 53 28 31 35 30 29 00 99 08 10 |.....PS(150)....| 00000090: 00 86 50 48 28 31 35 30 29 00 A7 08 11 00 86 50 |..PH(150)......P| 000000A0: 44 24 28 31 35 30 29 00 B4 08 12 00 86 4B 31 28 |D$(150)......K1(| 000000B0: 31 35 30 29 00 C1 08 13 00 86 4B 32 28 31 35 30 |150)......K2(150| 000000C0: 29 00 CE 08 14 00 86 4B 33 28 31 35 30 29 00 DB |)......K3(150)..| 000000D0: 08 1E 00 86 42 58 24 28 32 30 29 00 EF 08 23 00 |....BX$(20)...#.| 000000E0: 86 55 4B 28 35 30 29 3A 86 55 5A 28 35 30 29 00 |.UK(50):.UZ(50).| 000000F0: 21 09 32 00 99 22 93 12 20 45 52 53 54 45 4C 4C |!.2..".. ERSTELL| 00000100: 45 4E 20 45 49 4E 45 52 20 53 49 43 48 45 52 55 |EN EINER SICHERU| 00000110: 4E 47 53 44 49 53 4B 45 54 54 45 20 20 92 22 3A |NGSDISKETTE .":| 00000120: 99 00 4F 09 37 00 99 22 D1 20 42 49 54 54 45 20 |..O.7..". BITTE | 00000130: 4C 45 45 52 45 20 4F 44 45 52 20 55 4E 42 45 4E |LEERE ODER UNBEN| 00000140: 55 54 5A 54 45 20 44 49 53 4B 45 54 54 45 22 00 |UTZTE DISKETTE".| 00000150: 77 09 38 00 99 22 20 20 49 4E 20 44 41 53 20 44 |w.8.." IN DAS D| 00000160: 49 53 4B 2D 4C 41 55 46 57 45 52 4B 20 4C 45 47 |ISK-LAUFWERK LEG| 00000170: 45 4E 20 21 22 3A 99 00 A2 09 3A 00 99 22 D1 20 |EN !":....:..". | 00000180: 41 43 48 54 55 4E 47 20 44 49 53 4B 45 54 54 45 |ACHTUNG DISKETTE| 00000190: 20 57 49 52 44 20 47 45 4C 4F 45 53 43 48 54 20 | WIRD GELOESCHT | 000001A0: 21 22 00 D4 09 3C 00 99 22 C3 C3 C3 C3 C3 C3 C3 |!"...<..".......| 000001B0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................| 000001C0: C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 C3 |................| 000001D0: C3 22 3A 99 00 F2 09 41 00 99 22 12 4F 92 4B 20 |.":....A..".O.K | 000001E0: 53 54 41 52 54 45 4E 20 20 20 12 45 92 4E 44 45 |STARTEN .E.NDE| 000001F0: 20 22 00 0B 0A 42 00 58 24 B2 22 22 3A A1 58 24 | "...B.X$."":.X$| 00000200: 3A 8B 58 24 B2 22 4F 22 A7 37 30 00 1B 0A 43 00 |:.X$."O".70...C.| 00000210: 8B 58 24 B3 B1 22 45 22 A7 36 36 00 26 0A 44 00 |.X$.."E".66.&.D.| 00000220: 89 31 30 30 30 30 00 3D 0A 46 00 8F 20 44 49 53 |.10000.=.F.. DIS| 00000230: 4B 45 54 54 45 20 50 52 55 45 46 45 4E 00 69 0A |KETTE PRUEFEN.i.| 00000240: 48 00 99 22 91 20 20 20 20 20 20 20 2A 2A 20 42 |H..". ** B| 00000250: 49 54 54 45 20 57 41 52 54 45 4E 20 2A 2A 20 20 |ITTE WARTEN ** | 00000260: 20 20 20 20 20 20 20 20 22 00 75 0A 49 00 99 3A | ".u.I..:| 00000270: 99 3A 99 3A 99 00 8D 0A 4B 00 A0 36 3A 9F 36 2C |.:.:....K..6:.6,| 00000280: 38 2C 36 2C 22 30 3A 53 49 2C 53 2C 57 00 AA 0A |8,6,"0:SI,S,W...| 00000290: 4C 00 9F 31 2C 38 2C 31 35 3A 84 31 2C 41 2C 41 |L..1,8,15:.1,A,A| 000002A0: 24 3A 8B 41 B3 B1 30 A7 38 39 00 E4 0A 50 00 99 |$:.A..0.89...P..| 000002B0: 22 91 20 20 4B 45 49 4E 45 20 5A 55 4C 41 45 53 |". KEINE ZULAES| 000002C0: 53 49 47 45 20 44 49 53 4B 45 54 54 45 20 49 4D |SIGE DISKETTE IM| 000002D0: 20 44 52 49 56 45 22 3A 99 3A 99 22 20 20 22 3B | DRIVE":.:." ";| 000002E0: 41 3B 41 24 00 F5 0A 55 00 81 49 B2 31 A4 32 30 |A;A$...U..I.1.20| 000002F0: 30 30 3A 82 49 00 FB 0A 56 00 8A 00 02 0B 59 00 |00:.I...V.....Y.| 00000300: A0 36 00 23 0B 5A 00 99 3A 99 22 D1 20 46 4F 52 |.6.#.Z..:.". FOR| 00000310: 4D 41 54 49 45 52 55 4E 47 20 4C 41 45 55 46 54 |MATIERUNG LAEUFT| 00000320: 20 D1 22 00 48 0B 64 00 A0 31 3A 9F 31 2C 38 2C | .".H.d..1:.1,8,| 00000330: 31 35 2C 22 4E 30 3A 53 49 2D 46 49 42 55 20 31 |15,"N0:SI-FIBU 1| 00000340: 35 30 2F 36 34 2C 31 32 00 4F 0B 69 00 A0 31 00 |50/64,12.O.i..1.| 00000350: 77 0B 6E 00 99 22 91 D1 20 49 44 45 4E 54 49 54 |w.n..".. IDENTIT| 00000360: 41 45 54 20 57 49 52 44 20 47 45 53 43 48 52 49 |AET WIRD GESCHRI| 00000370: 45 42 45 4E 20 D1 22 00 84 0B 78 00 53 49 24 B2 |EBEN ."...x.SI$.| 00000380: 22 53 49 22 00 9C 0B 7D 00 A0 36 3A 9F 36 2C 38 |"SI"...}..6:.6,8| 00000390: 2C 36 2C 22 30 3A 53 49 2C 53 2C 57 00 AE 0B 82 |,6,"0:SI,S,W....| 000003A0: 00 98 36 2C 53 49 24 3B C7 28 31 33 29 3B 00 B5 |..6,SI$;.(13);..| 000003B0: 0B 87 00 A0 36 00 C2 0B C8 00 81 49 B2 31 A4 31 |....6......I.1.1| 000003C0: 35 30 00 DF 0B D2 00 41 28 49 29 B2 30 3A 41 24 |50.....A(I).0:A$| 000003D0: 28 49 29 B2 22 4C 22 3A 4F 44 28 49 29 B2 30 00 |(I)."L":OD(I).0.| 000003E0: FD 0B DC 00 4B 24 28 49 29 B2 22 4C 22 3A 42 4C |....K$(I)."L":BL| 000003F0: 28 49 29 B2 30 3A 45 42 28 49 29 B2 30 00 21 0C |(I).0:EB(I).0.!.| 00000400: E6 00 4A 53 28 49 29 B2 30 3A 4A 48 28 49 29 B2 |..JS(I).0:JH(I).| 00000410: 30 3A 50 53 28 49 29 B2 30 3A 50 48 28 49 29 B2 |0:PS(I).0:PH(I).| 00000420: 30 00 40 0C F0 00 50 44 24 28 49 29 B2 22 4C 22 |0.@...PD$(I)."L"| 00000430: 3A 4B 31 28 49 29 B2 30 3A 4B 32 28 49 29 B2 30 |:K1(I).0:K2(I).0| 00000440: 00 47 0C FA 00 82 49 00 4D 0C 2C 01 8F 00 56 0C |.G....I.M.,...V.| 00000450: 36 01 89 33 31 39 00 5F 0C 3A 01 89 33 31 39 00 |6..319._.:..319.| 00000460: 65 0C 3F 01 8F 00 6C 0C 4A 01 A0 31 00 7C 0C 54 |e.?...l.J..1.|.T| 00000470: 01 9F 31 2C 38 2C 31 35 2C 22 49 22 00 83 0C 59 |..1,8,15,"I"...Y| 00000480: 01 A0 31 00 A3 0C 5E 01 4C 50 24 B2 22 4C 22 3A |..1...^.LP$."L":| 00000490: 50 4E B2 30 3A 42 43 24 B2 22 4C 22 3A 4E 24 B2 |PN.0:BC$."L":N$.| 000004A0: 22 31 22 00 CC 0C 63 01 99 22 91 D1 20 43 48 45 |"1"...c..".. CHE| 000004B0: 43 4B 2D 44 41 54 45 49 20 57 49 52 44 20 47 45 |CK-DATEI WIRD GE| 000004C0: 53 43 48 52 49 45 42 45 4E 20 D1 22 00 EB 0C 68 |SCHRIEBEN ."...h| 000004D0: 01 9F 36 2C 38 2C 35 2C 22 40 30 3A 22 AA 4E 24 |..6,8,5,"@0:".N$| 000004E0: AA 22 43 48 45 43 4B 2C 53 2C 57 00 11 0D 72 01 |."CHECK,S,W...r.| 000004F0: 98 36 2C 4D 44 24 3B C7 28 31 33 29 3B 4D 53 24 |.6,MD$;.(13);MS$| 00000500: 3B C7 28 31 33 29 3B 4D 4F 24 3B C7 28 31 33 29 |;.(13);MO$;.(13)| 00000510: 3B 00 40 0D 7C 01 98 36 2C 4C 50 24 3B C7 28 31 |;.@.|..6,LP$;.(1| 00000520: 33 29 3B 50 4E 3B C7 28 31 33 29 3B 42 43 24 3B |3);PN;.(13);BC$;| 00000530: C7 28 31 33 29 3B 57 4A 24 3B C7 28 31 33 29 3B |.(13);WJ$;.(13);| 00000540: 00 47 0D 86 01 A0 36 00 70 0D B8 01 99 22 91 D1 |.G....6.p...."..| 00000550: 20 4B 4F 4E 54 45 4E 44 41 54 45 49 20 57 49 52 | KONTENDATEI WIR| 00000560: 44 20 47 45 53 43 48 52 49 45 42 45 4E 20 D1 22 |D GESCHRIEBEN ."| 00000570: 00 8C 0D C2 01 A0 36 3A 9F 36 2C 38 2C 35 2C 22 |......6:.6,8,5,"| 00000580: 30 3A 4B 4F 4E 54 45 4E 2C 53 2C 57 00 9D 0D C7 |0:KONTEN,S,W....| 00000590: 01 98 36 2C 4E 24 3B C7 28 31 33 29 3B 00 AA 0D |..6,N$;.(13);...| 000005A0: CC 01 81 49 B2 31 A4 31 35 30 00 D6 0D D6 01 98 |...I.1.150......| 000005B0: 36 2C 42 4C 28 49 29 3B C7 28 31 33 29 3B 45 42 |6,BL(I);.(13);EB| 000005C0: 28 49 29 3B C7 28 31 33 29 3B 4A 53 28 49 29 3B |(I);.(13);JS(I);| 000005D0: C7 28 31 33 29 3B 00 02 0E E0 01 98 36 2C 4A 48 |.(13);......6,JH| 000005E0: 28 49 29 3B C7 28 31 33 29 3B 50 53 28 49 29 3B |(I);.(13);PS(I);| 000005F0: C7 28 31 33 29 3B 50 48 28 49 29 3B C7 28 31 33 |.(13);PH(I);.(13| 00000600: 29 3B 00 09 0E F4 01 82 49 00 10 0E FE 01 A0 36 |);......I......6| 00000610: 00 3A 0E 1C 02 99 22 91 D1 20 56 45 52 57 45 49 |.:....".. VERWEI| 00000620: 53 44 41 54 45 49 20 57 49 52 44 20 47 45 53 43 |SDATEI WIRD GESC| 00000630: 48 52 49 45 42 45 4E 20 D1 22 00 54 0E 26 02 9F |HRIEBEN .".T.&..| 00000640: 36 2C 38 2C 35 2C 22 30 3A 56 45 52 57 45 49 53 |6,8,5,"0:VERWEIS| 00000650: 2C 53 2C 57 00 65 0E 2B 02 98 36 2C 4E 24 3B C7 |,S,W.e.+..6,N$;.| 00000660: 28 31 33 29 3B 00 72 0E 30 02 81 49 B2 31 A4 31 |(13);.r.0..I.1.1| 00000670: 35 30 00 9D 0E 3A 02 98 36 2C 41 28 49 29 3B C7 |50...:..6,A(I);.| 00000680: 28 31 33 29 3B 41 24 28 49 29 3B C7 28 31 33 29 |(13);A$(I);.(13)| 00000690: 3B 4F 44 28 49 29 3B C7 28 31 33 29 3B 00 A4 0E |;OD(I);.(13);...| 000006A0: 44 02 82 49 00 AB 0E 4E 02 A0 36 00 D5 0E 53 02 |D..I...N..6...S.| 000006B0: 99 22 91 D1 20 53 54 41 54 20 2D 20 44 41 54 45 |.".. STAT - DATE| 000006C0: 49 20 57 49 52 44 20 47 45 53 43 48 52 49 45 42 |I WIRD GESCHRIEB| 000006D0: 45 4E 20 D1 22 00 EF 0E 58 02 A0 36 3A 9F 36 2C |EN ."...X..6:.6,| 000006E0: 38 2C 36 2C 22 30 3A 53 54 41 54 2C 53 2C 57 00 |8,6,"0:STAT,S,W.| 000006F0: FC 0E 62 02 81 49 B2 31 A4 31 35 30 00 28 0F 6C |..b..I.1.150.(.l| 00000700: 02 98 36 2C 4B 31 28 49 29 3B C7 28 31 33 29 3B |..6,K1(I);.(13);| 00000710: 4B 32 28 49 29 3B C7 28 31 33 29 3B 4B 33 28 49 |K2(I);.(13);K3(I| 00000720: 29 3B C7 28 31 33 29 3B 00 2F 0F 76 02 82 49 00 |);.(13);./.v..I.| 00000730: 36 0F 80 02 A0 36 00 42 0F 8A 02 81 49 B2 31 A4 |6....6.B....I.1.| 00000740: 32 30 00 51 0F 94 02 42 58 24 28 49 29 B2 22 4C |20.Q...BX$(I)."L| 00000750: 22 00 58 0F 9E 02 82 49 00 82 0F B7 02 99 22 91 |".X....I......".| 00000760: D1 20 42 57 41 54 45 58 2D 44 41 54 45 49 20 57 |. BWATEX-DATEI W| 00000770: 49 52 44 20 47 45 53 43 48 52 49 45 42 45 4E 20 |IRD GESCHRIEBEN | 00000780: D1 22 00 9E 0F BC 02 A0 36 3A 9F 36 2C 38 2C 36 |."......6:.6,8,6| 00000790: 2C 22 30 3A 42 57 41 54 45 58 2C 53 2C 57 00 AA |,"0:BWATEX,S,W..| 000007A0: 0F C6 02 81 49 B2 31 A4 32 30 00 BF 0F D0 02 98 |....I.1.20......| 000007B0: 36 2C 42 58 24 28 49 29 3B C7 28 31 33 29 3B 00 |6,BX$(I);.(13);.| 000007C0: C6 0F DA 02 82 49 00 CD 0F E4 02 A0 36 00 F8 0F |.....I......6...| 000007D0: E9 02 99 22 91 D1 20 55 53 54 53 43 48 4C 2D 44 |...".. USTSCHL-D| 000007E0: 41 54 45 49 20 57 49 52 44 20 47 45 53 43 48 52 |ATEI WIRD GESCHR| 000007F0: 49 45 42 45 4E 20 D1 22 00 15 10 EE 02 A0 36 3A |IEBEN ."......6:| 00000800: 9F 36 2C 38 2C 36 2C 22 30 3A 55 53 54 53 43 48 |.6,8,6,"0:USTSCH| 00000810: 4C 2C 53 2C 57 00 21 10 F8 02 81 49 B2 31 A4 35 |L,S,W.!....I.1.5| 00000820: 30 00 41 10 02 03 98 36 2C 55 4B 28 49 29 3B C7 |0.A....6,UK(I);.| 00000830: 28 31 33 29 3B 55 5A 28 49 29 3B C7 28 31 33 29 |(13);UZ(I);.(13)| 00000840: 3B 00 48 10 0C 03 82 49 00 4F 10 16 03 A0 36 00 |;.H....I.O....6.| 00000850: 7A 10 1B 03 99 22 91 D1 20 4B 4F 53 54 20 20 2D |z....".. KOST -| 00000860: 20 44 41 54 45 49 20 57 49 52 44 20 47 45 53 43 | DATEI WIRD GESC| 00000870: 48 52 49 45 42 45 4E 20 D1 22 00 94 10 20 03 A0 |HRIEBEN ."... ..| 00000880: 36 3A 9F 36 2C 38 2C 36 2C 22 30 3A 4B 4F 53 54 |6:.6,8,6,"0:KOST| 00000890: 2C 53 2C 57 00 9F 10 2A 03 81 49 B2 30 A4 39 00 |,S,W...*..I.0.9.| 000008A0: B3 10 34 03 98 36 2C 4B 51 28 49 29 3B C7 28 31 |..4..6,KQ(I);.(1| 000008B0: 33 29 3B 00 B9 10 3E 03 82 00 C0 10 48 03 A0 36 |3);...>.....H..6| 000008C0: 00 EB 10 52 03 99 22 91 D1 20 42 55 53 43 48 4C |...R..".. BUSCHL| 000008D0: 2D 44 41 54 45 49 20 57 49 52 44 20 47 45 53 43 |-DATEI WIRD GESC| 000008E0: 48 52 49 45 42 45 4E 20 D1 20 22 00 07 11 84 03 |HRIEBEN . ".....| 000008F0: A0 36 3A 9F 36 2C 38 2C 36 2C 22 30 3A 42 55 53 |.6:.6,8,6,"0:BUS| 00000900: 43 48 4C 2C 53 2C 57 00 12 11 8E 03 81 49 B2 31 |CHL,S,W......I.1| 00000910: A4 39 00 26 11 98 03 98 36 2C 4B 51 28 49 29 3B |.9.&....6,KQ(I);| 00000920: C7 28 31 33 29 3B 00 2C 11 A2 03 82 00 33 11 AC |.(13);.,.....3..| 00000930: 03 A0 36 00 64 11 E8 03 99 22 93 20 2A 2A 2A 20 |..6.d....". *** | 00000940: 53 49 43 48 45 52 55 4E 47 53 44 49 53 4B 45 54 |SICHERUNGSDISKET| 00000950: 54 45 20 49 53 54 20 45 52 53 54 45 4C 4C 54 20 |TE IST ERSTELLT | 00000960: 2A 2A 2A 22 00 98 11 F2 03 99 3A 99 22 B8 B8 B8 |***"......:."...| 00000970: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................| 00000980: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................| 00000990: B8 B8 B8 B8 B8 22 3A 99 00 C1 11 FC 03 99 22 12 |.....":.......".| 000009A0: 57 92 45 49 54 45 52 45 20 44 49 53 4B 45 54 54 |W.EITERE DISKETT| 000009B0: 45 4E 20 46 4F 52 4D 41 54 49 45 52 45 4E 22 3A |EN FORMATIEREN":| 000009C0: 99 00 EA 11 06 04 99 22 12 45 92 4E 44 45 20 20 |.......".E.NDE | 000009D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000009E0: 20 20 20 20 20 20 20 22 3A 99 00 04 12 1A 04 58 | ":......X| 000009F0: 24 B2 22 22 3A A1 58 24 3A 8B 58 24 B2 22 22 A7 |$."":.X$:.X$."".| 00000A00: 31 30 35 30 00 16 12 24 04 8B 58 24 B2 22 45 22 |1050...$..X$."E"| 00000A10: A7 20 35 30 30 30 00 28 12 2E 04 8B 58 24 B3 B1 |. 5000.(....X$..| 00000A20: 22 57 22 A7 31 30 35 30 00 2E 12 38 04 8A 00 67 |"W".1050...8...g| 00000A30: 12 88 13 99 22 93 11 11 11 11 11 11 11 11 11 11 |...."...........| 00000A40: 11 20 20 20 20 12 20 50 52 4F 47 52 41 4D 4D 44 |. . PROGRAMMD| 00000A50: 49 53 4B 45 54 54 45 20 45 49 4E 4C 45 47 45 4E |ISKETTE EINLEGEN| 00000A60: 20 92 22 3A 99 3A 99 00 8A 12 89 13 99 22 20 20 | .":.:......." | 00000A70: 20 20 20 20 20 20 20 20 20 20 20 12 20 53 20 92 | . S .| 00000A80: 20 44 52 55 45 43 4B 45 4E 22 00 A6 12 92 13 58 | DRUECKEN".....X| 00000A90: 24 B2 22 22 3A A1 58 24 3A 8B 58 24 B3 B1 22 53 |$."":.X$:.X$.."S| 00000AA0: 22 A7 35 30 31 30 00 C5 12 10 27 93 22 30 3A 39 |".5010....'."0:9| 00000AB0: 46 49 42 55 22 2C 38 3A 99 22 93 11 11 11 52 55 |FIBU",8:."....RU| 00000AC0: 4E 13 22 3A 80 00 E5 12 67 2B 8F 20 46 49 42 55 |N.":....g+. FIBU| 00000AD0: 20 31 35 30 20 4D 41 4E 44 41 4E 54 45 4E 2D 53 | 150 MANDANTEN-S| 00000AE0: 59 53 54 45 4D 00 05 13 68 2B 8F 20 46 49 42 55 |YSTEM...h+. FIBU| 00000AF0: 20 31 35 30 20 4D 41 4E 44 41 4E 54 45 4E 2D 53 | 150 MANDANTEN-S| 00000B00: 59 53 54 45 4D 00 25 13 69 2B 8F 20 46 49 42 55 |YSTEM.%.i+. FIBU| 00000B10: 20 31 35 30 20 4D 41 4E 44 41 4E 54 45 4E 2D 53 | 150 MANDANTEN-S| 00000B20: 59 53 54 45 4D 00 45 13 6A 2B 8F 20 46 49 42 55 |YSTEM.E.j+. FIBU| 00000B30: 20 31 35 30 20 4D 41 4E 44 41 4E 54 45 4E 2D 53 | 150 MANDANTEN-S| 00000B40: 59 53 54 45 4D 00 65 13 6B 2B 8F 20 46 49 42 55 |YSTEM.e.k+. FIBU| 00000B50: 20 31 35 30 20 4D 41 4E 44 41 4E 54 45 4E 2D 53 | 150 MANDANTEN-S| 00000B60: 59 53 54 45 4D 00 85 13 6C 2B 8F 20 46 49 42 55 |YSTEM...l+. FIBU| 00000B70: 20 31 35 30 20 4D 41 4E 44 41 4E 54 45 4E 2D 53 | 150 MANDANTEN-S| 00000B80: 59 53 54 45 4D 00 A5 13 6D 2B 8F 20 46 49 42 55 |YSTEM...m+. FIBU| 00000B90: 20 31 35 30 20 4D 41 4E 44 41 4E 54 45 4E 2D 53 | 150 MANDANTEN-S| 00000BA0: 59 53 54 45 4D 00 C5 13 6E 2B 8F 20 46 49 42 55 |YSTEM...n+. FIBU| 00000BB0: 20 31 35 30 20 4D 41 4E 44 41 4E 54 45 4E 2D 53 | 150 MANDANTEN-S| 00000BC0: 59 53 54 45 4D 00 E5 13 6F 2B 8F 20 46 49 42 55 |YSTEM...o+. FIBU| 00000BD0: 20 31 35 30 20 4D 41 4E 44 41 4E 54 45 4E 2D 53 | 150 MANDANTEN-S| 00000BE0: 59 53 54 45 4D 00 05 14 70 2B 8F 20 46 49 42 55 |YSTEM...p+. FIBU| 00000BF0: 20 31 35 30 20 4D 41 4E 44 41 4E 54 45 4E 2D 53 | 150 MANDANTEN-S| 00000C00: 59 53 54 45 4D 00 00 00 |YSTEM... |
....... PGM-NAME = NAME1.$....A(150).1..
..A$(150).>....OD(150).K....K$(150).X...
.BL(150).E....EB(150).R....JS(150).....
JH(150)......PS(150)......PH(150)......P
D$(150)......K1(150).A....K2(150).N....K
3(150)......BX$(20)...#..UK(50):.UZ(50).
!.2..".. ERSTELLEN EINER SICHERUNGSDISKE
TTE .":..O.7.."Q BITTE LEERE ODER UNBEN
UTZTE DISKETTE".W.8.." IN DAS DISK-LAUF
WERK LEGEN !":....:.."Q ACHTUNG DISKETTE
WIRD GELOESCHT !".T.<.."CCCCCCCCCCCCCCC
CCCCCCCCCCCCCCCCCCCCCCCCC":....A..".O.K
STARTEN .E.NDE "...B.X$."":.X$:.X$."O"
.70...C..X$.."E".66.&.D..10000.=.F.. DIS
KETTE PRUEFEN.I.H..". ** BITTE WAR
TEN ** ".U.I..:.:.:....K. 6:.6,
8,6,"0:SI,S,W...L..1,8,15:.1,A,A$:.A..0.
89...P..". KEINE ZULAESSIGE DISKETTE IM
DRIVE":.:." ";A;A$...U..I.1.2000:.I...
V.....Y. 6.#.Z..:."Q FORMATIERUNG LAEUFT
Q".H.D. 1:.1,8,15,"N0:SI-FIBU 150/64,12
.O.I. 1.W.N..".Q IDENTITAET WIRD GESCHRI
EBEN Q"...X.SI$."SI"...}. 6:.6,8,6,"0:SI
,S,W......6,SI$;G(13);..... 6.B.H..I.1.1
50...R.A(I).0:A$(I)."L":OD(I).0.....K$(I
)."L":BL(I).0:EB(I).0.!...JS(I).0:JH(I).
0:PS(I).0:PH(I).0.@...PD$(I)."L":K1(I).0
:K2(I).0.G....I.M.,...V.6..319._.:..319.
E.?...L.J. 1.|.T..1,8,15,"I"...Y. 1...^.
LP$."L":PN.0:BC$."L":N$."1".L.C..".Q CHE
CK-DATEI WIRD GESCHRIEBEN Q"...H..6,8,5,
"@0:".N$."CHECK,S,W...R..6,MD$;G(13);MS$
;G(13);MO$;G(13);.@.|..6,LP$;G(13);PN;G(
13);BC$;G(13);WJ$;G(13);.G... 6.P....".Q
KONTENDATEI WIRD GESCHRIEBEN Q"...B. 6:
.6,8,5,"0:KONTEN,S,W...G..6,N$;G(13);...
L..I.1.150.V.V..6,BL(I);G(13);EB(I);G(13
);JS(I);G(13);......6,JH(I);G(13);PS(I);
G(13);PH(I);G(13);......I..... 6.:....".
Q VERWEISDATEI WIRD GESCHRIEBEN Q".T.&..
6,8,5,"0:VERWEIS,S,W.E.+..6,N$;G(13);.R.
0..I.1.150...:..6,A(I);G(13);A$(I);G(13)
;OD(I);G(13);...D..I...N. 6.U.S..".Q STA
T - DATEI WIRD GESCHRIEBEN Q"...X. 6:.6,
8,6,"0:STAT,S,W...B..I.1.150.(.L..6,K1(I
);G(13);K2(I);G(13);K3(I);G(13);./.V..I.
6... 6.B....I.1.20.Q...BX$(I)."L".X....I
......".Q BWATEX-DATEI WIRD GESCHRIEBEN
Q"..... 6:.6,8,6,"0:BWATEX,S,W...F..I.1.
20...P..6,BX$(I);G(13);.F.Z..I.M... 6...
...".Q USTSCHL-DATEI WIRD GESCHRIEBEN Q"
..... 6:.6,8,6,"0:USTSCHL,S,W.!....I.1.5
0.A....6,UK(I);G(13);UZ(I);G(13);.H....I
.O... 6.Z....".Q KOST - DATEI WIRD GESC
HRIEBEN Q"... . 6:.6,8,6,"0:KOST,S,W...*
..I.0.9...4..6,KQ(I);G(13);...>.....H. 6
...R..".Q BUSCHL-DATEI WIRD GESCHRIEBEN
Q "..... 6:.6,8,6,"0:BUSCHL,S,W......I.1
.9.&....6,KQ(I);G(13);.,.....3... 6.D...
.". *** SICHERUNGSDISKETTE IST ERSTELLT
***"......:."...........................
.............":..A....".W.EITERE DISKETT
EN FORMATIEREN":.......".E.NDE
":......X$."":.X$:.X$."".
1050...$..X$."E". 5000.(....X$.."W".1050
...8...G...."............ . PROGRAMMD
ISKETTE EINLEGEN .":.:......."
. S . DRUECKEN".....X$."":.X$:.X$.."S
".5010.E..'."0:9FIBU",8:."....RUN.":....
G+. FIBU 150 MANDANTEN-SYSTEM...H+. FIBU
150 MANDANTEN-SYSTEM.%.I+. FIBU 150 MAN
DANTEN-SYSTEM.E.J+. FIBU 150 MANDANTEN-S
YSTEM.E.K+. FIBU 150 MANDANTEN-SYSTEM...
L+. FIBU 150 MANDANTEN-SYSTEM...M+. FIBU
150 MANDANTEN-SYSTEM.E.N+. FIBU 150 MAN
DANTEN-SYSTEM...O+. FIBU 150 MANDANTEN-S
YSTEM...P+. FIBU 150 MANDANTEN-SYSTEM...
> CLICK IMAGE PREVIEW FOR FULL MODAL