to L
ht setsplit 1 type word char 27 "0 ct cs pu
setcursor [26 1] type [L O G O - P R O G R A M - S U I T E (v.2.4)]
setpos [-170 224] pd repeat 2 [fd 30 rt 90 fd 380 rt 90] pu
setcursor [35 4] pr [¤ Tjitte Dijkstra (1989)]
setcursor [36 5] pr [75 Van Heemskercklaan]
setcursor [36 6] pr [NL 3843 XP Harderwijk]
setcursor [39 7] pr [The Netherlands]
setcursor [15 13] pr [YOUR CHOICE? USE CURSORKEYS (ý ü) THEN PRESS < ENTER >]
setcursor [2 15] (type word char 27 "p [AIRLINER * * ANAGRAM * * * HANGMAN * * * UFO * * * * DRAW * * * LABEL * * * MUSIC] word char 27 "q)
setpos [-360 -60] pd repeat 2 [fd 120 rt 90 fd 719 rt 90] pu
setpos [-356 -56] pd repeat 2 [fd 112 rt 90 fd 711 rt 90] pu
make "Y -30 make "X -300 setpos se :X :Y st
end
to l
make "I ascii rc
if :I = 250 [make "X :X + 100 SP]
if :I = 254 [make "X :X - 100 SP]
if :I = 243 [if :X = -300 [make "P "AIRLINER] if :X = -200 [make "P "ANAGRAM] if :X = -100 [make "P "HANGMAN] if :X = 0 [make "P "UFO] if :X = 100 [make "P "DRAW] if :X = 200 [LABEL] if :X = 300 [make "P "MUSIC] ct ht cs pu setpos [-100 -30] pd repeat 2 [fd 60 rt 90 fd 160 rt 90] setcursor [36 15] pr [L O A D I N G] fs stop] l
end
to logo
L l er [LOGO L l SP LABEL] load :P run (list :P) load "STARTUP logo
end
to LOGO
logo
end
to SP
if :X > 300 [make "X -300]
if :X < -300 [make "X 300]
setpos se :X :Y st
end
to LABEL
ct ht cs
setcursor [32 13] pr [1 = LABEL for 3 inch disc]
setcursor [32 15] pr [2 = LABEL for audio - cassette]
setcursor [32 17] (type [YOUR CHOICE PLEASE :] char 32)
make "X rc
if :X = 1 [make "P "LABEL stop]
if :X = 2 [make "P "CASSETTE stop]
LABEL
end
 719 rt 90] pu