Program 1
=========

.. code::

   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