The Batch Part

'oh 'm in Basic !
'what can I do ? 
'oh yes - look on the disk ...
cat
?"Start formating ..."
|dir,"format"

'Was just a joke. Haha

?"Press a key";:call &bb18
cls
'at first I clear the memory ...

new

'now I can write a program ...

10 REM MyDemo Second Part
20 rem Marco Vieth, 1.3.1991
30 rem
40 clear:defint a-z
50 mode 1
60 load"!MYDEMOPR.BIN",&a000
70 run"!MYDEMOSO.BAS"
80 end

100 ?"Press a key...":call &bb18:return
gosub 100


cls
run

?"I continue with the batch ..."
?

?"Press a key...":call &bb18

new
cls
'now the demo starts ...

10 REM MyDemo Part 3
20 rem Marco Vieth, 1.3.1991
30 rem
40 mode 1
50 CALL &a000
60 |BSPEED,0
70 ?"Isn't this great ???"

call &bb18

run

'Writing the Raster is the main
'part, continue with basic is
'only a process !!
|BSPEED,150
Why it is so silent?

|BSPEED,20:'oh yes
call &bea0

'turn on the tune and listen !!

call &bb18
ink 0,0:border 0:mode 0
?"Speed of Raster:";
input s
10
call &a006,s
'right?
|bspeed,10
call &a006,s-7
call &a003,&40,3,2
call &bb18
cls
call &a006,1

?"Heeeeeeeey"

50
call &bb18

mode 2
call &a003,&20,4,1
'&a003=set raster mode
'&20=number of lines for rasterbar (min.24)
'4=number of interrupts for the process (basic), over rasterbar
'1=number of interrupts to complete 6

'
call &a003,&40,3,3

call &bb18:cls
60 RUN"!MYDEMOPR.BAS"
now you can experiment with it.

'you can start with 'run'

key 0,"call &a003,&bf,1,0"+chr$(13)
'press key f0 when ready ...
end
