REM 944BASIC 'ƒ�ƒVƒA(ƒLƒŠƒ‹)•¶Žš‚ÌŠw�K'

GOSUB *INIT

DIM MN(3)='‘啶Žš(±Ù̧ÍÞ¯Ä�‡)','‘啶Žš(ƒ‰ƒ“ƒ_ƒ€)','�¬•¶Žš(±Ù̧ÍÞ¯Ä�‡)','�¬•¶Žš(ƒ‰ƒ“ƒ_ƒ€)'

FONT 144
FOR I=0 TO 32
 COL=I%10
 ROW=INT(I/10)
 GCURSOR COL*24,ROW*24
 PRINT UPPER(0,I)
 GCURSOR COL*24,(ROW+4)*24
 PRINT LOWER(0,I)
NEXT I

PRINT ''
FONT 144:PRINT ' =ƒLƒŠƒ‹•¶Žš‚ÌŠw�K='

KEYWAIT
CLS


*LOOP SYNC
 FONT 64
 LOCATE 4,4
 MENU MN,4,0
 M=MENUNO
 GOSUB *DISP
GOTO *LOOP


*DISP
HEADER MN(M)
SHUFFLE R
FOR I=0 TO 32
 FONT 144
 GCURSOR 106,80
 IFBLK M=0
  ALPHABET=STR(UPPER(0,I))
  PRON=STR(UPPER(1,I))
 ELSEIF M=1
  ALPHABET=STR(UPPER(0,R(I)))
  PRON=STR(UPPER(1,R(I)))
 ELSEIF M=2
  ALPHABET=STR(LOWER(0,I))
  PRON=STR(LOWER(1,I))
 ELSEIF M=3
  ALPHABET=STR(LOWER(0,R(I)))
  PRON=STR(LOWER(1,R(I)))
 ENDIF

 PRINT ALPHABET
 
 REM ƒEƒFƒCƒg(ƒL�[“ü—Í‚Å�æ‚É�i‚ß‚é
 REM ‚悤‚É�AFORƒ‹�[ƒv‚ðŽg—p)
 FOR J=0 TO 40
  SYNC
  IF INKEY THEN J=40
 NEXT J
 FONT 64
 L=LEN(PRON)
 L=INT(L/2)
 GCURSOR 110-L*5,110
 PRINT PRON

 REM ƒEƒFƒCƒg
 FOR J=0 TO 20
  SYNC
  IF INKEY THEN J=20
 NEXT J

 CLS
 HEADER MN(M)
NEXT I

RETURN



*INIT
DIM UPPER(1,32)
DIM LOWER(1,32)

UPPER(0,0)='„@','a : ±°'
UPPER(0,1)='„A','be : ÍÞ°'
UPPER(0,2)='„B','ve : ³Þª°'
UPPER(0,3)='„C','ge : ¹Þ°'
UPPER(0,4)='„D','de : ÃÞ°'
UPPER(0,5)='„E','je : ¨´°'
UPPER(0,6)='„F','jo : Ö°'
UPPER(0,7)='„G','zje : ¼Þª°'
UPPER(0,8)='„H','ze : ¾Þ°'
UPPER(0,9)='„I','i : ²°'
UPPER(0,10)='„J','ikratk@j@ : ²°¥¸×°Ä©¶Ô'
UPPER(0,11)='„K','ka : ¶°'
UPPER(0,12)='„L','el : ´°Ù'
UPPER(0,13)='„M','em : ´°Ñ'
UPPER(0,14)='„N','en : ´°Ç'
UPPER(0,15)='„O','o : µ°'
UPPER(0,16)='„P','pe : Íß°'
UPPER(0,17)='„Q','er : ´°Ù'
UPPER(0,18)='„R','es : ´°½'
UPPER(0,19)='„S','te : ð'
UPPER(0,20)='„T','u : ³°'
UPPER(0,21)='„U','ef : ´°Ì'
UPPER(0,22)='„V','xa : Ê°'
UPPER(0,23)='„W','tse : ª°'
UPPER(0,24)='„X','che : Áª°'
UPPER(0,25)='„Y','sha : ¼¬°'
UPPER(0,26)='„Z',"sh'sha : ¼¼¬°"
UPPER(0,27)='„[',"tv'ordij znak : Ä©³Þ¨Ö°ÙÄÞ©²¥½ÞÅ°¸"
UPPER(0,28)='„\','i/ : ©¨'
UPPER(0,29)='„]',"m'axk'i/j znak : Ь°Ì·°¥½ÞÅ°¸"
UPPER(0,30)='„^','e : ´°'
UPPER(0,31)='„_','ju : Õ°'
UPPER(0,32)='„`','ja : Ô°'

LOWER(0,0)='„p','a : ±°'
LOWER(0,1)='„q','be : ÍÞ°'
LOWER(0,2)='„r','ve : ³Þª°'
LOWER(0,3)='„s','ge : ¹Þ°'
LOWER(0,4)='„t','de : ÃÞ°'
LOWER(0,5)='„u','je : ¨´°'
LOWER(0,6)='„v','jo : Ö°'
LOWER(0,7)='„w','zje : ¼Þª°'
LOWER(0,8)='„x','ze : ¾Þ°'
LOWER(0,9)='„y','i : ²°'
LOWER(0,10)='„z','ikratk@j@ : ²°¥¸×°Ä©¶Ô'
LOWER(0,11)='„{','ka : ¶°'
LOWER(0,12)='„|','el : ´°Ù'
LOWER(0,13)='„}','em : ´°Ñ'
LOWER(0,14)='„~','en : ´°Ç'
LOWER(0,15)='„€','o : µ°'
LOWER(0,16)='„�','pe : Íß°'
LOWER(0,17)='„‚','er : ´°Ù'
LOWER(0,18)='„ƒ','es : ´°½'
LOWER(0,19)='„„','te : ð'
LOWER(0,20)='„…','u : ³°'
LOWER(0,21)='„†','ef : ´°Ì'
LOWER(0,22)='„‡','xa : Ê°'
LOWER(0,23)='„ˆ','tse : ª°'
LOWER(0,24)='„‰','che : Áª°'
LOWER(0,25)='„Š','sha : ¼¬°'
LOWER(0,26)='„‹',"sh'sha : ¼¼¬°"
LOWER(0,27)='„Œ',"tv'ordij znak : Ä©³Þ¨Ö°ÙÄÞ©²¥½ÞÅ°¸"
LOWER(0,28)='„�','i/ : ©¨'
LOWER(0,29)='„Ž',"m'axk'i/j znak : Ь°Ì·°¥½ÞÅ°¸"
LOWER(0,30)='„�','e : ´°'
LOWER(0,31)='„�','ju : Õ°'
LOWER(0,32)='„‘','ja : Ô°'

DIM R(32)
FOR I=0 TO 32
 R(I)=I
NEXT I

SHUFFLE R
RETURN