' Program: LCARS-SLIM
' 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 9: PRINT "ÜÜÜÜÜÜÜÜ       ";
COLOR 3: PRINT "Logged in:  cloudzimmermann"

COLOR 5: PRINT "ÜÜÜÜÜÜÜÜ       ";
COLOR 3: PRINT "Stardate:   1141951757"

COLOR 1: PRINT "ÜÜÜÜÜÜÜÜ "
COLOR 1: PRINT " ßßßßßßßßßßßß ";

COLOR 6: PRINT "ßßßßßßßßßßßß   ";

COLOR 4: PRINT "dir C:\users\owner\downloads\lcars"
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 "ÈÍͼ"