TO START_UP SETBG 0 FULLSCREEN A 2 TEXTSCREEN END TO A :NUM HOME SETPC 7 SETTC 5 MAKE "Y 130 MAKE "C :NUM FS PU HT REPEAT 7 [SETPOS [- 310 :Y] PD SETPOS [300 :Y] PU MAKE "Y :Y - 43] MAKE "X - 310 PU REPEAT 11 [SETPOS [:X (- 128)] PD SETPOS [:X 130] PU MAKE "X :X + 61] PU SETPOS [0 0] MAKE "SH 43 MAKE "N 1 REPEAT 5 [REPEAT 2 [REPEAT :N [SETPC :C FILL :C 7 FD :SH MAKE "C :C + 1 IF :C = 8 [MAKE "C :NUM] []] MAKE "SH 104 - :SH RT 90] MAKE "N :N + 1] TS END