Sharp PC-E500/E500S Technikersoftware

GREEK.144

Grichisch

GREEK.144 (1.501 Bytes)

10 ' GREEK.144 (Greek)
15 CLEAR
20 MERGE "G:COMN.00$"
100 DATA "              *  GREEK  *",@
110 DATA " ",&81," ",&A1," Alpha   (a)   | ",&82," ",&A2," Beta    (b)",@
120 DATA " ",&83," ",&A3," Gamma   (g)   | ",&84," ",&A4," Delta   (d)",@
130 DATA " ",&85," ",&A5," Epsilon (",&C0,")   | ",&86," ",&A6," Zeta    (z)",@
140 DATA " ",&87," ",&A7," Eta     (",&F2,")   | ",&88," ",&A8," Theta   (th)",@
150 DATA " ",&89," ",&A9," Iota    (i)   | ",&8A," ",&AA," Kappa   (k)",@
160 DATA " ",&8B," ",&AB," Lambda  (l)   | ",&8C," ",&AC," Mu      (m)",@
170 DATA " ",&8D," ",&AD," Nu      (n)   | ",&8E," ",&AE," Xi      (x)",@
180 DATA " ",&8F," ",&AF," Omicron (",&9F,")   | ",&90," ",&B0," Pi      (p)",@
190 DATA " ",&91," ",&B1," Rho     (r)   | ",&92," ",&B2," Sigma   (s)",@
200 DATA " ",&93," ",&B3," Tau     (t)   | ",&94," ",&B4," Upsilon (u)",@
210 DATA " ",&95," ",&B5," Phi     (ph)  | ",&96," ",&B6," Chi     (ch)",@
220 DATA " ",&97," ",&B7," Psi     (ps)  | ",&98," ",&B8," Omega   (",&F3,")",@
230 QMA=220:QMI=100:R6=QMI
250 ' display routine
260 GOSUB *CG
270 RESTORE R6:LOCATE 0,0
280 QI=0
290 FOR R1=0 TO 3
300 QWT$=""
310 READ QW1$:IF QW1$="@" THEN 340
320 QCK$=LEFT$ (QW1$,1):IF QCK$="&" THEN QW1$=CHR$ VAL QW1$
330 QWT$=QWT$+QW1$:GOTO 310
340 QLT=LEN QWT$:QWK$=LEFT$ (QCL$,40-QLT)
350 PRINT QWT$;QWK$
360 NEXT
370 Q4$=INKEY$ &1:P1=ASC Q4$
380 IF R6>QMI AND P1=4 THEN R6=R6-30:GOTO 270
390 IF R6<QMA-30 AND P1=5 THEN R6=R6+30:GOTO 270
400 GOTO 370

Generated by (c) Casio FX-850P/FX-880P Notepad 2.02

(c) by mani.becker@web.de - http://blog.manib.bplaced.net