home *** CD-ROM | disk | FTP | other *** search
/ The Best of the Best / _.img / 02150 / menu.asc < prev    next >
Text File  |  1988-10-10  |  1KB  |  28 lines
  1. cls
  2. rem menu Grammatikkurs
  3. locate 2,30:color 0,7:print" GRAMMATIK - MENU ":color 7,0
  4. locate 5,10:print "      folgende Problemkreise sind vorhanden:
  5. locate 7 ,10:color 15,0:print"1.    ce - cette - ces - cet
  6. locate 9 ,10:print"2.    un - une - des
  7. locate 11,10:print"3.    de - du - de la - des - d'     ohne Mengenproblem
  8. locate 12,10:print"4.    de - du - de la - des - d'     mit Mengenproblem
  9. locate 14,10:print"5.    à - au - aux - à la - à l'     ohne 'chez '
  10. locate 15,10:print"6.    à - au - aux - à la - à l'     und chez
  11. locate 17,10:print"7.    mon - ton - son - etc          mit Namen
  12. locate 18,10:print"8.    mon - ton - son - etc          mit Bildsymbolen
  13. locate 20,10:print"9.    richtige Form des Adjektivs    (nach étape 24)
  14. locate 22,10:print"0     Ausstieg aus dem Programm
  15. locate 24,10:color 7,0:print"              entsprechende Zahl drücken !";
  16. 100 i$=inkey$:if i$="" then 100
  17. if i$="1" then pn$="loewe.tbc":goto 200
  18. if i$="2" then pn$="puma.tbc":goto 200
  19. if i$="3" then pn$="du.tbc":goto 200
  20. if i$="4" then pn$="de_menge.tbc":goto 200
  21. if i$="5" then pn$="hund.tbc":goto 200
  22. if i$="6" then pn$="fuchs.tbc":goto 200
  23. if i$="7" then pn$="alle.tbc":goto 200
  24. if i$="9" then pn$="adject.tbc":goto 200
  25. if i$="8" then pn$="besbild.tbc":goto 200
  26. if i$="0" then cls:system
  27. beep:goto 100
  28. 200 run pn$