HANNIBAL

FILE INFORMATION

FILENAME(S): HANNIBAL

FILE TYPE(S): SEQ

FILE SIZE: 2.7K

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

APPEARS ON: 6 disk(s)

FILE HASH

c9f61d9bb4e5079b945052aca80989f9982442e3ae64e6ee62dc2dcc1325d288

FOUND ON DISKS (6 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
C OMAL	HANNIBAL	SEQ	Treasure Chest - Wolfgang Rauprich	9	10	DOWNLOAD FILE
FREEWARE DISK NR	HANNIBAL	SEQ	Treasure Chest - Wolfgang Rauprich	9	10	DOWNLOAD FILE
COMAL 0 14	HANNIBAL	SEQ	Treasure Chest - Wolfgang Rauprich	27	2	DOWNLOAD FILE
C OMAL 0 14	HANNIBAL	SEQ	Treasure Chest - Wolfgang Rauprich	27	2	DOWNLOAD FILE
C OMAL	HANNIBAL	SEQ	Treasure Chest - Wolfgang Rauprich	9	10	DOWNLOAD FILE
FREESOFT DISK NR	HANNIBAL	SEQ	Treasure Chest - Wolfgang Rauprich	9	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 4D 45 4E 47 45 28 31  |0090 DIM MENGE(1|
00000120: 30 29 0D 0A 30 31 30 30  20 2F 2F 2A 0D 0A 30 31  |0)..0100 //*..01|
00000130: 31 30 20 41 4E 46 41 4E  47 0D 0A 30 31 32 30 20  |10 ANFANG..0120 |
00000140: 52 45 50 45 41 54 20 0D  0A 30 31 33 30 20 4B 55  |REPEAT ..0130 KU|
00000150: 4E 44 45 0D 0A 30 31 34  30 20 41 55 46 54 52 41  |NDE..0140 AUFTRA|
00000160: 47 0D 0A 30 31 35 30 20  49 46 20 5A 45 49 4C 45  |G..0150 IF ZEILE|
00000170: 3C 3E 30 20 54 48 45 4E  20 52 45 43 48 4E 47 53  |<>0 THEN RECHNGS|
00000180: 43 48 52 0D 0A 30 31 36  30 20 49 4E 50 55 54 20  |CHR..0160 INPUT |
00000190: 22 54 41 53 54 45 20 52  45 54 55 52 4E 20 22 3A  |"TASTE RETURN ":|
000001A0: 20 43 4F 44 45 24 0D 0A  30 31 37 30 20 55 4E 54  | CODE$..0170 UNT|
000001B0: 49 4C 20 46 45 49 45 52  41 42 45 4E 44 0D 0A 30  |IL FEIERABEND..0|
000001C0: 31 38 30 20 2F 2F 2A 0D  0A 30 31 39 30 20 50 52  |180 //*..0190 PR|
000001D0: 4F 43 20 41 4E 46 41 4E  47 20 0D 0A 30 32 30 30  |OC ANFANG ..0200|
000001E0: 20 50 52 49 4E 54 20 43  48 52 24 28 31 34 37 29  | PRINT CHR$(147)|
000001F0: 20 2F 2F 41 42 4C 4F 45  53 43 48 45 4E 0D 0A 30  | //ABLOESCHEN..0|
00000200: 32 31 30 20 46 45 49 45  52 41 42 45 4E 44 3A 3D  |210 FEIERABEND:=|
00000210: 46 41 4C 53 45 0D 0A 30  32 32 30 20 49 3A 3D 30  |FALSE..0220 I:=0|
00000220: 0D 0A 30 32 33 30 20 52  45 50 45 41 54 20 0D 0A  |..0230 REPEAT ..|
00000230: 30 32 34 30 20 49 3A 3D  49 2B 31 0D 0A 30 32 35  |0240 I:=I+1..025|
00000240: 30 20 52 45 41 44 20 41  52 54 49 4B 45 4C 24 28  |0 READ ARTIKEL$(|
00000250: 49 29 2C 50 52 45 49 53  28 49 29 0D 0A 30 32 36  |I),PREIS(I)..026|
00000260: 30 20 55 4E 54 49 4C 20  45 4F 44 20 2F 2F 45 4E  |0 UNTIL EOD //EN|
00000270: 44 2D 4F 46 2D 44 41 54  41 2F 2F 0D 0A 30 32 37  |D-OF-DATA//..027|
00000280: 30 20 4D 41 58 3A 3D 49  0D 0A 30 32 38 30 20 45  |0 MAX:=I..0280 E|
00000290: 4E 44 50 52 4F 43 20 41  4E 46 41 4E 47 0D 0A 30  |NDPROC ANFANG..0|
000002A0: 32 39 30 20 2F 2F 0D 0A  30 33 30 30 20 50 52 4F  |290 //..0300 PRO|
000002B0: 43 20 4B 55 4E 44 45 20  0D 0A 30 33 31 30 20 47  |C KUNDE ..0310 G|
000002C0: 45 53 41 4D 54 3A 3D 30  3B 20 5A 45 49 4C 45 3A  |ESAMT:=0; ZEILE:|
000002D0: 3D 30 0D 0A 30 33 32 30  20 2F 2F 0D 0A 30 33 33  |=0..0320 //..033|
000002E0: 30 20 2F 2F 53 54 55 4D  50 46 0D 0A 30 33 34 30  |0 //STUMPF..0340|
000002F0: 20 2F 2F 0D 0A 30 33 35  30 20 45 4E 44 50 52 4F  | //..0350 ENDPRO|
00000300: 43 20 4B 55 4E 44 45 0D  0A 30 33 36 30 20 2F 2F  |C KUNDE..0360 //|
00000310: 0D 0A 30 33 37 30 20 50  52 4F 43 20 41 55 46 54  |..0370 PROC AUFT|
00000320: 52 41 47 20 0D 0A 30 33  38 30 20 41 4E 47 45 42  |RAG ..0380 ANGEB|
00000330: 4F 54 0D 0A 30 33 39 30  20 47 49 42 41 4E 28 22  |OT..0390 GIBAN("|
00000340: 41 52 54 4E 52 22 29 0D  0A 30 34 30 30 20 57 48  |ARTNR")..0400 WH|
00000350: 49 4C 45 20 4E 4F 54 20  46 45 52 54 49 47 20 44  |ILE NOT FERTIG D|
00000360: 4F 0D 0A 30 34 31 30 20  5A 45 49 4C 45 3A 3D 5A  |O..0410 ZEILE:=Z|
00000370: 45 49 4C 45 2B 31 0D 0A  30 34 32 30 20 47 49 42  |EILE+1..0420 GIB|
00000380: 41 4E 28 22 4D 45 4E 47  45 22 29 0D 0A 30 34 33  |AN("MENGE")..043|
00000390: 30 20 46 41 4B 54 55 52  49 45 52 45 4E 0D 0A 30  |0 FAKTURIEREN..0|
000003A0: 34 34 30 20 47 49 42 41  4E 28 22 41 52 54 4E 52  |440 GIBAN("ARTNR|
000003B0: 22 29 0D 0A 30 34 35 30  20 45 4E 44 57 48 49 4C  |")..0450 ENDWHIL|
000003C0: 45 20 0D 0A 30 34 36 30  20 45 4E 44 50 52 4F 43  |E ..0460 ENDPROC|
000003D0: 20 41 55 46 54 52 41 47  0D 0A 30 34 37 30 20 2F  | AUFTRAG..0470 /|
000003E0: 2F 0D 0A 30 34 38 30 20  50 52 4F 43 20 46 41 4B  |/..0480 PROC FAK|
000003F0: 54 55 52 49 45 52 45 4E  20 0D 0A 30 34 39 30 20  |TURIEREN ..0490 |
00000400: 54 45 58 54 24 28 5A 45  49 4C 45 29 3A 3D 41 52  |TEXT$(ZEILE):=AR|
00000410: 54 49 4B 45 4C 24 28 41  52 54 4E 52 29 0D 0A 30  |TIKEL$(ARTNR)..0|
00000420: 35 30 30 20 42 45 54 52  41 47 28 5A 45 49 4C 45  |500 BETRAG(ZEILE|
00000430: 29 3A 3D 50 52 45 49 53  28 41 52 54 4E 52 29 2A  |):=PREIS(ARTNR)*|
00000440: 4D 45 4E 47 45 28 5A 45  49 4C 45 29 0D 0A 30 35  |MENGE(ZEILE)..05|
00000450: 31 30 20 47 45 53 41 4D  54 3A 2B 42 45 54 52 41  |10 GESAMT:+BETRA|
00000460: 47 28 5A 45 49 4C 45 29  0D 0A 30 35 32 30 20 45  |G(ZEILE)..0520 E|
00000470: 4E 44 50 52 4F 43 20 46  41 4B 54 55 52 49 45 52  |NDPROC FAKTURIER|
00000480: 45 4E 0D 0A 30 35 33 30  20 2F 2F 0D 0A 30 35 34  |EN..0530 //..054|
00000490: 30 20 50 52 4F 43 20 52  45 43 48 4E 47 53 43 48  |0 PROC RECHNGSCH|
000004A0: 52 20 0D 0A 30 35 35 30  20 50 52 49 4E 54 20 43  |R ..0550 PRINT C|
000004B0: 48 52 24 28 31 34 37 29  20 2F 2F 41 42 4C 4F 45  |HR$(147) //ABLOE|
000004C0: 53 43 48 45 4E 0D 0A 30  35 36 30 20 50 4F 53 49  |SCHEN..0560 POSI|
000004D0: 28 34 2C 31 29 0D 0A 30  35 37 30 20 50 52 49 4E  |(4,1)..0570 PRIN|
000004E0: 54 20 4E 41 4D 45 24 0D  0A 30 35 38 30 20 50 52  |T NAME$..0580 PR|
000004F0: 49 4E 54 20 41 44 52 45  53 53 45 24 0D 0A 30 35  |INT ADRESSE$..05|
00000500: 39 30 20 50 52 49 4E 54  20 53 54 41 44 54 24 2C  |90 PRINT STADT$,|
00000510: 22 20 22 2C 43 4F 44 45  24 0D 0A 30 36 30 30 20  |" ",CODE$..0600 |
00000520: 50 52 49 4E 54 20 0D 0A  30 36 31 30 20 50 52 49  |PRINT ..0610 PRI|
00000530: 4E 54 20 22 4D 45 4E 47  45 22 2C 54 41 42 28 31  |NT "MENGE",TAB(1|
00000540: 30 29 2C 22 41 52 54 49  4B 45 4C 22 2C 54 41 42  |0),"ARTIKEL",TAB|
00000550: 28 33 30 29 2C 22 42 45  54 52 41 47 22 0D 0A 30  |(30),"BETRAG"..0|
00000560: 36 32 30 20 50 52 49 4E  54 20 22 2D 2D 2D 2D 2D  |620 PRINT "-----|
00000570: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000580: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000590: 2D 2D 2D 22 0D 0A 30 36  33 30 20 46 4F 52 20 49  |---"..0630 FOR I|
000005A0: 3A 3D 31 20 54 4F 20 5A  45 49 4C 45 20 44 4F 0D  |:=1 TO ZEILE DO.|
000005B0: 0A 30 36 34 30 20 50 52  49 4E 54 20 54 41 42 28  |.0640 PRINT TAB(|
000005C0: 32 29 2C 4D 45 4E 47 45  28 49 29 2C 0D 0A 30 36  |2),MENGE(I),..06|
000005D0: 35 30 20 50 52 49 4E 54  20 54 41 42 28 39 29 2C  |50 PRINT TAB(9),|
000005E0: 54 45 58 54 24 28 49 29  2C 0D 0A 30 36 36 30 20  |TEXT$(I),..0660 |
000005F0: 50 52 49 4E 54 20 54 41  42 28 33 32 2D 4C 41 45  |PRINT TAB(32-LAE|
00000600: 4E 47 45 28 42 45 54 52  41 47 28 49 29 29 29 2C  |NGE(BETRAG(I))),|
00000610: 42 45 54 52 41 47 28 49  29 0D 0A 30 36 37 30 20  |BETRAG(I)..0670 |
00000620: 4E 45 58 54 20 49 0D 0A  30 36 38 30 20 50 52 49  |NEXT I..0680 PRI|
00000630: 4E 54 20 54 41 42 28 32  38 29 2C 22 2D 2D 2D 2D  |NT TAB(28),"----|
00000640: 2D 2D 2D 2D 22 0D 0A 30  36 39 30 20 50 52 49 4E  |----"..0690 PRIN|
00000650: 54 20 54 41 42 28 32 32  29 2C 22 47 45 53 41 4D  |T TAB(22),"GESAM|
00000660: 54 3A 22 2C 54 41 42 28  33 32 2D 4C 41 45 4E 47  |T:",TAB(32-LAENG|
00000670: 45 28 47 45 53 41 4D 54  29 29 2C 47 45 53 41 4D  |E(GESAMT)),GESAM|
00000680: 54 0D 0A 30 37 30 30 20  45 4E 44 50 52 4F 43 20  |T..0700 ENDPROC |
00000690: 52 45 43 48 4E 47 53 43  48 52 0D 0A 30 37 31 30  |RECHNGSCHR..0710|
000006A0: 20 2F 2F 0D 0A 30 37 32  30 20 50 52 4F 43 20 47  | //..0720 PROC G|
000006B0: 49 42 41 4E 28 53 4F 52  54 45 24 29 20 0D 0A 30  |IBAN(SORTE$) ..0|
000006C0: 37 33 30 20 46 45 4E 53  54 45 52 28 31 30 2C 31  |730 FENSTER(10,1|
000006D0: 35 29 0D 0A 30 37 34 30  20 43 41 53 45 20 53 4F  |5)..0740 CASE SO|
000006E0: 52 54 45 24 20 4F 46 0D  0A 30 37 35 30 20 57 48  |RTE$ OF..0750 WH|
000006F0: 45 4E 20 22 41 52 54 4E  52 22 0D 0A 30 37 36 30  |EN "ARTNR"..0760|
00000700: 20 52 45 50 45 41 54 20  0D 0A 30 37 37 30 20 46  | REPEAT ..0770 F|
00000710: 45 4E 53 54 45 52 28 31  30 2C 31 35 29 0D 0A 30  |ENSTER(10,15)..0|
00000720: 37 38 30 20 49 4E 50 55  54 20 22 3E 20 22 3A 20  |780 INPUT "> ": |
00000730: 41 52 54 4E 52 0D 0A 30  37 39 30 20 4F 4B 3A 3D  |ARTNR..0790 OK:=|
00000740: 28 30 3C 3D 41 52 54 4E  52 20 41 4E 44 20 41 52  |(0<=ARTNR AND AR|
00000750: 54 4E 52 3C 3D 4D 41 58  29 0D 0A 30 38 30 30 20  |TNR<=MAX)..0800 |
00000760: 55 4E 54 49 4C 20 4F 4B  0D 0A 30 38 31 30 20 46  |UNTIL OK..0810 F|
00000770: 45 52 54 49 47 3A 3D 28  41 52 54 4E 52 3D 30 29  |ERTIG:=(ARTNR=0)|
00000780: 0D 0A 30 38 32 30 20 57  48 45 4E 20 22 4D 45 4E  |..0820 WHEN "MEN|
00000790: 47 45 22 0D 0A 30 38 33  30 20 52 45 50 45 41 54  |GE"..0830 REPEAT|
000007A0: 20 0D 0A 30 38 34 30 20  50 4F 53 49 28 41 52 54  | ..0840 POSI(ART|
000007B0: 4E 52 2C 32 30 29 0D 0A  30 38 35 30 20 49 4E 50  |NR,20)..0850 INP|
000007C0: 55 54 20 51 55 41 4E 54  55 4D 0D 0A 30 38 36 30  |UT QUANTUM..0860|
000007D0: 20 55 4E 54 49 4C 20 30  3C 51 55 41 4E 54 55 4D  | UNTIL 0<QUANTUM|
000007E0: 20 41 4E 44 20 49 4E 54  28 51 55 41 4E 54 55 4D  | AND INT(QUANTUM|
000007F0: 29 3D 51 55 41 4E 54 55  4D 0D 0A 30 38 37 30 20  |)=QUANTUM..0870 |
00000800: 4D 45 4E 47 45 28 5A 45  49 4C 45 29 3A 3D 51 55  |MENGE(ZEILE):=QU|
00000810: 41 4E 54 55 4D 0D 0A 30  38 38 30 20 45 4E 44 43  |ANTUM..0880 ENDC|
00000820: 41 53 45 20 0D 0A 30 38  39 30 20 45 4E 44 50 52  |ASE ..0890 ENDPR|
00000830: 4F 43 20 47 49 42 41 4E  0D 0A 30 39 30 30 20 2F  |OC GIBAN..0900 /|
00000840: 2F 0D 0A 30 39 31 30 20  50 52 4F 43 20 41 4E 47  |/..0910 PROC ANG|
00000850: 45 42 4F 54 20 0D 0A 30  39 32 30 20 50 52 49 4E  |EBOT ..0920 PRIN|
00000860: 54 20 43 48 52 24 28 31  34 37 29 0D 0A 30 39 33  |T CHR$(147)..093|
00000870: 30 20 46 4F 52 20 49 3A  3D 31 20 54 4F 20 4D 41  |0 FOR I:=1 TO MA|
00000880: 58 20 44 4F 0D 0A 30 39  34 30 20 50 52 49 4E 54  |X DO..0940 PRINT|
00000890: 20 49 2C 22 2E 20 22 2C  41 52 54 49 4B 45 4C 24  | I,". ",ARTIKEL$|
000008A0: 28 49 29 0D 0A 30 39 35  30 20 4E 45 58 54 20 49  |(I)..0950 NEXT I|
000008B0: 0D 0A 30 39 36 30 20 50  52 49 4E 54 20 22 30 2E  |..0960 PRINT "0.|
000008C0: 20 53 54 4F 50 22 0D 0A  30 39 37 30 20 45 4E 44  | STOP"..0970 END|
000008D0: 50 52 4F 43 20 41 4E 47  45 42 4F 54 0D 0A 30 39  |PROC ANGEBOT..09|
000008E0: 38 30 20 2F 2F 0D 0A 30  39 39 30 20 50 52 4F 43  |80 //..0990 PROC|
000008F0: 20 46 45 4E 53 54 45 52  28 58 2C 59 29 20 43 4C  | FENSTER(X,Y) CL|
00000900: 4F 53 45 44 0D 0A 30 39  39 32 20 44 49 4D 20 4C  |OSED..0992 DIM L|
00000910: 45 45 52 5A 24 20 4F 46  20 34 30 0D 0A 30 39 39  |EERZ$ OF 40..099|
00000920: 34 20 4C 45 45 52 5A 24  28 31 3A 34 30 29 3A 3D  |4 LEERZ$(1:40):=|
00000930: 22 22 0D 0A 31 30 30 30  20 50 4F 53 49 28 58 2C  |""..1000 POSI(X,|
00000940: 31 29 0D 0A 31 30 31 30  20 46 4F 52 20 5A 4E 3A  |1)..1010 FOR ZN:|
00000950: 3D 31 20 54 4F 20 59 2D  58 2B 31 20 44 4F 20 50  |=1 TO Y-X+1 DO P|
00000960: 52 49 4E 54 20 4C 45 45  52 5A 24 0D 0A 31 30 32  |RINT LEERZ$..102|
00000970: 30 20 50 4F 53 49 28 58  2C 31 29 0D 0A 31 30 33  |0 POSI(X,1)..103|
00000980: 30 20 45 4E 44 50 52 4F  43 20 46 45 4E 53 54 45  |0 ENDPROC FENSTE|
00000990: 52 0D 0A 31 30 34 30 20  2F 2F 0D 0A 31 30 35 30  |R..1040 //..1050|
000009A0: 20 50 52 4F 43 20 50 4F  53 49 28 58 2C 59 29 20  | PROC POSI(X,Y) |
000009B0: 0D 0A 31 30 36 30 20 50  52 49 4E 54 20 43 48 52  |..1060 PRINT CHR|
000009C0: 24 28 31 39 29 2C 0D 0A  31 30 37 30 20 46 4F 52  |$(19),..1070 FOR|
000009D0: 20 5A 4E 3A 3D 31 20 54  4F 20 58 20 44 4F 20 50  | ZN:=1 TO X DO P|
000009E0: 52 49 4E 54 20 0D 0A 31  30 38 30 20 46 4F 52 20  |RINT ..1080 FOR |
000009F0: 5A 48 3A 3D 31 20 54 4F  20 59 20 44 4F 20 50 52  |ZH:=1 TO Y DO PR|
00000A00: 49 4E 54 20 43 48 52 24  28 32 39 29 2C 0D 0A 31  |INT CHR$(29),..1|
00000A10: 30 39 30 20 45 4E 44 50  52 4F 43 20 50 4F 53 49  |090 ENDPROC POSI|
00000A20: 0D 0A 31 31 30 30 20 2F  2F 0D 0A 31 31 31 30 20  |..1100 //..1110 |
00000A30: 46 55 4E 43 20 4C 41 45  4E 47 45 28 58 29 20 0D  |FUNC LAENGE(X) .|
00000A40: 0A 31 31 32 30 20 52 45  54 55 52 4E 20 28 58 3E  |.1120 RETURN (X>|
00000A50: 31 29 2B 28 58 3E 31 30  29 2B 28 58 3E 31 30 30  |1)+(X>10)+(X>100|
00000A60: 29 2B 28 58 3E 31 30 30  30 29 0D 0A 31 31 33 30  |)+(X>1000)..1130|
00000A70: 20 45 4E 44 46 55 4E 43  20 4C 41 45 4E 47 45 0D  | ENDFUNC LAENGE.|
00000A80: 0A 31 31 34 30 20 2F 2F  0D 0A 31 32 30 30 20 44  |.1140 //..1200 D|
00000A90: 41 54 41 20 22 41 22 2C  31 2C 22 42 22 2C 32 0D  |ATA "A",1,"B",2.|
00000AA0: 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
 MENGE(10)..0100 //*..0110 ANFANG..0120 
REPEAT ..0130 KUNDE..0140 AUFTRAG..0150 
IF ZEILE<>0 THEN RECHNGSCHR..0160 INPUT 
"TASTE RETURN ": CODE$..0170 UNTIL FEIER
ABEND..0180 //*..0190 PROC ANFANG ..0200
 PRINT CHR$(147) //ABLOESCHEN..0210 FEIE
RABEND:=FALSE..0220 I:=0..0230 REPEAT ..
0240 I:=I+1..0250 READ ARTIKEL$(I),PREIS
(I)..0260 UNTIL EOD //END-OF-DATA//..027
0 MAX:=I..0280 ENDPROC ANFANG..0290 //..
0300 PROC KUNDE ..0310 GESAMT:=0; ZEILE:
=0..0320 //..0330 //STUMPF..0340 //..035
0 ENDPROC KUNDE..0360 //..0370 PROC AUFT
RAG ..0380 ANGEBOT..0390 GIBAN("ARTNR").
.0400 WHILE NOT FERTIG DO..0410 ZEILE:=Z
EILE+1..0420 GIBAN("MENGE")..0430 FAKTUR
IEREN..0440 GIBAN("ARTNR")..0450 ENDWHIL
E ..0460 ENDPROC AUFTRAG..0470 //..0480 
PROC FAKTURIEREN ..0490 TEXT$(ZEILE):=AR
TIKEL$(ARTNR)..0500 BETRAG(ZEILE):=PREIS
(ARTNR)*MENGE(ZEILE)..0510 GESAMT:+BETRA
G(ZEILE)..0520 ENDPROC FAKTURIEREN..0530
 //..0540 PROC RECHNGSCHR ..0550 PRINT C
HR$(147) //ABLOESCHEN..0560 POSI(4,1)..0
570 PRINT NAME$..0580 PRINT ADRESSE$..05
90 PRINT STADT$," ",CODE$..0600 PRINT ..
0610 PRINT "MENGE",TAB(10),"ARTIKEL",TAB
(30),"BETRAG"..0620 PRINT "-------------
---------------------------"..0630 FOR I
:=1 TO ZEILE DO..0640 PRINT TAB(2),MENGE
(I),..0650 PRINT TAB(9),TEXT$(I),..0660 
PRINT TAB(32-LAENGE(BETRAG(I))),BETRAG(I
)..0670 NEXT I..0680 PRINT TAB(28),"----
----"..0690 PRINT TAB(22),"GESAMT:",TAB(
32-LAENGE(GESAMT)),GESAMT..0700 ENDPROC 
RECHNGSCHR..0710 //..0720 PROC GIBAN(SOR
TE$) ..0730 FENSTER(10,15)..0740 CASE SO
RTE$ OF..0750 WHEN "ARTNR"..0760 REPEAT 
..0770 FENSTER(10,15)..0780 INPUT "> ": 
ARTNR..0790 OK:=(0<=ARTNR AND ARTNR<=MAX
)..0800 UNTIL OK..0810 FERTIG:=(ARTNR=0)
..0820 WHEN "MENGE"..0830 REPEAT ..0840 
POSI(ARTNR,20)..0850 INPUT QUANTUM..0860
 UNTIL 0<QUANTUM AND INT(QUANTUM)=QUANTU
M..0870 MENGE(ZEILE):=QUANTUM..0880 ENDC
ASE ..0890 ENDPROC GIBAN..0900 //..0910 
PROC ANGEBOT ..0920 PRINT CHR$(147)..093
0 FOR I:=1 TO MAX DO..0940 PRINT I,". ",
ARTIKEL$(I)..0950 NEXT I..0960 PRINT "0.
 STOP"..0970 ENDPROC ANGEBOT..0980 //..0
990 PROC FENSTER(X,Y) CLOSED..0992 DIM L
EERZ$ OF 40..0994 LEERZ$(1:40):=""..1000
 POSI(X,1)..1010 FOR ZN:=1 TO Y-X+1 DO P
RINT LEERZ$..1020 POSI(X,1)..1030 ENDPRO
C FENSTER..1040 //..1050 PROC POSI(X,Y) 
..1060 PRINT CHR$(19),..1070 FOR ZN:=1 T
O X DO PRINT ..1080 FOR ZH:=1 TO Y DO PR
INT CHR$(29),..1090 ENDPROC POSI..1100 /
/..1110 FUNC LAENGE(X) ..1120 RETURN (X>
1)+(X>10)+(X>100)+(X>1000)..1130 ENDFUNC
 LAENGE..1140 //..1200 DATA "A",1,"B",2.
.

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL