Sharp PC-1360

63e:LLlNE (XM,YO+YU)-«l,@),Li: CSIZE :1
700:$,'08-4
/i1J:FDR KA=l TO YK:SX=g:S'("S'(~OB-KH
n0:MX'-(MSt12+8):MY"S'l~KH-6
73e:GLCURSOR (MX,MY)' LPRINT "P"rY$(KA)
740:TT'(l:PN=8
'50:FOR K:o:o1 TO XK:PN::::PN+l: TT~TT+DDO(rkl::j
)
,GO: IF YTCKA)"0 LET EK'0: GOIO 780
770:PC=TT+YHKAlt100:EX+ lNT (P[c,PA)
780: IF 8:<+5:, AI'O K< >1 THEN 820
7'30: LLINE (SX~ SY)--(E><, sy)~ L:l
8013:LUNE -CEX,SY"08),L:l
810:LUNE -(S:<,S'/+081,U
820: fF K::::L RLfHE ~<0~08) lL1
830:Ir KA:::::i THEH 910
840:Ll~Z
850: IF K""XK Ll.IHE (E><,SY)~(E>{~SY+f<H)~ll
880: IF K~xe; THEN 800
870: IF K:;;;1. LLINE (SX,SY)~(S>(rS<I'+KH)~L::L
880~ LL IHE (CXCk:), SY+KH) ,-(E:<* SY;;, '~i
8S0!lLINE -(E>(~SY),Ll
380'Ll-0
910: [F EX< >SX 605UB 1190
S20:SX=:E><~ IF k<XV LET C:-'{' K)c;:E><
830: NEtKT K: NEXT KA
840; s><"",e~ SYc:;;SY-OB'-KH-'5
950 ~ GLCURSOR (S>{ ~ $'\')! SORGN
S60~ 'l'U=5: 'fD::::-5: XM~~;<H: SI!)~l
970: FOR K'0 TO 10: XM-X~l+XH
980~ IF SW< >1 LLINE 0<1"1, VD)-'C.;;n.
GOTO 1B00
S90:LLINE O<Nj'r'U)~(Xr'lrYD),L:.L
1800: S!IJ=~'S~D NEXT K
1010:'c,UNE (XM, YO"IU),,(0,0) ,L1
1028: GlCURSOR (0., ~kH-5): SORGN
1030:SY~0:S1-1: FOR PN"l TO t<K
1840: IF Hn S1(0 LET SX"";>\rH5~E><"':S;~+><H:K
2~ GGYO 1060
1050: SX=: ~8g: E>{=:XHr2'~·60
108'0 ~ LL I NE (S>< ~ son ~ (E;~, S')') ,Ll
t670n,LINE -(EX, $','-08), L1
1.080: l.l tNE -(s>{~ $'0'-08) ~ 1_1
109BtLLINE ~(Sx~S'n,u.
1180: GOSU8 H08: X"EX+3: '(~S'r' 'C8'2~6
9
PROGRAM EXAMPLES
l1:lO:GLCURSOR (X,Y): LPRINT "P"IX$(PN)
1128: IF Sl<0 LET SY"S'I-OB"KH
1130:S1"-51' NEXT PN
1.140:S0RGH
U50:GLCURSOR (0, +100)
1160=LPRINT CHR$ 27."&": END
1170:LPRlNT : LPRINT : CSIZE 2: LPRINT
: LTEXT : LPRINT : GRARH
1180:COLOR 8:L~,,0: SORGN : RETURN
11se;CL"" INT (HP(PN)!'18) :PY""HP(PN)-C;.,t
i0: E'I,,5'1"08
1200:(OLCR ((,7
1210:0N PT GOSU8 1240,1298,1340
1220:COLCR \)
1230:RETURH
1240:HH~8!S""1
L258~FOR X=SX+HH TO E:.;; STEP HH: IF X>E
X THEN 1280
12.6.(!~tF 501<>'1 LL"IHE CX,E'{)",,,o:tS'n~Ll,:
SOTD 1288
1270:LLlNE (X,SY)+(X,EY),Ll
1280;5,[0-5,1: NEl<T x: RETURN
1280: HN'8: SW":l
130S!FOR '1+SY-HH TO EY STEP "HN: IF Y{
EY THEN 1330
1310:IF S~j<)1 LLINE (EXlY)-(S>:~Y)fLl:
GOHl 1330
'1320~LLIN'::, (s><~ 'i)-CEI<, y) ~Ll
133a~ S!)l""~Svl! ND<T y~ RETURN
1348: GOSUS 1246: GOSeS 1290: RETURN
3207 bytes