10 ! Hugo Demo av Magnus <8042>  1991
20 ! 
30 ! "IF PEEK... POKE 65266,1" i st f "ATTRIBUTE 1" <7759>
40 ! Borde i o m detta kunna fungera p} andra maskiner {n 806, men
50 ! tar man inte bort alla "GYEL" etc kan det nog se tokigt ut...
60 ! 
70 INTEGER : NO EXTEND 
80 IF PEEK(39)=4 OR PEEK(39)=6 POKE 65266,1 ! "Attribute 1"
90 ; CHR$(12)
100 X=1 : Y=10
110 GOSUB 340
120 GOSUB 430 : X=X+1 : GOSUB 520
130 GOSUB 160 : GOSUB 250
140 X=X+1 : IF X>70 THEN 100 ELSE 110
150 ! Hugo 1
160 ; CHR$(12)
170 ; CUR(Y,X);GRED;CHR$(32);CHR$(119);GYEL;CHR$(117)
180 ; CUR(Y+1,X);GRED;CHR$(56);CHR$(127);CHR$(61);CHR$(48)
190 ; CUR(Y+2,X);GRED;CHR$(33);CHR$(127);CHR$(53);CHR$(33)
200 ; CUR(Y+3,X);GRED;CHR$(96);CHR$(37);CHR$(101)
210 ; CUR(Y+4,X);GRED;CHR$(34);CHR$(35);CHR$(34);CHR$(35)
220 FOR Q=0 TO 100 : NEXT Q 
230 RETURN 
240 ! ------------------- Hugo 2 -------------------------
250 ; CHR$(12)
260 ; CUR(Y,X);GRED;CHR$(32);CHR$(119);GYEL;CHR$(117)
270 ; CUR(Y+1,X);GRED;CHR$(56);CHR$(127);CHR$(61);CHR$(48)
280 ; CUR(Y+2,X);GRED;CHR$(33);CHR$(127);CHR$(53);CHR$(34)
290 ; CUR(Y+3,X);GRED;CHR$(104);CHR$(113);CHR$(101)
300 ; CUR(Y+4,X);GRED;CHR$(32);CHR$(32);CHR$(34);CHR$(35)
310 FOR Q=0 TO 100 : NEXT Q 
320 RETURN 
330 ! ------------------ Hugo 3 -------------------------
340 ; CHR$(12)
350 ; CUR(Y,X);GRED;CHR$(32);CHR$(119);GYEL;CHR$(117)
360 ; CUR(Y+1,X);GRED;CHR$(56);CHR$(127);CHR$(61);CHR$(48)
370 ; CUR(Y+2,X);GRED;CHR$(33);CHR$(127);CHR$(53);CHR$(33)
380 ; CUR(Y+3,X);GRED;CHR$(32);CHR$(117);CHR$(53)
390 ; CUR(Y+4,X);GRED;CHR$(32);CHR$(32);CHR$(35);CHR$(33)
400 FOR Q=0 TO 100 : NEXT Q 
410 RETURN 
420 ! ------------------ Hugo 4 -----------------------
430 ; CHR$(12)
440 ; CUR(Y,X);GRED;CHR$(32);CHR$(119);GYEL;CHR$(117)
450 ; CUR(Y+1,X);GRED;CHR$(56);CHR$(127);CHR$(61);CHR$(48)
460 ; CUR(Y+2,X);GRED;CHR$(33);CHR$(127);CHR$(53);CHR$(33)
470 ; CUR(Y+3,X);GRED;CHR$(32);CHR$(53);CHR$(117);CHR$(48)
480 ; CUR(Y+4,X);GRED;CHR$(32);CHR$(35);CHR$(33)
490 FOR Q=0 TO 100 : NEXT Q 
500 RETURN 
510 ! ------------------- Hugo 5 --------------------------
520 ; CHR$(12)
530 ; CUR(Y,X);GRED;CHR$(32);CHR$(119);GYEL;CHR$(117)
540 ; CUR(Y+1,X);GRED;CHR$(56);CHR$(127);CHR$(61);CHR$(48)
550 ; CUR(Y+2,X);GRED;CHR$(33);CHR$(127);CHR$(53);CHR$(33)
560 ; CUR(Y+3,X);GRED;CHR$(96);CHR$(37);CHR$(105);CHR$(112)
570 ; CUR(Y+4,X);GRED;CHR$(34);CHR$(35)
580 FOR Q=0 TO 100 : NEXT Q 
590 RETURN