[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: How to load DHR graphics from BASIC?



nparker@inferno.uoregon.edu (Neil Parker) wrote:

>Something like this:
>
>5 REM This requires a 128K machine!  It will CRASH an original II or II+!
>10 D$ = CHR$ (4)
>20  POKE 768,56: POKE 769,76: POKE 770,17: POKE 771,195: REM SEC; JMP $C311
>30  PRINT D$"PR#3": PRINT  CHR$ (12): REM DHR requires 80 cols
>40  PRINT D$"BLOAD PIC,T8,A8192,L8192": REM Load aux bank half
>50  POKE 60,0: POKE 61,32: POKE 62,255: POKE 63,63: POKE 66,0: POKE 67,32:
>    REM Set up for auxmove
>60  CALL 768: REM Move data to aux bank
>70  PRINT D$"BLOAD PIC,T8,A8192,L8192,B8192": REM Load main bank half
>80  POKE 49246,0: POKE 49239,0: POKE 49234,0: POKE 49232,0: REM Show it!

Thanks Neil, this was exactly what I was looking for.  ;-)