BAR PROMPTS
FILE INFORMATION
FILENAME(S): BAR PROMPTS
FILE TYPE(S): PRG
FILE SIZE: 4.2K
FIRST SEEN: 2025-11-30 17:31:21
APPEARS ON: 1 disk(s)
FILE HASH
c57f53cf95799e6f8f04a800d33e1070cc57988f829a2a1a9c6559e28faf0885
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CDU APRIL 1990 | BAR PROMPTS | PRG | UK CD | 21 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 25 08 64 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..%.d.. ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 00 49 08 69 00 8F 20 2A 20 20 20 |*****.I.i.. * |
00000030: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000040: 20 20 20 20 20 20 20 20 2A 00 6D 08 6E 00 8F 20 | *.m.n.. |
00000050: 2A 20 20 20 20 20 20 20 20 42 41 52 20 50 52 4F |* BAR PRO|
00000060: 4D 50 54 53 20 20 20 20 20 20 20 20 2A 00 91 08 |MPTS *...|
00000070: 73 00 8F 20 2A 20 20 20 20 20 20 20 20 20 20 20 |s.. * |
00000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000090: 2A 00 B5 08 78 00 8F 20 2A 20 20 20 28 43 29 20 |*...x.. * (C) |
000000A0: 31 39 38 39 20 50 2E 20 42 41 53 54 49 4E 47 53 |1989 P. BASTINGS|
000000B0: 20 20 20 20 2A 00 D9 08 7D 00 8F 20 2A 20 20 20 | *...}.. * |
000000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000D0: 20 20 20 20 20 20 20 20 2A 00 FD 08 82 00 8F 20 | *...... |
000000E0: 2A 20 20 20 50 4F 4B 45 20 37 30 30 2C 4C 45 46 |* POKE 700,LEF|
000000F0: 54 20 4D 41 52 47 49 4E 20 20 20 20 2A 00 21 09 |T MARGIN *.!.|
00000100: 87 00 8F 20 2A 20 20 20 50 4F 4B 45 20 37 30 31 |... * POKE 701|
00000110: 2C 42 41 52 20 4C 45 4E 47 48 54 20 20 20 20 20 |,BAR LENGHT |
00000120: 2A 00 45 09 8C 00 8F 20 2A 20 20 20 50 4F 4B 45 |*.E.... * POKE|
00000130: 20 37 30 32 2C 4C 49 4E 45 20 4E 55 4D 42 45 52 | 702,LINE NUMBER|
00000140: 20 58 20 20 2A 00 69 09 91 00 8F 20 2A 20 20 20 | X *.i.... * |
00000150: 50 4F 4B 45 20 37 30 33 2C 4C 49 4E 45 20 4E 55 |POKE 703,LINE NU|
00000160: 4D 42 45 52 20 59 20 20 2A 00 8D 09 96 00 8F 20 |MBER Y *...... |
00000170: 2A 20 20 20 50 4F 4B 45 20 37 2E 2E 2C 4C 49 4E |* POKE 7..,LIN|
00000180: 45 20 4E 55 4D 42 45 52 20 5A 20 20 2A 00 B1 09 |E NUMBER Z *...|
00000190: 9B 00 8F 20 2A 20 20 20 50 4F 4B 45 20 37 2E 2E |... * POKE 7..|
000001A0: 2C 32 35 35 20 20 45 4E 44 20 20 20 20 20 20 20 |,255 END |
000001B0: 2A 00 D5 09 A0 00 8F 20 2A 20 20 20 20 20 20 20 |*...... * |
000001C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001D0: 20 20 20 20 2A 00 F9 09 A5 00 8F 20 2A 20 20 20 | *...... * |
000001E0: 53 59 53 20 35 32 39 38 35 20 20 20 20 20 53 54 |SYS 52985 ST|
000001F0: 41 52 54 20 20 20 20 20 2A 00 1D 0A AA 00 8F 20 |ART *...... |
00000200: 2A 20 20 20 50 45 45 4B 28 32 29 3D 43 48 4F 49 |* PEEK(2)=CHOI|
00000210: 43 45 20 4E 55 4D 42 45 52 20 20 20 2A 00 41 0A |CE NUMBER *.A.|
00000220: AF 00 8F 20 2A 20 20 20 20 20 20 20 20 20 20 20 |... * |
00000230: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000240: 2A 00 65 0A B4 00 8F 20 2A 20 20 20 49 46 20 45 |*.e.... * IF E|
00000250: 52 52 4F 52 20 49 4E 20 50 41 52 41 4D 45 54 45 |RROR IN PARAMETE|
00000260: 52 53 20 20 2A 00 89 0A B9 00 8F 20 2A 20 20 20 |RS *...... * |
00000270: 54 48 45 4E 20 27 49 4C 4C 45 47 41 4C 20 51 55 |THEN 'ILLEGAL QU|
00000280: 41 4E 54 49 54 59 20 20 2A 00 AD 0A BE 00 8F 20 |ANTITY *...... |
00000290: 2A 20 20 20 45 52 52 4F 52 20 49 4E 20 4C 49 4E |* ERROR IN LIN|
000002A0: 45 20 2E 2E 27 20 20 20 20 20 20 20 2A 00 D1 0A |E ..' *...|
000002B0: C3 00 8F 20 2A 20 20 20 20 20 20 20 20 20 20 20 |... * |
000002C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002D0: 2A 00 F5 0A C8 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |*...... ********|
000002E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000002F0: 2A 2A 2A 2A 2A 00 FB 0A CD 00 3A 00 19 0B D2 00 |*****.....:.....|
00000300: 3A 8D 37 34 35 20 20 20 20 20 20 3A 8F 20 49 4E |:.745 :. IN|
00000310: 53 54 41 4C 20 43 4F 44 45 00 37 0B D7 00 3A 97 |STAL CODE.7...:.|
00000320: 20 35 33 32 38 30 2C 31 31 20 3A 8F 20 53 45 54 | 53280,11 :. SET|
00000330: 20 42 4F 52 44 45 52 00 59 0B DC 00 3A 97 20 35 | BORDER.Y...:. 5|
00000340: 33 32 38 31 2C 31 31 20 3A 8F 20 53 45 54 20 42 |3281,11 :. SET B|
00000350: 41 43 4B 47 52 4F 55 4E 44 00 5F 0B E1 00 3A 00 |ACKGROUND._...:.|
00000360: 80 0B E6 00 3A 86 20 4D 31 28 34 29 20 20 20 20 |....:. M1(4) |
00000370: 20 3A 8F 20 41 52 52 41 59 20 4D 45 4E 55 20 31 | :. ARRAY MENU 1|
00000380: 00 A2 0B EB 00 3A 4D 31 28 30 29 B2 33 20 20 20 |.....:M1(0).3 |
00000390: 20 20 20 20 3A 8F 20 4C 49 4E 45 20 4E 55 4D 42 | :. LINE NUMB|
000003A0: 45 52 00 AF 0B F0 00 3A 4D 31 28 31 29 B2 34 00 |ER.....:M1(1).4.|
000003B0: BC 0B F5 00 3A 4D 31 28 32 29 B2 35 00 C9 0B FA |....:M1(2).5....|
000003C0: 00 3A 4D 31 28 33 29 B2 36 00 EB 0B FF 00 3A 4D |.:M1(3).6.....:M|
000003D0: 31 28 34 29 B2 32 35 35 20 20 20 20 20 3A 8F 20 |1(4).255 :. |
000003E0: 45 4E 44 20 4F 46 20 42 41 52 53 00 F1 0B 04 01 |END OF BARS.....|
000003F0: 3A 00 12 0C 09 01 3A 86 20 4D 32 28 31 37 29 20 |:.....:. M2(17) |
00000400: 20 20 20 3A 8F 20 41 52 52 41 59 20 4D 45 4E 55 | :. ARRAY MENU|
00000410: 20 32 00 22 0C 0E 01 3A 81 20 49 B2 30 20 A4 20 | 2."...:. I.0 . |
00000420: 31 36 00 45 0C 13 01 3A 20 20 20 20 4D 32 28 49 |16.E...: M2(I|
00000430: 29 B2 49 AA 34 20 3A 8F 20 4C 49 4E 45 20 4E 55 |).I.4 :. LINE NU|
00000440: 4D 42 45 52 53 00 4E 0C 18 01 3A 82 20 49 00 70 |MBERS.N...:. I.p|
00000450: 0C 1D 01 3A 4D 32 28 49 29 B2 32 35 35 20 20 20 |...:M2(I).255 |
00000460: 20 20 3A 8F 20 45 4E 44 20 4F 46 20 42 41 52 53 | :. END OF BARS|
00000470: 00 76 0C 22 01 3A 00 95 0C 27 01 3A 97 20 37 30 |.v.".:...'.:. 70|
00000480: 30 2C 31 35 20 20 20 3A 8F 20 4C 45 46 54 20 4D |0,15 :. LEFT M|
00000490: 41 52 47 49 4E 00 B3 0C 2C 01 3A 97 20 37 30 31 |ARGIN...,.:. 701|
000004A0: 2C 31 30 20 20 20 3A 8F 20 42 41 52 20 4C 45 4E |,10 :. BAR LEN|
000004B0: 47 48 54 00 D4 0C 31 01 3A 81 20 49 B2 30 20 A4 |GHT...1.:. I.0 .|
000004C0: 20 34 20 20 3A 8F 20 49 4E 53 54 41 4C 20 56 41 | 4 :. INSTAL VA|
000004D0: 4C 55 45 53 00 EB 0C 36 01 3A 20 20 20 20 97 20 |LUES...6.: . |
000004E0: 37 30 32 AA 49 2C 4D 31 28 49 29 00 F4 0C 3B 01 |702.I,M1(I)...;.|
000004F0: 3A 82 20 49 00 FA 0C 40 01 3A 00 1B 0D 45 01 3A |:. I...@.:...E.:|
00000500: 99 22 93 22 A6 31 32 29 22 42 41 52 2D 50 52 4F |.".".12)"BAR-PRO|
00000510: 4D 50 54 53 20 44 45 4D 4F 11 22 00 34 0D 4A 01 |MPTS DEMO.".4.J.|
00000520: 3A 99 A6 31 34 29 22 D5 C0 C0 C0 C0 C0 C0 C0 C0 |:..14)".........|
00000530: C0 C0 C9 22 00 4D 0D 4F 01 3A 99 A6 31 34 29 22 |...".M.O.:..14)"|
00000540: DD 42 4F 52 44 45 52 20 20 20 20 DD 22 00 66 0D |.BORDER .".f.|
00000550: 54 01 3A 99 A6 31 34 29 22 DD 42 41 43 4B 47 52 |T.:..14)".BACKGR|
00000560: 4F 55 4E 44 DD 22 00 7F 0D 59 01 3A 99 A6 31 34 |OUND."...Y.:..14|
00000570: 29 22 DD 44 49 52 45 43 54 4F 52 59 20 DD 22 00 |)".DIRECTORY .".|
00000580: 98 0D 5E 01 3A 99 A6 31 34 29 22 DD 45 58 49 54 |..^.:..14)".EXIT|
00000590: 20 44 45 4D 4F 20 DD 22 00 B1 0D 63 01 3A 99 A6 | DEMO ."...c.:..|
000005A0: 31 34 29 22 CA C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 CB |14)"............|
000005B0: 22 00 B7 0D 68 01 3A 00 D7 0D 6D 01 3A 99 A6 39 |"...h.:...m.:..9|
000005C0: 30 29 22 55 53 45 20 43 52 53 52 20 55 50 20 4F |0)"USE CRSR UP O|
000005D0: 52 20 44 4F 57 4E 22 00 FA 0D 72 01 3A 99 A6 34 |R DOWN"...r.:..4|
000005E0: 39 29 22 50 52 45 53 53 20 52 45 54 55 52 4E 20 |9)"PRESS RETURN |
000005F0: 54 4F 20 53 45 4C 45 43 54 22 00 00 0E 77 01 3A |TO SELECT"...w.:|
00000600: 00 21 0E 7C 01 3A 9E 35 32 39 38 35 20 20 20 20 |.!.|.:.52985 |
00000610: 20 3A 8F 20 53 54 41 52 54 20 50 52 4F 4D 50 54 | :. START PROMPT|
00000620: 53 00 3E 0E 81 01 3A 91 20 C2 28 32 29 8D 20 34 |S.>...:. .(2). 4|
00000630: 30 30 2C 34 37 30 2C 35 35 30 2C 37 33 35 00 49 |00,470,550,735.I|
00000640: 0E 86 01 3A 89 20 32 39 35 00 4F 0E 8B 01 3A 00 |...:. 295.O...:.|
00000650: 6D 0E 90 01 3A 43 48 B2 31 3A 8D 20 37 37 35 3A |m...:CH.1:. 775:|
00000660: 8F 20 44 52 41 57 20 4D 45 4E 55 20 32 00 73 0E |. DRAW MENU 2.s.|
00000670: 95 01 3A 00 93 0E 9A 01 3A 97 20 37 30 30 2C 33 |..:.....:. 700,3|
00000680: 20 20 20 20 20 3A 8F 20 4C 45 46 54 20 4D 41 52 | :. LEFT MAR|
00000690: 47 49 4E 00 B2 0E 9F 01 3A 97 20 37 30 31 2C 39 |GIN.....:. 701,9|
000006A0: 20 20 20 20 20 3A 8F 20 42 41 52 20 4C 45 4E 47 | :. BAR LENG|
000006B0: 48 54 00 D4 0E A4 01 3A 81 20 49 B2 30 20 A4 20 |HT.....:. I.0 . |
000006C0: 31 37 20 20 3A 8F 20 49 4E 53 54 41 4C 20 56 41 |17 :. INSTAL VA|
000006D0: 4C 55 45 53 00 EA 0E A9 01 3A 20 20 20 20 97 37 |LUES.....: .7|
000006E0: 30 32 AA 49 2C 4D 32 28 49 29 00 F3 0E AE 01 3A |02.I,M2(I).....:|
000006F0: 82 20 49 00 F9 0E B3 01 3A 00 1C 0F B8 01 3A 9E |. I.....:.....:.|
00000700: 20 35 32 39 38 35 20 20 20 20 20 20 3A 8F 20 53 | 52985 :. S|
00000710: 54 41 52 54 20 50 52 4F 4D 50 54 53 00 2F 0F BD |TART PROMPTS./..|
00000720: 01 3A 8B 20 C2 28 32 29 B2 31 37 20 A7 20 8E 00 |.:. .(2).17 . ..|
00000730: 35 0F C2 01 3A 00 49 0F C7 01 3A 97 20 35 33 32 |5...:.I...:. 532|
00000740: 38 30 2C C2 28 32 29 AB 31 00 53 0F CC 01 3A 89 |80,.(2).1.S...:.|
00000750: 34 30 30 00 59 0F D1 01 3A 00 77 0F D6 01 3A 43 |400.Y...:.w...:C|
00000760: 48 B2 32 3A 8D 20 37 37 35 3A 8F 20 44 52 41 57 |H.2:. 775:. DRAW|
00000770: 20 4D 45 4E 55 20 32 00 7D 0F DB 01 3A 00 9D 0F | MENU 2.}...:...|
00000780: E0 01 3A 97 20 37 30 30 2C 32 37 20 20 20 20 3A |..:. 700,27 :|
00000790: 8F 20 4C 45 46 54 20 4D 41 52 47 49 4E 00 BC 0F |. LEFT MARGIN...|
000007A0: E5 01 3A 97 20 37 30 31 2C 39 20 20 20 20 20 3A |..:. 701,9 :|
000007B0: 8F 20 42 41 52 20 4C 45 4E 47 48 54 00 DE 0F EA |. BAR LENGHT....|
000007C0: 01 3A 81 20 49 B2 30 20 A4 20 31 37 20 20 3A 8F |.:. I.0 . 17 :.|
000007D0: 20 49 4E 53 54 41 4C 20 56 41 4C 55 45 53 00 F4 | INSTAL VALUES..|
000007E0: 0F EF 01 3A 20 20 20 20 97 37 30 32 AA 49 2C 4D |...: .702.I,M|
000007F0: 32 28 49 29 00 FD 0F F4 01 3A 82 20 49 00 03 10 |2(I).....:. I...|
00000800: F9 01 3A 00 26 10 FE 01 3A 9E 20 35 32 39 38 35 |..:.&...:. 52985|
00000810: 20 20 20 20 20 20 3A 8F 20 53 54 41 52 54 20 50 | :. START P|
00000820: 52 4F 4D 50 54 53 00 39 10 03 02 3A 8B 20 C2 28 |ROMPTS.9...:. .(|
00000830: 32 29 B2 31 37 20 A7 20 8E 00 3F 10 08 02 3A 00 |2).17 . ..?...:.|
00000840: 53 10 0D 02 3A 97 20 35 33 32 38 31 2C C2 28 32 |S...:. 53281,.(2|
00000850: 29 AB 31 00 5E 10 12 02 3A 89 20 34 37 30 00 64 |).1.^...:. 470.d|
00000860: 10 17 02 3A 00 6A 10 1C 02 3A 00 70 10 21 02 3A |...:.j...:.p.!.:|
00000870: 00 7A 10 26 02 3A 99 22 93 22 00 89 10 2B 02 3A |.z.&.:."."...+.:|
00000880: 9F 31 2C 38 2C 30 3A A0 31 00 B4 10 30 02 3A 8B |.1,8,0:.1...0.:.|
00000890: 20 53 54 B2 AB 31 32 38 20 A7 20 99 22 44 52 49 | ST..128 . ."DRI|
000008A0: 56 45 20 4F 46 46 20 4C 49 4E 45 20 21 22 3A 89 |VE OFF LINE !":.|
000008B0: 20 36 35 30 00 C1 10 35 02 3A 5A 24 B2 C7 28 30 | 650...5.:Z$..(0|
000008C0: 29 00 D1 10 3A 02 3A 9F 31 2C 38 2C 30 2C 22 24 |)...:.:.1,8,0,"$|
000008D0: 22 00 DB 10 3F 02 3A 4B B2 32 35 00 EA 10 44 02 |"...?.:K.25...D.|
000008E0: 3A A1 23 31 2C 41 24 2C 41 24 00 F8 10 49 02 3A |:.#1,A$,A$...I.:|
000008F0: 81 49 B2 30 20 A4 20 39 00 11 11 4E 02 3A 20 20 |.I.0 . 9...N.: |
00000900: 20 20 A1 23 31 2C 41 24 2C 41 24 2C 41 24 2C 42 | .#1,A$,A$,A$,B|
00000910: 24 00 1F 11 53 02 3A 20 20 20 20 49 B2 53 54 00 |$...S.: I.ST.|
00000920: 40 11 58 02 3A 20 20 20 20 99 C6 28 41 24 AA 5A |@.X.: ..(A$.Z|
00000930: 24 29 AA C6 28 42 24 AA 5A 24 29 AC 32 35 36 3B |$)..(B$.Z$).256;|
00000940: 00 52 11 5D 02 3A 20 20 20 20 81 4A B2 30 20 A4 |.R.].: .J.0 .|
00000950: 20 4B 00 66 11 62 02 3A 20 20 20 20 20 20 20 20 | K.f.b.: |
00000960: A1 23 31 2C 41 24 00 78 11 67 02 3A 20 20 20 20 |.#1,A$.x.g.: |
00000970: 20 20 20 20 99 41 24 3B 00 85 11 6C 02 3A 20 20 | .A$;...l.: |
00000980: 20 20 82 20 4A 00 93 11 71 02 3A 20 20 20 20 4B | . J...q.: K|
00000990: B2 32 37 00 9E 11 76 02 3A 20 20 20 20 99 00 AC |.27...v.: ...|
000009A0: 11 7B 02 3A 20 20 20 20 49 B2 53 54 00 B5 11 80 |.{.: I.ST....|
000009B0: 02 3A 82 20 49 00 BD 11 85 02 3A A0 31 00 DC 11 |.:. I.....:.1...|
000009C0: 8A 02 3A 97 20 37 30 30 2C 30 20 20 20 20 3A 8F |..:. 700,0 :.|
000009D0: 20 4C 45 46 54 20 4D 41 52 47 49 4E 00 FA 11 8F | LEFT MARGIN....|
000009E0: 02 3A 97 20 37 30 31 2C 34 30 20 20 20 3A 8F 20 |.:. 701,40 :. |
000009F0: 42 41 52 20 4C 45 4E 47 48 54 00 15 12 94 02 3A |BAR LENGHT.....:|
00000A00: 97 20 37 30 32 2C 32 34 20 20 20 3A 8F 20 4C 49 |. 702,24 :. LI|
00000A10: 4E 45 20 32 34 00 2C 12 99 02 3A 97 20 37 30 33 |NE 24.,...:. 703|
00000A20: 2C 32 35 35 20 20 3A 8F 20 45 4E 44 00 4A 12 9E |,255 :. END.J..|
00000A30: 02 3A 97 20 32 31 31 2C 30 20 20 20 20 3A 8F 20 |.:. 211,0 :. |
00000A40: 53 45 54 20 43 55 52 53 4F 52 00 58 12 A3 02 3A |SET CURSOR.X...:|
00000A50: 97 20 32 31 34 2C 32 34 00 65 12 A8 02 3A 9E 20 |. 214,24.e...:. |
00000A60: 35 38 37 33 32 00 8E 12 AD 02 3A 99 22 50 52 45 |58732.....:."PRE|
00000A70: 53 53 20 52 45 54 55 52 4E 20 54 4F 20 47 4F 20 |SS RETURN TO GO |
00000A80: 42 41 43 4B 20 54 4F 20 4D 45 4E 55 22 3B 00 9A |BACK TO MENU";..|
00000A90: 12 B2 02 3A 9E 35 32 39 38 35 00 A0 12 B7 02 3A |...:.52985.....:|
00000AA0: 00 AE 12 BC 02 3A 97 20 37 30 30 2C 31 35 00 BC |.....:. 700,15..|
00000AB0: 12 C1 02 3A 97 20 37 30 31 2C 31 30 00 CB 12 C6 |...:. 701,10....|
00000AC0: 02 3A 81 20 49 B2 4F 20 A4 20 34 00 E2 12 CB 02 |.:. I.O . 4.....|
00000AD0: 3A 20 20 20 20 97 20 37 30 32 AA 49 2C 4D 31 28 |: . 702.I,M1(|
00000AE0: 49 29 00 EB 12 D0 02 3A 82 20 49 00 F2 12 D5 02 |I).....:. I.....|
00000AF0: 3A 8E 00 F8 12 DA 02 3A 00 FF 12 DF 02 3A 80 00 |:......:.....:..|
00000B00: 05 13 E4 02 3A 00 1C 13 E9 02 3A 81 20 49 B2 35 |....:.....:. I.5|
00000B10: 32 39 38 35 20 A4 20 35 33 32 31 36 00 29 13 EE |2985 . 53216.)..|
00000B20: 02 3A 20 20 20 20 87 20 41 00 38 13 F3 02 3A 20 |.: . A.8...: |
00000B30: 20 20 20 97 20 49 2C 41 00 4B 13 F4 02 3A 20 20 | . I,A.K...: |
00000B40: 20 20 97 20 35 33 32 38 30 2C 41 00 54 13 F8 02 | . 53280,A.T...|
00000B50: 3A 82 20 49 00 5B 13 FD 02 3A 8E 00 61 13 02 03 |:. I.[...:..a...|
00000B60: 3A 00 73 13 07 03 3A 8B 20 43 48 B2 31 20 A7 20 |:.s...:. CH.1 . |
00000B70: 43 B2 32 00 86 13 0C 03 3A 8B 20 43 48 B2 32 20 |C.2.....:. CH.2 |
00000B80: A7 20 43 B2 32 36 00 8F 13 11 03 3A 4C B2 33 00 |. C.26.....:L.3.|
00000B90: A9 13 16 03 3A 97 32 31 31 2C 43 3A 97 32 31 34 |....:.211,C:.214|
00000BA0: 2C 4C 3A 9E 35 38 37 33 32 00 BD 13 1B 03 3A 99 |,L:.58732.....:.|
00000BB0: 22 D5 C0 C0 C0 C0 C0 C0 C0 C0 C0 C9 22 00 CD 13 |"..........."...|
00000BC0: 20 03 3A 81 20 49 B2 30 20 A4 20 31 35 00 E7 13 | .:. I.0 . 15...|
00000BD0: 25 03 3A 20 20 20 20 99 A6 43 29 22 DD 12 43 4F |%.: ..C)"..CO|
00000BE0: 4C 4F 55 52 20 22 3B 00 03 14 2A 03 3A 20 20 20 |LOUR ";...*.: |
00000BF0: 20 8B 20 49 B3 31 30 20 A7 20 99 C4 28 49 29 22 | . I.10 . ..(I)"|
00000C00: 92 DD 22 00 24 14 2F 03 3A 20 20 20 20 8B 20 49 |..".$./.: . I|
00000C10: B1 39 20 20 A7 20 99 C9 28 C4 28 49 29 2C 32 29 |.9 . ..(.(I),2)|
00000C20: 22 92 DD 22 00 2D 14 34 03 3A 82 20 49 00 46 14 |"..".-.4.:. I.F.|
00000C30: 39 03 3A 99 A6 43 29 22 DD 12 45 58 49 54 20 20 |9.:..C)"..EXIT |
00000C40: 20 20 20 92 DD 22 00 5D 14 3E 03 3A 99 A6 43 29 | ..".].>.:..C)|
00000C50: 22 CA C0 C0 C0 C0 C0 C0 C0 C0 C0 CB 22 00 64 14 |"...........".d.|
00000C60: 43 03 3A 8E 00 6A 14 48 03 3A 00 8F 14 4D 03 83 |C.:..j.H.:...M..|
00000C70: 31 36 39 2C 30 33 39 2C 32 30 35 2C 31 38 38 2C |169,039,205,188,|
00000C80: 30 30 32 2C 31 37 36 2C 30 30 33 2C 30 37 36 00 |002,176,003,076.|
00000C90: B4 14 52 03 83 30 37 32 2C 31 37 38 2C 31 37 33 |..R..072,178,173|
00000CA0: 2C 31 38 39 2C 30 30 32 2C 32 34 30 2C 32 34 38 |,189,002,240,248|
00000CB0: 2C 30 32 34 00 D9 14 57 03 83 31 30 39 2C 31 38 |,024...W..109,18|
00000CC0: 38 2C 30 30 32 2C 31 33 33 2C 30 30 32 2C 31 36 |8,002,133,002,16|
00000CD0: 39 2C 30 34 30 2C 31 39 37 00 FE 14 5C 03 83 30 |9,040,197...\..0|
00000CE0: 30 32 2C 31 34 34 2C 32 33 36 2C 31 36 39 2C 31 |02,144,236,169,1|
00000CF0: 39 30 2C 31 33 33 2C 32 35 33 2C 31 36 30 00 23 |90,133,253,160.#|
00000D00: 15 61 03 83 30 30 32 2C 31 33 32 2C 32 35 34 2C |.a..002,132,254,|
00000D10: 31 33 36 2C 31 33 36 2C 31 37 37 2C 32 35 33 2C |136,136,177,253,|
00000D20: 31 33 33 00 44 15 66 03 83 30 30 32 2C 31 36 39 |133.D.f..002,169|
00000D30: 2C 30 32 34 2C 31 39 37 2C 30 30 32 2C 31 34 34 |,024,197,002,144|
00000D40: 2C 32 31 36 00 69 15 6B 03 83 32 34 30 2C 30 32 |,216.i.k..240,02|
00000D50: 33 2C 32 30 30 2C 31 39 32 2C 30 32 35 2C 32 34 |3,200,192,025,24|
00000D60: 30 2C 30 31 39 2C 31 37 37 00 8E 15 70 03 83 32 |0,019,177...p..2|
00000D70: 35 33 2C 32 30 31 2C 32 35 35 2C 32 34 30 2C 30 |53,201,255,240,0|
00000D80: 31 37 2C 31 37 30 2C 31 36 35 2C 30 30 32 00 B3 |17,170,165,002..|
00000D90: 15 75 03 83 31 33 34 2C 30 30 32 2C 31 39 37 2C |.u..134,002,197,|
00000DA0: 30 30 32 2C 31 34 34 2C 32 33 36 2C 30 37 36 2C |002,144,236,076,|
00000DB0: 30 37 32 00 D8 15 7A 03 83 31 37 38 2C 32 30 30 |072...z..178,200|
00000DC0: 2C 31 36 39 2C 32 35 35 2C 31 34 35 2C 32 35 33 |,169,255,145,253|
00000DD0: 2C 30 34 31 2C 30 30 30 00 E5 15 7F 03 83 31 33 |,041,000......13|
00000DE0: 33 2C 30 30 32 00 0A 16 84 03 83 31 36 30 2C 30 |3,002......160,0|
00000DF0: 30 30 2C 31 37 37 2C 32 35 33 2C 32 30 30 2C 32 |00,177,253,200,2|
00000E00: 30 31 2C 32 35 35 2C 32 30 38 00 23 16 89 03 83 |01,255,208.#....|
00000E10: 32 34 39 2C 31 33 36 2C 31 34 30 2C 31 38 37 2C |249,136,140,187,|
00000E20: 30 30 32 00 48 16 8E 03 83 31 36 30 2C 30 30 30 |002.H....160,000|
00000E30: 2C 31 34 30 2C 31 38 36 2C 30 30 32 2C 31 37 37 |,140,186,002,177|
00000E40: 2C 32 35 33 2C 31 34 31 00 6D 16 93 03 83 31 38 |,253,141.m....18|
00000E50: 35 2C 30 30 32 2C 30 33 32 2C 31 38 36 2C 32 30 |5,002,032,186,20|
00000E60: 37 2C 31 37 33 2C 31 38 38 2C 30 30 32 00 92 16 |7,173,188,002...|
00000E70: 98 03 83 30 32 34 2C 31 30 31 2C 32 35 31 2C 31 |...024,101,251,1|
00000E80: 34 34 2C 30 30 32 2C 32 33 30 2C 32 35 32 2C 31 |44,002,230,252,1|
00000E90: 33 33 00 A7 16 9D 03 83 32 35 31 2C 30 33 32 2C |33......251,032,|
00000EA0: 32 31 30 2C 32 30 37 00 CC 16 A2 03 83 30 33 32 |210,207......032|
00000EB0: 2C 32 32 38 2C 32 35 35 2C 31 39 37 2C 30 30 32 |,228,255,197,002|
00000EC0: 2C 32 34 30 2C 32 34 39 2C 31 33 33 00 F1 16 A7 |,240,249,133....|
00000ED0: 03 83 30 30 32 2C 32 30 31 2C 30 31 37 2C 32 34 |..002,201,017,24|
00000EE0: 30 2C 30 33 38 2C 32 30 31 2C 31 34 35 2C 32 34 |0,038,201,145,24|
00000EF0: 30 00 0A 17 AC 03 83 30 31 31 2C 32 30 31 2C 30 |0......011,201,0|
00000F00: 31 33 2C 32 30 38 2C 32 33 35 00 2B 17 B1 03 83 |13,208,235.+....|
00000F10: 31 37 32 2C 31 38 36 2C 30 30 32 2C 32 30 30 2C |172,186,002,200,|
00000F20: 31 33 32 2C 30 30 32 2C 30 39 36 00 50 17 B6 03 |132,002,096.P...|
00000F30: 83 30 33 32 2C 32 31 30 2C 32 30 37 2C 31 37 32 |.032,210,207,172|
00000F40: 2C 31 38 36 2C 30 30 32 2C 32 30 38 2C 30 30 36 |,186,002,208,006|
00000F50: 00 75 17 BB 03 83 31 37 32 2C 31 38 37 2C 30 30 |.u....172,187,00|
00000F60: 32 2C 31 34 30 2C 31 38 36 2C 30 30 32 2C 32 30 |2,140,186,002,20|
00000F70: 36 2C 31 38 36 00 96 17 C0 03 83 30 30 32 2C 31 |6,186......002,1|
00000F80: 37 32 2C 31 38 36 2C 30 30 32 2C 30 37 36 2C 30 |72,186,002,076,0|
00000F90: 39 32 2C 32 30 37 00 BB 17 C5 03 83 30 33 32 2C |92,207......032,|
00000FA0: 32 31 30 2C 32 30 37 2C 31 37 32 2C 31 38 36 2C |210,207,172,186,|
00000FB0: 30 30 32 2C 32 30 30 2C 32 30 34 00 E0 17 CA 03 |002,200,204.....|
00000FC0: 83 31 38 37 2C 30 30 32 2C 32 30 38 2C 30 30 32 |.187,002,208,002|
00000FD0: 2C 31 36 30 2C 30 30 30 2C 31 34 30 2C 31 38 36 |,160,000,140,186|
00000FE0: 00 F5 17 CF 03 83 30 30 32 2C 30 37 36 2C 30 39 |......002,076,09|
00000FF0: 32 2C 32 30 37 00 1A 18 D4 03 83 31 36 39 2C 30 |2,207......169,0|
00001000: 30 30 2C 31 37 30 2C 31 36 30 2C 30 30 34 2C 32 |00,170,160,004,2|
00001010: 33 36 2C 31 38 35 2C 30 30 32 00 3F 18 D9 03 83 |36,185,002.?....|
00001020: 32 34 30 2C 30 30 39 2C 32 33 32 2C 30 32 34 2C |240,009,232,024,|
00001030: 31 30 35 2C 30 34 30 2C 31 34 34 2C 32 34 35 00 |105,040,144,245.|
00001040: 64 18 DE 03 83 32 30 30 2C 32 30 38 2C 32 34 32 |d....200,208,242|
00001050: 2C 31 33 33 2C 32 35 31 2C 31 33 32 2C 32 35 32 |,133,251,132,252|
00001060: 2C 30 39 36 00 89 18 E3 03 83 31 36 30 2C 30 30 |,096......160,00|
00001070: 30 2C 31 37 37 2C 32 35 31 2C 30 37 33 2C 31 32 |0,177,251,073,12|
00001080: 38 2C 31 34 35 2C 32 35 31 00 AA 18 E8 03 83 32 |8,145,251......2|
00001090: 30 30 2C 32 30 34 2C 31 38 39 2C 30 30 32 2C 32 |00,204,189,002,2|
000010A0: 30 38 2C 32 34 34 2C 30 39 36 00 00 00 |08,244,096... |
..%.D.. *****************************.I.
I.. * *.M.N..
* BAR PROMPTS *...S.. *
*...X.. * (C)
1989 P. BASTINGS *.Y.}.. *
*...... * POKE 700,LEF
T MARGIN *.!.... * POKE 701,BAR LEN
GHT *.E.... * POKE 702,LINE NUMBER
X *.I.... * POKE 703,LINE NUMBER Y
*...... * POKE 7..,LINE NUMBER Z *...
... * POKE 7..,255 END *.U. ..
* *...... *
SYS 52985 START *...... * PEEK
(2)=CHOICE NUMBER *.A.... *
*.E.... * IF ERROR IN
PARAMETERS *...... * THEN 'ILLEGAL QU
ANTITY *...... * ERROR IN LINE ..'
*.Q.C.. *
*...H.. *****************************...
M.:...R.:.745 :. INSTAL CODE.7.W.:.
53280,11 :. SET BORDER.Y...:. 53281,11
:. SET BACKGROUND._...:.....:. M1(4)
:. ARRAY MENU 1.....:M1(0).3 :. L
INE NUMBER.....:M1(1).4.....:M1(2).5.I..
.:M1(3).6.....:M1(4).255 :. END OF B
ARS.....:.....:. M2(17) :. ARRAY MENU
2."...:. I.0 . 16.E...: M2(I).I.4 :.
LINE NUMBERS.N...:. I.P...:M2(I).255
:. END OF BARS.V.".:...'.:. 700,15 :
. LEFT MARGIN...,.:. 701,10 :. BAR LEN
GHT.T.1.:. I.0 . 4 :. INSTAL VALUES...6
.: . 702.I,M1(I)...;.:. I...@.:...E.:
.".".12)"BAR-PROMPTS DEMO.".4.J.:..14)"U
..........I".M.O.:..14)".BORDER .".F.
T.:..14)".BACKGROUND."..Y.:..14)".DIREC
TORY ."...^.:..14)".EXIT DEMO ."...C.:..
14)"J..........K"...H.:.W.M.:..90)"USE C
RSR UP OR DOWN"...R.:..49)"PRESS RETURN
TO SELECT"...W.:.!.|.:.52985 :. STAR
T PROMPTS.>...:. B(2). 400,470,550,735.I
...:. 295.O...:.M...:CH.1:. 775:. DRAW M
ENU 2.S...:.....:. 700,3 :. LEFT MAR
GIN.....:. 701,9 :. BAR LENGHT.T...:
. I.0 . 17 :. INSTAL VALUES.....: .7
02.I,M2(I).....:. I.....:.....:. 52985
:. START PROMPTS./...:. B(2).17 . ..
5.B.:.I.G.:. 53280,B(2).1.S.L.:.400.Y.Q.
:.W.V.:CH.2:. 775:. DRAW MENU 2.}...:...
..:. 700,27 :. LEFT MARGIN.....:. 701
,9 :. BAR LENGHT.....:. I.0 . 17 :.
INSTAL VALUES.....: .702.I,M2(I)....
.:. I.....:.&...:. 52985 :. START P
ROMPTS.9...:. B(2).17 . ..?...:.S...:. 5
3281,B(2).1.^...:. 470.D...:.J...:.P.!.:
.Z.&.:."."...+.:.1,8,0: 1...0.:. ST..128
. ."DRIVE OFF LINE !":. 650.A.5.:Z$.G(0
).Q.:.:.1,8,0,"$"...?.:K.25...D.:.#1,A$,
A$...I.:.I.0 . 9...N.: .#1,A$,A$,A$,B
$...S.: I.ST.@.X.: .F(A$.Z$).F(B$.
Z$).256;.R.].: .J.0 . K.F.B.:
.#1,A$.X.G.: .A$;...L.: . J...
Q.: K.27...V.: ....{.: I.ST....
.:. I.....: 1.....:. 700,0 :. LEFT MA
RGIN.....:. 701,40 :. BAR LENGHT.....:
. 702,24 :. LINE 24.,...:. 703,255 :.
END.J...:. 211,0 :. SET CURSOR.X...:
. 214,24.E...:. 58732.....:."PRESS RETUR
N TO GO BACK TO MENU";.....:.52985. ...:
.....:. 700,15...A.:. 701,10.K.F.:. I.O
. 4...K.: . 702.I,M1(I)...P.:. I...U.
:....Z.:.....:......:.....:. I.52985 . 5
3216.)...: . A.8...: . I,A.K...:
. 53280,A.T...:. I.[...:..A...:.S...:.
CH.1 . C.2.....:. CH.2 . C.26.....:L.3.
....:.211,C:.214,L:.58732.....:."U......
...I".M. .:. I.0 . 15...%.: ..C)"..CO
LOUR ";...*.: . I.10 . .D(I)"..".$./.
: . I.9 . .I(D(I),2)"..".-.4.:. I.F.
9.:..C)"..EXIT ..".].>.:..C)"J......
...K".D.C.:..J.H.:...M..169,039,205,188,
002,176,003,076...R..072,178,173,189,002
,240,248,024.Y.W..109,188,002,133,002,16
9,040,197...\..002,144,236,169,190,133,2
53,160.#.A..002,132,254,136,136,177,253,
133.D.F..002,169,024,197,002,144,216.I.K
..240,023,200,192,025,240,019,177...P..2
53,201,255,240,017,170,165,002...U..134,
002,197,002,144,236,076,072.X.Z..178,200
,169,255,145,253,041,000.....133,002...
...160,000,177,253,200,201,255,208.#....
249,136,140,187,002.H....160,000,140,186
,002,177,253,141.M....185,002,032,186,20
7,173,188,002......024,101,251,144,002,2
30,252,133......251,032,210,207.L....032
,228,255,197,002,240,249,133......002,20
1,017,240,038,201,145,240......011,201,0
13,208,235.+....172,186,002,200,132,002,
096.P....032,210,207,172,186,002,208,006
.U....172,187,002,140,186,002,206,186...
...002,172,186,002,076,092,207...E..032,
210,207,172,186,002,200,204...J..187,002
,208,002,160,000,140,186...O..002,076,09
2,207...T..169,000,170,160,004,236,185,0
02.?.Y..240,009,232,024,105,040,144,245.
D....200,208,242,133,251,132,252,096....
..160,000,177,251,073,128,145,251......2
00,204,189,002,208,244,096...
> CLICK IMAGE PREVIEW FOR FULL MODAL