DL_RychleSipyZahadaHlavolamu_1.bas

10 REM DL Rychle Sipy Zahada Hlavolamu - Jaroslav Bubenik & Petr Svoboda & Frantisek Houra 2012

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 + 5*40 : REM posun grafickej pamate o 5 riadkov
50 ADRDL=1536 : DLLENGTH=98 : 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+75,(SAVMSC-INT(SAVMSC/256)*256) : POKE ADRDL+76,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 48,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,80,66,-1,-1,2,2,2
1050 DATA 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,65
1060 DATA -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=3200 : 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.