13.INPUT AT
FILE INFORMATION
FILENAME(S): 13.INPUT AT
FILE TYPE(S): PRG
FILE SIZE: 3.9K
FIRST SEEN: 2025-11-30 01:08:43
APPEARS ON: 2 disk(s)
FILE HASH
4a8acb54e27fb8ad219877bcf8bb20ec2b8056bd85deb24651b7bffc3323bc83
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| FREEWARE DISK NR | 13.INPUT AT | PRG | Treasure Chest - Wolfgang Rauprich | 13 | 4 | DOWNLOAD FILE |
| U TILITIE | 13.INPUT AT | PRG | Treasure Chest - Wolfgang Rauprich | 13 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 17 08 1A 72 97 35 33 32 38 30 2C 36 3A 97 |.....r.53280,6:.|
00000010: 35 33 32 38 31 2C 36 00 27 08 24 72 8F 20 41 4E |53281,6.'.$r. AN|
00000020: 4C 45 49 54 55 4E 47 00 48 08 2E 72 99 22 93 55 |LEITUNG.H..r.".U|
00000030: 4E 54 45 52 50 52 4F 47 52 41 4D 4D 20 27 49 4E |NTERPROGRAMM 'IN|
00000040: 50 55 54 20 41 54 27 22 00 68 08 38 72 99 22 A3 |PUT AT'".h.8r.".|
00000050: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00000060: A3 A3 A3 A3 A3 A3 A3 22 00 97 08 42 72 99 22 11 |......."...Br.".|
00000070: 49 4E 20 44 45 4E 20 33 20 46 4F 4C 47 45 4E 44 |IN DEN 3 FOLGEND|
00000080: 45 4E 20 42 45 49 53 50 49 45 4C 45 4E 20 57 49 |EN BEISPIELEN WI|
00000090: 52 44 20 44 49 45 22 00 C5 08 4C 72 99 22 41 4E |RD DIE"...Lr."AN|
000000A0: 57 45 4E 44 55 4E 47 20 44 45 53 20 55 4E 54 45 |WENDUNG DES UNTE|
000000B0: 52 50 52 4F 47 52 41 4D 4D 53 20 45 52 4B 4C 41 |RPROGRAMMS ERKLA|
000000C0: 45 52 54 2E 22 00 F7 08 56 72 99 22 11 41 4E 53 |ERT."...Vr.".ANS|
000000D0: 43 48 4C 49 45 53 53 45 4E 44 20 4B 4F 45 4E 4E |CHLIESSEND KOENN|
000000E0: 45 4E 20 53 49 45 20 50 45 52 20 4B 4E 4F 50 46 |EN SIE PER KNOPF|
000000F0: 44 52 55 43 4B 22 3B 00 26 09 60 72 99 22 41 4C |DRUCK";.&.`r."AL|
00000100: 4C 45 20 42 45 49 53 50 49 45 4C 45 20 4C 4F 45 |LE BEISPIELE LOE|
00000110: 53 43 48 45 4E 2C 20 44 41 4D 49 54 20 53 49 43 |SCHEN, DAMIT SIC|
00000120: 48 20 49 4D 20 22 00 51 09 6A 72 99 22 53 50 45 |H IM ".Q.jr."SPE|
00000130: 49 43 48 45 52 20 4E 55 52 20 4E 4F 43 48 20 44 |ICHER NUR NOCH D|
00000140: 41 53 20 55 4E 54 45 52 50 52 4F 47 52 41 4D 4D |AS UNTERPROGRAMM|
00000150: 22 00 62 09 74 72 99 22 42 45 46 49 4E 44 45 54 |".b.tr."BEFINDET|
00000160: 2E 22 00 8D 09 7E 72 99 22 44 49 45 53 45 52 20 |."...~r."DIESER |
00000170: 56 4F 52 47 41 4E 47 20 49 53 54 20 4A 45 44 4F |VORGANG IST JEDO|
00000180: 43 48 20 45 52 53 54 20 4E 41 43 48 22 00 B3 09 |CH ERST NACH"...|
00000190: 88 72 99 22 44 45 52 20 4D 45 4C 44 55 4E 47 20 |.r."DER MELDUNG |
000001A0: 27 52 45 41 44 59 27 20 42 45 45 4E 44 45 54 A0 |'READY' BEENDET.|
000001B0: 21 21 22 00 E1 09 92 72 99 22 11 53 49 45 20 4B |!!"....r.".SIE K|
000001C0: 4F 45 4E 4E 45 4E 20 44 41 4E 4E 20 45 4E 54 57 |OENNEN DANN ENTW|
000001D0: 45 44 45 52 20 49 48 52 20 45 49 47 45 4E 45 53 |EDER IHR EIGENES|
000001E0: 22 00 10 0A 9C 72 99 22 50 52 4F 47 52 41 4D 4D |"....r."PROGRAMM|
000001F0: 20 44 41 48 49 4E 54 45 52 20 4F 44 45 52 20 44 | DAHINTER ODER D|
00000200: 41 56 4F 52 20 53 43 48 52 45 49 42 45 4E 2C 22 |AVOR SCHREIBEN,"|
00000210: 00 3F 0A A6 72 99 22 4F 44 45 52 20 45 53 20 4D |.?..r."ODER ES M|
00000220: 49 54 20 48 49 4C 46 45 20 45 49 4E 45 53 20 4D |IT HILFE EINES M|
00000230: 45 52 47 45 2D 50 52 4F 47 52 41 4D 4D 53 22 00 |ERGE-PROGRAMMS".|
00000240: 6C 0A B0 72 99 22 41 4E 20 45 49 4E 20 42 45 52 |l..r."AN EIN BER|
00000250: 45 49 54 53 20 47 45 53 43 48 52 49 45 42 45 4E |EITS GESCHRIEBEN|
00000260: 45 53 20 50 52 4F 47 52 41 4D 4D 22 00 7E 0A BA |ES PROGRAMM".~..|
00000270: 72 99 22 41 4E 48 41 45 4E 47 45 4E 21 22 00 AC |r."ANHAENGEN!"..|
00000280: 0A C4 72 99 22 11 44 49 45 20 5A 41 48 4C 45 4E |..r.".DIE ZAHLEN|
00000290: 20 56 4F 52 20 44 45 4E 20 42 45 49 53 50 49 45 | VOR DEN BEISPIE|
000002A0: 4C 45 4E 20 53 54 45 4C 4C 45 4E 22 00 D8 0A CE |LEN STELLEN"....|
000002B0: 72 99 22 45 49 4E 45 20 42 45 4C 49 45 42 49 47 |r."EINE BELIEBIG|
000002C0: 45 20 5A 45 49 4C 45 4E 4E 55 4D 4D 45 52 20 49 |E ZEILENNUMMER I|
000002D0: 4E 20 49 48 52 45 4D 22 00 ED 0A D8 72 99 22 50 |N IHREM"....r."P|
000002E0: 52 4F 47 52 41 4D 4D 20 44 41 52 21 22 00 16 0B |ROGRAMM DAR!"...|
000002F0: E2 72 51 31 B2 32 34 3A 51 32 B2 31 34 3A 8D 33 |.rQ1.24:Q2.14:.3|
00000300: 30 34 30 30 3A 99 22 9E 12 42 92 45 49 53 50 49 |0400:."..B.EISPI|
00000310: 45 4C 45 9A 22 3B 00 2B 0B EC 72 A1 49 24 3A 8B |ELE.";.+..r.I$:.|
00000320: 49 24 B2 22 22 A7 32 39 34 32 30 00 3E 0B F6 72 |I$."".29420.>..r|
00000330: 8B 49 24 B3 B1 22 42 22 A7 32 39 34 32 30 00 68 |.I$.."B".29420.h|
00000340: 0B 00 73 99 22 93 31 2E 42 45 49 53 50 2E 3A 20 |..s.".1.BEISP.: |
00000350: 41 4E 46 4F 52 44 45 52 55 4E 47 20 45 49 4E 45 |ANFORDERUNG EINE|
00000360: 52 20 5A 41 48 4C 3A 22 00 91 0B 0A 73 99 22 A3 |R ZAHL:"....s.".|
00000370: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00000380: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00000390: 22 00 BE 0B 14 73 99 22 11 31 32 30 20 51 31 3D |"....s.".120 Q1=|
000003A0: 32 32 3A 51 32 3D 31 35 3A 51 33 3D 36 3A 51 37 |22:Q2=15:Q3=6:Q7|
000003B0: 3D 31 3A 47 4F 53 55 42 33 30 30 30 30 22 00 D2 |=1:GOSUB30000"..|
000003C0: 0B 1E 73 99 22 11 11 42 45 44 45 55 54 55 4E 47 |..s."..BEDEUTUNG|
000003D0: 3A 22 00 F2 0B 28 73 99 22 11 51 31 20 3D 20 5A |:"...(s.".Q1 = Z|
000003E0: 45 49 4C 45 20 20 44 45 52 20 45 49 4E 47 41 42 |EILE DER EINGAB|
000003F0: 45 22 00 11 0C 32 73 99 22 51 32 20 3D 20 53 50 |E"...2s."Q2 = SP|
00000400: 41 4C 54 45 20 44 45 52 20 45 49 4E 47 41 42 45 |ALTE DER EINGABE|
00000410: 22 00 31 0C 3C 73 99 22 51 33 20 3D 20 4D 41 58 |".1.<s."Q3 = MAX|
00000420: 49 4D 41 4C 45 20 5A 45 49 43 48 45 4E 5A 41 48 |IMALE ZEICHENZAH|
00000430: 4C 00 58 0C 46 73 99 22 51 37 20 3D 20 31 20 57 |L.X.Fs."Q7 = 1 W|
00000440: 45 4E 4E 20 4E 55 52 20 5A 41 48 4C 45 4E 20 5A |ENN NUR ZAHLEN Z|
00000450: 55 4C 41 45 53 53 49 47 00 85 0C 50 73 99 22 11 |ULAESSIG...Ps.".|
00000460: 57 41 53 20 44 41 52 41 55 46 48 49 4E 20 50 41 |WAS DARAUFHIN PA|
00000470: 53 53 49 45 52 54 2C 20 53 45 48 45 4E 20 53 49 |SSIERT, SEHEN SI|
00000480: 45 20 49 4E 22 00 A0 0C 5A 73 99 22 5A 45 49 4C |E IN"...Zs."ZEIL|
00000490: 45 20 31 32 20 53 50 41 4C 54 45 20 31 35 2E 22 |E 12 SPALTE 15."|
000004A0: 00 D0 0C 64 73 99 22 11 4D 41 43 48 45 4E 20 53 |...ds.".MACHEN S|
000004B0: 49 45 20 4A 45 54 5A 54 20 44 49 45 20 47 45 46 |IE JETZT DIE GEF|
000004C0: 4F 52 44 45 52 54 45 20 45 49 4E 47 41 42 45 22 |ORDERTE EINGABE"|
000004D0: 00 FF 0C 6E 73 99 22 55 4E 44 20 44 52 55 45 43 |...ns."UND DRUEC|
000004E0: 4B 45 4E 20 53 49 45 20 41 4E 53 43 48 4C 49 45 |KEN SIE ANSCHLIE|
000004F0: 53 53 45 4E 44 20 27 52 45 54 55 52 4E 27 22 00 |SSEND 'RETURN'".|
00000500: 21 0D 78 73 51 31 B2 32 32 3A 51 32 B2 31 35 3A |!.xsQ1.22:Q2.15:|
00000510: 51 33 B2 36 3A 51 37 B2 31 3A 8D 33 30 30 30 30 |Q3.6:Q7.1:.30000|
00000520: 22 00 37 0D 82 73 51 31 B2 31 38 3A 51 32 B2 30 |".7..sQ1.18:Q2.0|
00000530: 3A 8D 33 30 34 30 30 00 67 0D 8C 73 99 22 11 05 |:.30400.g..s."..|
00000540: 49 48 52 45 20 45 49 4E 47 41 42 45 20 53 54 45 |IHRE EINGABE STE|
00000550: 48 54 20 44 41 4E 4E 20 49 4D 20 53 54 52 49 4E |HT DANN IM STRIN|
00000560: 47 20 51 34 24 2E 22 00 7B 0D 96 73 99 22 51 34 |G Q4$.".{..s."Q4|
00000570: 24 20 3D 20 22 51 34 24 22 9A 22 00 BD 0D A0 73 |$ = "Q4$"."....s|
00000580: 51 31 B2 32 34 3A 51 32 B2 33 3A 8D 33 30 34 30 |Q1.24:Q2.3:.3040|
00000590: 30 3A 99 22 9E 12 4E 92 41 45 43 48 53 54 45 53 |0:."..N.AECHSTES|
000005A0: 20 42 45 49 53 50 2E 20 20 12 47 92 4C 45 49 43 | BEISP. .G.LEIC|
000005B0: 48 45 53 20 42 45 49 53 50 2E 9A 22 3B 00 D2 0D |HES BEISP..";...|
000005C0: AA 73 A1 49 24 3A 8B 49 24 B2 22 22 A7 32 39 36 |.s.I$:.I$."".296|
000005D0: 31 30 00 E4 0D B4 73 8B 49 24 B2 22 47 22 A7 32 |10....s.I$."G".2|
000005E0: 39 34 34 30 00 F7 0D BE 73 8B 49 24 B3 B1 22 4E |9440....s.I$.."N|
000005F0: 22 A7 32 39 36 31 30 00 23 0E C8 73 99 22 93 32 |".29610.#..s.".2|
00000600: 2E 42 45 49 53 50 2E 3A 20 41 4E 46 4F 52 44 45 |.BEISP.: ANFORDE|
00000610: 52 55 4E 47 20 45 49 4E 45 53 20 53 54 52 49 4E |RUNG EINES STRIN|
00000620: 47 53 22 00 50 0E D2 73 99 22 A3 A3 A3 A3 A3 A3 |GS".P..s."......|
00000630: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00000640: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 22 |..............."|
00000650: 00 7C 0E DC 73 99 22 11 31 32 30 20 51 31 3D 35 |.|..s.".120 Q1=5|
00000660: 3A 51 32 3D 32 36 3A 51 33 3D 36 3A 51 37 3D 30 |:Q2=26:Q3=6:Q7=0|
00000670: 3A 47 4F 53 55 42 33 30 30 30 30 22 00 91 0E E6 |:GOSUB30000"....|
00000680: 73 99 22 11 11 11 42 45 44 45 55 54 55 4E 47 3A |s."...BEDEUTUNG:|
00000690: 22 00 B1 0E F0 73 99 22 11 51 31 20 3D 20 5A 45 |"....s.".Q1 = ZE|
000006A0: 49 4C 45 20 20 44 45 52 20 45 49 4E 47 41 42 45 |ILE DER EINGABE|
000006B0: 22 00 D0 0E FA 73 99 22 51 32 20 3D 20 53 50 41 |"....s."Q2 = SPA|
000006C0: 4C 54 45 20 44 45 52 20 45 49 4E 47 41 42 45 22 |LTE DER EINGABE"|
000006D0: 00 F0 0E 04 74 99 22 51 33 20 3D 20 4D 41 58 49 |....t."Q3 = MAXI|
000006E0: 4D 41 4C 45 20 5A 45 49 43 48 45 4E 5A 41 48 4C |MALE ZEICHENZAHL|
000006F0: 00 1A 0F 0E 74 99 22 51 37 20 3D 20 30 20 57 45 |....t."Q7 = 0 WE|
00000700: 4E 4E 20 41 4C 4C 45 20 5A 45 49 43 48 45 4E 20 |NN ALLE ZEICHEN |
00000710: 5A 55 4C 41 45 53 53 49 47 22 00 47 0F 18 74 99 |ZULAESSIG".G..t.|
00000720: 22 11 57 41 53 20 44 41 52 41 55 46 48 49 4E 20 |".WAS DARAUFHIN |
00000730: 50 41 53 53 49 45 52 54 2C 20 53 45 48 45 4E 20 |PASSIERT, SEHEN |
00000740: 53 49 45 20 49 4E 22 00 61 0F 22 74 99 22 5A 45 |SIE IN".a."t."ZE|
00000750: 49 4C 45 20 35 20 53 50 41 4C 54 45 20 32 36 2E |ILE 5 SPALTE 26.|
00000760: 22 00 91 0F 2C 74 99 22 11 4D 41 43 48 45 4E 20 |"...,t.".MACHEN |
00000770: 53 49 45 20 4A 45 54 5A 54 20 44 49 45 20 47 45 |SIE JETZT DIE GE|
00000780: 46 4F 52 44 45 52 54 45 20 45 49 4E 47 41 42 45 |FORDERTE EINGABE|
00000790: 22 00 C0 0F 36 74 99 22 55 4E 44 20 44 52 55 45 |"...6t."UND DRUE|
000007A0: 43 4B 45 4E 20 53 49 45 20 41 4E 53 43 48 4C 49 |CKEN SIE ANSCHLI|
000007B0: 45 53 53 45 4E 44 20 27 52 45 54 55 52 4E 27 22 |ESSEND 'RETURN'"|
000007C0: 00 E2 0F 40 74 51 31 B2 35 3A 51 32 B2 32 36 3A |...@tQ1.5:Q2.26:|
000007D0: 51 33 B2 31 30 3A 51 37 B2 30 3A 8D 33 30 30 30 |Q3.10:Q7.0:.3000|
000007E0: 30 22 00 F8 0F 4A 74 51 31 B2 31 39 3A 51 32 B2 |0"...JtQ1.19:Q2.|
000007F0: 30 3A 8D 33 30 34 30 30 00 28 10 54 74 99 22 11 |0:.30400.(.Tt.".|
00000800: 05 49 48 52 45 20 45 49 4E 47 41 42 45 20 53 54 |.IHRE EINGABE ST|
00000810: 45 48 54 20 44 41 4E 4E 20 49 4D 20 53 54 52 49 |EHT DANN IM STRI|
00000820: 4E 47 20 51 34 24 2E 22 00 3C 10 5E 74 99 22 51 |NG Q4$.".<.^t."Q|
00000830: 34 24 20 3D 20 22 51 34 24 22 9A 22 00 7E 10 68 |4$ = "Q4$".".~.h|
00000840: 74 51 31 B2 32 34 3A 51 32 B2 33 3A 8D 33 30 34 |tQ1.24:Q2.3:.304|
00000850: 30 30 3A 99 22 9E 12 4E 92 41 45 43 48 53 54 45 |00:."..N.AECHSTE|
00000860: 53 20 42 45 49 53 50 2E 20 20 12 47 92 4C 45 49 |S BEISP. .G.LEI|
00000870: 43 48 45 53 20 42 45 49 53 50 2E 9A 22 3B 00 93 |CHES BEISP..";..|
00000880: 10 72 74 A1 49 24 3A 8B 49 24 B2 22 22 A7 32 39 |.rt.I$:.I$."".29|
00000890: 38 31 30 00 A5 10 7C 74 8B 49 24 B2 22 47 22 A7 |810...|t.I$."G".|
000008A0: 32 39 36 34 30 00 B8 10 86 74 8B 49 24 B3 B1 22 |29640....t.I$.."|
000008B0: 4E 22 A7 32 39 38 31 30 00 E7 10 90 74 99 22 93 |N".29810....t.".|
000008C0: 33 2E 42 45 49 53 50 2E 3A 20 44 52 55 43 4B 45 |3.BEISP.: DRUCKE|
000008D0: 4E 20 41 4E 20 42 45 4C 49 45 42 49 47 45 52 20 |N AN BELIEBIGER |
000008E0: 53 54 45 4C 4C 45 22 00 15 11 9A 74 99 22 A3 A3 |STELLE"....t."..|
000008F0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00000900: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00000910: A3 A3 A3 A3 22 00 36 11 A4 74 99 22 11 31 34 30 |....".6..t.".140|
00000920: 20 51 31 3D 32 32 3A 51 31 3D 35 3A 47 4F 53 55 | Q1=22:Q1=5:GOSU|
00000930: 42 33 30 30 30 30 00 59 11 AE 74 99 22 31 35 30 |B30000.Y..t."150|
00000940: 20 50 52 49 4E 54 22 C7 28 33 34 29 3B 22 54 45 | PRINT".(34);"TE|
00000950: 53 54 22 3B C7 28 33 34 29 00 6D 11 B8 74 99 22 |ST";.(34).m..t."|
00000960: 11 11 42 45 44 45 55 54 55 4E 47 3A 22 00 8C 11 |..BEDEUTUNG:"...|
00000970: C2 74 99 22 11 51 31 20 3D 20 5A 45 49 4C 45 20 |.t.".Q1 = ZEILE |
00000980: 20 44 45 53 20 44 52 55 43 4B 53 22 00 AA 11 CC | DES DRUCKS"....|
00000990: 74 99 22 51 32 20 3D 20 53 50 41 4C 54 45 20 44 |t."Q2 = SPALTE D|
000009A0: 45 53 20 44 52 55 43 4B 53 22 00 D8 11 D6 74 99 |ES DRUCKS"....t.|
000009B0: 22 11 57 41 53 20 44 41 52 41 55 46 48 49 4E 20 |".WAS DARAUFHIN |
000009C0: 50 41 53 53 49 45 52 54 2C 20 53 45 48 45 4E 20 |PASSIERT, SEHEN |
000009D0: 53 49 45 20 49 4E 20 22 00 F7 11 E0 74 99 22 5A |SIE IN "....t."Z|
000009E0: 45 49 4C 45 20 32 31 20 55 4E 44 20 53 50 41 4C |EILE 21 UND SPAL|
000009F0: 54 45 20 35 2E 20 22 00 23 12 EA 74 99 22 11 44 |TE 5. ".#..t.".D|
00000A00: 41 53 20 57 4F 52 54 20 54 45 53 54 20 57 49 52 |AS WORT TEST WIR|
00000A10: 44 20 49 4E 20 5A 45 49 4C 45 20 32 32 20 55 4E |D IN ZEILE 22 UN|
00000A20: 44 20 22 00 3E 12 F4 74 99 22 53 50 41 4C 54 45 |D ".>..t."SPALTE|
00000A30: 20 31 35 20 47 45 44 52 55 43 4B 54 2E 22 00 5C | 15 GEDRUCKT.".\|
00000A40: 12 FE 74 51 31 B2 32 31 3A 51 32 B2 35 3A 8D 33 |..tQ1.21:Q2.5:.3|
00000A50: 30 34 30 30 3A 99 22 54 45 53 54 22 00 9D 12 08 |0400:."TEST"....|
00000A60: 75 51 31 B2 32 34 3A 51 32 B2 32 3A 8D 33 30 34 |uQ1.24:Q2.2:.304|
00000A70: 30 30 3A 99 22 9E 12 4C 92 4F 45 53 43 48 45 4E |00:."..L.OESCHEN|
00000A80: 20 44 45 52 20 42 45 49 53 50 49 45 4C 50 52 4F | DER BEISPIELPRO|
00000A90: 47 52 41 4D 4D 5A 45 49 4C 45 4E 22 3B 00 B2 12 |GRAMMZEILEN";...|
00000AA0: 12 75 A1 49 24 3A 8B 49 24 B2 22 22 A7 32 39 39 |.u.I$:.I$."".299|
00000AB0: 37 30 00 C5 12 1C 75 8B 49 24 B3 B1 22 4C 22 A7 |70....u.I$.."L".|
00000AC0: 32 39 39 37 30 00 D0 12 26 75 89 35 30 30 30 30 |29970...&u.50000|
00000AD0: 00 F5 12 30 75 8F 20 2A 2A 2A 2A 2A 20 49 4E 50 |...0u. ***** INP|
00000AE0: 55 54 20 41 54 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |UT AT **********|
00000AF0: 2A 2A 2A 2A 2A 00 0F 13 3A 75 51 38 B2 30 3A 51 |*****...:uQ8.0:Q|
00000B00: 39 B2 30 3A 51 42 B2 51 31 3A 51 43 B2 51 32 00 |9.0:QB.Q1:QC.Q2.|
00000B10: 21 13 44 75 8B 51 31 B1 AB 31 A7 8D 33 30 34 30 |!.Du.Q1..1..3040|
00000B20: 30 00 39 13 4E 75 51 31 B2 C2 28 32 31 34 29 3A |0.9.NuQ1..(214):|
00000B30: 51 32 B2 C2 28 32 31 31 29 00 4F 13 58 75 81 49 |Q2..(211).O.Xu.I|
00000B40: 49 B2 31 A4 51 33 3A 99 22 12 20 22 3B 3A 82 00 |I.1.Q3:.". ";:..|
00000B50: 5A 13 62 75 8D 33 30 34 30 30 00 7D 13 6C 75 51 |Z.bu.30400.}.luQ|
00000B60: 35 B2 30 3A 51 34 24 B2 22 22 3A 97 31 30 32 34 |5.0:Q4$."":.1024|
00000B70: AA 34 30 AC 51 31 AA 51 32 2C 31 39 31 00 95 13 |.40.Q1.Q2,191...|
00000B80: 76 75 81 49 49 B2 36 33 31 A4 36 34 30 3A 97 49 |vu.II.631.640:.I|
00000B90: 49 2C 30 3A 82 00 A1 13 80 75 51 35 B2 51 35 AA |I,0:.....uQ5.Q5.|
00000BA0: 31 00 B8 13 8A 75 A1 51 36 24 3A 8B 51 36 24 B2 |1....u.Q6$:.Q6$.|
00000BB0: 22 22 A7 33 30 30 39 30 00 CD 13 94 75 8B C6 28 |"".30090....u..(|
00000BC0: 51 36 24 29 B2 33 34 A7 33 30 30 39 30 00 E8 13 |Q6$).34.30090...|
00000BD0: 9E 75 8B C6 28 51 36 24 29 B2 33 32 AF 51 35 B3 |.u..(Q6$).32.Q5.|
00000BE0: B2 31 A7 33 30 30 39 30 00 00 14 A8 75 8B C6 28 |.1.30090....u..(|
00000BF0: 51 36 24 29 B2 31 33 A7 99 3A 89 33 30 33 35 30 |Q6$).13..:.30350|
00000C00: 00 20 14 B2 75 8B C6 28 51 36 24 29 B2 32 30 B0 |. ..u..(Q6$).20.|
00000C10: C6 28 51 36 24 29 B2 31 35 37 A7 33 30 32 33 30 |.(Q6$).157.30230|
00000C20: 00 30 14 BC 75 8B 51 37 B2 31 A7 33 30 31 37 30 |.0..u.Q7.1.30170|
00000C30: 00 4F 14 C6 75 8B C6 28 51 36 24 29 B3 33 32 B0 |.O..u..(Q6$).32.|
00000C40: C6 28 51 36 24 29 B1 39 30 A7 33 30 30 39 30 00 |.(Q6$).90.30090.|
00000C50: 5A 14 D0 75 89 33 30 32 38 30 00 7B 14 DA 75 8B |Z..u.30280.{..u.|
00000C60: C6 28 51 36 24 29 B1 B2 34 38 AF C6 28 51 36 24 |.(Q6$)..48..(Q6$|
00000C70: 29 B3 B2 35 37 A7 33 30 32 38 30 00 8B 14 E4 75 |)..57.30280....u|
00000C80: 8B 51 38 B2 31 A7 33 30 32 30 30 00 A6 14 EE 75 |.Q8.1.30200....u|
00000C90: 8B C6 28 51 36 24 29 B2 34 36 A7 51 38 B2 31 3A |..(Q6$).46.Q8.1:|
00000CA0: 89 33 30 32 38 30 00 B6 14 F8 75 8B 51 39 B2 31 |.30280....u.Q9.1|
00000CB0: A7 33 30 32 32 30 00 D6 14 02 76 8B C6 28 51 36 |.30220....v..(Q6|
00000CC0: 24 29 B2 34 35 AF 51 35 B2 31 A7 51 39 B2 31 3A |$).45.Q5.1.Q9.1:|
00000CD0: 89 33 30 32 38 30 00 E1 14 0C 76 89 33 30 30 39 |.30280....v.3009|
00000CE0: 30 00 F2 14 16 76 8B 51 35 B3 B2 31 A7 33 30 30 |0....v.Q5..1.300|
00000CF0: 39 30 00 25 15 20 76 51 32 B2 51 32 AB 31 3A 8D |90.%. vQ2.Q2.1:.|
00000D00: 33 30 34 30 30 3A 51 38 24 B2 CA 28 51 34 24 2C |30400:Q8$..(Q4$,|
00000D10: 51 35 AB 31 2C 31 29 3A 8B 51 38 24 B2 22 2E 22 |Q5.1,1):.Q8$."."|
00000D20: A7 51 38 B2 30 00 37 15 2A 76 8B 51 38 24 B2 22 |.Q8.0.7.*v.Q8$."|
00000D30: 2D 22 A7 51 39 B2 30 00 48 15 34 76 99 22 12 20 |-".Q9.0.H.4v.". |
00000D40: 22 3A 8D 33 30 34 30 30 00 6B 15 3E 76 51 34 24 |":.30400.k.>vQ4$|
00000D50: B2 C8 28 51 34 24 2C 51 35 AB 32 29 3A 51 35 B2 |..(Q4$,Q5.2):Q5.|
00000D60: 51 35 AB 31 3A 89 33 30 30 39 30 00 7B 15 48 76 |Q5.1:.30090.{.Hv|
00000D70: 51 34 24 B2 51 34 24 AA 51 36 24 00 97 15 52 76 |Q4$.Q4$.Q6$...Rv|
00000D80: 99 22 12 22 3B 51 36 24 3A 51 32 B2 51 32 AA 31 |.".";Q6$:Q2.Q2.1|
00000D90: 3A 8D 33 30 34 30 30 00 A8 15 5C 76 8B 51 35 B3 |:.30400...\v.Q5.|
00000DA0: 51 33 A7 33 30 30 38 30 00 C7 15 66 76 51 35 B2 |Q3.30080...fvQ5.|
00000DB0: 51 33 AA 31 3A A1 51 36 24 3A 8B 51 36 24 B2 22 |Q3.1:.Q6$:.Q6$."|
00000DC0: 22 A7 33 30 33 31 30 00 E7 15 70 76 8B C6 28 51 |".30310...pv..(Q|
00000DD0: 36 24 29 B2 32 30 B0 C6 28 51 36 24 29 B2 31 35 |6$).20..(Q6$).15|
00000DE0: 37 A7 33 30 32 33 30 00 FF 15 7A 76 8B C6 28 51 |7.30230...zv..(Q|
00000DF0: 36 24 29 B2 31 33 A7 99 3A 89 33 30 33 35 30 00 |6$).13..:.30350.|
00000E00: 0A 16 84 76 89 33 30 33 31 30 00 1D 16 8E 76 8B |...v.30310....v.|
00000E10: 51 34 24 B3 B1 22 22 A7 33 30 33 38 30 00 2D 16 |Q4$.."".30380.-.|
00000E20: 98 76 8B 51 41 B2 30 A7 33 30 30 30 30 00 4C 16 |.v.QA.0.30000.L.|
00000E30: A2 76 51 31 B2 51 42 3A 51 32 B2 51 43 3A 8D 33 |.vQ1.QB:Q2.QC:.3|
00000E40: 30 34 30 30 3A 99 22 12 20 92 22 3B 00 5A 16 AC |0400:.". .";.Z..|
00000E50: 76 51 41 B2 30 3A 51 37 B2 30 00 60 16 B6 76 8E |vQA.0:Q7.0.`..v.|
00000E60: 00 85 16 C0 76 8F 20 2A 2A 2A 20 43 55 52 53 4F |....v. *** CURSO|
00000E70: 52 20 50 4F 53 49 54 49 4F 4E 49 45 52 45 4E 20 |R POSITIONIEREN |
00000E80: 2A 2A 2A 2A 2A 00 A0 16 CA 76 97 32 31 34 2C 51 |*****....v.214,Q|
00000E90: 31 3A 97 32 31 31 2C 51 32 3A 9E 35 38 36 34 30 |1:.211,Q2:.58640|
00000EA0: 00 A6 16 D4 76 8E 00 CB 16 50 C3 8F 20 2A 2A 2A |....v....P.. ***|
00000EB0: 20 55 50 20 5A 45 49 4C 45 4E 20 4C 4F 45 53 43 | UP ZEILEN LOESC|
00000EC0: 48 45 4E 20 2A 2A 2A 2A 2A 2A 2A 00 E7 16 5A C3 |HEN *******...Z.|
00000ED0: 51 53 B2 32 39 32 30 30 3A 51 45 B2 32 39 39 39 |QS.29200:QE.2999|
00000EE0: 30 3A 4B 4E B2 51 53 00 17 17 64 C3 99 22 93 1F |0:KN.QS...d.."..|
00000EF0: 22 3B 3A 8B 4B 4E B2 51 45 A7 81 49 B2 35 30 30 |";:.KN.QE..I.500|
00000F00: 30 30 A4 35 30 30 35 30 A9 31 30 3A 99 49 3A 82 |00.50050.10:.I:.|
00000F10: 3A 89 35 30 30 34 30 00 48 17 6E C3 4B 4E B2 4B |:.50040.H.n.KN.K|
00000F20: 4E AA 31 30 3A 99 22 93 22 4B 4E 3A 99 22 4B 4E |N.10:."."KN:."KN|
00000F30: 3D 22 4B 4E 22 3A 51 45 3D 22 51 45 22 3A 47 4F |="KN":QE="QE":GO|
00000F40: 54 4F 35 30 30 32 30 22 00 78 17 78 C3 97 36 33 |TO50020".x.x..63|
00000F50: 31 2C 31 39 3A 81 49 B2 36 33 32 A4 36 34 30 3A |1,19:.I.632.640:|
00000F60: 97 49 2C 31 33 3A 82 3A 97 31 39 38 2C 37 3A 8B |.I,13:.:.198,7:.|
00000F70: 4B 4E B3 B1 51 45 A7 80 00 83 17 82 C3 99 22 9A |KN..QE........".|
00000F80: 22 3A 80 00 00 00 |":.... |
.....R.53280,6:.53281,6.'.$R. ANLEITUNG.
H..R.".UNTERPROGRAMM 'INPUT AT'".H.8R.".
......................."...BR.".IN DEN 3
FOLGENDEN BEISPIELEN WIRD DIE".E.LR."AN
WENDUNG DES UNTERPROGRAMMS ERKLAERT."...
VR.".ANSCHLIESSEND KOENNEN SIE PER KNOPF
DRUCK";.&.`R."ALLE BEISPIELE LOESCHEN, D
AMIT SICH IM ".Q.JR."SPEICHER NUR NOCH D
AS UNTERPROGRAMM".B.TR."BEFINDET."...~R.
"DIESER VORGANG IST JEDOCH ERST NACH"...
.R."DER MELDUNG 'READY' BEENDET !!"....R
.".SIE KOENNEN DANN ENTWEDER IHR EIGENES
"....R."PROGRAMM DAHINTER ODER DAVOR SCH
REIBEN,".?..R."ODER ES MIT HILFE EINES M
ERGE-PROGRAMMS".L..R."AN EIN BEREITS GES
CHRIEBENES PROGRAMM".~..R."ANHAENGEN!"..
.DR.".DIE ZAHLEN VOR DEN BEISPIELEN STEL
LEN".X.NR."EINE BELIEBIGE ZEILENNUMMER I
N IHREM"...XR."PROGRAMM DAR!"....RQ1.24:
Q2.14:.30400:."..B.EISPIELE.";.+..R.I$:.
I$."".29420.>..R.I$.."B".29420.H..S.".1.
BEISP.: ANFORDERUNG EINER ZAHL:"....S.".
................................"....S."
.120 Q1=22:Q2=15:Q3=6:Q7=1:GOSUB30000".R
..S."..BEDEUTUNG:"...(S.".Q1 = ZEILE DE
R EINGABE"...2S."Q2 = SPALTE DER EINGABE
".1.<S."Q3 = MAXIMALE ZEICHENZAHL.X.FS."
Q7 = 1 WENN NUR ZAHLEN ZULAESSIG...PS.".
WAS DARAUFHIN PASSIERT, SEHEN SIE IN". .
ZS."ZEILE 12 SPALTE 15.".P.DS.".MACHEN S
IE JETZT DIE GEFORDERTE EINGABE"...NS."U
ND DRUECKEN SIE ANSCHLIESSEND 'RETURN'".
!.XSQ1.22:Q2.15:Q3.6:Q7.1:.30000".7..SQ1
.18:Q2.0:.30400.G..S."..IHRE EINGABE STE
HT DANN IM STRING Q4$.".{..S."Q4$ = "Q4$
"."... SQ1.24:Q2.3:.30400:."..N.AECHSTES
BEISP. .G.LEICHES BEISP..";.R..S.I$:.I
$."".29610....S.I$."G".29440....S.I$.."N
".29610.#.HS.".2.BEISP.: ANFORDERUNG EIN
ES STRINGS".P.RS."......................
...............".|..S.".120 Q1=5:Q2=26:Q
3=6:Q7=0:GOSUB30000"....S."...BEDEUTUNG:
"....S.".Q1 = ZEILE DER EINGABE".P..S."
Q2 = SPALTE DER EINGABE"....T."Q3 = MAXI
MALE ZEICHENZAHL....T."Q7 = 0 WENN ALLE
ZEICHEN ZULAESSIG".G..T.".WAS DARAUFHIN
PASSIERT, SEHEN SIE IN".A."T."ZEILE 5 SP
ALTE 26."...,T.".MACHEN SIE JETZT DIE GE
FORDERTE EINGABE"...6T."UND DRUECKEN SIE
ANSCHLIESSEND 'RETURN'"...@TQ1.5:Q2.26:
Q3.10:Q7.0:.30000"...JTQ1.19:Q2.0:.30400
.(.TT."..IHRE EINGABE STEHT DANN IM STRI
NG Q4$.".<.^T."Q4$ = "Q4$".".~.HTQ1.24:Q
2.3:.30400:."..N.AECHSTES BEISP. .G.LEI
CHES BEISP..";...RT.I$:.I$."".29810...|T
.I$."G".29640....T.I$.."N".29810....T.".
3.BEISP.: DRUCKEN AN BELIEBIGER STELLE".
...T."..................................
....".6..T.".140 Q1=22:Q1=5:GOSUB30000.Y
..T."150 PRINT"G(34);"TEST";G(34).M..T."
..BEDEUTUNG:"...BT.".Q1 = ZEILE DES DRU
CKS"...LT."Q2 = SPALTE DES DRUCKS".X.VT.
".WAS DARAUFHIN PASSIERT, SEHEN SIE IN "
....T."ZEILE 21 UND SPALTE 5. ".#..T.".D
AS WORT TEST WIRD IN ZEILE 22 UND ".>..T
."SPALTE 15 GEDRUCKT.".\..TQ1.21:Q2.5:.3
0400:."TEST"....UQ1.24:Q2.2:.30400:."..L
.OESCHEN DER BEISPIELPROGRAMMZEILEN";...
.U.I$:.I$."".29970.E..U.I$.."L".29970.P.
&U.50000...0U. ***** INPUT AT **********
*****...:UQ8.0:Q9.0:QB.Q1:QC.Q2.!.DU.Q1.
.1..30400.9.NUQ1.B(214):Q2.B(211).O.XU.I
I.1.Q3:.". ";:..Z.BU.30400.}.LUQ5.0:Q4$.
"":.1024.40.Q1.Q2,191...VU.II.631.640:.I
I,0:.....UQ5.Q5.1....U.Q6$:.Q6$."".30090
.M..U.F(Q6$).34.30090....U.F(Q6$).32.Q5.
.1.30090....U.F(Q6$).13..:.30350. ..U.F(
Q6$).20.F(Q6$).157.30230.0..U.Q7.1.30170
.O.FU.F(Q6$).32.F(Q6$).90.30090.Z.PU.302
80.{.ZU.F(Q6$)..48.F(Q6$)..57.30280....U
.Q8.1.30200....U.F(Q6$).46.Q8.1:.30280..
..U.Q9.1.30220.V..V.F(Q6$).45.Q5.1.Q9.1:
.30280....V.30090....V.Q5..1.30090.%. VQ
2.Q2.1:.30400:Q8$.J(Q4$,Q5.1,1):.Q8$."."
.Q8.0.7.*V.Q8$."-".Q9.0.H.4V.". ":.30400
.K.>VQ4$.H(Q4$,Q5.2):Q5.Q5.1:.30090.{.HV
Q4$.Q4$.Q6$...RV.".";Q6$:Q2.Q2.1:.30400.
..\V.Q5.Q3.30080.G.FVQ5.Q3.1:.Q6$:.Q6$."
".30310...PV.F(Q6$).20.F(Q6$).157.30230.
..ZV.F(Q6$).13..:.30350....V.30310....V.
Q4$.."".30380.-..V.QA.0.30000.L..VQ1.QB:
Q2.QC:.30400:.". .";.Z..VQA.0:Q7.0.`..V.
....V. *** CURSOR POSITIONIEREN *****. .
JV.214,Q1:.211,Q2:.58640...TV..K.PC. ***
UP ZEILEN LOESCHEN *******...ZCQS.29200
:QE.29990:KN.QS...DC."..";:.KN.QE..I.500
00.50050.10:.I:.:.50040.H.NCKN.KN.10:.".
"KN:."KN="KN":QE="QE":GOTO50020".X.XC.63
1,19:.I.632.640:.I,13:.:.198,7:.KN..QE..
....C.".":....
> CLICK IMAGE PREVIEW FOR FULL MODAL