Borland TurboBASIC & TurboPASCAL stuff from 1998 when i started with programming...

[mirrors/Programs.git] / turbobasic / CH.BAS

 GOTO POKR\r
\r
POKR :\r
SCREEN 8 : CLS\r
COLOR 14,1\r
RESTORE BARVY\r
BARVY :\r
\r
    DATA 8,7,15,15,7,8,0,8,7,15,15,7,8,0,8,7,15,15,7,8,0,0,8,8,8,8,8,7,7,7,7,7,7,15,15,15,15,15,7,7,7,7,7,8,8,8,8,8,8,8,8,8,\r
FOR A=1 TO 10\r
REM ZAPLNENO 52\r
REM 1 CARA 6 NEBO 7\r
REM 2 CARY 13 NEBO 14\r
REM PUL CARY 3\r
REM PUL 2.CARY 10\r
REM PUL ZAPLNENI 35\r
   READ C\r
   LINE (A,A)-(640-A,A),C\r
   LINE (A,106-A)-(640-A,106-A),C\r
   LINE (A,A)-(A,106-A),C\r
   LINE (640-A,A)-(640-A,106-A),C\r
   LINE (A,110+A)-(640-A,110+A),C\r
   LINE (A,200-A)-(640-A,200-A),C\r
   LINE (A,110+A)-(A,200-A),C\r
   LINE (640-A,110+A)-(640-A,200-A),C\r
NEXT A\r
\r
DO\r
   A$="TELEFON  DIR    exit   HELP   LOAD "\r
   D=5:X=5:Y=17:C=14\r
   GOSUB MENU\r
   ON MENU GOSUB TELEFON,DIR,KONEC,HELP,LOAD\r
LOOP\r
\r
'-----------------------------------------------------------------------------\r
TELEFON :\r
print "ahoj"\r
RETURN\r
'-----------------------------------------------------------------------------\r
DIR :\r
CALL ANYKEY\r
CALL CLWD\r
RETURN\r
RETURN\r
'-----------------------------------------------------------------------------\r
KONEC :\r