extra yield

[mirrors/Programs.git] / turbobasic / 1998 / 3RD-PA.RTY / MENU.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\r
FOR A=1 TO 6\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   TELEF "\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
\r
RETURN\r
'-----------------------------------------------------------------------------\r
KONEC :\r