Sharp PC-1360

PROGRAM EXAMPLES
• PROGRAM LIST
10'"A''' WAF 0: CLEAR' CLS , USING
20: INPUT "NO. OF BELT~";YK
30:IF YK,l OR YK>Z5 BEE? 2: GO TO 10
40:0fM Y$(YK),T$(0)tlS,YT(YK)
58:FOR I~i TO YK
60:e05 : PRINT "NAtIE OF BEUC"; STRS
;")"",,: INPUT -Yet(£)
70: IF LEN 'r'( 1»7 BEEP 2: GOTO 60
80:NEXT I
80:eLS : INPUT "NO. OF ITEHo";XK
10G:IF XK(2 CR XD12 BEEP 2: Gon 90
110: 0 1M X$( XK), OO(XK" YK), XTCXK), C« XK,,1
),HP(;'<K)
120: FOR 1~1 TO XK
130:CL5 : PRINT "NAME OF ITEM(": SIR"
i"':": INPUT XI()
140: IF LEH X$( 1»7 BEEP 2: GOrD 130
15a:NEXT r
'150: FOR Y=1 TO YK: FOR X=1 TO XK
17a:c~s : PRINT Y$(Y): PRINT )($(X)
180: 0=0: [NRUT "DATA=";o
190:0= INT 0: IF LEN STR. 0)8 BEEP 2:
Goro L70
200: OO(X, Yl=O: NEllY X: NEXT Y
210:CLS :TOCD)="": PRINT "GR~PH T[TlE~"
: INPUT T'H0)
220: IF LEN T$(0»8 BEEF 2: GOTO 210
238:CLS : GOSUB l1
T
e
240: Sl~ INT (XK/5>+1: X~0: A=96
250:FOR 0=1 TO 51
268:$20::4: IF' 0""S1 LET S2""XI<~~:t:O+5
270: GLClJRSOR (0~ ,-2(0: SORGN
280: X2~AK(S2+D
238:LLTNE ~(X2~0»)l1
300~ FOR r "'8 TO 32#'1
316: U.,tNE 0(2- ItA, 8)- O<2-nA~ ~24), Ll:
NE:,T I
FOR 1"0 TO S2
330:GlClJRSOR (AtI+8,-18): lPRlHT "P";X$
01,., O! NEi'lT r
340:FCR Y~1 Te YK: GlCURSOR (0j~24)~
SORGN
350tRlINE ~(X2,0)~Ll
360:FOR 1
0
8 TO 52t1
378: LlINE 0<2- I i:A. \3) --< X2-'! :K'::h <24),1....1:
NEXT T
8
388:FOR 1'0 TO 52
380: IF «+I"0 GLCORSCR (AH+8, "18):
lPRINT "P";'($(Y): GOTO 410
480:GLCURSOR (AH"S, ,,18): LPRINT CHR$ 2
71"011": LPRINT "P"; USING "1t##C#i##
#:it"';oo(x+r w Y)
4113: LPR I NT OHR$ 27;" ei2": NEH I: NEXT
y
420:LUNE (X2, "24l-ce.-24).Ll: SORON
420: X'X+4: NE:<T 0
44Cl:t,.TEXT
450; Z><=350: ZVo:::S00
468:flS"0: FOR K=l TO /K'L" LEN Y$(KlO
IF L>MS lET MS=L
47e~NEXT Kt IF 1'1$"'·'1 LET MS",2
480:~ P,{o;;:-S8: X:.:: !'1S:t:lZ""6:
498: IF (Z>(+i'lS,t:L2+5.U )480 LET 2X0;0480-1'1$:;:
12-51
580: IF (2X+:<+36»480 LET ZX~480"X
5101PXo .. INT «(480,,"2X)/2): IF PNe, LET P
x/x
523:XH, INT (ZX/10):PA=:<H .. ..--l1'I
533: KH/ INT (2Yf(yK12+( YK"1))) 1 OB=KH~2
540~ IF 08)75 LET 08~75tKH~38
5:18: RESTORE 568: FOR l~i TO :KK: REND H
PC l>: NE:<T 1
5C8~ DATA :t.i ~ 22~ 33, e2~ 12~ 23~ 31,01,13. 2i t
32,63
5TO:FOR K/1 TO .. XK::KTeV,)/6: FOR 1=1 10 Y
k~;'<T<K)~XTCK)+DrJ('k.r): NE:<T I: NE:<T
K
580;FOR
K:
K
K'1 TO "rK:"(TCK)o8: COR l~l TO :<
K)-~YT()O+D[)(!~K)~ NEXT r: NEXT
590=GOSU8 1170% USIHG ; GLCURSOR (P><? ~
313). C:SXZE 2~ LPRINT "p";T$(e)
50\?; 51_,CURSOR (P><. p')') ~ SClRGi"i
610:YU~5:YD'/5':KMo"XH::~~i2: IF L:K300
LET L::::5
S28:CSIZE
63e:FOR K=8 10 LG:YJr= .... <t!+"H: AA". O:tL
540: IF K>'l LET AX~.9.L
650:1F K~10 LET AX=i.3IL
60.0: GLCURSCR C>:M-A:< ~ YU:K'2)
G}O~LPRUH "P"; SiR$. ()O::10>: IF K""'t8
LPRIIH "P:,"
6813: LLH-IE C<!'h YU)-C'<M, YO) ,l..1: NEXT K