home *** CD-ROM | disk | FTP | other *** search
/ Supremacy 2 / Supremacy-2.iso / Educs / ANGLAIS.MSA / MENU.BAS (.txt) < prev    next >
Atari STOS Basic  |  1986-04-24  |  9KB  |  62 lines
  1. 10 PAPER
  2. 10000 VARNAME
  3. 10010 IF
  4. 10011 IF
  5. 10012 IF
  6. 10020 PAPER
  7. 10030 SHOW
  8. 10040 IF
  9. 10045 IF
  10. 10050 FOR
  11. 10060 VARNAME
  12. 10070 NEXT
  13. 11000 PEN
  14. 11010 RETURN
  15. 20 VARNAME
  16. 20000 DIM
  17. 20010 FLASH
  18. 20030 VARNAME
  19. 20040 VARNAME
  20. 29990 RETURN
  21. 30 LOCATE
  22. 31000 CLEAR KEY
  23. 31010 PEN
  24. 31020 VARNAME
  25. 35000 LOCATE
  26. 35010 VARNAME
  27. 35020 IF
  28. 35030 IF
  29. 35040 IF
  30. 35050 GOTO
  31. 40 LOCATE
  32. 40000 HIDE
  33. 40010 FOR
  34. 40020 VARNAME
  35. 40030 FOR
  36. 40040 IF
  37. 40050 VARNAME
  38. 40060 IF
  39. 40070 FOR
  40. 40080 FOR
  41. 40090 NEXT
  42. 40100 IF
  43. 40110 IF
  44. 40120 IF
  45. 40130 IF
  46. 5 BREAK
  47. 500 DATA
  48. 50000 PALETTE
  49. 50010 PALETTE
  50. 55000 IF
  51. 55010 CLS
  52. 60 PEN
  53. 600 DATA
  54. 70 VARNAME
  55. 700 PEN
  56. 710 REM open in #9,"face.dep" : input #9,VFAC : close
  57. 715 REM if FAC<>VFAC then 720 else if left$(NP$,2)="ED" then dir$=mid$(NP$,3) else dir$=NP$+""
  58. 716 RUN
  59. 720 REM T$="Introduisez la disquette"+str$(FAC+1) : pen 1 : paper 0 : XA=0 : YA=13 : IA=0 : JA=1 : gosub 40000 : bell : locate 0,14 : print "Puis appuyez sur "; : paper 2 : print "RETURN"; : pen 1 : paper 0 : print " S.V.P."; : clear key : while inkey$<>chr$(13) : wend : clw : goto 710
  60. 80 VARNAME
  61. 90 RESTORE
  62.