UNTERPR.4000-980
FILE INFORMATION
FILENAME(S): UNTERPR.4000-980
FILE TYPE(S): PRG
FILE SIZE: 1.9K
FIRST SEEN: 2025-11-02 16:42:26
APPEARS ON: 1 disk(s)
FILE HASH
10fe59af8c161921e415509a75cb091aea7206330e89b503aeb79643051c0ce5
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FUCHS ANWENDER | UNTERPR.4000-980 | PRG | Treasure Chest - ralf | 12 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 13 08 94 11 8F 20 46 4F 52 54 53 45 54 5A |....... FORTSETZ| 00000010: 55 4E 47 00 35 08 34 12 51 31 24 B2 22 57 4F 4C |UNG.5.4.Q1$."WOL| 00000020: 4C 45 4E 20 53 49 45 20 45 49 4E 45 20 57 45 49 |LEN SIE EINE WEI| 00000030: 54 45 52 45 22 00 53 08 3E 12 51 33 24 B2 22 44 |TERE".S.>.Q3$."D| 00000040: 55 52 43 48 46 55 45 48 52 45 4E 20 28 4A 2F 4E |URCHFUEHREN (J/N| 00000050: 29 3F 22 00 60 08 48 12 8F 20 44 49 41 4C 4F 47 |)?".`.H.. DIALOG| 00000060: 00 6B 08 52 12 8D 20 36 30 30 30 00 84 08 5C 12 |.k.R.. 6000...\.| 00000070: 8F 20 46 52 41 47 45 20 4A 41 20 4F 44 45 52 20 |. FRAGE JA ODER | 00000080: 4E 45 49 4E 00 8F 08 66 12 8D 20 39 35 30 30 00 |NEIN...f.. 9500.| 00000090: 95 08 70 12 8E 00 A2 08 70 17 8F 20 44 49 41 4C |..p.....p.. DIAL| 000000A0: 4F 47 00 C4 08 06 18 8F 20 4C 4F 45 53 43 48 45 |OG...... LOESCHE| 000000B0: 4E 20 44 45 53 20 44 49 41 4C 4F 47 42 45 52 45 |N DES DIALOGBERE| 000000C0: 49 43 48 53 00 EE 08 10 18 8F 20 5A 45 49 43 48 |ICHS...... ZEICH| 000000D0: 4E 45 4E 20 44 45 52 20 52 41 45 4E 44 45 52 20 |NEN DER RAENDER | 000000E0: 55 4E 44 20 4C 45 45 52 5A 45 49 4C 45 4E 00 FE |UND LEERZEILEN..| 000000F0: 08 1A 18 81 20 49 B2 32 30 20 A4 20 32 34 00 16 |.... I.20 . 24..| 00000100: 09 24 18 8F 20 41 55 53 57 41 48 4C 20 44 45 52 |.$.. AUSWAHL DER| 00000110: 20 5A 45 49 4C 45 00 31 09 2E 18 97 32 31 34 2C | ZEILE.1....214,| 00000120: 49 AB 31 3A 97 32 31 31 2C 30 3A 9E 35 38 37 33 |I.1:.211,0:.5873| 00000130: 32 00 3D 09 38 18 81 4A B2 31 A4 33 39 00 51 09 |2.=.8..J.1.39.Q.| 00000140: 42 18 8B 20 49 20 B2 20 32 30 20 A7 99 22 2D 22 |B.. I . 20 .."-"| 00000150: 3B 00 67 09 4C 18 8B 20 49 20 B3 B1 20 32 30 20 |;.g.L.. I .. 20 | 00000160: A7 20 99 22 20 22 3B 00 6E 09 56 18 82 4A 00 76 |. ." ";.n.V..J.v| 00000170: 09 60 18 82 20 49 00 90 09 6A 18 97 32 31 34 2C |.`.. I...j..214,| 00000180: 32 30 3A 97 32 31 31 2C 30 3A 9E 35 38 37 33 32 |20:.211,0:.58732| 00000190: 00 A7 09 74 18 99 51 31 24 3A 8F 20 45 52 53 54 |...t..Q1$:. ERST| 000001A0: 45 20 46 52 41 47 45 00 BF 09 7E 18 99 51 32 24 |E FRAGE...~..Q2$| 000001B0: 3A 8F 20 5A 57 45 49 54 45 20 46 52 41 47 45 00 |:. ZWEITE FRAGE.| 000001C0: D7 09 88 18 99 51 33 24 3A 8F 20 44 52 49 54 54 |.....Q3$:. DRITT| 000001D0: 45 20 46 52 41 47 45 00 DD 09 92 18 8E 00 F2 09 |E FRAGE.........| 000001E0: 64 19 8F 20 5A 45 49 43 48 45 4E 45 49 4E 47 41 |d.. ZEICHENEINGA| 000001F0: 42 45 00 0B 0A D2 19 8F 20 57 41 52 54 45 4E 20 |BE...... WARTEN | 00000200: 41 55 46 20 45 49 4E 47 41 42 45 00 15 0A DC 19 |AUF EINGABE.....| 00000210: A1 20 43 48 24 00 26 0A DD 19 8B 43 48 24 B2 22 |. CH$.&....CH$."| 00000220: 22 A7 36 36 32 30 00 40 0A E0 19 8B 43 48 24 B2 |".6620.@....CH$.| 00000230: 20 22 50 22 A7 39 38 30 30 3A 89 20 36 36 32 30 | "P".9800:. 6620| 00000240: 00 46 0A E6 19 8E 00 5A 0A 58 1B 8F 20 44 41 54 |.F.....Z.X.. DAT| 00000250: 45 4E 20 45 49 4E 47 41 42 45 00 6E 0A 0C 1C 8F |EN EINGABE.n....| 00000260: 20 53 54 45 4C 4C 45 20 46 52 41 47 45 4E 00 79 | STELLE FRAGEN.y| 00000270: 0A 16 1C 8D 20 36 30 30 30 00 8B 0A 20 1C 8F 20 |.... 6000... .. | 00000280: 48 4F 4C 45 20 46 52 41 47 45 4E 00 97 0A 2A 1C |HOLE FRAGEN...*.| 00000290: 85 20 50 24 28 4B 29 00 BC 0A 34 1C 8F 20 57 49 |. P$(K)...4.. WI| 000002A0: 45 44 45 52 47 41 42 45 20 44 45 52 20 47 45 4C |EDERGABE DER GEL| 000002B0: 45 53 45 4E 45 4E 20 44 41 54 45 4E 00 D7 0A 3E |ESENEN DATEN...>| 000002C0: 1C 97 32 31 34 2C 4B AA 31 3A 97 32 31 31 2C 32 |..214,K.1:.211,2| 000002D0: 3A 9E 35 38 37 33 32 00 ED 0A 48 1C 99 51 33 24 |:.58732...H..Q3$| 000002E0: 3B 20 A3 32 30 29 3B 20 50 24 28 4B 29 00 F3 0A |; .20); P$(K)...| 000002F0: 52 1C 8F 00 01 0B 5C 1C 4B 20 B2 20 4B 20 AA 20 |R.....\.K . K . | 00000300: 31 00 07 0B 66 1C 8E 00 1D 0B 4C 1D 8F 20 49 4E |1...f.....L.. IN| 00000310: 49 54 49 41 4C 49 53 49 45 52 55 4E 47 00 29 0B |ITIALISIERUNG.).| 00000320: EC 1D 99 C7 28 31 34 37 29 00 46 0B ED 1D 97 35 |....(147).F....5| 00000330: 33 32 38 30 2C 30 3A 97 35 33 32 38 31 2C 30 3A |3280,0:.53281,0:| 00000340: 99 C7 28 33 30 29 00 52 0B F6 1D 8F 20 54 49 54 |..(30).R.... TIT| 00000350: 45 4C 00 5A 0B 00 1E 99 4E 24 00 60 0B 0A 1E 8E |EL.Z....N$.`....| 00000360: 00 77 0B 40 1F 8F 20 50 41 52 41 4D 45 54 45 52 |.w.@.. PARAMETER| 00000370: 45 49 4E 47 41 42 45 00 8B 0B E0 1F 8F 20 53 54 |EINGABE...... ST| 00000380: 45 4C 4C 45 20 46 52 41 47 45 4E 00 96 0B EA 1F |ELLE FRAGEN.....| 00000390: 8D 20 36 30 30 30 00 A6 0B F4 1F 8F 20 48 4F 4C |. 6000...... HOL| 000003A0: 45 20 57 45 52 54 00 B3 0B FE 1F 85 20 50 41 52 |E WERT...... PAR| 000003B0: 28 4B 29 00 D3 0B 08 20 8F 20 41 55 53 47 41 42 |(K).... . AUSGAB| 000003C0: 45 20 46 52 41 47 45 20 55 4E 44 20 41 4E 54 57 |E FRAGE UND ANTW| 000003D0: 4F 52 54 00 EF 0B 12 20 97 32 31 34 2C 4B AA 31 |ORT.... .214,K.1| 000003E0: 3A 97 32 31 31 2C 32 3A 9E 20 35 38 37 33 32 00 |:.211,2:. 58732.| 000003F0: 09 0C 1C 20 99 3A 99 3A 99 51 33 24 3B 20 A3 33 |... .:.:.Q3$; .3| 00000400: 30 29 3B 50 41 52 28 4B 29 00 17 0C 26 20 4B 20 |0);PAR(K)...& K | 00000410: B2 20 4B 20 AA 20 31 00 1D 0C 30 20 8E 00 31 0C |. K . 1...0 ..1.| 00000420: 34 21 8F 20 4D 45 4E 55 45 50 52 4F 47 52 41 4D |4!. MENUEPROGRAM| 00000430: 4D 00 48 0C D4 21 8F 20 4D 45 4E 55 45 20 44 41 |M.H..!. MENUE DA| 00000440: 52 53 54 45 4C 4C 45 4E 00 56 0C DE 21 81 20 49 |RSTELLEN.V..!. I| 00000450: B2 20 31 A4 20 4E 00 7E 0C E8 21 8B 20 49 B3 31 |. 1. N.~..!. I.1| 00000460: 30 20 A7 99 20 20 20 20 20 20 20 20 20 20 49 3B |0 .. I;| 00000470: C7 28 32 30 29 22 3D 22 3B 58 24 28 49 29 00 98 |.(20)"=";X$(I)..| 00000480: 0C F2 21 8B 20 49 B2 20 31 30 20 A7 99 22 20 30 |..!. I. 10 .." 0| 00000490: 3D 22 3B 58 24 28 49 29 00 A0 0C FC 21 82 20 49 |=";X$(I)....!. I| 000004A0: 00 B5 0C 06 22 8F 20 46 52 41 47 45 4E 20 53 54 |....". FRAGEN ST| 000004B0: 45 4C 4C 45 4E 00 E4 0C 10 22 51 31 24 B2 22 22 |ELLEN...."Q1$.""| 000004C0: 3A 51 32 24 B2 22 22 3A 51 33 24 B2 22 42 49 54 |:Q2$."":Q3$."BIT| 000004D0: 54 45 20 41 55 53 57 41 48 4C 20 54 52 45 46 46 |TE AUSWAHL TREFF| 000004E0: 45 4E 3A 22 00 EF 0C 1A 22 8D 20 36 30 30 30 00 |EN:"....". 6000.| 000004F0: 05 0D 24 22 8F 20 45 49 4E 47 41 42 45 20 5A 45 |..$". EINGABE ZE| 00000500: 49 43 48 45 4E 00 10 0D 2E 22 8D 20 36 35 30 30 |ICHEN....". 6500| 00000510: 00 27 0D 38 22 58 B2 C5 28 43 48 24 29 3A 8B 58 |.'.8"X..(CH$):.X| 00000520: B2 30 A7 58 B2 31 30 00 4B 0D 42 22 8F 20 50 52 |.0.X.10.K.B". PR| 00000530: 55 45 46 45 4E 20 4F 42 20 5A 45 49 43 48 45 4E |UEFEN OB ZEICHEN| 00000540: 20 49 4D 20 42 45 52 45 49 43 48 00 5E 0D 4C 22 | IM BEREICH.^.L"| 00000550: 8B 58 B1 B2 31 20 AF 20 58 B3 B2 4E A7 8E 00 92 |.X..1 . X..N....| 00000560: 0D 56 22 51 31 24 B2 22 45 49 4E 47 41 42 45 20 |.V"Q1$."EINGABE | 00000570: 4E 49 43 48 54 20 5A 55 4C 41 45 53 53 49 47 2C |NICHT ZULAESSIG,| 00000580: 42 49 54 54 45 20 57 49 45 44 45 52 48 4F 4C 45 |BITTE WIEDERHOLE| 00000590: 4E 22 00 9D 0D 60 22 8D 20 36 30 30 30 00 A8 0D |N"...`". 6000...| 000005A0: C4 22 89 20 38 37 35 30 00 B4 0D 28 23 8F 20 50 |.". 8750...(#. P| 000005B0: 41 55 53 45 00 EA 0D B4 23 51 31 24 B2 22 5A 55 |AUSE....#Q1$."ZU| 000005C0: 52 20 46 4F 52 54 53 45 54 5A 55 4E 47 20 42 49 |R FORTSETZUNG BI| 000005D0: 54 54 45 20 45 49 4E 45 20 54 41 53 54 45 20 42 |TTE EINE TASTE B| 000005E0: 45 54 41 45 54 49 47 45 4E 22 00 FC 0D BE 23 51 |ETAETIGEN"....#Q| 000005F0: 32 24 B2 22 22 3A 51 33 24 B2 22 22 00 1D 0E C8 |2$."":Q3$.""....| 00000600: 23 8F 20 41 55 46 52 55 46 20 44 45 53 20 44 49 |#. AUFRUF DES DI| 00000610: 41 4C 4F 47 50 52 4F 47 52 41 4D 4D 53 00 28 0E |ALOGPROGRAMMS.(.| 00000620: D2 23 8D 20 36 30 30 30 00 45 0E DC 23 8F 20 57 |.#. 6000.E..#. W| 00000630: 41 52 54 45 20 41 55 46 20 54 41 53 54 45 4E 53 |ARTE AUF TASTENS| 00000640: 43 48 4C 41 47 00 5A 0E E6 23 A1 20 58 24 3A 8B |CHLAG.Z..#. X$:.| 00000650: 58 24 B2 22 22 A7 39 31 39 30 00 6D 0E EA 23 8B |X$."".9190.m..#.| 00000660: 58 24 B2 22 50 22 A7 8D 20 39 38 30 30 00 73 0E |X$."P".. 9800.s.| 00000670: F0 23 8E 00 7E 0E 1C 25 8F 20 4A 45 49 4E 00 AA |.#..~..%. JEIN..| 00000680: 0E 8A 25 8F 20 57 41 52 54 45 4E 20 41 55 46 20 |..%. WARTEN AUF | 00000690: 44 41 53 20 41 4E 53 43 48 4C 41 47 45 4E 20 45 |DAS ANSCHLAGEN E| 000006A0: 49 4E 45 52 20 54 41 53 54 45 00 B4 0E 94 25 A1 |INER TASTE....%.| 000006B0: 20 59 4E 24 00 D0 0E 9E 25 8B 20 59 4E 24 B2 22 | YN$....%. YN$."| 000006C0: 4A 22 B0 20 59 4E 24 B2 22 4E 22 A7 39 36 36 30 |J". YN$."N".9660| 000006D0: 00 00 0F A8 25 8F 20 57 45 44 45 52 20 4A 41 20 |....%. WEDER JA | 000006E0: 4E 4F 43 48 20 4E 45 49 4E 20 4E 45 49 4E 20 44 |NOCH NEIN NEIN D| 000006F0: 41 4E 4E 20 57 49 45 44 45 52 48 4F 4C 55 4E 47 |ANN WIEDERHOLUNG| 00000700: 00 12 0F AC 25 8B 59 4E 24 B2 22 50 22 A7 39 38 |....%.YN$."P".98| 00000710: 30 30 00 1D 0F B2 25 89 20 39 36 32 30 00 28 0F |00....%. 9620.(.| 00000720: BC 25 99 59 4E 24 3A 8E 00 37 0F 48 26 8F 20 48 |.%.YN$:..7.H&. H| 00000730: 41 52 44 43 4F 50 59 00 43 0F 5C 26 9F 20 31 2C |ARDCOPY.C.\&. 1,| 00000740: 34 2C 31 00 5C 0F 66 26 81 20 49 B2 31 30 32 34 |4,1.\.f&. I.1024| 00000750: 20 A4 20 32 30 32 33 20 A9 20 34 30 00 6B 0F 70 | . 2023 . 40.k.p| 00000760: 26 81 4A B2 49 A4 20 49 AA 33 39 00 76 0F 75 26 |&.J.I. I.39.v.u&| 00000770: 4B B2 C2 28 4A 29 00 8D 0F 7A 26 8B 20 4B B3 33 |K..(J)...z&. K.3| 00000780: 32 A7 98 31 2C C7 28 4B AA 36 34 29 3B 00 A1 0F |2..1,.(K.64);...| 00000790: 7F 26 8B 4B B1 33 31 20 A7 98 31 2C C7 28 4B 29 |.&.K.31 ..1,.(K)| 000007A0: 3B 00 A8 0F 84 26 82 4A 00 AF 0F 8E 26 98 31 00 |;....&.J....&.1.| 000007B0: B6 0F 98 26 82 49 00 BE 0F A2 26 A0 20 31 00 C4 |...&.I....&. 1..| 000007C0: 0F AC 26 8E 00 00 00 00 |..&..... |
....... FORTSETZUNG.5.4.Q1$."WOLLEN SIE EINE WEITERE".S.>.Q3$."DURCHFUEHREN (J/N )?".`.H.. DIALOG.K.R.. 6000...\.. FRAGE JA ODER NEIN...F.. 9500...P.....P.. DIAL OG.D.... LOESCHEN DES DIALOGBEREICHS.... .. ZEICHNEN DER RAENDER UND LEERZEILEN.. .... I.20 . 24...$.. AUSWAHL DER ZEILE.1 ....214,I.1:.211,0:.58732.=.8..J.1.39.Q. B.. I . 20 .."-";.G.L.. I .. 20 . ." ";. N.V..J.V.`.. I...J..214,20:.211,0:.58732 ...T..Q1$:. ERSTE FRAGE...~..Q2$:. ZWEIT E FRAGE.W....Q3$:. DRITTE FRAGE......... D.. ZEICHENEINGABE...R.. WARTEN AUF EING ABE...... CH$.&....CH$."".6620.@....CH$. "P".9800:. 6620.F.....Z.X.. DATEN EINGA BE.N.... STELLE FRAGEN.Y.... 6000... .. HOLE FRAGEN...*.. P$(K)...4.. WIEDERGABE DER GELESENEN DATEN.W.>..214,K.1:.211,2 :.58732...H..Q3$; .20); P$(K)...R.....\. K . K . 1...F.....L.. INITIALISIERUNG.). ...G(147).F....53280,0:.53281,0:.G(30).R .... TITEL.Z....N$.`.....W.@.. PARAMETER EINGABE...... STELLE FRAGEN...... 6000.. .... HOLE WERT...... PAR(K).S.. . AUSGAB E FRAGE UND ANTWORT.... .214,K.1:.211,2: . 58732.... .:.:.Q3$; .30);PAR(K)...& K . K . 1...0 ..1.4!. MENUEPROGRAMM.H.T!. MENUE DARSTELLEN.V..!. I. 1. N.~..!. I.1 0 .. I;G(20)"=";X$(I)....!. I. 10 .." 0=";X$(I). ..!. I....". FRAGEN ST ELLEN...."Q1$."":Q2$."":Q3$."BITTE AUSWA HL TREFFEN:"....". 6000...$". EINGABE ZE ICHEN....". 6500.'.8"X.E(CH$):.X.0.X.10. K.B". PRUEFEN OB ZEICHEN IM BEREICH.^.L" .X..1 . X..N.....V"Q1$."EINGABE NICHT ZU LAESSIG,BITTE WIEDERHOLEN"...`". 6000... D". 8750...(#. PAUSE....#Q1$."ZUR FORTSE TZUNG BITTE EINE TASTE BETAETIGEN"....#Q 2$."":Q3$.""...H#. AUFRUF DES DIALOGPROG RAMMS.(.R#. 6000.E..#. WARTE AUF TASTENS CHLAG.Z..#. X$:.X$."".9190.M..#.X$."P".. 9800.S..#..~..%. JEIN....%. WARTEN AUF DAS ANSCHLAGEN EINER TASTE....%. YN$.P.. %. YN$."J". YN$."N".9660....%. WEDER JA NOCH NEIN NEIN DANN WIEDERHOLUNG....%.YN $."P".9800....%. 9620.(..%.YN$:..7.H&. H ARDCOPY.C.\&. 1,4,1.\.F&. I.1024 . 2023 . 40.K.P&.J.I. I.39.V.U&K.B(J)...Z&. K.3 2..1,G(K.64);...&.K.31 ..1,G(K);....&.J ....&.1....&.I....& 1.D..&.....
> CLICK IMAGE PREVIEW FOR FULL MODAL