MENU.BOOT.MAKER

00000000: 01 1C 24 1C 0A 00 8F 20  53 41 56 45 20 22 40 30  |..$.... SAVE "@0|
00000010: 3A 4D 45 4E 55 2E 42 4F  4F 54 2E 4D 41 4B 45 52  |:MENU.BOOT.MAKER|
00000020: 22 2C 30 38 00 2A 1C 14  00 3A 00 47 1C 1E 00 85  |",08.*...:.G....|
00000030: 22 93 42 4F 4F 54 20 44  45 56 49 43 45 20 4E 55  |".BOOT DEVICE NU|
00000040: 4D 42 45 52 22 3B 55 00  73 1C 28 00 9F 20 31 35  |MBER";U.s.(.. 15|
00000050: 2C 55 2C 31 35 3A A0 31  35 3A 45 4E B2 C2 28 31  |,U,15:.15:EN..(1|
00000060: 34 34 29 3A 8B 20 45 4E  20 B1 B2 31 32 38 20 A7  |44):. EN ..128 .|
00000070: 20 33 30 00 92 1C 32 00  9F 20 31 35 2C 55 2C 31  | 30...2.. 15,U,1|
00000080: 35 3A 84 31 35 2C 45 4E  2C 45 4D 24 2C 45 54 2C  |5:.15,EN,EM$,ET,|
00000090: 45 53 00 98 1C 3C 00 3A  00 BD 1C 46 00 98 31 35  |ES...<.:...F..15|
000000A0: 2C 22 42 2D 41 22 3B 30  3B 31 3B 30 3A 84 31 35  |,"B-A";0;1;0:.15|
000000B0: 2C 45 4E 2C 45 4D 24 2C  45 54 2C 45 53 00 D0 1C  |,EN,EM$,ET,ES...|
000000C0: 50 00 8B 20 45 4E 20 B2  20 30 20 A7 20 31 32 30  |P.. EN . 0 . 120|
000000D0: 00 00 1D 5A 00 85 22 53  45 43 54 4F 52 20 49 53  |...Z.."SECTOR IS|
000000E0: 20 41 4C 52 45 41 44 59  20 41 4C 4C 4F 43 41 54  | ALREADY ALLOCAT|
000000F0: 45 44 2C 20 43 4F 4E 54  49 4E 55 45 22 3B 59 24  |ED, CONTINUE";Y$|
00000100: 00 1B 1D 64 00 8B 20 C8  28 59 24 2C 31 29 20 B3  |...d.. .(Y$,1) .|
00000110: B1 20 22 59 22 20 A7 20  36 30 30 00 21 1D 6E 00  |. "Y" . 600.!.n.|
00000120: 3A 00 42 1D 78 00 9F 20  38 2C 55 2C 38 2C 22 23  |:.B.x.. 8,U,8,"#|
00000130: 22 3A 98 31 35 2C 22 55  31 22 3B 38 3B 30 3B 31  |":.15,"U1";8;0;1|
00000140: 3B 30 00 54 1D 82 00 81  20 58 20 B2 20 30 20 A4  |;0.T.... X . 0 .|
00000150: 20 32 35 35 00 75 1D 8C  00 3A 20 A1 23 38 2C 41  | 255.u...: .#8,A|
00000160: 24 3A 8B 20 41 24 20 B2  20 22 22 20 A7 20 41 24  |$:. A$ . "" . A$|
00000170: B2 C7 28 30 29 00 8A 1D  96 00 3A 20 97 20 32 38  |..(0).....: . 28|
00000180: 31 36 AA 58 2C C6 28 41  24 29 00 92 1D A0 00 82  |16.X,.(A$)......|
00000190: 20 58 00 98 1D AA 00 3A  00 CE 1D B4 00 81 20 58  | X.....:...... X|
000001A0: 20 B2 20 30 20 A4 20 32  3A 8B 20 C2 28 32 38 31  | . 0 . 2:. .(281|
000001B0: 36 AA 58 29 20 B2 20 C6  28 CA 28 22 43 42 4D 22  |6.X) . .(.("CBM"|
000001C0: 2C 58 AA 31 2C 31 29 29  20 A7 20 82 20 58 00 E1  |,X.1,1)) . . X..|
000001D0: 1D BE 00 8B 20 58 20 B3  B1 20 33 20 A7 20 32 35  |.... X .. 3 . 25|
000001E0: 30 00 0B 1E C8 00 99 22  11 54 48 49 53 20 44 49  |0......".THIS DI|
000001F0: 53 4B 20 49 53 20 41 4C  52 45 41 44 59 20 41 20  |SK IS ALREADY A |
00000200: 42 4F 4F 54 20 44 49 53  4B 2C 22 00 2E 1E D2 00  |BOOT DISK,".....|
00000210: 85 20 22 44 4F 20 59 4F  55 20 57 41 4E 54 20 54  |. "DO YOU WANT T|
00000220: 4F 20 43 4F 4E 54 49 4E  55 45 22 3B 59 24 00 49  |O CONTINUE";Y$.I|
00000230: 1E DC 00 8B 20 C8 28 59  24 2C 31 29 20 B3 B1 20  |.... .(Y$,1) .. |
00000240: 22 59 22 20 A7 20 36 30  30 00 4F 1E E6 00 3A 00  |"Y" . 600.O...:.|
00000250: 6C 1E F0 00 8F 20 42 55  49 4C 44 20 54 48 45 20  |l.... BUILD THE |
00000260: 4D 4C 20 43 4F 44 45 20  48 45 52 45 00 9B 1E FA  |ML CODE HERE....|
00000270: 00 81 20 58 20 B2 20 30  20 A4 20 31 32 37 3A 87  |.. X . 0 . 127:.|
00000280: 20 44 3A 97 20 32 38 31  36 AA 58 2C 44 3A 82 20  | D:. 2816.X,D:. |
00000290: 58 3A 8F 20 4D 4C 20 43  4F 44 45 00 A1 1E 04 01  |X:. ML CODE.....|
000002A0: 3A 00 DC 1E 0E 01 8F 20  42 55 49 4C 44 20 54 48  |:...... BUILD TH|
000002B0: 45 20 46 49 52 53 54 20  42 41 53 49 43 20 43 4F  |E FIRST BASIC CO|
000002C0: 4D 4D 41 4E 44 20 4C 49  4E 45 2C 20 49 46 20 4E  |MMAND LINE, IF N|
000002D0: 45 45 44 45 44 2C 20 48  45 52 45 2E 00 15 1F 18  |EEDED, HERE.....|
000002E0: 01 8F 20 55 53 55 41 4C  4C 59 20 53 4F 4D 45 54  |.. USUALLY SOMET|
000002F0: 48 49 4E 47 20 4C 49 4B  45 20 41 20 43 48 41 4E  |HING LIKE A CHAN|
00000300: 47 45 20 50 41 52 54 49  54 49 4F 4E 20 43 4F 4D  |GE PARTITION COM|
00000310: 4D 41 4E 44 2C 00 57 1F  22 01 8F 20 53 4F 20 59  |MAND,.W.".. SO Y|
00000320: 4F 55 20 43 41 4E 20 48  41 56 45 20 54 48 45 20  |OU CAN HAVE THE |
00000330: 4D 45 4E 55 2E 42 41 53  20 41 4E 44 20 4D 45 4E  |MENU.BAS AND MEN|
00000340: 55 2E 4D 4C 20 49 4E 20  41 20 53 55 42 44 49 52  |U.ML IN A SUBDIR|
00000350: 45 43 54 4F 52 59 2C 00  8B 1F 2C 01 8F 20 41 53  |ECTORY,...,.. AS|
00000360: 20 49 4E 20 43 31 24 20  3D 20 43 48 52 24 28 31  | IN C1$ = CHR$(1|
00000370: 34 37 29 2B 22 40 43 44  2F 2F 57 48 41 54 45 56  |47)+"@CD//WHATEV|
00000380: 45 52 22 2B 43 48 52 24  28 30 29 00 CE 1F 36 01  |ER"+CHR$(0)...6.|
00000390: 8F 20 49 46 20 54 48 49  53 20 43 4F 4D 4D 41 4E  |. IF THIS COMMAN|
000003A0: 44 20 4C 49 4E 45 20 49  53 20 55 53 45 44 2C 20  |D LINE IS USED, |
000003B0: 49 54 20 4D 55 53 54 20  53 54 41 52 54 20 57 49  |IT MUST START WI|
000003C0: 54 48 20 41 20 43 48 52  24 28 31 34 37 29 00 0A  |TH A CHR$(147)..|
000003D0: 20 40 01 8F 20 43 31 24  20 4D 55 53 54 20 41 4C  | @.. C1$ MUST AL|
000003E0: 57 41 59 53 20 45 4E 44  20 57 49 54 48 20 43 48  |WAYS END WITH CH|
000003F0: 52 24 28 30 29 20 45 56  45 4E 20 49 46 20 49 54  |R$(0) EVEN IF IT|
00000400: 20 49 53 20 45 4D 50 54  59 21 00 10 20 4A 01 3A  | IS EMPTY!.. J.:|
00000410: 00 1D 20 54 01 43 31 24  B2 C7 28 30 29 00 4C 20  |.. T.C1$..(0).L |
00000420: 5E 01 8B 20 C3 28 43 31  24 29 20 B1 20 33 39 20  |^.. .(C1$) . 39 |
00000430: A7 20 99 22 11 43 31 24  20 49 53 20 54 4F 4F 20  |. .".C1$ IS TOO |
00000440: 4C 4F 4E 47 21 22 3A 89  20 36 30 30 00 8A 20 68  |LONG!":. 600.. h|
00000450: 01 81 20 59 20 B2 20 31  20 A4 20 C3 28 43 31 24  |.. Y . 1 . .(C1$|
00000460: 29 3A 97 20 32 38 31 36  AA 58 AA 59 AB 31 2C C6  |):. 2816.X.Y.1,.|
00000470: 28 CA 28 43 31 24 2C 59  2C 31 29 29 3A 82 20 59  |(.(C1$,Y,1)):. Y|
00000480: 3A 8F 20 43 4F 4D 4D 41  4E 44 00 BD 20 72 01 59  |:. COMMAND.. r.Y|
00000490: B2 59 AB 31 AA 58 3A 81  20 58 B2 59 20 A4 20 31  |.Y.1.X:. X.Y . 1|
000004A0: 39 31 3A 97 20 32 38 31  36 AA 58 2C 30 3A 82 20  |91:. 2816.X,0:. |
000004B0: 58 3A 8F 20 5A 45 52 4F  20 46 49 4C 4C 00 C3 20  |X:. ZERO FILL.. |
000004C0: 7C 01 3A 00 F3 20 86 01  8F 20 42 55 49 4C 44 20  ||.:.. ... BUILD |
000004D0: 54 48 45 20 53 45 43 4F  4E 44 20 42 41 53 49 43  |THE SECOND BASIC|
000004E0: 20 43 4F 4D 4D 41 4E 44  20 4C 49 4E 45 20 48 45  | COMMAND LINE HE|
000004F0: 52 45 2E 00 2A 21 90 01  8F 20 54 48 49 53 20 4C  |RE..*!... THIS L|
00000500: 49 4E 45 20 49 53 20 41  4C 57 41 59 53 20 55 53  |INE IS ALWAYS US|
00000510: 45 44 20 41 4E 44 20 43  41 4E 20 54 41 4B 45 20  |ED AND CAN TAKE |
00000520: 54 57 4F 20 46 4F 52 4D  53 2E 00 61 21 9A 01 8F  |TWO FORMS..a!...|
00000530: 20 54 48 45 20 46 49 52  53 54 20 46 4F 52 4D 20  | THE FIRST FORM |
00000540: 49 53 20 49 46 20 54 48  45 20 46 49 52 53 54 20  |IS IF THE FIRST |
00000550: 4C 49 4E 45 20 49 53 20  4E 4F 54 20 55 53 45 44  |LINE IS NOT USED|
00000560: 2C 00 A2 21 A4 01 8F 20  41 4E 44 20 54 48 49 53  |,..!... AND THIS|
00000570: 20 42 45 43 4F 4D 45 53  20 54 48 45 20 4F 4E 4C  | BECOMES THE ONL|
00000580: 59 20 4C 49 4E 45 2C 20  54 48 45 4E 20 49 54 20  |Y LINE, THEN IT |
00000590: 46 4F 4C 4C 4F 57 53 20  54 48 49 53 20 46 4F 52  |FOLLOWS THIS FOR|
000005A0: 4D 3A 00 F2 21 AE 01 8F  20 43 32 24 3D 43 48 52  |M:..!... C2$=CHR|
000005B0: 24 28 31 34 37 29 2B 22  52 55 4E 20 22 2B 43 48  |$(147)+"RUN "+CH|
000005C0: 52 24 28 33 34 29 2B 22  4D 45 4E 55 2E 42 41 53  |R$(34)+"MENU.BAS|
000005D0: 22 2B 43 48 52 24 28 33  34 29 2B 22 2C 55 28 50  |"+CHR$(34)+",U(P|
000005E0: 45 45 4B 28 31 38 36 29  29 22 2B 43 48 52 24 28  |EEK(186))"+CHR$(|
000005F0: 30 29 00 3E 22 B8 01 8F  20 54 48 45 20 53 45 43  |0).>"... THE SEC|
00000600: 4F 4E 44 20 46 4F 52 4D  20 49 53 20 49 46 20 54  |OND FORM IS IF T|
00000610: 48 45 20 46 49 52 53 54  20 43 4F 4D 4D 41 4E 44  |HE FIRST COMMAND|
00000620: 20 4C 49 4E 45 20 49 53  20 55 53 45 44 20 41 4E  | LINE IS USED AN|
00000630: 44 20 54 48 49 53 20 42  45 43 4F 4D 45 53 00 62  |D THIS BECOMES.b|
00000640: 22 C2 01 8F 20 54 48 45  20 53 45 43 4F 4E 44 20  |"... THE SECOND |
00000650: 4C 49 4E 45 2C 20 49 4E  20 54 48 45 20 46 4F 52  |LINE, IN THE FOR|
00000660: 4D 3A 00 CC 22 CC 01 8F  20 43 32 24 3D 43 48 52  |M:.."... C2$=CHR|
00000670: 24 28 31 39 29 2B 43 48  52 24 28 31 37 29 2B 43  |$(19)+CHR$(17)+C|
00000680: 48 52 24 28 31 37 29 2B  43 48 52 24 28 31 37 29  |HR$(17)+CHR$(17)|
00000690: 2B 22 52 55 4E 20 22 2B  43 48 52 24 28 33 34 29  |+"RUN "+CHR$(34)|
000006A0: 2B 22 4D 45 4E 55 2E 42  41 53 22 2B 43 48 52 24  |+"MENU.BAS"+CHR$|
000006B0: 28 33 34 29 2B 22 2C 55  28 50 45 45 4B 28 31 38  |(34)+",U(PEEK(18|
000006C0: 36 29 29 22 2B 43 48 52  24 28 30 29 00 D2 22 D6  |6))"+CHR$(0)..".|
000006D0: 01 3A 00 14 23 E0 01 43  32 24 B2 C7 28 31 34 37  |.:..#..C2$..(147|
000006E0: 29 AA 22 52 55 4E 20 22  AA C7 28 33 34 29 AA 22  |)."RUN "..(34)."|
000006F0: 4D 45 4E 55 2E 42 41 53  22 AA C7 28 33 34 29 AA  |MENU.BAS"..(34).|
00000700: 22 2C 55 28 50 45 45 4B  28 31 38 36 29 29 22 AA  |",U(PEEK(186))".|
00000710: C7 28 30 29 00 43 23 EA  01 8B 20 C3 28 43 32 24  |.(0).C#... .(C2$|
00000720: 29 20 B1 20 33 39 20 A7  20 99 22 11 43 32 24 20  |) . 39 . .".C2$ |
00000730: 49 53 20 54 4F 4F 20 4C  4F 4E 47 21 22 3A 89 20  |IS TOO LONG!":. |
00000740: 36 30 30 00 81 23 F4 01  81 20 59 20 B2 20 31 20  |600..#... Y . 1 |
00000750: A4 20 C3 28 43 32 24 29  3A 97 20 32 38 31 36 AA  |. .(C2$):. 2816.|
00000760: 58 AA 59 AB 31 2C C6 28  CA 28 43 32 24 2C 59 2C  |X.Y.1,.(.(C2$,Y,|
00000770: 31 29 29 3A 82 20 59 3A  8F 20 43 4F 4D 4D 41 4E  |1)):. Y:. COMMAN|
00000780: 44 00 B4 23 FE 01 59 B2  59 AB 31 AA 58 3A 81 20  |D..#..Y.Y.1.X:. |
00000790: 58 B2 59 20 A4 20 32 35  35 3A 97 20 32 38 31 36  |X.Y . 255:. 2816|
000007A0: AA 58 2C 30 3A 82 20 58  3A 8F 20 5A 45 52 4F 20  |.X,0:. X:. ZERO |
000007B0: 46 49 4C 4C 00 BA 23 08  02 3A 00 CC 23 12 02 98  |FILL..#..:..#...|
000007C0: 31 35 2C 22 42 2D 50 22  3B 38 3B 30 00 DE 23 1C  |15,"B-P";8;0..#.|
000007D0: 02 81 20 58 20 B2 20 30  20 A4 20 32 35 35 00 F6  |.. X . 0 . 255..|
000007E0: 23 26 02 3A 20 41 24 20  B2 20 C7 28 C2 28 32 38  |#&.: A$ . .(.(28|
000007F0: 31 36 AA 58 29 29 00 03  24 30 02 3A 20 98 38 2C  |16.X))..$0.: .8,|
00000800: 41 24 3B 00 0B 24 3A 02  82 20 58 00 20 24 44 02  |A$;..$:.. X. $D.|
00000810: 98 31 35 2C 22 55 32 22  3B 38 3B 30 3B 31 3B 30  |.15,"U2";8;0;1;0|
00000820: 00 26 24 4E 02 3A 00 31  24 58 02 A0 38 3A A0 31  |.&$N.:.1$X..8:.1|
00000830: 35 00 37 24 62 02 80 00  3D 24 6C 02 3A 00 6F 24  |5.7$b...=$l.:.o$|
00000840: 76 02 83 20 36 37 2C 36  36 2C 37 37 2C 30 2C 30  |v.. 67,66,77,0,0|
00000850: 2C 30 2C 30 2C 36 39 2C  39 30 2C 33 32 2C 37 36  |,0,0,69,90,32,76|
00000860: 2C 37 39 2C 36 35 2C 36  38 2C 36 39 2C 38 32 00  |,79,65,68,69,82.|
00000870: A7 24 80 02 83 20 30 2C  30 2C 31 36 30 2C 30 2C  |.$... 0,0,160,0,|
00000880: 31 34 30 2C 30 2C 32 35  35 2C 31 36 32 2C 30 2C  |140,0,255,162,0,|
00000890: 31 36 39 2C 31 39 2C 31  35 37 2C 37 34 2C 33 2C  |169,19,157,74,3,|
000008A0: 32 33 32 2C 31 38 35 00  E6 24 8A 02 83 20 31 32  |232,185..$... 12|
000008B0: 38 2C 31 31 2C 32 34 30  2C 31 39 2C 31 38 35 2C  |8,11,240,19,185,|
000008C0: 31 32 38 2C 31 31 2C 32  34 30 2C 38 2C 33 32 2C  |128,11,240,8,32,|
000008D0: 32 31 30 2C 32 35 35 2C  32 30 30 2C 31 39 32 2C  |210,255,200,192,|
000008E0: 36 33 2C 31 34 34 00 24  25 94 02 83 20 32 34 33  |63,144.$%... 243|
000008F0: 2C 31 36 39 2C 31 33 2C  31 35 37 2C 37 34 2C 33  |,169,13,157,74,3|
00000900: 2C 32 33 32 2C 31 36 30  2C 30 2C 31 38 35 2C 31  |,232,160,0,185,1|
00000910: 39 32 2C 31 31 2C 32 34  30 2C 31 39 2C 31 38 35  |92,11,240,19,185|
00000920: 2C 31 39 32 00 61 25 9E  02 83 20 31 31 2C 32 34  |,192.a%... 11,24|
00000930: 30 2C 38 2C 33 32 2C 32  31 30 2C 32 35 35 2C 32  |0,8,32,210,255,2|
00000940: 30 30 2C 31 39 32 2C 36  33 2C 31 34 34 2C 32 34  |00,192,63,144,24|
00000950: 33 2C 31 36 39 2C 31 33  2C 31 35 37 2C 37 34 2C  |3,169,13,157,74,|
00000960: 33 00 8E 25 A8 02 83 20  32 33 32 2C 31 33 34 2C  |3..%... 232,134,|
00000970: 32 30 38 2C 39 36 2C 30  2C 30 2C 30 2C 30 2C 30  |208,96,0,0,0,0,0|
00000980: 2C 30 2C 30 2C 30 2C 30  2C 30 2C 30 2C 30 00 B4  |,0,0,0,0,0,0,0..|
00000990: 25 B2 02 83 20 30 2C 30  2C 30 2C 30 2C 30 2C 30  |%... 0,0,0,0,0,0|
000009A0: 2C 30 2C 30 2C 30 2C 30  2C 30 2C 30 2C 30 2C 30  |,0,0,0,0,0,0,0,0|
000009B0: 2C 30 2C 30 00 DA 25 BC  02 83 20 30 2C 30 2C 30  |,0,0..%... 0,0,0|
000009C0: 2C 30 2C 30 2C 30 2C 30  2C 30 2C 30 2C 30 2C 30  |,0,0,0,0,0,0,0,0|
000009D0: 2C 30 2C 30 2C 30 2C 30  2C 30 00 00 00           |,0,0,0,0,0...   |

..$.... SAVE "@0:MENU.BOOT.MAKER",08.*..
.:.G....".BOOT DEVICE NUMBER";U.S.(.. 15
,U,15: 15:EN.B(144):. EN ..128 . 30...2.
. 15,U,15:.15,EN,EM$,ET,ES...<.:...F..15
,"B-A";0;1;0:.15,EN,EM$,ET,ES.P.P.. EN .
 0 . 120...Z.."SECTOR IS ALREADY ALLOCAT
ED, CONTINUE";Y$...D.. H(Y$,1) .. "Y" . 
600.!.N.:.B.X.. 8,U,8,"#":.15,"U1";8;0;1
;0.T.... X . 0 . 255.U...: .#8,A$:. A$ .
 "" . A$.G(0).....: . 2816.X,F(A$)... ..
 X.....:.N.... X . 0 . 2:. B(2816.X) . F
(J("CBM",X.1,1)) . . X...... X .. 3 . 25
0...H..".THIS DISK IS ALREADY A BOOT DIS
K,"...R.. "DO YOU WANT TO CONTINUE";Y$.I
.... H(Y$,1) .. "Y" . 600.O...:.L.... BU
ILD THE ML CODE HERE...... X . 0 . 127:.
 D:. 2816.X,D:. X:. ML CODE.....:...... 
BUILD THE FIRST BASIC COMMAND LINE, IF N
EEDED, HERE....... USUALLY SOMETHING LIK
E A CHANGE PARTITION COMMAND,.W.".. SO Y
OU CAN HAVE THE MENU.BAS AND MENU.ML IN 
A SUBDIRECTORY,...,.. AS IN C1$ = CHR$(1
47)+"@CD//WHATEVER"+CHR$(0).N.6.. IF THI
S COMMAND LINE IS USED, IT MUST START WI
TH A CHR$(147).. @.. C1$ MUST ALWAYS END
 WITH CHR$(0) EVEN IF IT IS EMPTY!.. J.:
.. T.C1$.G(0).L ^.. C(C1$) . 39 . .".C1$
 IS TOO LONG!":. 600.. H.. Y . 1 . C(C1$
):. 2816.X.Y.1,F(J(C1$,Y,1)):. Y:. COMMA
ND.. R.Y.Y.1.X:. X.Y . 191:. 2816.X,0:. 
X:. ZERO FILL.C |.:.. ... BUILD THE SECO
ND BASIC COMMAND LINE HERE..*!... THIS L
INE IS ALWAYS USED AND CAN TAKE TWO FORM
S..A!... THE FIRST FORM IS IF THE FIRST 
LINE IS NOT USED,..!... AND THIS BECOMES
 THE ONLY LINE, THEN IT FOLLOWS THIS FOR
M:..!... C2$=CHR$(147)+"RUN "+CHR$(34)+"
MENU.BAS"+CHR$(34)+",U(PEEK(186))"+CHR$(
0).>"... THE SECOND FORM IS IF THE FIRST
 COMMAND LINE IS USED AND THIS BECOMES.B
"B.. THE SECOND LINE, IN THE FORM:.L"L..
 C2$=CHR$(19)+CHR$(17)+CHR$(17)+CHR$(17)
+"RUN "+CHR$(34)+"MENU.BAS"+CHR$(34)+",U
(PEEK(186))"+CHR$(0).R"V.:..#..C2$.G(147
)."RUN ".G(34)."MENU.BAS".G(34).",U(PEEK
(186))".G(0).C#... C(C2$) . 39 . .".C2$ 
IS TOO LONG!":. 600..#... Y . 1 . C(C2$)
:. 2816.X.Y.1,F(J(C2$,Y,1)):. Y:. COMMAN
D..#..Y.Y.1.X:. X.Y . 255:. 2816.X,0:. X
:. ZERO FILL..#..:.L#...15,"B-P";8;0..#.
.. X . 0 . 255..#&.: A$ . G(B(2816.X))..
$0.: .8,A$;..$:.. X. $D..15,"U2";8;0;1;0
.&$N.:.1$X. 8: 15.7$B...=$L.:.O$V.. 67,6
6,77,0,0,0,0,69,90,32,76,79,65,68,69,82.
.$... 0,0,160,0,140,0,255,162,0,169,19,1
57,74,3,232,185..$... 128,11,240,19,185,
128,11,240,8,32,210,255,200,192,63,144.$
%... 243,169,13,157,74,3,232,160,0,185,1
92,11,240,19,185,192.A%... 11,240,8,32,2
10,255,200,192,63,144,243,169,13,157,74,
3..%... 232,134,208,96,0,0,0,0,0,0,0,0,0
,0,0,0..%... 0,0,0,0,0,0,0,0,0,0,0,0,0,0
,0,0.Z%... 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
,0...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL