home *** CD-ROM | disk | FTP | other *** search
/ The Best of the Best / _.img / 02150 / start.asc < prev    next >
Text File  |  1988-10-10  |  2KB  |  32 lines
  1. rem Startprogramm zum Grammatikkurs Bonne Chance
  2.  
  3. cls:color 7,0:locate 2,5: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  ***** "
  4. color 7,0
  5. locate 5,25:color 0,7:print" G R A M M A T I K K U R S "
  6. locate 9,5:color 7,0:print"nach dem Lehrbuch ";:color 0,7:print" BONNE CHANCE I/II ";:color 7,0:print" der bernischen Primarschulen,
  7. locate 11,15:print"erhältlich im Staatlichen Lehrmittelverlag Bern
  8. locate 14,10:print"alle Programme werden gleich gesteuert:
  9. locate 16,10:print"- Die Auswahl erfolgt mit den ";:color 0,7:print" CURSORTASTEN ":color 7,0
  10. locate 17,10:print"- wenn man sich entschlossen hat, so drückt man die ";:color 0,7:print" LEERTASTE ":color 7,0
  11. locate 18,10:print"- die Taste ";:color 0,7:print" F5 ";:color 7,0:print" gibt Hilfestellung
  12. locate 19,10:print"- zum Menu gelangt man jeweils durch drücken der Taste ";:color 0,7:print" F10 ";:color 7,0
  13. locate 23,25:print"beliebige Taste drücken!
  14. 100 i$=inkey$:if i$="" then 100
  15. cls:locate 2,24:print"und nun die   ";:color 15,0:print"Tastaturfrage:":color 7,0
  16. locate 05,10:print"haben Sie die ";:color 0,7:print" Schweizer Tastatur ";:color 7,0:print"  (bei ä,ö,ü stehen auch noch
  17. locate 7,47:print"à,é und è auf der Tastenkappe)
  18. locate 10,10:print"oder die      ";:color 0,7:print" deutsche Tastatur  ";:color 7,0:print"  (Ö Ä Ü stehen allein auf der
  19. locate 12,47:print"auf der Tastenkappe )
  20. locate 15,4:print"(falls Sie Ihre eigene Tastatur schon geladen haben, so drücken Sie ein ";:color 0,7:print" e ";:color 7,0:print")
  21. locate 19,10:print"Tippen Sie je nach dem ein ";:color 0,7:print" s ";:color 7,0:_
  22. print"  oder ein ";:color 0,7:print" d ";:color 7,0:print" oder ein ";:color 0,7:print" e ";:color 7,0:print" !
  23. locate 22,15:print"Oder wenn ein Problem auftaucht, den Buchstaben ";:color 0,7:print" p ":color 7,0
  24. 200i$=inkey$:if i$="" then 200
  25. if i$="s" or i$="S" then shell"keybsg.com":goto 300
  26. if i$="d" or i$="D" then shell"keybgr.com":goto 300
  27. if i$="e" or i$="E" then 300
  28. if i$="p" or i$="P" then cls:shell"type readme.doc":goto 400
  29. goto 200
  30. 300 run "menu.tbc"
  31. 400 goto 100
  32.