home *** CD-ROM | disk | FTP | other *** search
/ The Best of the Best / _.img / 02143 / wahl.bas < prev    next >
BASIC Source File  |  1987-08-08  |  2KB  |  33 lines
  1.  1000 rem ############### wahl #########
  2.  1010 color 7,0:cls
  3.  1020 print ""string$(80,32)"";
  4.  1030 print " ╔"string$(75,205)"╗  ";
  5.  1040 print " ║ * * * * *  R E I S I S W I L E R  S C H U L P R O G R A M M E  * * * * *  ║  ";
  6.  1050 print " ╚"string$(75,205)"╝  ";
  7.  1060 print ""string$(80,32)"";
  8.  1070 print ""string$(22,32)"╔"string$(34,205)"╗"string$(22,32)"";
  9.  1080 print ""string$(22,32)"║ ╔"string$(30,205)"╗ ║"string$(22,32)"";
  10.  1090 print ""string$(22,32)"║ ║";:color 0,7:print"  V E R B E N T R A I N E R   ";:color 7,0:print"║ ║"string$(22,32)"";
  11.  1100 print ""string$(22,32)"║ ║";:color 0,7:print string$(30,32);:color 7,0:print"║ ║"string$(22,32)"";
  12.  1110 print ""string$(22,32)"║ ║";:color 0,7:print"    B O N N E  C H A N C E    ";:color 7,0:print"║ ║"string$(22,32)"";
  13.  1120 print ""string$(22,32)"║ ╚"string$(30,205)"╝ ║"string$(22,32)"";
  14.  1130 print ""string$(22,32)"╚"string$(34,205)"╝"string$(22,32)"";
  15.  1140 print ""string$(80,32)"";
  16.  1150 print "             ╔"string$(54,205)"╗           ";
  17.  1160 print "             ║ Wollen Sie die ";:color 0,7:print"KONJUGATIONEN";:color 7,0:print" üben      ......... F1  ║           ";
  18.  1170 print "             ╟"string$(54,196)"╢           ";
  19.  1180 print "             ║";:color 0,7:print"einzelne schwierige Konjugationen";:color 7,0:print" herauspicken .. F2  ║           ";
  20.  1190 print "             ╟"string$(54,196)"╢           ";
  21.  1200 print "             ║ reine ";:color 0,7:print"VERBENKENNTNIS";:color 7,0:print" anhand der Befehlsform  ... F3  ║           ";
  22.  1210 print "             ╚"string$(54,205)"╝           ";
  23.  1220 print ""string$(80,32)"";
  24.  1230 print "             ┌"string$(54,196)"┐           ";
  25.  1240 print "             │         bitte entsprechende Taste drücken !          │           ";
  26.  1250 print "             └"string$(54,196)"┘     ";
  27. 1300 i$=inkey$:if i$="" then 1300
  28. 1310 if i$=chr$(0)+chr$(59) then run "verbenhs.tbc"
  29. 1320 if i$=chr$(0)+chr$(61) then run "verb2.tbc"
  30. 1325 if i$=chr$(0)+chr$(60) then run "sein.tbc"
  31. 1330 if i$=chr$(0)+chr$(68) then cls:system
  32. 1340 beep:goto 1300
  33.