NextBasic and Copper...

[funkheld]

Hi good afternoon.
I once used the copper in nextbasic.
a great thing.

greeting

Code: Select all

10 RUN AT 3
12 layer 0
14 LOAD "c:\\tape\\bild.scr" layer
16 pause 0
20 layer 2,1
25 reg 20,1
30 LOAD "c:\\tape\\xxtestbild.bmp" layer
50 for %a=0 to 255
60  PROC copper()
70  pause 1
80  next %a
90 for %a=255 to 0 step -1
100  PROC copper()
110 pause 1
120  next %a
1000 goto 50
1010 DEFPROC copper()
1020 REG 98,0  : REG 97,0
1030 REG 96,22 : REG 96,0
1040 REG 96,128: REG 96,60
1050 REG 96,22 : REG 96,%a
1058 REG 96,128 : REG 96,140
1059 REG 96,22 : REG 96,0
1060 REG 96,129: REG 96,128
1070 REG 97,0
1080 REG 98,%@11000000
1090 endproc

[Jbizzel]

thanks for this example, I'm going to try it out on my Next

[funkheld]

the bmp is converted , corresponds to the SL2
the scr ist with multipaint.exe

make tap:
zmakebas.exe
zmakebas -a 10 -o main.tap -n ''nextdemo'' main.bas

[funkheld]

here are also my other little NextBasic programs copper usw. on page 1 and page 2

Under "autofahrer"
https://forum.tlienhard.com/phpBB3/viewtopic.php?t=3472

greeting