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