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