A ll and more about Sharp PC-1500 at http://www.PC-1500.info• Program List (PC-1500)10•0 l M TJC20>,Mf$<20l t J820: SE TCOM 1200, 8,N, 130: SETD t:U200: Sf:T OEU Kl2 JI!: A=02 11 : INPUT S0 $: Fl =UAL ( 8$)2J2 : I F B= - l IH EN J00220: ! NPUT $CS223: INPUT $M E$IAI228: TJ =VA L (($)23J : S E:TOEV PO232: LP RJNT "0 ":Z33 : 5£ TDE V Kl234 : JF O=IT HEN 3 00240: A=A•J230: IF A> 20 THENSTOP260 : GOTO 21 J300: C= I'>3 J 0:SETOEV32 0: GOTO 400400: "A " : zs =····:lNP Ur "DJ SP<=I: PR!N, I NIC "I EX11-l " ;Z S4J0: IF Z$=" =" THE N500420 : IF ZS ="•"THEN70042 J: JF ZS=" - "THENll0B430 : GOTO 400500: wAJ T J5 J0 : Q=0520:.PR JNT USING " U~UMUUM "; T J I ;";";M ES IA )530: AS .=INK EYS540: l F AS.=CHRS I J 0ITllEN 600 .55 0: IF As = CHRS (J I>T HE N 650560: I F AS =CHR$ (2 4>THEN 400570: GO TO 530500: 4 = A+ J61 0 : IF AICLET A=062 0:GO TO 52 06 5 0:1'l ~ A-J660: lf: A< 0L ET A=Cc / 0: GOTO 5 20700:CS JZE 2: LPRJNT73 0: FQR A=0T O C7 10: L PRJNT USI NG "~H~tilttiN " ; T l((.\).;·•: ": LPRINT M£S ( A)750: NEXT A?/0 : GOTO 400800:C ONS OL £ B0, l8 10: QPN "LP RT "820 : F OR A=0T O C83e: LPR JN T US IN G ··ttliff~hUU " ; T )( 11 ); .• : " ;M E• Bq0; N£ XT A850 : OPN860 : GOTO 400S TA TUS I69-'86Do not sell this PDF !!!Memory contentsA OA T 1\ PO I N f8 f NO El.AGc f: NO PO I NTAS CO NTFIOLER fOA O f"NAR ()AtJDOOWNWAAO S HIF t8$ A.ECEPT !C N B V f:FERcs R€C£ P l l0N avFFERZS SEL EC TION OF01SP1AY M CO lATl ( 20) CAT £f"ES ( ?.0)* 1201 M€$St.G!: |
