LADENNEU

FILE INFORMATION

FILENAME(S): LADENNEU

FILE TYPE(S): SEQ

FILE SIZE: 2.7K

FIRST SEEN: 2025-11-30 01:08:01

APPEARS ON: 6 disk(s)

FILE HASH

3a13941486c4d8f523dc22d92212dbe8e007ec217c377f247072cad4081e3319

FOUND ON DISKS (6 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
C OMAL	LADENNEU	SEQ	Treasure Chest - Wolfgang Rauprich	11	10	DOWNLOAD FILE
FREEWARE DISK NR	LADENNEU	SEQ	Treasure Chest - Wolfgang Rauprich	11	10	DOWNLOAD FILE
COMAL 0 14	LADENNEU	SEQ	Treasure Chest - Wolfgang Rauprich	11	9	DOWNLOAD FILE
C OMAL 0 14	LADENNEU	SEQ	Treasure Chest - Wolfgang Rauprich	11	9	DOWNLOAD FILE
C OMAL	LADENNEU	SEQ	Treasure Chest - Wolfgang Rauprich	11	10	DOWNLOAD FILE
FREESOFT DISK NR	LADENNEU	SEQ	Treasure Chest - Wolfgang Rauprich	11	10	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 30 30 31 30 20 2F 2F 4F  4E 4B 45 4C 20 48 41 4E  |0010 //ONKEL HAN|
00000010: 4E 49 42 41 4C 53 20 4C  41 44 45 4E 2F 2F 0D 0A  |NIBALS LADEN//..|
00000020: 30 30 32 30 20 2F 2F 47  45 53 43 48 52 49 45 42  |0020 //GESCHRIEB|
00000030: 45 4E 20 56 4F 4E 20 43  48 52 49 53 54 49 41 4E  |EN VON CHRISTIAN|
00000040: 20 42 4F 45 52 47 45 2F  2F 0D 0A 30 30 33 30 20  | BOERGE//..0030 |
00000050: 2F 2F 46 41 53 53 55 4E  47 20 56 4F 4D 20 4E 4F  |//FASSUNG VOM NO|
00000060: 56 45 4D 42 45 52 20 31  39 38 31 2F 2F 0D 0A 30  |VEMBER 1981//..0|
00000070: 30 34 30 20 2F 2F 0D 0A  30 30 35 30 20 44 49 4D  |040 //..0050 DIM|
00000080: 20 4E 41 4D 45 24 20 4F  46 20 33 30 2C 20 41 44  | NAME$ OF 30, AD|
00000090: 52 45 53 53 45 24 20 4F  46 20 32 30 0D 0A 30 30  |RESSE$ OF 20..00|
000000A0: 36 30 20 44 49 4D 20 53  54 41 44 54 24 20 4F 46  |60 DIM STADT$ OF|
000000B0: 20 32 30 2C 20 43 4F 44  45 24 20 4F 46 20 31 30  | 20, CODE$ OF 10|
000000C0: 0D 0A 30 30 37 30 20 44  49 4D 20 41 52 54 49 4B  |..0070 DIM ARTIK|
000000D0: 45 4C 24 28 31 30 29 20  4F 46 20 32 30 2C 20 50  |EL$(10) OF 20, P|
000000E0: 52 45 49 53 28 31 30 29  0D 0A 30 30 38 30 20 44  |REIS(10)..0080 D|
000000F0: 49 4D 20 54 45 58 54 24  28 31 30 29 20 4F 46 20  |IM TEXT$(10) OF |
00000100: 32 30 2C 20 42 45 54 52  41 47 28 31 30 29 0D 0A  |20, BETRAG(10)..|
00000110: 30 30 39 30 20 44 49 4D  20 41 42 53 54 41 4E 44  |0090 DIM ABSTAND|
00000120: 24 20 4F 46 20 33 39 2C  20 4D 45 4E 47 45 28 31  |$ OF 39, MENGE(1|
00000130: 30 29 0D 0A 30 31 30 30  20 2F 2F 2A 0D 0A 30 31  |0)..0100 //*..01|
00000140: 31 30 20 41 4E 46 41 4E  47 0D 0A 30 31 32 30 20  |10 ANFANG..0120 |
00000150: 52 45 50 45 41 54 20 0D  0A 30 31 33 30 20 4B 55  |REPEAT ..0130 KU|
00000160: 4E 44 45 0D 0A 30 31 34  30 20 41 55 46 54 52 41  |NDE..0140 AUFTRA|
00000170: 47 0D 0A 30 31 35 30 20  49 46 20 5A 45 49 4C 45  |G..0150 IF ZEILE|
00000180: 3C 3E 30 20 54 48 45 4E  20 52 45 43 48 4E 47 53  |<>0 THEN RECHNGS|
00000190: 43 48 52 0D 0A 30 31 36  30 20 49 4E 50 55 54 20  |CHR..0160 INPUT |
000001A0: 22 54 41 53 54 45 20 52  45 54 55 52 4E 20 22 3A  |"TASTE RETURN ":|
000001B0: 20 43 4F 44 45 24 0D 0A  30 31 37 30 20 55 4E 54  | CODE$..0170 UNT|
000001C0: 49 4C 20 46 45 49 45 52  41 42 45 4E 44 0D 0A 30  |IL FEIERABEND..0|
000001D0: 31 38 30 20 2F 2F 2A 0D  0A 30 31 39 30 20 50 52  |180 //*..0190 PR|
000001E0: 4F 43 20 41 4E 46 41 4E  47 20 0D 0A 30 32 30 30  |OC ANFANG ..0200|
000001F0: 20 50 52 49 4E 54 20 43  48 52 24 28 31 34 37 29  | PRINT CHR$(147)|
00000200: 20 2F 2F 41 42 4C 4F 45  53 43 48 45 4E 0D 0A 30  | //ABLOESCHEN..0|
00000210: 32 31 30 20 46 45 49 45  52 41 42 45 4E 44 3A 3D  |210 FEIERABEND:=|
00000220: 46 41 4C 53 45 0D 0A 30  32 32 30 20 49 3A 3D 30  |FALSE..0220 I:=0|
00000230: 3B 20 41 42 53 54 41 4E  44 24 28 31 3A 34 30 29  |; ABSTAND$(1:40)|
00000240: 3A 3D 22 22 0D 0A 30 32  33 30 20 4F 50 45 4E 20  |:=""..0230 OPEN |
00000250: 46 49 4C 45 20 32 2C 22  41 4E 47 45 42 4F 54 22  |FILE 2,"ANGEBOT"|
00000260: 2C 52 45 41 44 0D 0A 30  32 34 30 20 52 45 50 45  |,READ..0240 REPE|
00000270: 41 54 20 0D 0A 30 32 35  30 20 49 3A 3D 49 2B 31  |AT ..0250 I:=I+1|
00000280: 0D 0A 30 32 36 30 20 52  45 41 44 20 46 49 4C 45  |..0260 READ FILE|
00000290: 20 32 3A 20 41 52 54 49  4B 45 4C 24 28 49 29 2C  | 2: ARTIKEL$(I),|
000002A0: 50 52 45 49 53 28 49 29  0D 0A 30 32 37 30 20 55  |PREIS(I)..0270 U|
000002B0: 4E 54 49 4C 20 45 4F 46  28 32 29 20 2F 2F 45 4E  |NTIL EOF(2) //EN|
000002C0: 44 2D 4F 46 2D 46 49 4C  45 2F 2F 0D 0A 30 32 38  |D-OF-FILE//..028|
000002D0: 30 20 4D 41 58 3A 3D 49  0D 0A 30 32 39 30 20 43  |0 MAX:=I..0290 C|
000002E0: 4C 4F 53 45 0D 0A 30 33  30 30 20 45 4E 44 50 52  |LOSE..0300 ENDPR|
000002F0: 4F 43 20 41 4E 46 41 4E  47 0D 0A 30 33 31 30 20  |OC ANFANG..0310 |
00000300: 2F 2F 0D 0A 30 33 32 30  20 50 52 4F 43 20 4B 55  |//..0320 PROC KU|
00000310: 4E 44 45 20 0D 0A 30 33  33 30 20 47 45 53 41 4D  |NDE ..0330 GESAM|
00000320: 54 4C 3A 3D 30 3B 20 5A  45 49 4C 45 3A 3D 30 0D  |TL:=0; ZEILE:=0.|
00000330: 0A 30 33 34 30 20 2F 2F  0D 0A 30 33 35 30 20 2F  |.0340 //..0350 /|
00000340: 2F 53 54 55 4D 50 46 0D  0A 30 33 36 30 20 2F 2F  |/STUMPF..0360 //|
00000350: 0D 0A 30 33 37 30 20 45  4E 44 50 52 4F 43 20 4B  |..0370 ENDPROC K|
00000360: 55 4E 44 45 0D 0A 30 33  38 30 20 2F 2F 0D 0A 30  |UNDE..0380 //..0|
00000370: 33 39 30 20 50 52 4F 43  20 41 55 46 54 52 41 47  |390 PROC AUFTRAG|
00000380: 20 0D 0A 30 34 30 30 20  41 4E 47 45 42 4F 54 0D  | ..0400 ANGEBOT.|
00000390: 0A 30 34 31 30 20 47 49  42 41 4E 28 22 41 52 54  |.0410 GIBAN("ART|
000003A0: 4E 52 22 29 0D 0A 30 34  32 30 20 57 48 49 4C 45  |NR")..0420 WHILE|
000003B0: 20 4E 4F 54 20 46 45 52  54 49 47 20 44 4F 0D 0A  | NOT FERTIG DO..|
000003C0: 30 34 33 30 20 5A 45 49  4C 45 3A 3D 5A 45 49 4C  |0430 ZEILE:=ZEIL|
000003D0: 45 2B 31 0D 0A 30 34 34  30 20 47 49 42 41 4E 28  |E+1..0440 GIBAN(|
000003E0: 22 4D 45 4E 47 45 22 29  0D 0A 30 34 35 30 20 46  |"MENGE")..0450 F|
000003F0: 41 4B 54 55 52 49 45 52  45 4E 0D 0A 30 34 36 30  |AKTURIEREN..0460|
00000400: 20 47 49 42 41 4E 28 22  41 52 54 4E 52 22 29 0D  | GIBAN("ARTNR").|
00000410: 0A 30 34 37 30 20 45 4E  44 57 48 49 4C 45 20 0D  |.0470 ENDWHILE .|
00000420: 0A 30 34 38 30 20 45 4E  44 50 52 4F 43 20 41 55  |.0480 ENDPROC AU|
00000430: 46 54 52 41 47 0D 0A 30  34 39 30 20 2F 2F 0D 0A  |FTRAG..0490 //..|
00000440: 30 35 30 30 20 50 52 4F  43 20 46 41 4B 54 55 52  |0500 PROC FAKTUR|
00000450: 49 45 52 45 4E 20 0D 0A  30 35 31 30 20 54 45 58  |IEREN ..0510 TEX|
00000460: 54 24 28 5A 45 49 4C 45  29 3A 3D 41 52 54 49 4B  |T$(ZEILE):=ARTIK|
00000470: 45 4C 24 28 41 52 54 4E  52 29 0D 0A 30 35 32 30  |EL$(ARTNR)..0520|
00000480: 20 42 45 54 52 41 47 28  5A 45 49 4C 45 29 3A 3D  | BETRAG(ZEILE):=|
00000490: 50 52 45 49 53 28 41 52  54 4E 52 29 2A 4D 45 4E  |PREIS(ARTNR)*MEN|
000004A0: 47 45 28 5A 45 49 4C 45  29 0D 0A 30 35 33 30 20  |GE(ZEILE)..0530 |
000004B0: 47 45 53 41 4D 54 3A 2B  42 45 54 52 41 47 28 5A  |GESAMT:+BETRAG(Z|
000004C0: 45 49 4C 45 29 0D 0A 30  35 34 30 20 45 4E 44 50  |EILE)..0540 ENDP|
000004D0: 52 4F 43 20 46 41 4B 54  55 52 49 45 52 45 4E 0D  |ROC FAKTURIEREN.|
000004E0: 0A 30 35 35 30 20 2F 2F  0D 0A 30 35 36 30 20 50  |.0550 //..0560 P|
000004F0: 52 4F 43 20 52 45 43 48  4E 47 53 43 48 52 20 0D  |ROC RECHNGSCHR .|
00000500: 0A 30 35 37 30 20 50 52  49 4E 54 20 43 48 52 24  |.0570 PRINT CHR$|
00000510: 28 31 34 37 29 20 2F 2F  41 42 4C 4F 45 53 43 48  |(147) //ABLOESCH|
00000520: 45 4E 0D 0A 30 35 38 30  20 50 4F 53 49 28 34 2C  |EN..0580 POSI(4,|
00000530: 31 29 0D 0A 30 35 39 30  20 50 52 49 4E 54 20 4E  |1)..0590 PRINT N|
00000540: 41 4D 45 24 0D 0A 30 36  30 30 20 50 52 49 4E 54  |AME$..0600 PRINT|
00000550: 20 41 44 52 45 53 53 45  24 0D 0A 30 36 31 30 20  | ADRESSE$..0610 |
00000560: 50 52 49 4E 54 20 53 54  41 44 54 24 2C 22 20 22  |PRINT STADT$," "|
00000570: 2C 43 4F 44 45 24 0D 0A  30 36 32 30 20 50 52 49  |,CODE$..0620 PRI|
00000580: 4E 54 20 0D 0A 30 36 33  30 20 50 52 49 4E 54 20  |NT ..0630 PRINT |
00000590: 22 4D 45 4E 47 45 22 2C  54 41 42 28 31 30 29 2C  |"MENGE",TAB(10),|
000005A0: 22 41 52 54 49 4B 45 4C  22 2C 54 41 42 28 33 30  |"ARTIKEL",TAB(30|
000005B0: 29 2C 22 42 45 54 52 41  47 22 0D 0A 30 36 34 30  |),"BETRAG"..0640|
000005C0: 20 50 52 49 4E 54 20 22  2D 2D 2D 2D 2D 2D 2D 2D  | PRINT "--------|
000005D0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
000005E0: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
000005F0: 22 0D 0A 30 36 35 30 20  46 4F 52 20 49 3A 3D 31  |"..0650 FOR I:=1|
00000600: 20 54 4F 20 5A 45 49 4C  45 20 44 4F 0D 0A 30 36  | TO ZEILE DO..06|
00000610: 36 30 20 50 52 49 4E 54  20 54 41 42 28 32 29 2C  |60 PRINT TAB(2),|
00000620: 4D 45 4E 47 45 28 49 29  2C 0D 0A 30 36 37 30 20  |MENGE(I),..0670 |
00000630: 50 52 49 4E 54 20 54 41  42 28 39 29 2C 54 45 58  |PRINT TAB(9),TEX|
00000640: 54 24 28 49 29 2C 0D 0A  30 36 38 30 20 50 52 49  |T$(I),..0680 PRI|
00000650: 4E 54 20 54 41 42 28 33  32 2D 4C 41 45 4E 47 45  |NT TAB(32-LAENGE|
00000660: 28 42 45 54 52 41 47 28  49 29 29 29 2C 42 45 54  |(BETRAG(I))),BET|
00000670: 52 41 47 28 49 29 0D 0A  30 36 39 30 20 4E 45 58  |RAG(I)..0690 NEX|
00000680: 54 20 49 0D 0A 30 37 30  30 20 50 52 49 4E 54 20  |T I..0700 PRINT |
00000690: 54 41 42 28 32 38 29 2C  22 2D 2D 2D 2D 2D 2D 2D  |TAB(28),"-------|
000006A0: 2D 22 0D 0A 30 37 31 30  20 50 52 49 4E 54 20 54  |-"..0710 PRINT T|
000006B0: 41 42 28 32 32 29 2C 22  47 45 53 41 4D 54 3A 22  |AB(22),"GESAMT:"|
000006C0: 2C 54 41 42 28 33 32 2D  4C 41 45 4E 47 45 28 47  |,TAB(32-LAENGE(G|
000006D0: 45 53 41 4D 54 29 29 2C  47 45 53 41 4D 54 0D 0A  |ESAMT)),GESAMT..|
000006E0: 30 37 32 30 20 45 4E 44  50 52 4F 43 20 52 45 43  |0720 ENDPROC REC|
000006F0: 48 4E 47 53 43 48 52 0D  0A 30 37 33 30 20 2F 2F  |HNGSCHR..0730 //|
00000700: 0D 0A 30 37 34 30 20 50  52 4F 43 20 47 49 42 41  |..0740 PROC GIBA|
00000710: 4E 28 53 4F 52 54 45 24  29 20 0D 0A 30 37 35 30  |N(SORTE$) ..0750|
00000720: 20 46 45 4E 53 54 45 52  28 31 30 2C 31 35 29 0D  | FENSTER(10,15).|
00000730: 0A 30 37 36 30 20 43 41  53 45 20 53 4F 52 54 45  |.0760 CASE SORTE|
00000740: 24 20 4F 46 0D 0A 30 37  37 30 20 57 48 45 4E 20  |$ OF..0770 WHEN |
00000750: 22 41 52 54 4E 52 22 0D  0A 30 37 38 30 20 52 45  |"ARTNR"..0780 RE|
00000760: 50 45 41 54 20 0D 0A 30  37 39 30 20 46 45 4E 53  |PEAT ..0790 FENS|
00000770: 54 45 52 28 31 30 2C 31  35 29 0D 0A 30 38 30 30  |TER(10,15)..0800|
00000780: 20 49 4E 50 55 54 20 22  3E 20 22 3A 20 41 52 54  | INPUT "> ": ART|
00000790: 4E 52 0D 0A 30 38 31 30  20 4F 4B 3A 3D 28 30 3C  |NR..0810 OK:=(0<|
000007A0: 3D 41 52 54 4E 52 20 41  4E 44 20 41 52 54 4E 52  |=ARTNR AND ARTNR|
000007B0: 3C 3D 4D 41 58 29 0D 0A  30 38 32 30 20 55 4E 54  |<=MAX)..0820 UNT|
000007C0: 49 4C 20 4F 4B 0D 0A 30  38 33 30 20 46 45 52 54  |IL OK..0830 FERT|
000007D0: 49 47 3A 3D 28 41 52 54  4E 52 3D 30 29 0D 0A 30  |IG:=(ARTNR=0)..0|
000007E0: 38 34 30 20 57 48 45 4E  20 22 4D 45 4E 47 45 22  |840 WHEN "MENGE"|
000007F0: 0D 0A 30 38 35 30 20 52  45 50 45 41 54 20 0D 0A  |..0850 REPEAT ..|
00000800: 30 38 36 30 20 50 4F 53  49 28 41 52 54 4E 52 2C  |0860 POSI(ARTNR,|
00000810: 32 30 29 0D 0A 30 38 37  30 20 49 4E 50 55 54 20  |20)..0870 INPUT |
00000820: 51 55 41 4E 54 55 4D 0D  0A 30 38 38 30 20 55 4E  |QUANTUM..0880 UN|
00000830: 54 49 4C 20 30 3C 51 55  41 4E 54 55 4D 20 41 4E  |TIL 0<QUANTUM AN|
00000840: 44 20 49 4E 54 28 51 55  41 4E 54 55 4D 29 3D 51  |D INT(QUANTUM)=Q|
00000850: 55 41 4E 54 55 4D 0D 0A  30 38 39 30 20 4D 45 4E  |UANTUM..0890 MEN|
00000860: 47 45 28 4C 49 4E 45 29  3A 3D 51 55 41 4E 54 55  |GE(LINE):=QUANTU|
00000870: 4D 0D 0A 30 39 30 30 20  45 4E 44 43 41 53 45 20  |M..0900 ENDCASE |
00000880: 0D 0A 30 39 31 30 20 45  4E 44 50 52 4F 43 20 47  |..0910 ENDPROC G|
00000890: 49 42 41 4E 0D 0A 30 39  32 30 20 2F 2F 0D 0A 30  |IBAN..0920 //..0|
000008A0: 39 33 30 20 50 52 4F 43  20 41 4E 47 45 42 4F 54  |930 PROC ANGEBOT|
000008B0: 20 0D 0A 30 39 34 30 20  50 52 49 4E 54 20 43 48  | ..0940 PRINT CH|
000008C0: 52 24 28 31 34 37 29 0D  0A 30 39 35 30 20 46 4F  |R$(147)..0950 FO|
000008D0: 52 20 49 3A 3D 31 20 54  4F 20 4D 41 58 20 44 4F  |R I:=1 TO MAX DO|
000008E0: 0D 0A 30 39 36 30 20 50  52 49 4E 54 20 49 2C 22  |..0960 PRINT I,"|
000008F0: 2E 20 22 2C 41 52 54 49  4B 45 4C 24 28 49 29 0D  |. ",ARTIKEL$(I).|
00000900: 0A 30 39 37 30 20 4E 45  58 54 20 49 0D 0A 30 39  |.0970 NEXT I..09|
00000910: 38 30 20 50 52 49 4E 54  20 22 30 2E 20 53 54 4F  |80 PRINT "0. STO|
00000920: 50 22 0D 0A 30 39 39 30  20 45 4E 44 50 52 4F 43  |P"..0990 ENDPROC|
00000930: 20 41 4E 47 45 42 4F 54  0D 0A 31 30 30 30 20 2F  | ANGEBOT..1000 /|
00000940: 2F 0D 0A 31 30 31 30 20  50 52 4F 43 20 46 45 4E  |/..1010 PROC FEN|
00000950: 53 54 45 52 28 58 2C 59  29 20 0D 0A 31 30 32 30  |STER(X,Y) ..1020|
00000960: 20 50 4F 53 49 28 58 2C  31 29 0D 0A 31 30 33 30  | POSI(X,1)..1030|
00000970: 20 46 4F 52 20 5A 4E 3A  3D 31 20 54 4F 20 59 2D  | FOR ZN:=1 TO Y-|
00000980: 58 2B 31 20 44 4F 20 50  52 49 4E 54 20 41 42 53  |X+1 DO PRINT ABS|
00000990: 54 41 4E 44 24 0D 0A 31  30 34 30 20 50 4F 53 49  |TAND$..1040 POSI|
000009A0: 28 58 2C 31 29 0D 0A 31  30 35 30 20 45 4E 44 50  |(X,1)..1050 ENDP|
000009B0: 52 4F 43 20 46 45 4E 53  54 45 52 0D 0A 31 30 36  |ROC FENSTER..106|
000009C0: 30 20 2F 2F 0D 0A 31 30  37 30 20 50 52 4F 43 20  |0 //..1070 PROC |
000009D0: 50 4F 53 49 28 58 2C 59  29 20 0D 0A 31 30 38 30  |POSI(X,Y) ..1080|
000009E0: 20 50 52 49 4E 54 20 43  48 52 24 28 31 39 29 2C  | PRINT CHR$(19),|
000009F0: 0D 0A 31 30 39 30 20 46  4F 52 20 5A 4E 3A 3D 31  |..1090 FOR ZN:=1|
00000A00: 20 54 4F 20 58 20 44 4F  20 50 52 49 4E 54 20 43  | TO X DO PRINT C|
00000A10: 48 52 24 28 31 37 29 2C  0D 0A 31 31 30 30 20 46  |HR$(17),..1100 F|
00000A20: 4F 52 20 5A 48 3A 3D 31  20 54 4F 20 59 20 44 4F  |OR ZH:=1 TO Y DO|
00000A30: 20 50 52 49 4E 54 20 43  48 52 24 28 32 39 29 2C  | PRINT CHR$(29),|
00000A40: 0D 0A 31 31 31 30 20 45  4E 44 50 52 4F 43 20 0D  |..1110 ENDPROC .|
00000A50: 0A 31 31 32 30 20 2F 2F  0D 0A 31 31 33 30 20 46  |.1120 //..1130 F|
00000A60: 55 4E 43 20 4C 41 45 4E  47 45 28 58 29 20 0D 0A  |UNC LAENGE(X) ..|
00000A70: 31 31 34 30 20 52 45 54  55 52 4E 20 28 58 3E 31  |1140 RETURN (X>1|
00000A80: 29 2B 28 58 3E 31 30 29  2B 28 58 3E 31 30 30 29  |)+(X>10)+(X>100)|
00000A90: 2B 28 58 3E 31 30 30 30  29 0D 0A 31 31 35 30 20  |+(X>1000)..1150 |
00000AA0: 45 4E 44 50 52 4F 43 20  0D 0A 31 31 36 30 20 2F  |ENDPROC ..1160 /|
00000AB0: 2F 0D 0A                                          |/..             |

0010 //ONKEL HANNIBALS LADEN//..0020 //G
ESCHRIEBEN VON CHRISTIAN BOERGE//..0030 
//FASSUNG VOM NOVEMBER 1981//..0040 //..
0050 DIM NAME$ OF 30, ADRESSE$ OF 20..00
60 DIM STADT$ OF 20, CODE$ OF 10..0070 D
IM ARTIKEL$(10) OF 20, PREIS(10)..0080 D
IM TEXT$(10) OF 20, BETRAG(10)..0090 DIM
 ABSTAND$ OF 39, MENGE(10)..0100 //*..01
10 ANFANG..0120 REPEAT ..0130 KUNDE..014
0 AUFTRAG..0150 IF ZEILE<>0 THEN RECHNGS
CHR..0160 INPUT "TASTE RETURN ": CODE$..
0170 UNTIL FEIERABEND..0180 //*..0190 PR
OC ANFANG ..0200 PRINT CHR$(147) //ABLOE
SCHEN..0210 FEIERABEND:=FALSE..0220 I:=0
; ABSTAND$(1:40):=""..0230 OPEN FILE 2,"
ANGEBOT",READ..0240 REPEAT ..0250 I:=I+1
..0260 READ FILE 2: ARTIKEL$(I),PREIS(I)
..0270 UNTIL EOF(2) //END-OF-FILE//..028
0 MAX:=I..0290 CLOSE..0300 ENDPROC ANFAN
G..0310 //..0320 PROC KUNDE ..0330 GESAM
TL:=0; ZEILE:=0..0340 //..0350 //STUMPF.
.0360 //..0370 ENDPROC KUNDE..0380 //..0
390 PROC AUFTRAG ..0400 ANGEBOT..0410 GI
BAN("ARTNR")..0420 WHILE NOT FERTIG DO..
0430 ZEILE:=ZEILE+1..0440 GIBAN("MENGE")
..0450 FAKTURIEREN..0460 GIBAN("ARTNR").
.0470 ENDWHILE ..0480 ENDPROC AUFTRAG..0
490 //..0500 PROC FAKTURIEREN ..0510 TEX
T$(ZEILE):=ARTIKEL$(ARTNR)..0520 BETRAG(
ZEILE):=PREIS(ARTNR)*MENGE(ZEILE)..0530 
GESAMT:+BETRAG(ZEILE)..0540 ENDPROC FAKT
URIEREN..0550 //..0560 PROC RECHNGSCHR .
.0570 PRINT CHR$(147) //ABLOESCHEN..0580
 POSI(4,1)..0590 PRINT NAME$..0600 PRINT
 ADRESSE$..0610 PRINT STADT$," ",CODE$..
0620 PRINT ..0630 PRINT "MENGE",TAB(10),
"ARTIKEL",TAB(30),"BETRAG"..0640 PRINT "
----------------------------------------
"..0650 FOR I:=1 TO ZEILE DO..0660 PRINT
 TAB(2),MENGE(I),..0670 PRINT TAB(9),TEX
T$(I),..0680 PRINT TAB(32-LAENGE(BETRAG(
I))),BETRAG(I)..0690 NEXT I..0700 PRINT 
TAB(28),"--------"..0710 PRINT TAB(22),"
GESAMT:",TAB(32-LAENGE(GESAMT)),GESAMT..
0720 ENDPROC RECHNGSCHR..0730 //..0740 P
ROC GIBAN(SORTE$) ..0750 FENSTER(10,15).
.0760 CASE SORTE$ OF..0770 WHEN "ARTNR".
.0780 REPEAT ..0790 FENSTER(10,15)..0800
 INPUT "> ": ARTNR..0810 OK:=(0<=ARTNR A
ND ARTNR<=MAX)..0820 UNTIL OK..0830 FERT
IG:=(ARTNR=0)..0840 WHEN "MENGE"..0850 R
EPEAT ..0860 POSI(ARTNR,20)..0870 INPUT 
QUANTUM..0880 UNTIL 0<QUANTUM AND INT(QU
ANTUM)=QUANTUM..0890 MENGE(LINE):=QUANTU
M..0900 ENDCASE ..0910 ENDPROC GIBAN..09
20 //..0930 PROC ANGEBOT ..0940 PRINT CH
R$(147)..0950 FOR I:=1 TO MAX DO..0960 P
RINT I,". ",ARTIKEL$(I)..0970 NEXT I..09
80 PRINT "0. STOP"..0990 ENDPROC ANGEBOT
..1000 //..1010 PROC FENSTER(X,Y) ..1020
 POSI(X,1)..1030 FOR ZN:=1 TO Y-X+1 DO P
RINT ABSTAND$..1040 POSI(X,1)..1050 ENDP
ROC FENSTER..1060 //..1070 PROC POSI(X,Y
) ..1080 PRINT CHR$(19),..1090 FOR ZN:=1
 TO X DO PRINT CHR$(17),..1100 FOR ZH:=1
 TO Y DO PRINT CHR$(29),..1110 ENDPROC .
.1120 //..1130 FUNC LAENGE(X) ..1140 RET
URN (X>1)+(X>10)+(X>100)+(X>1000)..1150 
ENDPROC ..1160 //..

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL