DL_RedMoon_1.bas

10 REM DL Red Moon - Level 9 Computing 1985

20 POKE 106,PEEK(106)-16 : GRAPHICS 0 : RAMTOP=PEEK(106) : REM rezervovanie pamate 8kb (16*256)
30 SAVMSC=PEEK(88)+PEEK(89)*256 : REM odloz adresu aktualnej VRAM
40 SAVMSC = SAVMSC + 10*40 : REM posun grafickej pamate o 10 riadkov
50 ADRDL=1536 : DLLENGTH=119 : REM adresa noveho DL $600=1536 a jeho dlzka

60 FOR I=0 TO DLLENGTH-1 : REM nacitaj data DL na adresu ADRDL
61   READ A
62   IF A>-1 THEN POKE ADRDL+I,A 
63 NEXT I 

64 POKE ADRDL+2,0 : POKE ADRDL+3,RAMTOP : REM adresa grafickej pamate
65 POKE ADRDL+101,(SAVMSC-INT(SAVMSC/256)*256) : POKE ADRDL+102,INT(SAVMSC/256) : REM adresa pamate spodneho okna
66 POKE ADRDL+DLLENGTH-2,(ADRDL-INT(ADRDL/256)*256) : POKE ADRDL+DLLENGTH-1,INT(ADRDL/256) : REM startovna adresa samotneho DL

100 POKE 560,(ADRDL-INT(ADRDL/256)*256) : POKE 561,INT(ADRDL/256) : REM zapni DL

1000 DATA 112,78,-1,-1,14,14,14,14,14,14,14,14,14,14,14,14
1010 DATA 14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14
1020 DATA 14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14
1030 DATA 14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14
1040 DATA 14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14
1050 DATA 14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14
1060 DATA 14,14,14,142,66,-1,-1,2,2,2,2,2,2,2,2,2
1070 DATA 2,2,2,130,65,-1,-1

2229 POKE 712,96 : POKE 708,116 : POKE 709,120 : POKE 710,36 : POKE 82,0 : REM nastav farby a okraj

2230 SIZE=3840 : OPEN #1,4,0,"H:def.MIC"
2240   FOR I=0 TO SIZE-1 : GET #1,P : POKE (RAMTOP*256)+I,P : NEXT I: REM Atari Basic
2240   BGET #1,(RAMTOP*256),SIZE : REM Turbo Basic
2290 CLOSE #1
2300 L.