Otherwise I get "internal error 189" when I attempt to compile it.
What am I doing wrong?
Code: Select all
REM Dice
REM single dice, shown for 3 seconds.
REM display one digit on *front* face
VDU 23,22,320;256;32,64,16,128
REM half-size (mode 8) screen. 4x character size. black text on white b/g
IF INKEY$(-256) = "W" THEN
REM BB4W-specific code goes here, for example:
SYS "SetWindowText", @hwnd%, "Dice"
ELSE
REM BBCSDL-specific code goes here, for example:
SYS "SDL_SetWindowTitle", @hwnd%, "Dice", @memhdc%
ENDIF
ORIGIN 100, 100
PROCdraw_cube(200, 200, 200)
spot% = RND(6)
VDU 5
MOVE -505, 160
PRINT spot%
GCOL 15
REM set foreground colour to white so that the cursor is invisible
WAIT 300
QUIT
DEF PROCdraw_cube(x, y, z)
MOVE 0, 0 : MOVE 0, y
GCOL 1 : PLOT 117, x, y
GCOL 2 : PLOT 117, x + z * 0.4, y + z * 0.4
GCOL 4 : PLOT 117, x + z * 0.4, z * 0.4
ENDPROC