PROGRAM
NO.
1
1250 LPRIHT";035D"
;CHR$
(,127);
"DD"
;STRI
HG'
(35 ,
"."
) ;A$;
E$
;A';
E$
-A$;
E$
"CCCCCCCO
-263"
-A'-
'E$;A$;E$;A$;E';A$;E$"GGGGGGGO;479CCCCCCC";E$;G$;E$;A$;E$;G$;Et;A';E$;A$;E$;Ai;E';A$;!
t;l\$lE$;A.;E$;A$;E$;A$~"6";
1260
RE"
,1270R-Elf "
,"',
,"
1280
LPRINT";4~9";A$;E'"AAAAI\AA";EtlAt~E$;A$;E';A$;E$\AllEt;A';E$;A$;E$;A';E$;A$;Et;A
'~~E$;Ai~"O";
" , '
1290LPR
INT"
;263";
F'
;F$
;F$;F'
;A$;"O;036"';CHR$ (127)
;STR
ING'$(
1.0,
"'"
) ;
uGGGGGGC"
;E$ ;F$ ;F$ ,
;'~'
;1\$;
u6,·';CHR$
(29);
1300
RE"
1310
RE"
1320'
LPRIHT"
30"'
1".330
RE'"'
<.
" ,
l340LPRINT
""CHR$
(28);
u;035Du ;CHR'(
127>
;uDDu
;STRING$
(8,
"@II)
;A$
;E$
;A$
;E$
;A$
;E$
;A$
;E$
;A$
;E';G';E$UOOOOOOO";E';G';E';A$;E$;A$;E';A';E$;A$;E$;A$;"0;452GGGGGGC";E$;A$;E$;A';E$;
A$;E$;A$;E';;A$;E$;A$;E$;A$;E';A$;E';A';E';A$;E';A'~E$
;1\$;"6";
1350
RE"
1360
RE"
.
1370
LPR
I
NTu;
036
,i
;~HR$(
121)
;"@@@@@@I'@@"
;
A'
;E'
;1\$;
E$
;A$
;E$
;'1\$
;E$;I\$;
E$;"@'I@I@@at;E';1\
$;E$
;A$
;E'
;A$
;E$
;A$
;E$
;1\$
;E$
;A$
;E$;,A$;E$;
u@@@@I@'"
;E$;
"@@I'@'@'"
,;~$;'A$;
E$
;"1\;$;
E$
;A$;E$;
A$; E$; A$;
~$
;A$;E$; A$;E$; A$; E$ ; A
$;
ES;
A"
$; E$ ; A$; E$; A$ ; E$,; A$
'r"
0"
;C
HR
$'
(
29,
) ;
1380
LPRINT
"V""
.
1390
LPRINT
CHR$(28);"16";CHR$(29);
1400
RE"
1410 LPRINT" 20",
1420
RE"
1430
RE"
.'
1440
LPRI
NT
CHR$
(28) ;
..
;035»" ;CHR$(l'27) ;
II
DDO
;047
II
;F$;F$ ;F$
;F$;
~$;
Fi
;F$;
P$
;F$;
F$;F$;
FS;
P.
;P$
;F'
;F$
;F'
;Ft
;F'
;F$;F$
;F'
;"P$:;Ft
;Ft
;P$;
PS
;1\$;"6
It
'
1450
RE"
','
,',
"
1460
LPRI
NT
CHRS
(28')
';
It
;036
";
CHR$(
127);
"8@8"'I@I@,"
;PSlP$lF$lF$;
Ft;F$
;F$;
F$;F';F$;
F$;F'
$;F$;Ft;F$;P';P$;P';F$;F'lFt;F$;F$;P';F$;F';Ft1A$tC~~t(2');
,
1470
LPRIHT
"0"
,
1480
LPRINT
CHRS,(
~~
>.;
n16"
;CH~$';(
291; "
1490 LPRINT"
'10"
1500
RE"
1510
LPRINT
CHR$(28);";035D~;CHR~(127>;"DDI@@@@"@";F$;'$;P$;F$;P$;F$;F$;pj;F$;F$;F$;
F$
;F$
;F'
;F$;F$
;F'
;Ft,;P$;P$ ;FS
;F'
;F$
;Ft
;F$
;Ft
;F$;A$;"6
at
' "
, 1520
RE"
'
",
1"5"3'0
RE"
,"
."
,'"
1540
LPRIHT
CHR'(28)~"~036";CHR$(127);"@'@I@@@@@@II;F$;F$;F$;F';F$;F$;F$;F$;F$;F$;F$;F
$;F$;F$;F$;F$;F$;F';P$;P$;P$;F';Ff;F$;P$;F$;F$;A$;CHR$(29);
1550
LPRIHT
"L" _ _ .
1560
G$=STRING$(3,CHRt(12()}+CHRf(127)+STRING$(3,CHR$(124»tSTRING$(20,"D")
1570
RE"
'
:>158,OL~RI
NT,
CH,R$
(~8)
;"
16,;03:6"
;CHR$
(127) ; U
DDDDDDDDDD
";Gt
;GS,;GS
;C$;
G$l"GS;G$';G$
;G~$
;G$
;&$
;&$
;&$
;,&';G$,;.&$;&$
;&$
;G,,$,;~$;G$
;ct
;G,~
;&$
;Gt
;C$ ;Gt;G$;
It
8
It
;CHR$
(29) ;
159()
RE"
" "
1600
LPRINT"
0:1
~
3 4 5 6 7 8 9
10
11
12
13
14
15
16 17
18 19
20'21
'22'
23
24
25
26
27
28";CHR$(138)'
1'610
LPRINY'u
WEEK
NU"BERIt;CHRS(141);CHR$(138);CHR$(138>
1620
LPRINT
STRING$(40,"
It)
;"1-979't:;c'HR$(141) ;CHR$('138f, '
1630
LPR
INT
STR
I
HG$
(22,
It
II);"
RELATI
ONSHI
P
OF
PROFIT'
TO
SALES
VOLU"E"
1640
LPRINT
CHR$(141);STRIHGt(27,CHR$(138»
1660
END
A-7
To Next Page
Loading...
General