Sorry your browser is not supported!

Code snippets are useful for big programs!

rem setup...

rem main loop...

rem END
END

rem subroutines

rem functions...

`------simple music function----

rem setup screen
set display mode 1024,768,16
sync on:sync rate 60

rem load and play music
MUSIC()

rem main loop
do

rem exit
center text 320,20,"Press any key to exit..."
if scancode()>0 then exit

rem refresh screen
sync

rem end of main loop
loop

rem end
end

rem music function --------------------------

FUNCTION MUSIC()

   load music "snd\main_theme.mp3",1
   play music 1
   loop music 1

ENDFUNCTION

sync on
sync rate 40

ink rgb(255,255,255),5


   do
      cls 5

      print "Press Spacebar to break out of this loop!"


            if spacekey()=1 then wait 500 : exit

      sync
   loop


`If spacekey was pressed then execution jumps to here and keeps going down

cls 5
print "OH NO! We crashed out of the main program, certain doom awaits us..."




` Subroutines beyond this marker


_continue_writing_complex_file:

cls rgb(255,0,0)
print
print "Perhaps you created a file earlier and intentionally used this subroutine"
print "to add data to it. Well depending on the code used, this subroutine here"
print "might corrupt it, since you did not expect to fall into this subroutine after"
print "your file was initialised."
print
print "Press a key to resume the chaos"
sync
wait key
wait 500

return



_continue_the_chaos:

cls rgb(255,0,0)
print "Perhaps this subroutine was supposed to manage savegames, looks like"
print "those are going to be broken too. Prepare yourself for some angry"
print "hate e-mail from your users, after they lost their savegames."
print
print "Press a key to disgracefully exit the program"
sync
wait key
return


rem No more code! What now?! Looks like the program will just quit.

REM set display mode 1024,768,16
REM sync on
REM sync rate 60

load music "sndmain_theme.mp3",1
loop music 1
wait key

Do
X#=Object position X(1)
Y#=Object position Y(1)
Z#=object position Z(1)
X2#=Object position X(2)
Y2#=Object position Y(2)
Z2#=Object position Z(2)

EnemyLife#=Dist(X#,Y#,Z#,X2#,Y2#,Z2#)

loop

Function Dist(X#,Y#,Z#,X2#,Y2#,Z2#)
    DX#=(X#-X2#)^2
    Dy#=(Y#=Y2#)^2
    DZ#=(Z#=Z2#)^2

    Dist#=DX#+DY#+DZ#

    If Dist#<5
       Enemylife#=Enemylife#-25
    endif
endfunction Enemylife#      

rem Function Example
rem by Steve Paul Thomas


rem Just a variable to hold a value
myvar = 2


rem MAIN PROGRAM LOOP

   do
      cls

      print "myvar is now: ";myvar


      rem Run our multiply by two function - pass it the current value of myvar
      result = multi2(myvar)

      rem result will now hold whatever value was returned

      print "myvar x2 is: ";result
      print
      print "Press a key"

      sync
      wait key

      rem This just keep the myvar value increasing, each time we go around the loop
      myvar = result


   loop
rem MAIN PROGRAM LOOPS BACK TO Do



rem Emergency program end
end






rem Receive the value passed in above
function multi2(value)

rem Take the value that was passed in, multiply it by two
rem then assign it to our local newvalue variable
newvalue = value * 2

rem Finally send the data back to the main program loop...
rem This is done by putting your variable to return after the endfunction keyword
endfunction newvalue

rem Subroutine Example
rem by Steve Paul Thomas
cls 5
sync on
sync rate 10

   do
      cls 5

      ink rgb(255,255,255),0
      print "Cannon is not firing"
      print "(Press Spacebar)"

      rem User pressed the spacebar
      if spacekey()=1 then gosub _fire_the_cannon
      sync
   loop


rem Emergency program end
end


rem SUBROUTINE...

_fire_the_cannon:

cls 5
ink rgb(255,0,0),0
print "Cannon is firing!"
wait 2000

return

set display mode 1024,768
hide mouse
sync on
sync rate 60

for x= 1 to 20
  print x
next x

END

gosub _setup
gosub _print_nums

END

`--------------
` Subroutines
`--------------
_print_nums:
  for x= 1 to 20
    print x
  next x
Return
`//

_setup:
  set display mode 1024,768
  hide mouse
  sync on
  sync rate 60
Return
`//

Do
  cls
  input "Enter rectangle length: "; l
  input "Enter rectangle height: "; h
  print "Rectangle area: "; area(l,h)

  input "Try again? "; in$
  if upper$(in$)= "NO" then exit
Loop

End

`------------
` Functions
`------------
Function area(length,height)
  rect_area= length * height
Endfunction rect_area

Ink RGB(255,0,0)
Text 100,100,"Red Text"

Function ColourText(X,Y,R,G,B,S$)
  Ink RGB(R,G,B)
  Text X,Y,S$
EndFunction