∇S←SYR N⋄S←N⋄S←S,N←(0 1+0.5 3×N)[1+2|N]⋄→(N>1)/2∇⋄∇S←DEC V⋄T←⌈1⌈(⍴V)÷14⋄N←⌈(⍴V)÷T⋄S←0⍴1⋄V←V,N⍴0⋄LOOP:→(0>N←N-1)/0⋄S←S,⌈/T↑V⋄V←T↓V⋄→LOOP∇⋄∇PLTS N;S;V;M⋄N←DEC SYR N⋄S←2×(⌊60×(M←⌈/N)⍟N)∘.=V←0,⍳60⋄S←S+1+(N÷M÷60)∘.≥V⋄' ⎕∘⌹⌹'[S]∇⋄PLTS 27⋄
LOAD PROGRAM
BRIGHTNESS
L32 64 R32
IN PROCESS
REVERSE DISPLAY
BASIC
RESTART
DISPLAY REGISTERS
0
1
2
3
4
5
6
7
●
●
PROCESS CHECK
APL
NORMAL
Pixel size:
Normal
Double
Quad