Sharp CE-515P - Page 32

1870 X2=X1:Y2=Y1
18808 NEXT A
1298 RETURN
1899 REM XXX CIRCLE DEUICE XXX
1100 'O LPRINT "H":T1=83
111@ FOR A=RTO S
112@ T1=T1+B(AQD
1138 X1=28BXSIN (T1X3.6)>:Y1=208BXC0S (T4
X3.6)
114@ LPRINT 'O X153, '3vL
11233 LPRINT '+
116@ NEXT A
117 RETURN
1193 REM XXX PRINT NAME XXX
1202 "E"T1=0
121@ FOR A=0T0 S
1220 T1=T1+B(A>~2
123@ X1=120%SIN (T1X3.6>: Y41i=1Z@*COS (T4
X3.6>
1240 LPRINT "M"3X13:","35Y1
1258 LPRINT "P";CHR$ (65+A>
1260 T1- "1+BA>Y /2
1278 NEXT A
128@ RETURN
1299 REM xxx PRINT TABLE XXxk
1380 "FULPRINT "I*
1328 LPRINT "J48@,8:0,-280,-488:08,0,280
1338 LPRINT "RO@s-—-48"
1349 LPRINT "D480,-4Q"
1350 LPRINT "M328:8"
1360 LPRINT "D320,-28@"
1370 LPRINT "M218,-28@"
1389 LPRINT "D2i@,9"
13939 REM XXX PRINT ITEM Xxx
1400 LPRINT CHR$ (22>5"?c"
1418 LPRINT "M205-30":LPRINT "PBranch"
1420 LPRINT "M2208,-3@":LPRINT "PSales"
143@ LPRINT "M338,-38":LPRINT "Plleight"
1448 LPRINT CHR$ (2253 "?b"3:LPRINT "P(X%
yo
1499 REM x¥X PRINT BRANCH XXX
1500 LPRINT CHR$ (22);"?b"
151@ FOR Z=@T0 S
1528 LPRINT “MB,"}-20-4@%Z:LPRINT “P*;C
HRS (B5+2>3%: "3A$(Z)
1530 NEXT Z
1540 RETURN
1599 REM xXxX PRINT SALES xXx
1608 “G'FOR 1=8T0 S
1610 LPRINT "M220,";~(2@+1x4@):LPRINT
PUIUSING “#t#s# H 3ACD
1620 NEXT I
1632 RETURN
1693 REM xXX PRINT WEIGHT %okx
1708 "H"FOR 1=@T0 S
1718
LPRINT
“M37@5"5USING
§-(208+1%4@>:L
PRINT "P'3USING “###.8"38(])
1728 NEXT I
1730 RETHRN
31