Very Basic First Program

Building a 2d puzzle adventure game with no media to get to grips with coding

                                    ` This code was downloaded from The Game Creators
                                    ` It is reproduced here with full permission
                                    ` http://www.thegamecreators.com
                                    
                                    Rem Project: Text Adventure
Rem Created: 3/9/2008 5:00:47 PM

Rem ***** Main Source File *****

GoSub Setup

Do
  GoSub Box1
  GoSub Intro
  GoSub Box1
  GoSub Intro2
  Print "Entered mainframe, loading root processes..."
  Sleep 2000
  Print "Mainframe Security Loading..."
  Sleep 2000
  Input "What is the password? - ", C$
  Print C$
  Sleep 2000
  Print "Incorrect Entry"
  Sleep 2000
  CLS
  GoSub Box1
  GoSub Intro3
  GoSub Tutorial
  GoSub Box2
  Gosub Tutorial2
Loop
End

Box1: Rem This is a box in the center of the screen
  LINE 250,320,540,320
  LINE 250,295,540,295
  LINE 250,320,250,295
  LINE 540,320,540,295
  Return

Box2: Rem This draws a square in the top right of the screen
  LINE 500,100,700,100
  LINE 500,300,700,300
  LINE 500,100,500,300
  LINE 700,100,700,300
  Return

Intro:
  A$ = "Hello and welcome to my world..."
  Center Text 399,299,A$
  Sleep 2000
  CLS
  Return

Intro2:
  A2$ = "Accessing Mainframe..."
  Center Text 399,299,A2$
  Sleep 2000
  CLS
  Return

 Intro3:
  A3$ = "Welcome to Zen"
  A8$ = "Congraluations on finding us"
  A4$ = "But only one question still remains..."
  A5$ = "Were we looking for you?"
  A6$ = "I am offering you what you seek"
  A7$ = "Do you have the will to find it?"
  Center Text 399,299,A3$
  Sleep 2000
  CLS
  Center Text 399,299,A8$
  Sleep 2000
  CLS
  Center Text 399,299,A4$
  Sleep 2000
  CLS
  Center Text 399,299,A5$
  Sleep 2000
  CLS
  Center Text 399,299,A6$
  Sleep 2000
  CLS
  Center Text 399,299,A7$
  Sleep 2000
  CLS
  Return

Tutorial:
  B$ = "Tutorial - Step One"
  Center Text 399,299,B$
  Sleep 5000
  CLS
  Return

Tutorial2:
  B2$ = "Hello this is the"
  B3$ = "help Box! To begin"
  B4$ = "click the button"
  B5$ = "below!"
  Center Text 600,200,B2$
  Center Text 600,200,B3$
  Center Text 600,200,B4$
  Center Text 600,200,B5$
  Sleep 5000
  CLS
  Return

Setup:
  Set Display Mode 800,600,16
  Ink RGB(0,165,0),RGB(150,150,150)
Return