_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\

│AKCHART

FILE INFORMATION

FILENAME(S): │AKCHART

FILE TYPE(S): PRG

FILE SIZE: 2.6K

FIRST SEEN: 2025-11-30 21:17:09

APPEARS ON: 1 disk(s)

FILE HASH

ea7b386b8e46d85fc983943a666ad7d0633782d5a8472b0d81ef82e568e28e36

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
MAGIC DISK 07 91 │AKCHART PRG DuncanTwain 29 7 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: F3 2F 43 4C 52 0D 53 43  4E 43 4C 52 0D 53 49 47  |./CLR.SCNCLR.SIG|
00000010: 4E 34 30 0D 5A 5A 24 3D  22 24 25 C1 C2 C3 C4 C5  |N40.ZZ$="$%.....|
00000020: C6 C7 C8 C9 CA CB CC CD  CE CF D0 D1 D2 D3 D4 D5  |................|
00000030: D6 D7 D8 D9 DA 31 32 33  34 35 36 37 38 39 30 20  |.....1234567890 |
00000040: 22 0D 5A 5A 24 3D 5A 5A  24 2B 22 41 42 43 44 45  |".ZZ$=ZZ$+"ABCDE|
00000050: 46 47 48 49 4A 4B 4C 4D  4E 4F 50 51 52 53 54 55  |FGHIJKLMNOPQRSTU|
00000060: 56 57 58 59 5A 22 0D 43  55 52 53 4F 52 31 35 2C  |VWXYZ".CURSOR15,|
00000070: 30 0D 4D 4F 44 55 53 31  0D 50 52 49 4E 54 22 C2  |0.MODUS1.PRINT".|
00000080: 41 4E 4B 43 48 41 52 54  22 0D 4D 4F 44 55 53 30  |ANKCHART".MODUS0|
00000090: 0D 57 49 4E 44 4F 57 20  37 2C 34 2C 32 35 2C 33  |.WINDOW 7,4,25,3|
000000A0: 0D 51 3D 30 0D 44 4F 55  4E 54 49 4C 51 3D 35 0D  |.Q=0.DOUNTILQ=5.|
000000B0: 51 3D 51 2B 31 0D 4C 49  4E 45 31 2C 36 33 2C 33  |Q=Q+1.LINE1,63,3|
000000C0: 32 2D 51 2C 32 35 35 2C  33 32 2D 51 0D 4C 49 4E  |2-Q,255,32-Q.LIN|
000000D0: 45 31 2C 32 35 35 2B 51  2C 32 37 2C 32 35 35 2B  |E1,255+Q,27,255+|
000000E0: 51 2C 34 38 0D 4C 4F 4F  50 0D 51 3D 30 0D 43 55  |Q,48.LOOP.Q=0.CU|
000000F0: 52 53 4F 52 38 2C 35 0D  50 52 49 4E 54 22 C4 41  |RSOR8,5.PRINT".A|
00000100: 54 45 4E 41 4E 5A 41 48  4C 20 28 4D 41 58 2E 30  |TENANZAHL (MAX.0|
00000110: 37 29 3A 22 0D 3A 45 49  4E 47 41 42 45 0D 43 55  |7):".:EINGABE.CU|
00000120: 52 53 4F 52 32 39 2C 35  0D 49 4E 50 55 54 31 2C  |RSOR29,5.INPUT1,|
00000130: 22 31 32 33 34 35 36 37  20 22 2C 4E 0D 49 46 4E  |"1234567 ",N.IFN|
00000140: 3C 31 3A 45 49 4E 47 41  42 45 0D 44 49 4D 45 28  |<1:EINGABE.DIME(|
00000150: 4E 29 2C 46 28 4E 29 2C  47 28 4E 29 2C 50 28 4E  |N),F(N),G(N),P(N|
00000160: 29 2C 51 28 4E 29 2C 52  28 4E 29 0D 57 49 4E 44  |),Q(N),R(N).WIND|
00000170: 4F 57 32 2C 31 30 2C 33  36 2C 39 0D 53 49 47 4E  |OW2,10,36,9.SIGN|
00000180: 34 30 0D 44 4F 55 4E 54  49 4C 51 3D 35 0D 51 3D  |40.DOUNTILQ=5.Q=|
00000190: 51 2B 31 0D 4C 49 4E 45  31 2C 32 33 2C 38 30 2D  |Q+1.LINE1,23,80-|
000001A0: 51 2C 33 30 33 2C 38 30  2D 51 0D 4C 49 4E 45 31  |Q,303,80-Q.LINE1|
000001B0: 2C 33 30 33 2B 51 2C 37  35 2C 33 30 33 2B 51 2C  |,303+Q,75,303+Q,|
000001C0: 31 34 34 0D 4C 4F 4F 50  0D 51 3D 30 0D 49 3D 30  |144.LOOP.Q=0.I=0|
000001D0: 0D 44 4F 55 4E 54 49 4C  49 3D 36 0D 49 3D 49 2B  |.DOUNTILI=6.I=I+|
000001E0: 32 0D 43 55 52 53 4F 52  31 30 2C 31 30 2B 49 0D  |2.CURSOR10,10+I.|
000001F0: 50 52 49 4E 54 22 CE 41  4D 45 20 C2 41 4E 4B 22  |PRINT".AME .ANK"|
00000200: 3B 49 2F 32 3B 22 3A 22  0D 43 55 52 53 4F 52 32  |;I/2;":".CURSOR2|
00000210: 33 2C 31 30 2B 49 0D 4A  3D 49 2F 32 0D 49 4E 50  |3,10+I.J=I/2.INP|
00000220: 55 54 39 2C 5A 5A 24 2C  4E 41 24 28 4A 29 0D 4C  |UT9,ZZ$,NA$(J).L|
00000230: 4F 4F 50 0D 49 3D 30 0D  4A 3D 30 0D 44 4F 55 4E  |OOP.I=0.J=0.DOUN|
00000240: 54 49 4C 49 3D 36 0D 49  3D 49 2B 32 0D 43 55 52  |TILI=6.I=I+2.CUR|
00000250: 53 4F 52 31 30 2C 31 30  2B 49 0D 50 52 49 4E 54  |SOR10,10+I.PRINT|
00000260: 22 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |"               |
00000270: 20 20 20 20 20 20 20 20  20 20 20 22 0D 4C 4F 4F  |           ".LOO|
00000280: 50 0D 49 3D 30 0D 44 4F  55 4E 54 49 4C 49 3D 4E  |P.I=0.DOUNTILI=N|
00000290: 0D 49 3D 49 2B 31 0D 43  55 52 53 4F 52 37 2C 31  |.I=I+1.CURSOR7,1|
000002A0: 30 2B 49 0D 50 52 49 4E  54 22 C2 41 4E 4B 20 31  |0+I.PRINT".ANK 1|
000002B0: 20 2F 20 D7 45 52 54 20  CE 52 2E 22 3B 49 3B 22  | / .ERT .R.";I;"|
000002C0: 3A 22 0D 43 55 52 53 4F  52 32 38 2C 31 30 2B 49  |:".CURSOR28,10+I|
000002D0: 0D 49 4E 50 55 54 34 2C  22 31 32 33 34 35 36 37  |.INPUT4,"1234567|
000002E0: 38 39 30 2E 20 22 2C 45  28 49 29 0D 4C 4F 4F 50  |890. ",E(I).LOOP|
000002F0: 0D 49 3D 30 0D 44 4F 55  4E 54 49 4C 49 3D 4E 0D  |.I=0.DOUNTILI=N.|
00000300: 49 3D 49 2B 31 0D 43 55  52 53 4F 52 37 2C 31 30  |I=I+1.CURSOR7,10|
00000310: 2B 49 0D 50 52 49 4E 54  22 20 20 20 20 20 20 20  |+I.PRINT"       |
00000320: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000330: 20 20 22 0D 4C 4F 4F 50  0D 49 3D 30 0D 44 4F 55  |  ".LOOP.I=0.DOU|
00000340: 4E 54 49 4C 49 3D 4E 0D  49 3D 49 2B 31 0D 43 55  |NTILI=N.I=I+1.CU|
00000350: 52 53 4F 52 37 2C 31 30  2B 49 0D 50 52 49 4E 54  |RSOR7,10+I.PRINT|
00000360: 22 C2 41 4E 4B 20 32 20  2F 20 D7 45 52 54 20 CE  |".ANK 2 / .ERT .|
00000370: 52 2E 22 3B 49 3B 22 3A  22 0D 43 55 52 53 4F 52  |R.";I;":".CURSOR|
00000380: 32 38 2C 31 30 2B 49 0D  49 4E 50 55 54 34 2C 22  |28,10+I.INPUT4,"|
00000390: 31 32 33 34 35 36 37 38  39 30 2E 20 22 2C 46 28  |1234567890. ",F(|
000003A0: 49 29 0D 4C 4F 4F 50 0D  49 3D 30 0D 44 4F 55 4E  |I).LOOP.I=0.DOUN|
000003B0: 54 49 4C 49 3D 4E 0D 49  3D 49 2B 31 0D 43 55 52  |TILI=N.I=I+1.CUR|
000003C0: 53 4F 52 37 2C 31 30 2B  49 0D 50 52 49 4E 54 22  |SOR7,10+I.PRINT"|
000003D0: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000003E0: 20 20 20 20 20 20 20 20  20 22 0D 4C 4F 4F 50 0D  |         ".LOOP.|
000003F0: 49 3D 30 0D 44 4F 55 4E  54 49 4C 49 3D 4E 0D 49  |I=0.DOUNTILI=N.I|
00000400: 3D 49 2B 31 0D 43 55 52  53 4F 52 37 2C 31 30 2B  |=I+1.CURSOR7,10+|
00000410: 49 0D 50 52 49 4E 54 22  C2 41 4E 4B 20 33 20 2F  |I.PRINT".ANK 3 /|
00000420: 20 D7 45 52 54 20 CE 52  2E 22 3B 49 3B 22 3A 22  | .ERT .R.";I;":"|
00000430: 0D 43 55 52 53 4F 52 32  38 2C 31 30 2B 49 0D 49  |.CURSOR28,10+I.I|
00000440: 4E 50 55 54 34 2C 22 31  32 33 34 35 36 37 38 39  |NPUT4,"123456789|
00000450: 30 2E 20 22 2C 47 28 49  29 0D 4C 4F 4F 50 0D 49  |0. ",G(I).LOOP.I|
00000460: 3D 30 0D 57 49 4E 44 4F  57 31 2C 31 35 2C 33 38  |=0.WINDOW1,15,38|
00000470: 2C 33 0D 44 4F 55 4E 54  49 4C 49 3D 35 0D 49 3D  |,3.DOUNTILI=5.I=|
00000480: 49 2B 31 0D 4C 49 4E 45  31 2C 31 35 2C 31 31 34  |I+1.LINE1,15,114|
00000490: 2B 49 2C 33 31 31 2C 31  31 34 2B 49 0D 4C 49 4E  |+I,311,114+I.LIN|
000004A0: 45 31 2C 33 31 30 2B 49  2C 31 31 35 2C 33 31 30  |E1,310+I,115,310|
000004B0: 2B 49 2C 31 33 37 0D 4C  4F 4F 50 0D 49 3D 30 0D  |+I,137.LOOP.I=0.|
000004C0: 43 55 52 53 4F 52 32 2C  31 36 0D 50 52 49 4E 54  |CURSOR2,16.PRINT|
000004D0: 22 CC 45 47 3A 22 0D 43  55 52 53 4F 52 36 2C 31  |".EG:".CURSOR6,1|
000004E0: 36 0D 49 4E 50 55 54 33  32 2C 5A 5A 24 2C 54 45  |6.INPUT32,ZZ$,TE|
000004F0: 24 0D 57 49 4E 44 4F 57  38 2C 31 34 2C 32 35 2C  |$.WINDOW8,14,25,|
00000500: 35 0D 44 4F 55 4E 54 49  4C 49 3D 35 0D 49 3D 49  |5.DOUNTILI=5.I=I|
00000510: 2B 31 0D 4C 49 4E 45 31  2C 37 31 2C 31 31 32 2D  |+1.LINE1,71,112-|
00000520: 49 2C 32 36 33 2C 31 31  32 2D 49 0D 4C 49 4E 45  |I,263,112-I.LINE|
00000530: 31 2C 32 36 33 2B 49 2C  31 30 37 2C 32 36 33 2B  |1,263+I,107,263+|
00000540: 49 2C 31 34 34 0D 4C 4F  4F 50 0D 43 55 52 53 4F  |I,144.LOOP.CURSO|
00000550: 52 31 30 2C 31 35 0D 50  52 49 4E 54 22 C8 4F 45  |R10,15.PRINT".OE|
00000560: 43 48 53 54 45 52 20 D3  4B 41 4C 45 4E 57 45 52  |CHSTER .KALENWER|
00000570: 54 3A 22 0D 3A 4B 4F 52  52 45 4B 54 55 52 0D 43  |T:".:KORREKTUR.C|
00000580: 55 52 53 4F 52 31 37 2C  31 37 0D 49 4E 50 55 54  |URSOR17,17.INPUT|
00000590: 34 2C 22 30 31 32 33 34  35 36 37 38 39 20 22 2C  |4,"0123456789 ",|
000005A0: 4D 0D 49 46 4D 3C 31 30  3A 4B 4F 52 52 45 4B 54  |M.IFM<10:KORREKT|
000005B0: 55 52 0D 57 49 4E 44 4F  57 31 2C 31 2C 31 2C 31  |UR.WINDOW1,1,1,1|
000005C0: 0D 57 49 4E 44 4F 57 0D  49 3D 30 0D 44 4F 55 4E  |.WINDOW.I=0.DOUN|
000005D0: 54 49 4C 49 3D 4E 0D 49  3D 49 2B 31 0D 50 28 49  |TILI=N.I=I+1.P(I|
000005E0: 29 3D 49 4E 54 28 31 38  30 2D 45 28 49 29 2F 4D  |)=INT(180-E(I)/M|
000005F0: 2A 31 35 30 29 0D 51 28  49 29 3D 49 4E 54 28 31  |*150).Q(I)=INT(1|
00000600: 38 30 2D 46 28 49 29 2F  4D 2A 31 35 30 29 0D 52  |80-F(I)/M*150).R|
00000610: 28 49 29 3D 49 4E 54 28  31 38 30 2D 47 28 49 29  |(I)=INT(180-G(I)|
00000620: 2F 4D 2A 31 35 30 29 0D  4C 4F 4F 50 0D 49 3D 30  |/M*150).LOOP.I=0|
00000630: 0D 53 43 4E 43 4C 52 0D  43 55 52 53 4F 52 31 35  |.SCNCLR.CURSOR15|
00000640: 2C 30 0D 4D 4F 44 55 53  31 0D 50 52 49 4E 54 22  |,0.MODUS1.PRINT"|
00000650: C2 41 4E 4B 43 48 41 52  54 22 0D 4D 4F 44 55 53  |.ANKCHART".MODUS|
00000660: 30 0D 4C 49 4E 45 31 2C  33 35 2C 31 38 30 2C 33  |0.LINE1,35,180,3|
00000670: 35 2C 33 30 0D 44 4F 55  4E 54 49 4C 49 3D 36 0D  |5,30.DOUNTILI=6.|
00000680: 55 3D 31 38 30 2D 49 2A  33 30 0D 4C 49 4E 45 31  |U=180-I*30.LINE1|
00000690: 2C 33 33 2C 55 2C 33 37  2C 55 0D 49 3D 49 2B 31  |,33,U,37,U.I=I+1|
000006A0: 0D 4C 4F 4F 50 0D 49 3D  30 0D 44 4F 55 4E 54 49  |.LOOP.I=0.DOUNTI|
000006B0: 4C 49 3D 36 0D 57 45 3D  49 4E 54 28 4D 2F 31 30  |LI=6.WE=INT(M/10|
000006C0: 2A 49 2A 32 29 0D 57 31  24 3D 53 54 52 24 28 57  |*I*2).W1$=STR$(W|
000006D0: 45 29 0D 57 45 24 3D 4D  49 44 24 28 57 31 24 2C  |E).WE$=MID$(W1$,|
000006E0: 32 2C 34 29 0D 49 46 57  45 3C 31 30 30 30 0D 42  |2,4).IFWE<1000.B|
000006F0: 45 47 49 4E 0D 4C 3D 31  0D 45 4C 53 45 0D 4C 3D  |EGIN.L=1.ELSE.L=|
00000700: 30 0D 45 4E 44 0D 50 4F  3D 49 4E 54 28 28 31 38  |0.END.PO=INT((18|
00000710: 30 2D 49 2A 33 30 29 2F  38 29 0D 43 55 52 53 4F  |0-I*30)/8).CURSO|
00000720: 52 4C 2C 50 4F 0D 50 52  49 4E 54 57 45 24 0D 49  |RL,PO.PRINTWE$.I|
00000730: 3D 49 2B 31 0D 4C 4F 4F  50 0D 49 3D 30 0D 4C 49  |=I+1.LOOP.I=0.LI|
00000740: 4E 45 31 2C 33 35 2C 31  38 30 2C 34 35 2B 33 38  |NE1,35,180,45+38|
00000750: 2A 4E 2C 31 38 30 0D 42  4F 58 31 2C 33 33 2C 31  |*N,180.BOX1,33,1|
00000760: 39 32 2C 33 38 2C 31 39  38 0D 44 4F 55 4E 54 49  |92,38,198.DOUNTI|
00000770: 4C 49 3D 35 0D 49 3D 49  2B 31 0D 4A 3D 49 2B 31  |LI=5.I=I+1.J=I+1|
00000780: 39 32 0D 4C 49 4E 45 31  2C 33 33 2C 4A 2C 33 38  |92.LINE1,33,J,38|
00000790: 2C 4A 0D 4C 4F 4F 50 0D  49 3D 30 0D 4A 3D 30 0D  |,J.LOOP.I=0.J=0.|
000007A0: 42 4F 58 31 2C 31 32 38  2C 31 39 32 2C 31 33 34  |BOX1,128,192,134|
000007B0: 2C 31 39 38 0D 42 4F 58  31 2C 32 32 34 2C 31 39  |,198.BOX1,224,19|
000007C0: 32 2C 32 33 30 2C 31 39  38 0D 42 4F 58 31 2C 32  |2,230,198.BOX1,2|
000007D0: 32 34 2C 31 39 34 2C 32  33 30 2C 31 39 38 0D 42  |24,194,230,198.B|
000007E0: 4F 58 31 2C 32 32 34 2C  31 39 36 2C 32 33 30 2C  |OX1,224,196,230,|
000007F0: 31 39 38 0D 43 55 52 53  4F 52 35 2C 32 34 0D 50  |198.CURSOR5,24.P|
00000800: 52 49 4E 54 22 3D 22 3B  4E 41 24 28 31 29 0D 43  |RINT"=";NA$(1).C|
00000810: 55 52 53 4F 52 31 37 2C  32 34 0D 50 52 49 4E 54  |URSOR17,24.PRINT|
00000820: 22 3D 22 3B 4E 41 24 28  32 29 0D 43 55 52 53 4F  |"=";NA$(2).CURSO|
00000830: 52 32 39 2C 32 34 0D 50  52 49 4E 54 22 3D 22 3B  |R29,24.PRINT"=";|
00000840: 4E 41 24 28 33 29 0D 50  58 3D 34 30 0D 44 46 3D  |NA$(3).PX=40.DF=|
00000850: 34 30 0D 49 3D 30 0D 44  4F 55 4E 54 49 4C 49 3D  |40.I=0.DOUNTILI=|
00000860: 4E 0D 4A 3D 30 0D 4B 3D  30 0D 4C 3D 30 0D 49 3D  |N.J=0.K=0.L=0.I=|
00000870: 49 2B 31 0D 49 46 45 28  49 29 3C 31 3A 52 45 4B  |I+1.IFE(I)<1:REK|
00000880: 55 52 53 31 0D 42 4F 58  31 2C 50 58 2C 50 28 49  |URS1.BOX1,PX,P(I|
00000890: 29 2C 50 58 2B 35 2C 31  38 30 0D 4C 3D 31 38 30  |),PX+5,180.L=180|
000008A0: 2D 50 28 49 29 0D 44 4F  55 4E 54 49 4C 4A 3D 4C  |-P(I).DOUNTILJ=L|
000008B0: 0D 4A 3D 4A 2B 31 0D 4B  3D 31 38 30 2D 4A 0D 4C  |.J=J+1.K=180-J.L|
000008C0: 49 4E 45 31 2C 50 58 2C  4B 2C 50 58 2B 35 2C 4B  |INE1,PX,K,PX+5,K|
000008D0: 0D 4C 4F 4F 50 0D 3A 52  45 4B 55 52 53 31 0D 50  |.LOOP.:REKURS1.P|
000008E0: 58 3D 50 58 2B 44 46 0D  4C 4F 4F 50 0D 49 3D 30  |X=PX+DF.LOOP.I=0|
000008F0: 0D 50 58 3D 35 30 0D 44  46 3D 34 30 0D 44 4F 55  |.PX=50.DF=40.DOU|
00000900: 4E 54 49 4C 49 3D 4E 0D  49 3D 49 2B 31 0D 49 46  |NTILI=N.I=I+1.IF|
00000910: 46 28 49 29 3C 31 3A 52  45 4B 55 52 53 32 0D 42  |F(I)<1:REKURS2.B|
00000920: 4F 58 31 2C 50 58 2C 51  28 49 29 2C 50 58 2B 35  |OX1,PX,Q(I),PX+5|
00000930: 2C 31 38 30 0D 3A 52 45  4B 55 52 53 32 0D 50 58  |,180.:REKURS2.PX|
00000940: 3D 50 58 2B 44 46 0D 4C  4F 4F 50 0D 49 3D 30 0D  |=PX+DF.LOOP.I=0.|
00000950: 50 58 3D 36 30 0D 44 46  3D 34 30 0D 44 4F 55 4E  |PX=60.DF=40.DOUN|
00000960: 54 49 4C 49 3D 4E 0D 4A  3D 30 0D 4B 3D 30 0D 4C  |TILI=N.J=0.K=0.L|
00000970: 3D 30 0D 49 3D 49 2B 31  0D 49 46 47 28 49 29 3C  |=0.I=I+1.IFG(I)<|
00000980: 31 3A 52 45 4B 55 52 53  33 0D 42 4F 58 31 2C 50  |1:REKURS3.BOX1,P|
00000990: 58 2C 52 28 49 29 2C 50  58 2B 35 2C 31 38 30 0D  |X,R(I),PX+5,180.|
000009A0: 4C 3D 28 31 38 30 2D 52  28 49 29 29 2D 33 0D 44  |L=(180-R(I))-3.D|
000009B0: 4F 55 4E 54 49 4C 4A 3E  4C 0D 4A 3D 4A 2B 33 0D  |OUNTILJ>L.J=J+3.|
000009C0: 4B 3D 31 38 30 2D 4A 0D  4C 49 4E 45 31 2C 50 58  |K=180-J.LINE1,PX|
000009D0: 2C 4B 2C 50 58 2B 35 2C  4B 0D 4C 4F 4F 50 0D 3A  |,K,PX+5,K.LOOP.:|
000009E0: 52 45 4B 55 52 53 33 0D  50 58 3D 50 58 2B 44 46  |REKURS3.PX=PX+DF|
000009F0: 0D 4C 4F 4F 50 0D 43 55  52 53 4F 52 36 2C 31 0D  |.LOOP.CURSOR6,1.|
00000A00: 50 52 49 4E 54 54 45 24  0D 43 55 52 53 4F 52 34  |PRINTTE$.CURSOR4|
00000A10: 2C 32 33 0D 49 4E 50 55  54 33 35 2C 5A 5A 24 2C  |,23.INPUT35,ZZ$,|
00000A20: 54 58 24 0D 43 55 52 53  4F 52 34 2C 32 33 0D 50  |TX$.CURSOR4,23.P|
00000A30: 52 49 4E 54 54 58 24 0D  44 4F 0D 4C 4F 4F 50 0D  |RINTTX$.DO.LOOP.|
00000A40: 45 4E 44 2E 0D 0D 00 5A                           |END....Z        |

./CLR.SCNCLR.SIGN40.ZZ$="$%ABCDEFGHIJKLM
NOPQRSTUVWXYZ1234567890 ".ZZ$=ZZ$+"ABCDE
FGHIJKLMNOPQRSTUVWXYZ".CURSOR15,0.MODUS1
.PRINT"BANKCHART".MODUS0.WINDOW 7,4,25,3
.Q=0.DOUNTILQ=5.Q=Q+1.LINE1,63,32-Q,255,
32-Q.LINE1,255+Q,27,255+Q,48.LOOP.Q=0.CU
RSOR8,5.PRINT"DATENANZAHL (MAX.07):".:EI
NGABE.CURSOR29,5.INPUT1,"1234567 ",N.IFN
<1:EINGABE.DIME(N),F(N),G(N),P(N),Q(N),R
(N).WINDOW2,10,36,9.SIGN40.DOUNTILQ=5.Q=
Q+1.LINE1,23,80-Q,303,80-Q.LINE1,303+Q,7
5,303+Q,144.LOOP.Q=0.I=0.DOUNTILI=6.I=I+
2.CURSOR10,10+I.PRINT"NAME BANK";I/2;":"
.CURSOR23,10+I.J=I/2.INPUT9,ZZ$,NA$(J).L
OOP.I=0.J=0.DOUNTILI=6.I=I+2.CURSOR10,10
+I.PRINT"                          ".LOO
P.I=0.DOUNTILI=N.I=I+1.CURSOR7,10+I.PRIN
T"BANK 1 / WERT NR.";I;":".CURSOR28,10+I
.INPUT4,"1234567890. ",E(I).LOOP.I=0.DOU
NTILI=N.I=I+1.CURSOR7,10+I.PRINT"       
                  ".LOOP.I=0.DOUNTILI=N.
I=I+1.CURSOR7,10+I.PRINT"BANK 2 / WERT N
R.";I;":".CURSOR28,10+I.INPUT4,"12345678
90. ",F(I).LOOP.I=0.DOUNTILI=N.I=I+1.CUR
SOR7,10+I.PRINT"                        
 ".LOOP.I=0.DOUNTILI=N.I=I+1.CURSOR7,10+
I.PRINT"BANK 3 / WERT NR.";I;":".CURSOR2
8,10+I.INPUT4,"1234567890. ",G(I).LOOP.I
=0.WINDOW1,15,38,3.DOUNTILI=5.I=I+1.LINE
1,15,114+I,311,114+I.LINE1,310+I,115,310
+I,137.LOOP.I=0.CURSOR2,16.PRINT"LEG:".C
URSOR6,16.INPUT32,ZZ$,TE$.WINDOW8,14,25,
5.DOUNTILI=5.I=I+1.LINE1,71,112-I,263,11
2-I.LINE1,263+I,107,263+I,144.LOOP.CURSO
R10,15.PRINT"HOECHSTER SKALENWERT:".:KOR
REKTUR.CURSOR17,17.INPUT4,"0123456789 ",
M.IFM<10:KORREKTUR.WINDOW1,1,1,1.WINDOW.
I=0.DOUNTILI=N.I=I+1.P(I)=INT(180-E(I)/M
*150).Q(I)=INT(180-F(I)/M*150).R(I)=INT(
180-G(I)/M*150).LOOP.I=0.SCNCLR.CURSOR15
,0.MODUS1.PRINT"BANKCHART".MODUS0.LINE1,
35,180,35,30.DOUNTILI=6.U=180-I*30.LINE1
,33,U,37,U.I=I+1.LOOP.I=0.DOUNTILI=6.WE=
INT(M/10*I*2).W1$=STR$(WE).WE$=MID$(W1$,
2,4).IFWE<1000.BEGIN.L=1.ELSE.L=0.END.PO
=INT((180-I*30)/8).CURSORL,PO.PRINTWE$.I
=I+1.LOOP.I=0.LINE1,35,180,45+38*N,180.B
OX1,33,192,38,198.DOUNTILI=5.I=I+1.J=I+1
92.LINE1,33,J,38,J.LOOP.I=0.J=0.BOX1,128
,192,134,198.BOX1,224,192,230,198.BOX1,2
24,194,230,198.BOX1,224,196,230,198.CURS
OR5,24.PRINT"=";NA$(1).CURSOR17,24.PRINT
"=";NA$(2).CURSOR29,24.PRINT"=";NA$(3).P
X=40.DF=40.I=0.DOUNTILI=N.J=0.K=0.L=0.I=
I+1.IFE(I)<1:REKURS1.BOX1,PX,P(I),PX+5,1
80.L=180-P(I).DOUNTILJ=L.J=J+1.K=180-J.L
INE1,PX,K,PX+5,K.LOOP.:REKURS1.PX=PX+DF.
LOOP.I=0.PX=50.DF=40.DOUNTILI=N.I=I+1.IF
F(I)<1:REKURS2.BOX1,PX,Q(I),PX+5,180.:RE
KURS2.PX=PX+DF.LOOP.I=0.PX=60.DF=40.DOUN
TILI=N.J=0.K=0.L=0.I=I+1.IFG(I)<1:REKURS
3.BOX1,PX,R(I),PX+5,180.L=(180-R(I))-3.D
OUNTILJ>L.J=J+3.K=180-J.LINE1,PX,K,PX+5,
K.LOOP.:REKURS3.PX=PX+DF.LOOP.CURSOR6,1.
PRINTTE$.CURSOR4,23.INPUT35,ZZ$,TX$.CURS
OR4,23.PRINTTX$.DO.LOOP.END....Z
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL