REM Marco Perez
REM 12/2/02

CLS
SCREEN 13
FOR x = 10 TO 30 STEP 1
COLOR x
LOCATE 10, 15
PRINT "Florida Driver's Test"

FOR hold = 1 TO 2000
NEXT hold
NEXT x
SLEEP 1

FOR x = 30 TO 10 STEP -1
COLOR x
FOR hold = 1 TO 2000
NEXT hold
NEXT x
CLS
REM car
SCREEN 7
LINE (95, 70)-(190, 80), 4, BF
LINE (165, 70)-(150, 55), 4, B
SLEEP 2
start:
SCREEN 1
LOCATE 11, 35
PRINT "*******************MENU******************"
LOCATE 12, 35
PRINT "1.Practice"
LOCATE 13, 35
PRINT "2.Test"
LOCATE 14, 35
PRINT "3.Other stuff"
LOCATE 15, 35
PRINT "4.Quit"
INPUT "Pick a #"; N
CLS
IF N = 1 THEN GOSUB practice
IF N = 2 THEN GOSUB test
IF N = 3 THEN GOSUB other
IF N = 4 THEN GOTO Quit
CLS
test:
LOCATE 11, 35
PRINT "loading"
SLEEP 1
LOCATE 11, 35
PRINT "loading."
SLEEP 2
LOCATE 11, 35
PRINT "loading.."
SLEEP 2
LOCATE 11, 35
PRINT "loading..."
SLEEP 1
CLS
SCREEN 7
LINE (45, 180)-(230, 195), 10, B
SLEEP 2
LINE (45, 180)-(65, 195), 1, BF
SLEEP 4
LINE (45, 180)-(230, 195), 1, BF
SLEEP 2
CLS
PRINT "Complete"
SLEEP 2
PRINT "Instructions: When answering enter caps"
SLEEP 2
CLS
PRINT "1. What is the defenition of felony?"
PRINT "A. A car crash"
PRINT "B. A car part"
PRINT "C. a criminal offense punishable by the state laws"
PRINT "D. A jail cell were criminals are kept"
INPUT "What is your choice"; Q1$
IF Q1$ = "C" THEN GOSUB correct
IF Q1$ <> "C" THEN GOSUB wrong
CLS
LOCATE 11, 35
PRINT "Q"
SLEEP 1
LOCATE 11, 35
PRINT "Qu"
SLEEP 1
LOCATE 11, 35
PRINT "Que"
SLEEP 1
LOCATE 11, 35
PRINT "Ques"
LOCATE 11, 35
PRINT "Quest"
SLEEP 1
LOCATE 11, 35
PRINT " Questi"
SLEEP 1
LOCATE 11, 35
PRINT "Questio"
SLEEP 1
LOCATE 11, 35
PRINT "Question"
SLEEP 1
LOCATE 11, 35
PRINT "Question #2"
SLEEP 1
CLS
PRINT "2.Can a person temporarily operate a farm tractor on the highway without a drivers license?"
PRINT "A. YES"
PRINT "B.NO"
INPUT ""; Q2$
IF Q2$ = "B" THEN GOSUB correct
IF Q2$ <> "B" THEN GOSUB wrong
PRINT "3. How many forms of identification must you show the examiner when you apply for your first driver lincense or identification card?"
PRINT "A. 1"
SLEEP 1
PRINT "B. 2"
SLEEP 1
PRINT " C. 3"
SLEEP 1
PRINT "D. 5"
INPUT ""; Q3$
IF Q3$ = "B" THEN GOSUB correct
IF Q3$ <> "B" THEN GOSUB wrong
PRINT "4. You must obtain a new license showing the new address within how many days of moving?"
PRINT "A. 2hr"
PRINT "B. 1 month"
PRINT "C. 1 week"
PRINT "D. 10 days"
INPUT ""; Q4$
IF Q4$ = "D" THEN GOSUB correct
IF Q4$ <> "D" THEN GOSUB wrong



GOTO start
practice:
GOTO start
other:
INPUT "Enter your name"; Name$
INPUT "Enter your age"; age
INPUT "Which state were you born in"; state$
IF age = 15 THEN PRINT "You are the same age as me"
IF age > 15 THEN PRINT "You are older than me"
IF age < 15 THEN PRINT "You are younger than me"
CLS
A = age + 15
PRINT "Your age plus my age="; A
SLEEP 3
CLS
FOR x = 1 TO 30
PRINT Name$
NEXT x
SLEEP 2
CLS
FOR x = 30 TO 1 STEP -1
PRINT x
NEXT x
SLEEP 2
CLS
INPUT "Do you want to continue"; D
IF D = YES THEN GOTO C
IF D = NO THEN GOTO start
C:
CLS
DATA
GOTO start
Quit:
INPUT "Are you sure you want to exit"; Y$
IF Y$ = "YES" THEN GOTO Q
IF Y$ = "NO" THEN GOTO start
correct:
PRINT "Right"
C = C + 1
PRINT "Your number correct="; C; ""
SLEEP 3
RETURN
wrong:
PRINT "Wrong Choice"
W = W + 1
PRINT "Your number wrong="; C; ""
RETURN
Q: