5 CUROFF
10 FORI=1TO50:NEXTI:SCREEN1
20 FORI=1TO18STEP2
30 CIRCLE(0,0),I,l
40 CIRCLE(239,0),I,1
50 CIRCLE(0,63),I,l
60 CHAR2
70 NEXTI
90 LOCATE4,1
100 PRINT"DVW"
110 CHAR1
120 LOCATE11,1
130 PRINT"Microelectronics"
140 LOCATE12,2
150 PRINT"presents"
170 LOCATE12,3
180 PRINT"HUSKY SP"
190 FORI=1TO1100:NEXTI
200 CLS
210 CHAR3
220 LOCATE12,1
230 PRINT"HIGH RES"
240 LOCATE12,3
250 PRINT"GRAPHICS"
260 FORI=1TO999:NEXTI
270 CLS
280 FORI=0TO30STEP2
290 CIRCLE(120,31),I
300 NEXTI
310 FORI=1TO31STEP-2
320 CIRCLE(120,31),I
325 SOUNDI,100
330 NEXTI
340 FORI=31TO1STEP-2
350 CIRCLE(120,31),I,0
355 SOUNDI,100
360 CIRCLE(120,31),I,0
370 FORI=30TO0STEP-2
390 NEXTI
392 CLS
395 FORI=1TO100:NEXTI
400 LINE(99,63-41)-(126,63-27),1,BF
402 LINE(96,63-44)-(133,63-24),1,B
403 LINE(96,63-44)-(92,63-46)
404 LINE(133,63-44)-(129,63-46)
405 LINE(96,63-24)-(92,63-26)
406 LINE(92,63-46)-(129,63-46)
407 LINE(92,63-46)-(92,63-26)
408 PSET(130,63-26),(130,63-30),(130,63-32),(130,63-34)
409 LINE(131,63-24)-(131,63-10)
410 LINE(96,63-24)-(96,63-10)
411 LINE(94,63-26)-(94,63-14)
412 LINE(127,63-24)-(127,63-14)
413 LINE(96,63-17)-(131,63-17)
414 LINE(96,63-17)-(94,63-21)
415 LINE(131,63-17)-(127,63-21)
416 LINE(94,63-21)-(127,63-21)
417 FORI=1TO999:NEXT
418 LINE(100,63-40)-(125,63-26),0,BF
419 CHAR0
420 FORJ=1TO30
421 LOCATE103,26
422 PRINT"DVW"
423 LINE(101,63-27)-(124,63-27)
425 NEXTJ
426 LINE(99,63-41)-(126,63-27),1,BF
460 CLS
470 FORI=1TO250:NEXTI
490 FORI=0TO63
500 LINE(56,I)-(163,1)
505 SOUND64-I,100
510 NEXTI
520 FORI=0TO63
530 LINE(119,63)-(119-I,0),I+1
540 LINE(120,63)-(120+I,0),I+1
550 NEXTI
560 FORI=0TO63
570 LINE(119,63)-(56,I),I+1
580 LINE(120,63)-(183,I),I+1
590 NEXTI
595 FORI=1TO500:NEXTI
600 FORI=0TO63
610 LINE(119,63)-(56,63-I)
620 LINE(120,63)-(183,63-I)
630 NEXTI
640 FORI=0TO63
650 LINE(119,63)-(56+I,0)
660 LINE(120,63)-(183-I,0)
670 NEXTI
680 FORI=63TO0STEP-1
690 LINE(56,63-I)-(183,63-I),0
695 SOUND64-I,100
700 NEXTI
720 CLS
730 CHAR1
740 LOCATE3,1
750 PRINT"5 Different character sets"
765 LINE(16,11)-(224,11)
767 FORI=1TO200:NEXTI
770 CHAR4
780 LOCATE8,3
790 GOSUB1000
800 LOCATE8,3
810 GOSUB1030
820 CHAR3
830 LOCATE12,3
840 GOSUB1000
850 LOCATE12,3
860 GOSUB1030
870 CHAR2
880 LOCATE8,3
890 GOSUB1000
900 LOCATE8,3
910 GOSUB1030
920 CHAR1
930 LOCATE12,3
940 GOSUB1000
950 LOCATE12,3
960 GOSUB1030
970 CHAR0
980 LOCATE96,24
990 GOSUB1000
999 GOTO10
1000 PRINT"ABCD/xyz"
1010 FORI=1TO999:NEXTI
1013 BEEP
1020 RETURN
1030 PRINT" "
1040 RETURN