Program 3
=========

.. code::

   5 CUROFF
   10 SCREEN1
   20 CHAR4:LOCATE4,1:PRINT"HUSKY"
   30 CHAR2,1:LOCATE3,3:PRINT"HUNTER"
   35 LINE(15,26)-(14,38),1,B
   40 CHAR1,0:LOCATE1,4:PRINT" BIG CAPABILITY"
   50 PRINT" small PACKAGE."
   60 LINE(0,0)-(125,63),1,B
   70 CHAR0,0:LOCATE128,1:PRINT"The  worlds  most "
   80 LOCATE128,8:PRINT"advanced hand held"
   90 LOCATE128,16:PRINT"portable   micro ,"
   91 LOCATE128,24:PRINT"HUSKY  HUNTER  is "
   92 LOCATE128,32:PRINT"CP/M  compatible ,"
   93 LOCATE128,40:PRINT"has up to 208K  of"
   94 LOCATE128,48:PRINT"ram  and  powerful"
   95 LOCATE128,56:PRINT"communications. "
   100 INCHR"",A:SCREEN0
   110 KEYOFF:CLS
   120 PRINT"        A        B        C        D   "
   130 OPCHR15,4,0
   140 PRINTCHR$(124);:OPCHR15,39,0:PRINTCHR$(124);
   150 OPCHR15,12,0,124,124
   160 OPCHR15,21,0,124,124
   170 OPCHR15,30,0,124,124
   180 FORI=1TO7
   190 OPCHR15,2,I
   200 PRINTSTR$(I);CHR$(124);
   210 NEXT
   220 OPCHR15,4,1:PRINT"<  734.1>    45.82   -98.42   798.11";
   230 OPCHR15,4,2:PRINT"   543.72           5438.63         ";
   240 OPCHR15,4,3:PRINT"            480.76    85.64   764.11";
   250 OPCHR15,4,4:PRINT"   314.09   -94.85             45.23";
   260 OPCHR15,4,5:PRINT"                     824.64   407.45";
   270 OPCHR15,4,6:PRINT"   134.87  9845.49                  ";
   280 OPCHR15,4,7:PRINT"           3487.45    49.76";
   290 OPCHR15,0,0:PRINT"";
   295 INCHR"",A:CLS
   300 CIRCLE(44,31),31
   310 LINE(44,31)-(66,9)
   320 LINE(44,31)-(44,62)
   330 LINE(44,31)-(15,41)
   340 CHAR0
   350 LOCATE30,16:PRINT"41%"
   360 LOCATE6,0:PRINT"UK"
   370 LOCATE24,44:PRINT"20%"
   380 LOCATE6,56:PRINT"USA"
   390 LOCATE54,32:PRINT"39%"
   400 LOCATE72,48:PRINT"Europe"
   410 CHAR4:LOCATE14,1:PRINT"ACME Ltd"
   420 CHAR1,1:LOCATE12,3:PRINT"Profit Distribution"
   430 LINE(87,26)-(87,38)
   440 CHAR1,0:LOCATE16,4:PRINT"Fiscal Year"
   450 LOCATE18,5:PRINT"1983-84"
   460 INCHR"",A:SCREEN0
   500 SCREEN1
   510 LINE(0,0)-(239,63),1,B
   520 FORI=0TO239STEP8
   530 PSET(I,59)
   540 PSET(I+1,60),(I+2,60),(I+6,60),(I+7,60)
   550 PSET(I+3,61),(I+4,61),(I+5,61)
   560 NEXT
   570 LINE(50,60)-(45,50)
   580 LINE(45,50)-(45,46)
   590 LINE(45,46)-(39,40)
   600 LINE(39,41)-(34,46)
   610 LINE-(37,49)
   620 LINE-(42,44)
   630 LINE(45,46)-(62,46)
   640 PSET(63,47),(63,48),(64,49)
   650 LINE(45,50)-(150,50)
   660 PSET(151,49),(152,48),(152,47),(153,46)
   670 LINE(153,46)-(173,46)
   680 LINE(173,46)-(155,60)
   690 LINE(173,46)-(194,40)
   700 LINE(145,50)-(145,10)
   710 LINE(145,10)-(193,40)
   720 LINE(71,50)-(71,15)
   730 LINE(71,15)-(45,46)
   740 LINE(108,50)-(108,1)
   750 LINE(108,1)-(71,15)
   760 LINE(108,1)-(145,10)
   770 LINE(61,24)-(78,20)
   780 LINE(58,39)-(84,34)
   790 LINE(98,11)-(115,7)
   800 LINE(95,25)-(121,20)
   810 LINE(92,42)-(127,36)
   830 LINE(132,34)-(158,29)
   840 FORI=64TO150STEP10
   850 PSET(I,53)
   880 PSET(155,51),(155,50),(156,49),(157,53),(158,53),(159,52)
   890 PSET(158,48),(160,50)
   891 PSET(37,18),(37,17),(36,16),(35,16),(34,16),(33,17)
   892 PSET(38,16),(39,16),(40,16),(41,17)
   893 CIRCLE(0,0),15
   894 PSET(210,51),(210,50),(209,49),(208,49),(207,49),(206,50)
   895 PSET(211,49),(212,49),(213,49),(214,50)
   900 CHAR0,1:LOCATE174,8:PRINT"HMS BOUNTY"
   910 LINE(173,7)-(233,15),1,B
   999 INCHR"",a:SCREEN0:GOTO1