12-21-2024, 03:16 PM
And, here some code of how I approached this in the old days, again just an excerpt of many more lines of code
Code: (Select All)
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