home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib22b.dsk / MENU.CREATE.bas < prev    next >
BASIC Source File  |  2023-02-26  |  4KB  |  99 lines
  1. 10  REM  ************************
  2. 20  REM  *     MENU.CREATE      *
  3. 30  REM  *  BY I. LARRY MORRIS  *
  4. 40  REM  *  COPYRIGHT (C) 1985  *
  5. 50  REM  *  BY MICROSPARC, INC  *
  6. 60  REM  *  CONCORD, MA. 01742  *
  7. 70  REM  ************************
  8. 80  HOME : VTAB 12: PRINT "CREATING MENU TEXT FILE..."
  9. 90 NL = 67: DIM L$(NL)
  10. 100 Q$ =  CHR$(34)
  11. 110  REM  CURSOR DEFINITION
  12. 120  DATA  4,0,10,0,18,0,29,0,39,0
  13. 130  DATA  32,141,58,63,183,9,36,0
  14. 140  DATA  32,108,145,58,63,63,183,74,33,36,0
  15. 150  DATA  12,12,223,115,22,23,77,225,7,0
  16. 160  DATA  9,32,255,55,22,46,13,37,4,0
  17. 170  DATA  232,64,233,3
  18. 180  REM  HI-RES EXPAND
  19. 190  DATA  0,0,0,162,0,142,1,3,142,2,3,189,43,3,45,0,3,240,18,189,50,3,13,1,3,141,1,3,189,57,3,13,2,3,141,2,3,232,224,7,48,225,96,64,32,16,8,4,2,1,96,24,6,1,0,0,0,0,0,0,64,48,12,3
  20. 200 L$(0) = "FUNCTIONS ASSIGNED TO THE KEYBOARD:"
  21. 210 L$(1) = "'I', 'J', 'K', 'M', '<', AND '>' CONTROL"
  22. 220 L$(2) = "THE MOVEMENT OF THE CURSOR."
  23. 230 L$(3) = "****************************************"
  24. 240 L$(4) = "*           NIBBLE ARCHITECT           *"
  25. 250 L$(5) = "* COPYRIGHT (C) 1985 BY MICROSPARC INC *"
  26. 260 L$(6) = "A-ALTER      K-RIGHT    U-UNLATCH       "
  27. 270 L$(7) = "B-BOX        L-LATCH    V-VERIFY        "
  28. 280 L$(8) = "C-COPY       M-DOWN     W-WINDOW        "
  29. 290 L$(9) = "D-DOOR       N-NEW      X-EXIT W/O DOOR "
  30. 300 L$(10) = "E-ERASE      O-OLD      Y-YES           "
  31. 310 L$(11) = "F-FIX        P-PLACE    *-CIRCLE        "
  32. 320 L$(12) = "G-GET DATA   Q-QUIT     #-GRID & TITLE  "
  33. 330 L$(13) = "H-HARDCOPY   R-REDRAW   <-SMALLER STEP  "
  34. 340 L$(14) = "I-UP         S-SAVE     >-LARGER STEP   "
  35. 350 L$(15) = "J-LEFT       T-TURN     ?-HELP          "
  36. 360 L$(16) = "PRESS 'N' OR 'O' TO CONTINUE..."
  37. 370 L$(17) = "PRESS THE 'SPACEBAR' TO RETURN..."
  38. 380 L$(18) = "TYPE  ID   XL   YT   XR   YB   COS  SIN"
  39. 390 L$(19) = "*** DISTANCE BETWEEN CURSORS ***"
  40. 400 L$(20) = "ROOM"
  41. 410 L$(21) = "BOX"
  42. 420 L$(22) = "WINDOW"
  43. 430 L$(23) = "DOOR"
  44. 440 L$(24) = "CIRCLE"
  45. 450 L$(25) = "*** MEASUREMENTS ***
  46. 460 L$(26) = "*** STARTING A NEW ROOM ***"
  47. 470 L$(27) = "FEET     INCHES"
  48. 480 L$(28) = "WIDTH       A)        B)"
  49. 490 L$(29) = "LENGTH      C)        D)"
  50. 500 L$(30) = "GRID SIZE   E)        F)"
  51. 510 L$(31) = "SELECT (A-G) TO MODIFY"
  52. 520 L$(32) = "ENTER FILE NAME"
  53. 530 L$(33) = "ENTER NUMBER"
  54. 540 L$(34) = "ARE YOU SURE?"
  55. 550 L$(35) = "SELECT (1-3)"
  56. 560 L$(36) = "OBJECT"
  57. 570 L$(37) = "HORIZONTAL"
  58. 580 L$(38) = "VERTICAL"
  59. 590 L$(39) = "TURN PRINTER ON AND POSITION PAPER"
  60. 600 L$(40) = "PRESS ANY KEY WHEN READY..."
  61. 610 L$(41) = "INSERT NEW DISK IN DRIVE"
  62. 620 L$(42) = "OUT OF BUFFER SPACE "
  63. 630 L$(43) = "INITIALIZING "
  64. 640 L$(44) = "*** HARDCOPY ***"
  65. 650 L$(45) = "G) TITLE"
  66. 660 L$(46) = "1) 3" +Q$ +" X 4" +Q$
  67. 670 L$(47) = "2) 6" +Q$ +" X 8" +Q$
  68. 680 L$(48) = "PRESS 'SPACEBAR' TO STOP PRINTING..."
  69. 690 L$(49) = "NIBBLE ARCHITECT " + CHR$(96) +"1985"
  70. 700 L$(50) = "REORGANIZING BUFFER "
  71. 710 L$(51) = "*** GRID & TITLE ***"
  72. 720 L$(52) = "GRID        A)        B)"
  73. 740 L$(54) = "*** DISK FILES ***"
  74. 750 L$(55) = "D-DELETE     N-NEW       R-REVISE"
  75. 760 L$(56) = "G-GET        Q-QUIT       S-SAVE"
  76. 770 L$(57) = "ENTER NAME"
  77. 780 L$(58) = "('R' WILL REDRAW BEFORE PRINTING)"
  78. 790 L$(59) = "OUT OF RANGE"
  79. 800 L$(60) = "REPLACE 'ARCHITECT DISK IN DRIVE"
  80. 810 L$(61) = "MAXIMUM EXCEEDED"
  81. 820 L$(62) = "NO DATA"
  82. 830 L$(63) = "NO FILES"
  83. 840 L$(64) = "FILE EXISTS - DO YOU WISH TO REVISE?"
  84. 850 L$(65) = "WRONG DISK "
  85. 860 L$(66) = "DISK ERROR "
  86. 870 L$(67) = "3) OUTPUT TO DISK"
  87. 880  REM  CREATE ARCHITECT.MENU
  88. 890 D$ =  CHR$(4): REM  CTRL-D
  89. 900  PRINT D$"OPEN ARCHITECT.MENU"
  90. 910  PRINT D$"CLOSE"
  91. 920  PRINT D$"DELETE ARCHITECT.MENU"
  92. 930  PRINT D$"OPEN ARCHITECT.MENU"
  93. 940  PRINT D$"WRITE ARCHITECT.MENU"
  94. 950  FOR I = 0 TO NL
  95. 960  PRINT L$(I): NEXT 
  96. 970  FOR I = 1 TO 117
  97. 980  READ X: PRINT X: NEXT 
  98. 990  PRINT D$"CLOSE ARCHITECT.MENU"
  99. 1000  HOME : VTAB 12: PRINT "DONE": END