home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
AMIGA PD 1
/
AMIGA-PD-1.iso
/
Programme_zum_Heft
/
Programmieren
/
Kurztests
/
ACE
/
Prgs
/
learning
/
hellas.lha
/
Hellas
/
hellas.b
< prev
next >
Wrap
Text File
|
1995-01-26
|
2KB
|
73 lines
' H E L L A S . B
'
' Version : 1995.01.05
' Author : Harald Arnesen <haralda@oslonett.no>
'
' This program is public domain. The included font 'CGTriumvirateGR'
' is NOT public domain. The bitmap was made from the CompuGraphic font
' in the Hellas_WB package found on Aminet, and the READ.ME file says
' the package is freeware.
'
' BASIC compiler used: ACE 2.3 (thanks, DB!).
'
' This program helps you learn the Greek alphabet.
' It displays a random lower-case letter, and you are asked to write
' the name of the letter. If you guess wrong, the upper-case letter
' will be displayed. If you enter a blank line, the program ends.
'
' Tested on an A3000 with KS/WB 3.1 and an A600 with KS 2.04/WB 2.1.
'
' See you all in beautiful Greece this summer!
DEFINT a-z
DIM uppercase$ (24), lowercase$ (24), lettername$ (24)
'According to my Linguaphone course, these are the letter names.
'DATA alpha, vita, gamma, delta, epsilon, zeta, eta, theta, yiota, kappa, lambda
'DATA mi, ni, ksi, omikron, pi, ro, sigma, sigma, taf, ipsilon, fi, hi, psi, omega
'According to DB's physics book, these are correct
DATA alpha, beta, gamma, delta, epsilon, zeta, eta, theta, iota, kappa, lambda
DATA mu, nu, xi, omicron, pi, rho, sigma, sigma, tau, upsilon, phi, chi, psi, omega
RESTORE
letter = 193
FOR i=0 TO 24
uppercase$ (i) = CHR$ (letter)
lowercase$ (i) = CHR$ (letter + 32)
READ lettername$ (i)
++ letter
NEXT
WINDOW 1, "Learn the Greek alphabet", (100,40)-(480,160),0
RANDOMIZE TIMER
i=RND 'First pseudorandom number is always the 0.16894789. Bug in ACE? (HA)
'Yes, it's on my list to fix. Only matters if the first random number
'is important to your program. Your workaround is fine though. (DB)
WHILE 1
showupper = 0
i = RND * 24
REPEAT
CLS
FONT "CGTriumvirateGr", 24
LOCATE 2, 6
PRINT lowercase$ (i)
IF showupper THEN
LOCATE 2, 8
IF i = 17 THEN 'There are two small sigmas
PRINT uppercase$ (18)
ELSE
PRINT uppercase$ (i);
END IF
END IF
FONT "Courier", 24 'INPUT doesn't like proportional fonts
LOCATE 2, 10
INPUT, guess$
IF guess$ = "" THEN
WINDOW CLOSE 1
STOP
END IF
showupper = 1
UNTIL guess$ = lettername$ (i)
WEND