' Program: LCARS-PHAT
' Created: June 27th, 2020
' Creator: Cloud Zimmermann

CLS
SCREEN 0        ' text mode
'PALETTE 0, 1    ' set background color to blue

DIM a%(15)
FOR I% = 0 TO 15: a%(I%) = I%: NEXT I%

a%(1) = 21
a%(2) = 57   ' 15  '17, 24, 12, 13, 14
a%(3) = 20  ' text normal
a%(4) = 38  ' text bold   38, 29, 32, 33
a%(9) = 20
a%(5) = 29
a%(6) = 28   ' 12, 39, 40, 41, 43, 47, 49, 52, 53, 60, 61
a%(15) = 15

PALETTE USING a%
'COLOR 7, 0      ' gray text, background (blue)

'LOCATE 25, 1
'FOR I% = 0 TO 15
 'a%(I%) = I%
 'COLOR I%
 'PRINT " л ";
'NEXT I%

' п л м но ў

LOCATE 1, 1
COLOR 1: PRINT " ллллллллллллллллллллллллллллллллллллллллллллллллллллл ";
COLOR 2: PRINT "ллллллллллллллллллллллллл"
COLOR 1: PRINT "лллллллл": PRINT ""
COLOR 9: PRINT "лллллллл           ";
COLOR 3: PRINT "Logged in: cloudzimmermann": PRINT ""
COLOR 5: PRINT "лллллллл           ";
COLOR 3: PRINT "Stardate:  1141951757": PRINT ""

COLOR 1: PRINT "лллллллл"
PRINT " ллллллллллллллллллллллллл ";

COLOR 6: PRINT "ллллллллллллллллллллллллл": PRINT "": PRINT ""


COLOR 3
PRINT "lcars-2.jpg       "; "prompt.fish       "; "prompt.sh.UTF-8    "
PRINT "prompt.bash       "; "prompt.ksh        "; "prompt.tcsh        "
PRINT "prompt.csh        "; "prompt.rc         "; "prompt.zsh         "
PRINT "prompt.csh.CP437  "; "prompt.sh         "; "theme              "
PRINT "prompt.csh.utf-8  "; "prompt.sh.CP437   "; "                   "

PRINT "": PRINT ""

a%(1) = 21
a%(2) = 57   ' 15  '17, 24, 12, 13, 14
a%(3) = 20  ' text normal
a%(4) = 38  ' text bold   38, 29, 32, 33
a%(9) = 20
a%(5) = 29
a%(6) = 28   ' 12, 39, 40, 41, 43, 47, 49, 52, 53, 60, 61
a%(15) = 15

WHILE INKEY$ = ""
 IF a%(9) = 38 THEN
   a%(9) = 20
 ELSE
   a%(9) = 38
 END IF
 PALETTE USING a%
 SLEEP 1
WEND

END

COLOR 7
PRINT "лВБА"
PRINT ""
PRINT "кФФП"
PRINT "Г  Г"
PRINT "РФФй"
PRINT ""
PRINT "ЩЭЭЛ"
PRINT "К  К"
PRINT "ШЭЭМ"