Sorry your browser is not supported!

Rem ***** Included Source File *****
rem Standard Setup Code
DO
  Center Text 320,100,"1.Free Gig"
  Center Text 320,120,"2.Career Mode"
  Center Text 320,140,"3.Options"
  Center Text 320,160,"4.Mod Settings"
  Center Text 320,180,"5.Create User"
  Center Text 320,200,"6.Quit Game"
  Repeat
    I$=Inkey$()
  Until Asc(I$)>48 and Asc(I$)<55
  CLS
  IF I$="1" Then 
LOOP
End

Rem ***** Included Source File *****
` vertical scrolling 3-14-07
` Quisco Da Luse
sync on
sync rate 42
` make something to scroll
create bitmap 1,640,480
randomize timer()
for i=1 to 50
 ink rgb(rnd(225),rnd(245),rnd(205)),0
 x=rnd(500) : y=rnd(300)+20
 box x,y,x+rnd(100)+30,y+rnd(100)+30
next i
` grab the entire screen as an image
get image 1,0,0,639,479
delete bitmap 1
set current bitmap 0
ink rgb(255,255,0),0
set cursor 0,450
print "Piano Hero"
hide mouse
` scroll it; press the space bar to exit
for i=-480 to 0 step 5
 sprite 1,0,i,1
 if spacekey()=1 then exit
 sync
next i
set cursor 0,0
print "Piano Hero"
sync 
wait key
show mouse
end

Rem ***** Included Source File *****
rem Standard Setup Code
DO

  Center Text 320,100,"1.Free Gig"
  Center Text 320,120,"2.Career Mode"
  Center Text 320,140,"3.Options"
  Center Text 320,160,"4.Mod Settings"
  Center Text 320,180,"5.Create User"
  Center Text 320,200,"6.Quit Game"

  Repeat
    I$=Inkey$()
  Until Asc(I$)>48 and Asc(I$)<55
  CLS

  IF I$="1" Then gosub Gig
  if I$="2" then gosub Career
  if I$="3" then gosub Options
  if I$="4" then gosub Mods
  if I$="5" then gosub User
  if I$="6" then end

LOOP
End

` Area for Free Gig
Gig:
 print "Free Gig"
 wait key
` Go back to the line after the GOSUB
return


` Area for Career Mode
Career:
 print "Career Mode"
 wait key
` Go back to the line after the GOSUB
return


` Area for Options
Options:
 print "Options"
 wait key
` Go back to the line after the GOSUB
return


` Area for Mod Settings
Mods:
 print "Mod Settings"
 wait key
` Go back to the line after the GOSUB
return


` Area for Create User
User:
 print "Create User"
 wait key
` Go back to the line after the GOSUB
return

Rem ***** Included Source File *****
Gosub Setup <---Get Error here(Label '?' does not exist at line 66.)
Gosub Main_Menu 

Do
  Rem Lines of Main Program here
  Gosub ThisRoutine
  Gosub ThatRoutine <---And get Error here(Label '?' does not exist at line 72.)
  If game ends then Gosub Main_Menu
  K=ReadKeyboard(x,Y,Z)<---What goes in place of XYZ here
Loop

End


Rem ***********************
Rem List of subroutines start here
Rem ***********************
Rem This routine does something
ThisRoutine:
  Do
    Start Level one 
  Return
  
Rem This routine displays the main menu
Main_Menu:
  MenuExit=0
  Repeat
    Display screen and buttons here
    IF Free Gig is Selected  
      Do whatever to set up Free Gig
      MenuExit=1
    Endif
    If Career Mode is Selected 
      Do whatever to set up Career Mode
      MenuExit=1
    Endif
    Rem If Exit button  Clicked then End
  Until MenuExit=1
Return

Rem This routine sets up program
Setup:
  Do Whatever  
 Return
 
Rem ***********************
Rem List of functions start here
Rem ***********************

Function ReadKeyboard(X,Y,Z) <---What goes in place of XYZ here
  Do something with the keyboard here
EndFunction F

do

 ` Go to the label called Something
 gosub Something

 ` Go to the label called SomethingElse
 gosub SomethingElse

loop


` The word Something turns into a label the minute a : is added to the end
Something:
 print "Hello ";
` Return to the line after the GOSUB
return

` The word SomethingElse turns into a label the minute a : is added to the end
SomethingElse:
 print "there!"
` Return to the line after the GOSUB
return