home *** CD-ROM | disk | FTP | other *** search
/ French Postcards Plus / 350a_French_Postcards.dsk / MENU.bas < prev    next >
BASIC Source File  |  2020-07-23  |  2KB  |  66 lines
  1. 10  REM  SELECTION MENU
  2. 20  TEXT : HOME 
  3. 30  PRINT "========================================"
  4. 40  PRINT "  Bayou Bic along with the I.O. Master "
  5. 50  HTAB 17: PRINT "present:"
  6. 55  PRINT 
  7. 60  HTAB 10: PRINT "FRENCH POST CARDS PLUS"
  8. 65  PRINT 
  9. 70  PRINT "========================================"
  10. 100  REM  ENTER SELECTIONS
  11. 105  PRINT 
  12. 110  HTAB 4: PRINT "1) AT THE BEACH"
  13. 120  HTAB 4: PRINT "2) THE SINGLE'S SCENE"
  14. 130  HTAB 4: PRINT "3) GROCERY GOODIES"
  15. 140  HTAB 4: PRINT "4) THREE-WAY FUN"
  16. 150  HTAB 4: PRINT "5) SALES CLERK FANTASY"
  17. 160  HTAB 4: PRINT "6) A TONGUE LASHING"
  18. 170  HTAB 4: PRINT "7) TEACHER'S LESSON"
  19. 180  HTAB 4: PRINT "8) BETTER THAN PICTURES"
  20. 190  HTAB 4: PRINT "9) END"
  21. 210  VTAB 22
  22. 220  HTAB 9
  23. 230  PRINT "ENTER SELECTION (1-9) ";: INPUT N
  24. 240  IF N <1  OR N >9  THEN 210
  25. 290  REM  ----------------------
  26. 300  REM  ENTER CTRL D'S
  27. 310  REM  TO RUN PROGRAM
  28. 320  REM  SECTIONS -------------
  29. 330  IF N = 1  THEN 500
  30. 340  IF N = 2  THEN 600
  31. 350  IF N = 3  THEN 700
  32. 360  IF N = 4  THEN 800
  33. 370  IF N = 5  THEN 900
  34. 380  IF N = 6  THEN 1000
  35. 390  IF N = 7  THEN 1100
  36. 400  IF N = 8  THEN 1200
  37. 410  IF N = 9  THEN 1900
  38. 500  PRINT  CHR$(4);"RUN BEACH SCENE"
  39. 600  GOSUB 2000
  40. 610  PRINT  CHR$(4);"RUN SINGLE SCENE"
  41. 700  GOSUB 2000
  42. 710  PRINT  CHR$(4);"RUN BALONEE SCENE"
  43. 800  GOSUB 2000
  44. 810  PRINT  CHR$(4);"RUN FOR & AFT SCENE"
  45. 900  GOSUB 2000
  46. 910  PRINT  CHR$(4);"RUN SIXTY-NINE SCENE"
  47. 1000  REM  SPOT FOR CHOICE 6
  48. 1010  GOSUB 2000
  49. 1020  PRINT  CHR$(4);"RUN LICK SCENE"
  50. 1100  REM  SPOT FOR CHOICE 7
  51. 1110  GOSUB 2000
  52. 1120  PRINT  CHR$(4);"RUN TEACHER SCENE"
  53. 1200  REM  SPOT FOR CHOICE 8
  54. 1210  GOSUB 2000
  55. 1220  PRINT  CHR$(4);"RUN FRENCH SCENE"
  56. 1900  END 
  57. 1990  REM  *********************
  58. 2000  FOR I = 770 TO 790
  59. 2010  READ J
  60. 2020  POKE I,J
  61. 2030  NEXT 
  62. 2040  DATA  173,48,192,136,208,5
  63. 2050  DATA  206,1,3,240,9,202,208
  64. 2060  DATA  245,174,0,3,76,2,3,96
  65. 2070  RETURN 
  66. 2080  REM  *********************