9/11 movie

350 bytes

-> means right arrow.
=> means the right arrow in “PRGM / JUMP”
\= means “not equal to”.

ClrGraph
ViewWindow 0,20,1,0,10,1
GridOff
AxesOff
LabelOff
BG-None
0->Z
9.5->G
7.5->H
200->A
18->B
20->C
Goto 3
Lbl 1
A-3->A
A<125=>Text B,A,”-I-<”
A>C=>Goto 1
Z=1=>Goto 2
1->Z
200->A
35->B
50->C
Goto 1
Lbl 2
For 1->N To 200
Ran#
Next
Lbl 3
G=2=>Goto 9
G-1.5->G
H<2=>H-1.5->H
Cls
F-Line 2,0,2,G
F-Line 2,G,5,G
F-Line 3.5,G,3.5,G+1.5
F-Line 5,G,5,0
F-Line 7,0,7,H
F-Line 7,H,10,H
F-Line 10,H,10,0
Z=0=>Goto 1
For 1->N To 20
Ran#
Next
Goto 3
Lbl 9
Text 28,50,”THE END!”

To home page

To the top