semestralka
[mirrors/Programs.git] / turbobasic / 1998 / SYSTEM.BAS
CommitLineData
0f95cc4b
H
1SKODA:\r
2CLS\r
3SCREEN 1\r
4COLOR 0,15\r
5LOCATE 2,2\r
6INPUT " ZADEJTE VSTUPNI PIN NA TOTO CD " ; No$\r
7 IF No$ = "TTDA" THEN GOTO POKR\r
8 GOTO SKODA\r
9POKR:\r
10CLS\r
11LOCATE 2,2\r
12INPUT " JMENO UZIVATELE " ;N$\r
13CLS\r
14LOCATE 2,2\r
15PRINT " CD VITA UZIVATELE " N$\r
16LOCATE 25,2\r
17INPUT " ZMACKNETE LIBOVOLNOU KLAVESU " ;X10$\r
18END\1a
This page took 0.175699 seconds and 4 git commands to generate.