Husky Hunter - Program 3

APPENDIX
9,5,3
VER.V09F
SECTION 9.5
PROGRMI 3
5 CUROFF"
10 SCREENl
20 CHAR4:LOCATE4,1:PRINT"HUSKY"
30 CHAR2,1:LDCATE3,3:PRINT"HUNTER"
35 LINE(15,26)·-(14,38) ,1,8
40 CHAR1,0:LOCATE1,4:PRINT" BIG CAPABILITY"
50 PRINT" small PACKAGE,"
60 LINE:<O,Ol-(125,63>, 1,B
70 CHARO,O:LOCATE23,1:PRINT"The worlds most
80 LDCATE23,2:PRINT"advanced hand held"
90 LDCATE23,3:PRINT"por-table micro ,"
91 LOCATE23,4:PRINT"HUSKY HUNTER
is"
92 LDCATE23,5:PRINT"CP/M compatible ,"
93 LDCATE23,6:PRINT"has upto 208K of"
94 LDCATE23, 7: PRINT"ram and po1-,erful"
95 LDCATE23,B:PRINT"communications.
100 INCHR"",A:SCREENO
110 KEYOFF:CLS
120 PRINT" A 8 C D
130 OPCHR15,4,0
140 PRINTCHR$ C 124);: OPCHR15, 39 ,O: PRINTCHR$ ( 124);
150 OPCHR15,12,0,124,124
160 OPCHR15,21,0,124,124
170 OPCHR15,30,0, 124
1
124
180 FDRI=1T07
190 OPCHR15,2,I
200 PRINTSTR:t- (I); CHR$ ( 124);
210 NEXT
220 OPCHR15,4,1:PRINT"< 734.1>
230 OPCHR15,4,2:PRINT" 543.72
240,0PCHR15,4,3:PRINT''
250 DPCHR15,4,4:PRINT" 314.09
260 OPCHR15,4,5:PRINT"
270 OPCHR15,4,6:PRINT" 134.87
280 OPCHR15
1
4
1
7:PRINT"
290 OPCHR15,0,0:PRINT"";
295 INCHR'''',A:CLS
300 CIRCLE(44,31) ,31
310 LINE(44,31)-(66,9>
320 LINE(44,31)-C44,62)
330 LINE(44,31)-(15,41)
340 CHARO
350 LOCATE6,3:PRINT"41'l."
360 LOCATE2,1:PRINT"UK"
370 LOCATE5,6:PRINT"20'l."
380 LOCATE2,8:PRINT"USA"
390 LOCATE10,5:PRINT"39'.I."
400 LOCATE13,7:PRINT"Eur-ope"
45.82 -98.42 798.11''
5438.63
480.76 85.64 764.11"
-94. 85 45. 23"
824.64 407.45"
9845.49
3487.45 49.76";
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:SCREENO
500 SCREEN!
510 LINECO,O>-C239,63) ,1,B
520 F0Rl=OT0239STEP8
530 PSET ( I , 59)
PAGE 9 - 31