Code:
ClrHome
~47->Xmin
47->Xmax
1->Xscl
~31->Ymin
31->Ymax
1->Xres
1->DeltaX
Goto 5

Lbl 5
Menu("JB'S Life Role Play","Start New Game",1,"   Load Game   ",2,"   -Quit-    ",3,"    ?Help?    ",4,"!InstallFiles!",6

Lbl 3
ClrHome
Return
ClrHome

Lbl 2
Goto Str0









Lbl 1
ClrHome
Output(3,1,"What's your name"
Output(7,1,"Press enter when"
Output(8,1,"      Done      "
Input "Name=",Str1

ClrHome
Output(3,1,"How many letters"
Output(4,1,"There're in your"
Output(5,1,"      Name      "
Output(7,1,"Press enter once"
Output(8,1,"      Done      "
Input "Letters in name=",Z
ClrHome
Output(3,1,"Are You A Boy If"
Output(4,1,"So Type 1 If You"
Output(5,1,"R A Girl Type 2"
Input "Your Gender= ",G
If G=1
Then
Goto A1
Else
If G=2
Then
Goto F1
End

Lbl A1
A1->Str0
ClrHome
Output(1,1,"You R A Baby Boy"
Output(2,1,"And Have Popped"
Output(3,1,"Out Of Your Moms"
Output(4,1,"Pussy In A HospI"
Output(5,1,"tal She Names U"
Output(6,1,Str1
Output(7,1,"Press Enter"
Pause
ClrHome
Output(5,1,"Type Your Choice"
Output(3,1,"You Are In The"
Output(4,1,"Nursery Room"
Output(6,1,"1 Cry 2 Vomit"
Output(7,1,"3 Sleep"
Input "Choice: ",C
If C=1
Then
Goto A2
Else
If C=2
Goto A3
If C=3
Then
Goto A4

Lbl A2
ClrHome
Repeat T=10
Output(1,1,"You Are Crying"
Output(2,1,"In The Nursery"
Output(3,1,"So A Pretty Nurse"
Output(4,1,"Walks In To Put"
Output(5,1,"You To Sleep"
Output(6,1,"She Thought You"
Output(7,1,"Were Cute This Is"
Output(8,1,"WhatSheLooksLike"
T+1->T
End
RecallPic 1
DispGraph
Pause
ClrHome
DelVar T
Goto 5


Lbl A3
ClrHome
Output(1,1,"You are vomiting"
Output(2,1,"every where you"
Output(3,1,"start choking on"
Output(4,1,"your on vomit"
Output(5,1,"a nurse comes in"
Output(6,1,"to save you but"
Output(7,1,"she was to late"
Output(8,1,"Press Enter"
Pause
ClrHome
Output(1,1,"The baby next to"
Output(2,1,"you screams"
Output(3,1,"damn it Douchbab"
Output(4,1,"~y killed himself"
Output(5,1,"Press Enter"
Pause
ClrHome
Goto 5


Lbl A4
ClrHome
Repeat T=15
Output(1,1,"The nurse walks in"
Output(2,1,"and thinks you are"
Output(3,1,"dead so she throws"
Output(4,1,"U out the window"
Output(5,1,"UR parents have"
Output(6,1,"lost U once U"
Output(7,1,"R found U R put"
Output(8,1,"in2 foster care."
T+1->T
End
DelVar T
ClrHome
Goto 5

Lbl 6
ClrHome







Pt-On(9,3)
Pt-On(9,2)
Pt-On(8,1)
Pt-On(7,0)
Pt-On(6,~1)
Pt-On(5,~2)
Pt-On(4,~2)
For(X,~3,4)
Pt-On(X,~3)
End
Pt-On(~4,~2)
Pt-On(~5,~2)
Pt-On(~6,~1)
Pt-On(~7,0)
Pt-On(~8,1)
Pt-On(~9,2)
Pt-On(~9,3)


Line(5,10,3,10)
Pt-On(3,11)
Line(2,11,2,13)
Pt-On(3,13)
Line(3,14,5,14)
Pt-On(5,13)
Line(6,13,6,11)
Pt-On(5,11)

Line(~5,10,~3,10)
Pt-On(~3,11)
Line(~2,11,~2,13)
Pt-On(~3,13)
Line(~3,14,~5,14)
Pt-On(~5,13)
Line(~6,13,~6,11)
Pt-On(~5,11)

Line(~15,~1,~15,~6)
Line(18,~3,18,~4)
Line(~3,17,3,17)
Line(~3,18,3,18)
Line(~5,16,~5,18)
Line(~4,16,~4,18)
Line(~6,15,~6,18)
Line(~7,14,~7,17)
Line(~8,13,~8,17)
Line(~9,11,~9,16)
Line(~10,~4,~10,14)
Line(~14,~6,~14,0)
Line(~13,~5,~13,4)
Line(~12,~5,~12,8)
Line(~11,~4,~11,11)
Line(7,14,7,18)
Line(8,13,8,16)
Line(9,11,9,15)
Line(10,4,10,14)
Line(11,~3,11,12)
Line(12,~4,12,11)
Line(13,~4,13,11)
Line(14,~4,14,9)
Line(15,~4,15,5)
Line(16,~4,16,1)
Line(17,~4,17,0)
Line(6,15,6,18)
Line(5,16,5,18)
Line(4,16,4,18)
Line(~3,~4,~3,~7)
Line(~3,~7,~7,~7)
Line(~7,~7,~7,~31)
Line(~7,~31,9,~31)
Line(9,~31,9,~7)
Line(9,~7,4,~7)
Line(4,~7,4,~3)
Line(~7,5,~2,0)
Line(~2,0,3,1)
Line(3,1,7,5)
Line(~1,7,1,7)
Line(~1,8,1,8)
Line(0,8,0,10)

Pt-On(0,12)
Pt-On(0,14)
Pt-On(~3,15)
Pt-On(~1,15)
Pt-On(1,15)
Pt-On(3,15)
Pt-On(4,0)
Pt-On(1,~1)
Pt-On(~1,~2)
Pt-On(~3,~1)
Pt-On(~5,1)
Pt-On(~7,2)
Pt-On(~9,6)
Pt-On(7,9)
Pt-On(7,7)
Pt-On(4,8)
Pt-On(5,6)
Pt-On(3,6)
Pt-On(2,4)
Pt-On(0,2)
Pt-On(~2,3)
Pt-On(~2,5)
Pt-On(~4,5)
Pt-On(~3,7)
Pt-On(~5,7)
Pt-On(~7,8)
Pt-On(~7,10)
Pt-On(~9,9)
Pt-On(6,1)
Pt-On(9,6)
Pt-On(9,9)
Pt-On(1,6)
Text(0,0,"And you thought she was sexy"
Text(6,0,"what where you thinking!!!!!!!!"
StorePic 1
ClrHome
Goto 5
//////////////









i don't know how to fix the goto Str0 and the A1->Str0 im trying to make it a load able type code
You cannot use Str variables with Goto, you can only use Numbers and Letters, like Goto AA, Goto A1, etc.
  
Register to Join the Conversation
Have your own thoughts to add to this or any other topic? Want to ask a question, offer a suggestion, share your own programs and projects, upload a file to the file archives, get help with calculator and computer programming, or simply chat with like-minded coders and tech and calculator enthusiasts via the site-wide AJAX SAX widget? Registration for a free Cemetech account only takes a minute.

» Go to Registration page
Page 1 of 1
» All times are UTC - 5 Hours
 
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum

 

Advertisement