home *** CD-ROM | disk | FTP | other *** search
/ Play and Learn 2 / 19941.ZIP / 19941 / GERMAN / GERMANL / PROGRAM.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1994-02-05  |  1.1 KB  |  61 lines
  1. 10  KEY OFF:CLS
  2. 20  PRINT "CHOOSE THE PROGRAM DESIRED"
  3. 30  PRINT "1:  TRANSLATION PROGRAM"
  4. 40  PRINT "2:  HANGMAN"
  5. 50  PRINT "3:  WORTJAGD"
  6. 60  PRINT "4:  MACHWORT"
  7. 70  PRINT "5:  COMBO1"
  8. 75  PRINT "6:  QUIT"
  9. 80  INPUT "ENTER NUMBER FOR PROGRAM AND PRESS RETURN";X
  10. 90  ON X GOTO 100, 260, 380,490, 590, 700
  11. 100   OPEN "CHOICE.BAT" FOR OUTPUT AS #1
  12. 110  PRINT #1, "CLS"
  13. 120  PRINT #1, "ECHO OFF"
  14. 160  PRINT #1, "TRANS"
  15. 210  PRINT #1, "CLS"
  16. 220  PRINT #1, "REPEAT.BAT"
  17. 230  CLOSE
  18. 240  SYSTEM
  19. 250  END
  20. 260  OPEN "CHOICE.BAT" FOR OUTPUT AS #1
  21. 270  PRINT #1, "CLS"
  22. 280  PRINT #1, "ECHO OFF"
  23. 295  PRINT #1, "HANGMAN"
  24. 300  PRINT #1, "CLS"
  25. 340  PRINT #1, "REPEAT.BAT"
  26. 350  CLOSE
  27. 360  SYSTEM
  28. 370  END
  29. 380  OPEN "CHOICE.BAT" FOR OUTPUT AS #1
  30. 390  PRINT #1, "CLS"
  31. 400  PRINT #1, "ECHO OFF"
  32. 430  PRINT #1, "WORTJAGD"
  33. 440  PRINT #1, "CLS"
  34. 450  PRINT #1, "REPEAT.BAT"
  35. 460  CLOSE
  36. 470  SYSTEM
  37. 480  END
  38. 490  OPEN "CHOICE.BAT" FOR OUTPUT AS #1
  39. 500  PRINT #1, "CLS"
  40. 510  PRINT #1, "ECHO OFF"
  41. 530  PRINT #1, "MACHWORT"
  42. 540  PRINT #1, "CLS"
  43. 550  PRINT #1, "REPEAT.BAT"
  44. 560  CLOSE
  45. 570  SYSTEM
  46. 580  END
  47. 590  OPEN "CHOICE.BAT" FOR OUTPUT AS #1
  48. 600  PRINT #1, "CLS"
  49. 610  PRINT #1, "ECHO OFF"
  50. 620  PRINT #1, "COMBO1"
  51. 630  PRINT #1, "CLS"
  52. 640  PRINT #1, "REPEAT.BAT"
  53. 650  SYSTEM
  54. 660  END
  55. 700  OPEN "CHOICE.BAT" FOR OUTPUT AS #1
  56. 710  PRINT #1, "CLS"
  57. 720  PRINT #1, "ECHO OFF"
  58. 730  PRINT #1, "C:"
  59. 740  SYSTEM
  60. 750  END
  61.