Sorry your browser is not supported!

SET TEXT FONT "Times" : rem font you want
SET TEXT SIZE 40 : rem size of font

rem way of putting text on screen
ink RGB(0,255,0),0
center text screen width()/2,screen height()/2,"Press Space Bar to Start."
sync
rem check if space bar is pressed.
repeat
sync
until scancode()=57

do
if mousey()=>100 and mousey()=<200 and mousex()=>250 and mousex()=<250 and mouseclick()=1 then goto somewhere
loop

start:
sync on : sync rate 0
CIRCLE 4,4,4
FOR Y=1 TO 7
FOR X=1 TO 7
DOT X,Y
NEXT Y : NEXT X
GET IMAGE 2,0,0,13,10
x=223
y=200
SPRITE 4,X,Y,2
DO
CLS
show sprite 4
IF UPKEY()=1 THEN SPRITE 4,X,Y-1,2 : Y=Y-20
IF DOWNKEY()=1 THEN SPRITE 4,X,Y+1,2 : Y=Y+20
IF Y=<200 THEN Y=200
IF Y=>220 THEN Y=220

IF Y=200 AND RETURNKEY()=1 THEN GOTO 1VS2
IF Y=220 AND RETURNKEY()=1 THEN GOTO 1VSCOM 

TEXT 250,200,"1P VS 2P"
TEXT 250,220,"1P VS COM"
SYNC
loop

1vs2:
hide sprite 4
do
cls
print "this is the 1 vs 2 mode"
print "press spacekey to return"
if spacekey()=1 then goto start
sync
loop

1vscom:
hide sprite 4
do
cls
Print "this is the 1vs com mode"
print "press spacekey to return"
if spacekey()=1 then goto start
sync
loop

dim menu$(4)
menu$(1)="New"
menu$(2)="Load"
menu$(3)="Options"
menu$(4)="Quit"
dim y(4)
y(1)=100
y(2)=200
y(3)=300
y(4)=400

perform checklist for fonts
set text font "abbadon"
set text size 30

sync on : sync rate 500
do
   for i=1 to 4
      if mousex()>300 and mousex()<300+text width(menu$(i)) and mousey()>y(i) and mousey()<y(i)+text width(menu$(i))
         ink rgb(0,255,0),0
         if mouseclick()=1 then print "You clicked on "; menu$(i)
         wait 50
         cls
      else
         ink rgb(255,255,255),0
      endif
      text 300,y(i),menu$(i)
   next i
loop