Drop Down Menu

[Dimster]

This is going back to the original code used for a Drop Down Menu. When you read Terry's tutorial it's mind boggling how far the language has come.

SCREEN 12
WIDTH 80, 60
PSET (7, 7), 1
DRAW "r100 d10 l100 u10"
SLEEP
CLS
PSET (7, 7), 1
DRAW "r100 d20 l100 u20"
SLEEP 1
CLS
PSET (7, 7), 1
DRAW "r100 d30 l100 u30"
SLEEP 1
CLS
PSET (7, 7), 1
DRAW "r100 d40 l100 u40"
SLEEP 1
CLS
LOCATE 2, 2
PRINT " Menu"
'VIEW (10, 10)-(300, 180), , 1
'LOCATE 1, 11: PRINT "A big graphics viewport";
VIEW SCREEN(7, 7)-(150, 40), , 2
FOR x = 1 TO 500000: NEXT
CLS
LOCATE 2, 2
PRINT " Menu"
PRINT " P=Pres Cyc"
'LOCATE 11, 11: PRINT " A small graphics viewport";
VIEW SCREEN(7, 7)-(150, 50), , 2
SLEEP
FOR x = 1 TO 500000: NEXT
CLS
LOCATE 2, 2
PRINT " Menu"
PRINT " P=Pres Cyc"
PRINT " H=Cyc History"
VIEW SCREEN(7, 7)-(150, 60), , 2
'SLEEP
FOR x = 1 TO 500000: NEXT
CLS
LOCATE 2, 2
PRINT " Menu"
PRINT " P=Pres Cyc"
PRINT " H=Cyc History"
PRINT " Q=Cyc Quarters"
VIEW SCREEN(7, 7)-(150, 70), , 2
'SLEEP
FOR x = 1 TO 500000: NEXT
CLS
LOCATE 2, 2
PRINT " Menu"
PRINT " P=Pres Cyc"
PRINT " H=Cyc History"
PRINT " Q=Cyc Quarters"
SLEEP