// Creacion del loader.bas


// FUNCSIONAAAAAAAAAAAAAAAAAAAAAAAAAA
10 mode 0
20 BORDER 0
30 INK 0, 23
40 INK 1, 20
50 INK 2, 26
60 INK 3, 0
70 INK 4, 3
80 INK 5, 15
90 INK 6, 6
100 INK 7, 13
110 INK 8, 24
120 load "!portada.src"
130 run "!pancho.bin"

10 mode 0
20 load "!portada.src"
30 run "!prueba.bin"

-- save "loader.bas" // En CPC


alias idsk=${CPCT_PATH}/tools/iDSK-0.13/bin/iDSK

idsk pancho.dsk -l
idsk pancho.dsk -g loader.bas

alias tocdt=${CPCT_PATH}/tools/2cdt/bin/2cdt

tocdt -n -r LOADER.BAS loader.bas panchito.cdt
tocdt -r PORTADA.SRC -L 0xC000 portada.src panchito.cdt
tocdt -r PANCHO.BIN -L 0x0100 -X 0x7877 obj/pancho.bin panchito.cdt


// 0x0100 DONDE EMPIEZA EL PROGRAMA 0x63DC DONDE SE EJECUTA MAIN

|tape
run"