Also: This does not put a menu of programs on the datapack. You will have to write a note reminding you what game is in which slot.
3 rem Multi cart copy program 5 himem:3099 10 data 1,0,4,17,0,0,33,40,160,62,13,211,127,26,50,253,124 20 data 62,1,211,127,58,253,124,119,35,19,11,120,177,194,33,121,201 30 poke 102,237: poke 103,69: REM Disable Interrupt Routine 40 for x = 31000 to 31033: read d: poke x,d: NEXT: rem read cart 50 data 62,8,1,0,0,17,0,0,33,40,160,205,246,252,201 60 for x = 40100 to 40114:read d: poke x,d: next: REM Write tape 70 ? "Insert slave tape into drive #1 and check cart in slot" 72 ?:? 73 INPUT "Input Number of Cart (1-7)"; n 75 REM write 32K of cart to tape 77 ?:? "REMEMBER: Keep your OWN list of carts on this tape"; 78 ?"Because carts are not listed in the directory." 80 for i = 1 to 80 83 poke 31005, i*4+128: poke 40106, i+(n-1)*32+2 90 call 31000: call 40100: next i 100 rem Machine language routine for block 0 110 poke 40106,0 120 data 243,49,0,72,33,0,8,62,2,205,41,253,33,0,0,62,3,205,41,253,33,0,32,62,4 130 data 205,41,253,205,56,253,62,240,33,0,32,17,32,0,205,38,253,1,224,1 140 data 205,32,253,1,31,24,33,0,8,17,3,3,205,54,252,24,7,67,65,82,84,32 150 data 35,63,6,7,33,62,200,126,205,57,252,35,16,249,217,17,0,2,33,11 155 data 33,192,254,17,0,73,1,63,1,237,176,33,0,73,205,123,252,17,0,2,33,11,7,200 160 data 1,63,0,237,176,195,0,2,205,108,252,205,57,252,214,48,71,33,226,255 170 data 17,32,0,25,16,253,235,6,2,197,33,0,3,1,0,0,62,8,205,243,252,1,0,4,9 180 data 19,124,254,67,32,238,217,33,0,3,1,0,64,237,176,217,193,16,221,62,3,211,127,195,0 200 for x =41000 to 41179 210 read d: poke x,d: next: call 40100 250 ?: ?: "Copy #"; n; " is complete":end
WHEW! I typed this all in by meself back in the day, and I can verify that it DOES work. It's taken from the HAcker's Guide to ADAM volume 1. The book has other goodie programs, as well as a complete set of schematics for he ADAM.













