Classic Computer Magazine Archive COMPUTE! ISSUE 47 / APRIL 1984 / PAGE 108

Extra Functions For SuperBASIC 64

The "SuperBASIC 64" program (COMPUTE!, December 1983) is very interesting and helpful. One of its good features is the clarity with which it is laid out. This makes it easy to write and test modifications.

Two sample modifications are given below. To use them, simply LOAD and RUN SuperBASIC 64, then enter and RUN the modification as a normal BASIC program.

The first program creates a new function, [SCRN. [SCRN sets the background, border, and text colors in one operation. For example, [SCRN12,11,1 sets up a light gray background, dark gray border, and white letters.

1 REM CREATE [SCRN FUNCTION
10 FORI=0TO9:READA:POKE52168+I,A:NEXT
20 DATA32,57,195,32,66,195,32,218,197,96
30 FORJ=0TO5:READA:POKE49892+J,A:NEXT
40 DATA83,67,82,78,199,203

The second program modifies the [DRAW command, allowing it to either draw or erase lines. In its new version, [DRAW must be followed by either 1 or 0. [DRAWl,xl,yl,x2,y2 will draw a line from xl,yl to x2,y2. [DRAW0,xl,yl,x2,y2 will erase the line between those coordinates.

1 REM MODIFY [DRAW TO ALLOW ERASURE10 FORI=0TO32:READA:P0KE52128+I,A:NEXT
20 DATA32,0,192,165,20,141,174,203, 32
30 DATA0,192,76,101, 199,0,32,14,198,174
40 DATA174,203,240,3,76,132,200,73,255
50 DATA49,251,76,134,200
60 J=51042sK=51329
70 POKEJ, 76:POKEJ+1,160:POKEJ+2, 203
80 POKEK,76:POKEK+1,175:POKEK+2, 203

Charles Tyson