gigatron/rom/Contrib/at67/gbas/demos/BoingData64k.m
2025-01-28 19:17:01 +03:00

67 lines
4.6 KiB
Matlab

'maximum string length is 94
const dim quotes$(20) = {"greetings welcome to gtbasic this demo shows some of the advanced features that the",
" compiler is capable of thank you to marcel and walter for making this possible ",
"and now it is time for some quotes whilst you are being mesmerised by boing ",
"if i have seen further than others it is by standing upon the shoulders of giants ",
"what you do not want done to yourself do not do to others ",
"i hear and i forget i see and i remember i do and i understand ",
"he who learns but does not think is lost he who thinks but does not learn is in great danger ",
"to see what is right and not to do it is want of courage or of principle ",
"the superior man is modest in his speech but exceeds in his actions ",
"humility is the solid foundation of all virtues ",
"to see the right and not to do it is cowardice ",
"when you are laboring for others let it be with the same zeal as if it were for yourself ",
"the strength of a nation derives from the integrity of the home ",
"to see and listen to the wicked is already the beginning of wickedness ",
"our greatest glory is not in never falling but in rising every time we fall ",
"everything has beauty but not everyone sees it ",
"the superior man acts before he speaks and afterwards speaks according to his action ",
"learning without thought is labor lost thought without learning is perilous ",
"without feelings of respect what is there to distinguish men from beasts ",
"it is more shameful to distrust our friends than to be deceived by them ",
"an oppressive government is more to be feared than a tiger "}
const fontStart = 0
load sprite, ../../res/image/DemoFont/a.tga, fontStart + 0
load sprite, ../../res/image/DemoFont/b.tga, fontStart + 1
load sprite, ../../res/image/DemoFont/c.tga, fontStart + 2
load sprite, ../../res/image/DemoFont/d.tga, fontStart + 3
load sprite, ../../res/image/DemoFont/e.tga, fontStart + 4
load sprite, ../../res/image/DemoFont/f.tga, fontStart + 5
load sprite, ../../res/image/DemoFont/g.tga, fontStart + 6
load sprite, ../../res/image/DemoFont/h.tga, fontStart + 7
load sprite, ../../res/image/DemoFont/i.tga, fontStart + 8
load sprite, ../../res/image/DemoFont/j.tga, fontStart + 9
load sprite, ../../res/image/DemoFont/k.tga, fontStart + 10
load sprite, ../../res/image/DemoFont/l.tga, fontStart + 11
load sprite, ../../res/image/DemoFont/m.tga, fontStart + 12
load sprite, ../../res/image/DemoFont/n.tga, fontStart + 13
load sprite, ../../res/image/DemoFont/o.tga, fontStart + 14
load sprite, ../../res/image/DemoFont/p.tga, fontStart + 15
load sprite, ../../res/image/DemoFont/q.tga, fontStart + 16
load sprite, ../../res/image/DemoFont/r.tga, fontStart + 17
load sprite, ../../res/image/DemoFont/s.tga, fontStart + 18
load sprite, ../../res/image/DemoFont/t.tga, fontStart + 19
load sprite, ../../res/image/DemoFont/u.tga, fontStart + 20
load sprite, ../../res/image/DemoFont/v.tga, fontStart + 21
load sprite, ../../res/image/DemoFont/w.tga, fontStart + 22
load sprite, ../../res/image/DemoFont/x.tga, fontStart + 23
load sprite, ../../res/image/DemoFont/y.tga, fontStart + 24
load sprite, ../../res/image/DemoFont/z.tga, fontStart + 25
load sprite, ../../res/image/DemoFont/space.tga, fontStart + 26
const boingStart = fontStart + 27
load sprite, ../../res/image/Boing/Boing0.tga, boingStart + 0
load sprite, ../../res/image/Boing/Boing1.tga, boingStart + 1
load sprite, ../../res/image/Boing/Boing2.tga, boingStart + 2
load sprite, ../../res/image/Boing/Boing3.tga, boingStart + 3
load sprite, ../../res/image/Boing/Boing4.tga, boingStart + 4
load sprite, ../../res/image/Boing/Boing5.tga, boingStart + 5
load sprite, ../../res/image/Boing/Boing6.tga, boingStart + 6
load sprite, ../../res/image/Boing/Boing7.tga, boingStart + 7
load sprite, ../../res/image/Boing/Boing8.tga, boingStart + 8
load sprite, ../../res/image/Boing/Boing9.tga, boingStart + 9
load sprite, ../../res/image/Boing/Boing10.tga, boingStart + 10
load sprite, ../../res/image/Boing/Boing11.tga, boingStart + 11
load sprite, ../../res/image/Boing/Boing12.tga, boingStart + 12
load sprite, ../../res/image/Boing/Boing13.tga, boingStart + 13