AUTO MENU3-40/80

00000000: 01 1C 54 1C 01 00 EB 3A  99 22 93 22 A3 31 34 29  |..T....:.".".14)|
00000010: 22 4D 45 4E 55 20 4D 41  4B 45 52 11 22 3A 99 A3  |"MENU MAKER.":..|
00000020: 38 29 22 11 11 11 46 4F  52 4D 41 54 20 41 20 4E  |8)"...FORMAT A N|
00000030: 45 57 20 44 49 53 4B 3F  20 28 59 2F 4E 29 3F 22  |EW DISK? (Y/N)?"|
00000040: 3A A1 F9 41 4E 53 24 3A  8B 41 4E 53 24 B3 B1 22  |:..ANS$:.ANS$.."|
00000050: 59 22 A7 36 00 80 1C 02  00 85 22 4E 41 4D 45 20  |Y".6......"NAME |
00000060: 4F 46 20 44 49 53 4B 22  3B 4E 41 4D 45 24 3A 85  |OF DISK";NAME$:.|
00000070: 22 49 44 20 4F 46 20 44  49 53 4B 22 3B 49 44 24  |"ID OF DISK";ID$|
00000080: 00 F2 1C 03 00 99 22 93  11 11 11 11 20 12 31 92  |......"..... .1.|
00000090: 20 53 49 4E 47 4C 45 20  53 49 44 45 44 22 3A 99  | SINGLE SIDED":.|
000000A0: 22 20 12 32 92 20 44 4F  55 42 4C 45 20 53 49 44  |" .2. DOUBLE SID|
000000B0: 45 44 22 3A 99 22 20 11  20 20 45 4E 54 45 52 20  |ED":." .  ENTER |
000000C0: 28 31 2D 32 29 22 3A A1  F9 43 48 24 3A 43 48 B2  |(1-2)":..CH$:CH.|
000000D0: C5 28 43 48 24 29 3A 8B  43 48 B2 31 A7 9F 31 2C  |.(CH$):.CH.1..1,|
000000E0: 38 2C 31 35 2C 22 55 30  3E 4D 30 22 3A A0 31 3A  |8,15,"U0>M0":.1:|
000000F0: 89 35 00 16 1D 04 00 8B  43 48 B2 32 A7 9F 31 2C  |.5......CH.2..1,|
00000100: 38 2C 31 35 2C 22 55 30  3E 4D 31 22 3A A0 31 3A  |8,15,"U0>M1":.1:|
00000110: 89 35 3A D5 89 33 00 3B  1D 05 00 9F 31 35 2C 38  |.5:..3.;....15,8|
00000120: 2C 31 35 2C 22 4E 30 3A  22 AA 4E 41 4D 45 24 AA  |,15,"N0:".NAME$.|
00000130: 22 2C 22 AA 49 44 24 3A  A0 31 35 00 7D 1D 06 00  |",".ID$:.15.}...|
00000140: 9F 31 35 2C 38 2C 31 35  2C 22 49 4A 22 3A 4E 55  |.15,8,15,"IJ":NU|
00000150: 24 B2 C7 28 30 29 3A 8B  44 53 A7 99 22 44 49 53  |$..(0):.DS.."DIS|
00000160: 4B 20 45 52 52 4F 52 3A  20 22 3B 44 53 24 3A 41  |K ERROR: ";DS$:A|
00000170: 24 B2 44 53 24 3A 45 B2  AB 31 3A 89 39 00 3A 1E  |$.DS$:E..1:.9.:.|
00000180: 07 00 9F 38 2C 38 2C 38  2C 22 23 22 3A 98 31 35  |...8,8,8,"#":.15|
00000190: 2C 22 55 31 3A 38 20 30  20 31 38 20 30 22 3A 98  |,"U1:8 0 18 0":.|
000001A0: 31 35 2C 22 42 2D 50 22  3B 38 3B 35 3A 46 24 B2  |15,"B-P";8;5:F$.|
000001B0: 22 4D 45 4E 55 22 3A 52  4D 24 B2 22 52 55 4E 22  |"MENU":RM$."RUN"|
000001C0: 3A 41 41 B2 C3 28 46 24  29 AA D1 28 22 42 30 30  |:AA..(F$)..("B00|
000001D0: 22 29 AA 31 35 3A 41 4C  B2 41 41 AF 32 35 35 3A  |").15:AL.AA.255:|
000001E0: 41 48 B2 41 41 AD 32 35  36 3A 98 31 35 2C 22 42  |AH.AA.256:.15,"B|
000001F0: 2D 50 20 38 20 30 22 3A  98 38 2C 22 43 42 4D 22  |-P 8 0":.8,"CBM"|
00000200: 3B 4E 55 24 3B 4E 55 24  3B 4E 55 24 3B 4E 55 24  |;NU$;NU$;NU$;NU$|
00000210: 3B 46 24 3B 4E 55 24 3B  4E 55 24 3B 3A 98 38 2C  |;F$;NU$;NU$;:.8,|
00000220: C7 28 31 36 32 29 3B C7  28 41 4C 29 3B C7 28 31  |.(162);.(AL);.(1|
00000230: 36 30 29 3B C7 28 41 48  29 3B 00 9F 1E 08 00 98  |60);.(AH);......|
00000240: 38 2C C7 28 37 36 29 3B  C7 28 D1 28 22 41 35 22  |8,.(76);.(.("A5"|
00000250: 29 29 3B C7 28 D1 28 22  41 46 22 29 29 3B 3A 98  |));.(.("AF"));:.|
00000260: 38 2C 52 4D 24 3B C7 28  33 34 29 3B 46 24 3B 4E  |8,RM$;.(34);F$;N|
00000270: 55 24 3A 98 31 35 2C 22  55 32 3A 38 20 30 20 31  |U$:.15,"U2:8 0 1|
00000280: 20 30 22 3A 8B 42 41 B2  30 A7 98 31 35 2C 22 42  | 0":.BA.0..15,"B|
00000290: 2D 41 20 30 20 31 20 30  22 3A 41 24 B2 22 22 00  |-A 0 1 0":A$."".|
000002A0: B4 1E 09 00 A0 38 3A A0  31 35 3A 8B 41 24 B3 B1  |.....8:.15:.A$..|
000002B0: 22 22 A7 80 00 0B 1F 0A  00 FE 10 22 4D 45 4E 55  |""........."MENU|
000002C0: 22 2C 50 37 39 34 39 A4  50 38 34 35 32 3A 85 22  |",P7949.P8452:."|
000002D0: 41 4E 4F 54 48 45 52 20  44 49 53 4B 3F 20 59 9D  |ANOTHER DISK? Y.|
000002E0: 9D 9D 22 3B 54 24 3A EC  FC 54 24 B3 B1 22 59 22  |..";T$:..T$.."Y"|
000002F0: 3A 80 3A 20 20 20 20 20  20 20 20 20 20 20 42 59  |:.:           BY|
00000300: 20 47 45 B0 47 45 20 4C  41 4E 45 00 00 00 3D 1C  | GE.GE LANE...=.|
00000310: 01 00 E7 30 2C 31 3A E7  34 2C 37 3A 9C 3A 99 A3  |...0,1:.4,7:.:..|
00000320: 31 32 29 22 93 11 44 49  53 4B 20 44 49 52 45 43  |12)"..DISK DIREC|
00000330: 54 4F 52 59 22 3A 86 50  24 28 31 34 34 29 3A 9F  |TORY":.P$(144):.|
00000340: 31 2C 38 2C 30 2C 22 24  22 00 66 1C 02 00 A1 23  |1,8,0,"$".f....#|
00000350: 31 2C 42 24 3A 8B 53 54  B3 B1 30 A7 36 3A D5 8B  |1,B$:.ST..0.6:..|
00000360: 42 24 B3 B1 C7 28 33 34  29 A7 32 3A D5 50 24 B2  |B$...(34).2:.P$.|
00000370: 22 22 00 88 1C 03 00 A1  23 31 2C 42 24 3A 8B 42  |""......#1,B$:.B|
00000380: 24 B3 B1 C7 28 33 34 29  A7 50 24 B2 50 24 AA 42  |$...(34).P$.P$.B|
00000390: 24 3A 89 33 00 A9 1C 04  00 A1 23 31 2C 42 24 3A  |$:.3......#1,B$:|
000003A0: 8B 42 24 B2 C7 28 33 32  29 A7 34 3A D5 50 24 28  |.B$..(32).4:.P$(|
000003B0: 58 29 B2 50 24 00 CE 1C  05 00 A1 23 31 2C 42 24  |X).P$......#1,B$|
000003C0: 3A 8B 42 24 B3 B1 22 22  A7 35 3A D5 8B 53 54 B2  |:.B$.."".5:..ST.|
000003D0: 30 A7 58 B2 58 AA 31 3A  89 32 00 DA 1C 06 00 A0  |0.X.X.1:.2......|
000003E0: 31 3A 4E B2 32 30 00 0F  1D 07 00 99 22 93 1C 22  |1:N.20......".."|
000003F0: 3A 99 22 20 20 20 20 22  3B 50 24 28 30 29 3B 22  |:."    ";P$(0);"|
00000400: 1F 22 3A 8B 4E B3 32 30  A7 4E B2 32 30 3A D5 8B  |.":.N.20.N.20:..|
00000410: 4E B1 31 34 34 A7 4E B2  31 34 34 00 2B 1D 08 00  |N.144.N.144.+...|
00000420: 81 4A B2 28 4E AB 31 39  29 A4 4E 3A 8B 4A B3 31  |.J.(N.19).N:.J.1|
00000430: 30 A7 99 22 20 22 3B 00  97 1D 09 00 99 22 1C 22  |0.." ";......"."|
00000440: 4A 22 1F 3D 20 22 3B 50  24 28 4A 29 3A 82 4A 3A  |J".= ";P$(J):.J:|
00000450: 99 22 11 54 59 50 45 20  27 1C 23 1F 27 20 46 4F  |.".TYPE '.#.' FO|
00000460: 52 20 43 48 4F 49 43 45  22 3A 99 22 1C 4E 1F 3D  |R CHOICE":.".N.=|
00000470: 20 4E 45 58 54 20 1C 4C  1F 3D 20 4C 41 53 54 20  | NEXT .L.= LAST |
00000480: 1C 45 1F 3D 20 45 4E 44  22 3B 3A 85 22 22 3B 5A  |.E.= END";:."";Z|
00000490: 24 3A 8B 5A 24 B2 22 4E  22 A7 4E B2 4E AA 32 30  |$:.Z$."N".N.N.20|
000004A0: 3A 89 37 00 F6 1D 0A 00  8B 5A 24 B2 22 4C 22 A7  |:.7......Z$."L".|
000004B0: 4E B2 4E AB 32 30 3A 89  37 3A D5 8B 5A 24 B2 22  |N.N.20:.7:..Z$."|
000004C0: 45 22 A7 80 3A D5 8B C5  28 5A 24 29 B1 31 B0 C5  |E"..:...(Z$).1..|
000004D0: 28 5A 24 29 B3 31 34 34  A7 5A B2 C5 28 5A 24 29  |(Z$).144.Z..(Z$)|
000004E0: 3A 8B 5A B2 30 89 37 3A  D5 8B 5A B1 58 AB 31 89  |:.Z.0.7:..Z.X.1.|
000004F0: 37 3A D5 8A 28 50 24 28  5A 29 29 3A 47 20 4C 41  |7:..(P$(Z)):G LA|
00000500: 4E 45 00 00 00                                    |NE...           |

..T....:.".".14)"MENU MAKER.":..8)"...FO
RMAT A NEW DISK? (Y/N)?":..ANS$:.ANS$.."
Y".6......"NAME OF DISK";NAME$:."ID OF D
ISK";ID$......"..... .1. SINGLE SIDED":.
" .2. DOUBLE SIDED":." .  ENTER (1-2)":.
.CH$:CH.E(CH$):.CH.1..1,8,15,"U0>M0": 1:
.5......CH.2..1,8,15,"U0>M1": 1:.5:U.3.;
....15,8,15,"N0:".NAME$.",".ID$: 15.}...
.15,8,15,"IJ":NU$.G(0):.DS.."DISK ERROR:
 ";DS$:A$.DS$:E..1:.9.:....8,8,8,"#":.15
,"U1:8 0 18 0":.15,"B-P";8;5:F$."MENU":R
M$."RUN":AA.C(F$).Q("B00").15:AL.AA.255:
AH.AA.256:.15,"B-P 8 0":.8,"CBM";NU$;NU$
;NU$;NU$;F$;NU$;NU$;:.8,G(162);G(AL);G(1
60);G(AH);......8,G(76);G(Q("A5"));G(Q("
AF"));:.8,RM$;G(34);F$;NU$:.15,"U2:8 0 1
 0":.BA.0..15,"B-A 0 1 0":A$.""..... 8: 
15:.A$..""........."MENU",P7949.P8452:."
ANOTHER DISK? Y...";T$:..T$.."Y":.:     
      BY GE.GE LANE...=....0,1:.4,7:.:..
12)"..DISK DIRECTORY":.P$(144):.1,8,0,"$
".F....#1,B$:.ST..0.6:U.B$..G(34).2:UP$.
""......#1,B$:.B$..G(34).P$.P$.B$:.3....
..#1,B$:.B$.G(32).4:UP$(X).P$.N....#1,B$
:.B$.."".5:U.ST.0.X.X.1:.2.Z... 1:N.20..
...."..":."    ";P$(0);".":.N.20.N.20:U.
N.144.N.144.+....J.(N.19).N:.J.10.." ";.
....."."J".= ";P$(J):.J:.".TYPE '.#.' FO
R CHOICE":.".N.= NEXT .L.= LAST .E.= END
";:."";Z$:.Z$."N".N.N.20:.7......Z$."L".
N.N.20:.7:U.Z$."E"..:U.E(Z$).1.E(Z$).144
.Z.E(Z$):.Z.0.7:U.Z.X.1.7:U.(P$(Z)):G LA
NE...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL