Sharp PC-1360

PROGRAM EXAMPLES
• PROGRAM LIST
10:1,AIT 0:H=0
20:F:$='40888899F08080'
:F2S='40888890F88000
00"F31='IEE05E20!82
4"
30:D'M 51(5)*1615.(1)='
030C30C000080000';S$
(2)='00800FF08000000
48:SS(3)="00900BFF09000
0':SS(4,='000888F00F
090800':51(5)='00000
8',0C'3380C03"
S0:ClS : WAIT 0:
CURSOR 1~0: PRINT V*
** Sk i j!JJ!\P ***~:
BEEP I
60.CLRSOR 1.1: PRINT "T
he Longest Distance
. ,.
.,
,CURSOR 17.2. PRINT
USING "I.I."IH;'.';
89:CURSOR 1.3: PRINT ·r
ress'the SPQce ke\, '} f
9'3: 1$= INKEU : IF !to
• " THEH 90
!00:CLS • LINE <l4'9.,5)-(
140,5): lHIE -(1310. [
5): LHIE ~(11t3, 15):
ll'IE -(9'9,26)
118:FO~ I=! TO 5: LINE (
113~1*28,26+I'-(100-
1+20,26+1): NEXT r
120:GCURSOR (141,4):
GPRINT FIS: GCURSOR
(141.,4): BEEP 3:
GPPINT '809000009080
130:FOR 1=0 TO 10:
GCURSOR (134~1.4+1):
INT FIS: NE):r I
140: ;\= t 25
150: U~ IHKE'i'S : IF 1,,="
5" THE'! 210
160:X=;(-2: GClPSOR (X,14
,: GPRIrlT F2$: IF ;0
110 THEN 150
170:GCURSOR (~, 14).
GPRINT "000000900000
180:FOR 1=0 TO II:
GCURSOR (1 -r,1.,5+1)
: GPRINT FII: NEXT I
190'CUP:30R 19 .• 3: "ALT 16
0: PRHIT "0 m"';
200:(;OTO 50
21S,J=(X-110) •. 02: FOR I
=X 85 STEP -2:
GCIJRSOR (1,14;',
GPRINT F2$, NEXT I
22B,Y=14, FOR 1=185 TO 8
o ·,!'Y=Y+J:
GCUR'30R (1,If):
GPR NT FI" NEXT I:B
:;:t1.~ :<:::;;:36
23Q:R= RHD 3: ON R GOTO
24th 25D ~ 260
240:GCURSOR (0,10):
GPPINT "101010109254
38 e~:B=B+l: GO TO 27
o
250,GCURSOP (0.19),
GPRHlT
0000 ": GOlO 270
268: 0d0):
GPRINT "103854921010
010"'B=B-l
270:1$= HlKEY$
28J:IF 1$='4' LET B=B-l
290:1F 1'="6' LET 8=8+1
300,[F B(-5 OR B)5 THEN
3'10
3!8:GCURSOR (50,18 :
SPRINT SI(H*.5+3)
320:X=X-(5- ~BS (S»*.2:
Y=Y+.26: IF Y)31-
INT X*.951 THEN 363
330:GCURSOR (X,Y):
[iPSlN! F2$
340: IF n27 I.n c=
PO NT (X,Y+l) IF C
G03IJR 420
350' GO TO 230
360:8=( 00-X)*1.S:
CURSOR 18,3: PRINT
USING 'Ytttt1ttt'~ :s;:
WRIT 320' PRINT '.'
370:IF S)H LET H=G
5:;;8: GO TO 50
3'j0:FOR !='! TO 31'
GCIJP:30R 0(, Il:
GPPHlT F3.: I
400: 1:3,3: I"ArT 16
0: PRHlT "F,"ll"'n'i
410'GOTO 58
42Q'FOR 1=2 TO 5' LINE (
119-1+20.26+1)-(100-
I:¥21~h 26+ r
RE'f!JRej
1394 bytes