home *** CD-ROM | disk | FTP | other *** search
/ BMUG Revelations / BMUG Revelations.toast / Programming / Programming Languages / PC Basic / PCBASIC MPW version / BIncludes / PCBasicDefault.r < prev    next >
Encoding:
Text File  |  1992-01-31  |  8.4 KB  |  463 lines  |  [TEXT/EDIT]
  1. /*------------------------------------------------------------------------------
  2.  
  3.       PCBASICDefault.r    - Default Resource file for a PCBASIC program
  4.       
  5.       January 15, 1992
  6.  
  7.      Copyright © 1984-1992 Pterodactyl Software
  8.  
  9. ------------------------------------------------------------------------------*/
  10.  
  11. #include "Types.r"
  12.  
  13.  
  14. resource 'SIZE' (-1) {
  15.  dontSaveScreen,
  16.  ignoreSuspendResumeEvents,
  17.  enableOptionSwitch,
  18.  canBackground,
  19.  notMultiFinderAware,
  20.  backgroundAndForeground,
  21.  dontGetFrontClicks,
  22.  ignoreChildDiedEvents,
  23.  is32BitCompatible,
  24.  reserved,
  25.  reserved,
  26.  reserved,
  27.  reserved,
  28.  reserved,
  29.  reserved,
  30.  reserved,
  31.  500000,
  32.  250000
  33. };
  34.  
  35. resource 'STR ' (301) {
  36.  "NEXT without FOR"
  37. };
  38. resource 'STR ' (302) {
  39.  "Syntax error"
  40. };
  41. resource 'STR ' (303) {
  42.  "RETURN without GOSUB"
  43. };
  44. resource 'STR ' (304) {
  45.  "Out of DATA"
  46. };
  47. resource 'STR ' (305) {
  48.  "Illegal function call"
  49. };
  50. resource 'STR ' (306) {
  51.  "Overflow"
  52. };
  53. resource 'STR ' (307) {
  54.  "Out of memory"
  55. };
  56. resource 'STR ' (309) {
  57.  "Subscript out of range"
  58. };
  59. resource 'STR ' (310) {
  60.  "Duplicate definition"
  61. };
  62. resource 'STR ' (311) {
  63.  "Division by zero"
  64. };
  65. resource 'STR ' (313) {
  66.  "Type mismatch"
  67. };
  68. resource 'STR ' (314) {
  69.  "Out of string space"
  70. };
  71. resource 'STR ' (319) {
  72.  "No RESUME"
  73. };
  74. resource 'STR ' (320) {
  75.  "RESUME without error"
  76. };
  77. resource 'STR ' (326) {
  78.  "FOR without NEXT"
  79. };
  80. resource 'STR ' (327) {
  81.  "Out of paper"
  82. };
  83. resource 'STR ' (329) {
  84.  "WHILE without WEND"
  85. };
  86. resource 'STR ' (330) {
  87.  "WEND without WHILE"
  88. };
  89. resource 'STR ' (350) {
  90.  "FIELD overflow"
  91. };
  92. resource 'STR ' (351) {
  93.  "Internal error"
  94. };
  95. resource 'STR ' (352) {
  96.  "Bad file number"
  97. };
  98. resource 'STR ' (353) {
  99.  "File not found"
  100. };
  101. resource 'STR ' (354) {
  102.  "Bad file mode"
  103. };
  104. resource 'STR ' (355) {
  105.  "File already open"
  106. };
  107. resource 'STR ' (358) {
  108.  "File already exists"
  109. };
  110. resource 'STR ' (361) {
  111.  "Disk full"
  112. };
  113. resource 'STR ' (362) {
  114.  "Input past end"
  115. };
  116. resource 'STR ' (363) {
  117.  "Bad record number"
  118. };
  119. resource 'STR ' (364) {
  120.  "Bad file name"
  121. };
  122. resource 'STR ' (367) {
  123.  "Too many files"
  124. };
  125. resource 'STR ' (368) {
  126.  "Device unavailable"
  127. };
  128. resource 'STR ' (369) {
  129.  "Communications buffer overflow"
  130. };
  131. resource 'STR ' (370) {
  132.  "Disk or file is Write Protected"
  133. };
  134. resource 'STR ' (373) {
  135.  "Advanced Feature"
  136. };
  137. resource 'STR ' (374) {
  138.  "Rename across disks"
  139. };
  140. resource 'STR ' (376) {
  141.  "Path not found"
  142. };
  143. resource 'STR ' (385) {
  144.  "QD-Graphics Heap Overflow"
  145. };
  146. resource 'STR ' (398) {
  147.  "System Memory Management Error"
  148. };
  149. resource 'STR ' (399) {
  150.  "System I/O Error"
  151. };
  152. resource 'STR ' (400) {
  153.  "Message text not available"
  154. };
  155. data 'CFIG' (301) {
  156.  $"0002 1000 1000 0280 0190 0028 001E 0010 0010 0010 0004 000C 000C FFFF"
  157. };
  158. data 'CFIG' (300) {
  159.  $"0002 1000 1000 0280 0190 0028 001E 0010 0010 0010 0004 000C 000C FFFF"
  160. };
  161. resource 'CNTL' (300) {
  162.  {20, 400, 220, 416},
  163.  0,
  164.  visible,
  165.  12000,
  166.  0,
  167.  scrollBarProc,
  168.  0,
  169.  "vertical scroll bar"
  170. };
  171. resource 'CNTL' (400) {
  172.  {200, 20, 216, 400},
  173.  0,
  174.  visible,
  175.  12000,
  176.  0,
  177.  scrollBarProc,
  178.  0,
  179.  "horizontal scroll bar"
  180. };
  181. resource 'WIND' (300, preload) {
  182.  {40, 10, 325, 500},
  183.  zoomDocProc,
  184.  visible,
  185.  goAway,
  186.  0x8,
  187.  "PCBASIC"
  188. };
  189. resource 'MENU' (1, preload) {
  190.  1,
  191.  textMenuProc,
  192.  0x7FFFFFFD,
  193.  enabled,
  194.  apple,
  195.  {
  196.   "About this program…", noIcon, "", "", plain,
  197.   "-", noIcon, "", "", plain
  198.  }
  199. };
  200. resource 'MENU' (302, preload) {
  201.  302,
  202.  textMenuProc,
  203.  allEnabled,
  204.  enabled,
  205.  "File",
  206.  {
  207.   "Quit", noIcon, "", "", plain
  208.  }
  209. };
  210. resource 'MENU' (301, preload) {
  211.  301,
  212.  textMenuProc,
  213.  0x7FFFFFFD,
  214.  enabled,
  215.  "Edit",
  216.  {
  217.   "Undo ", noIcon, "Z", "", plain,
  218.   "-", noIcon, "", "", plain,
  219.   "Cut ", noIcon, "X", "", plain,
  220.   "Copy ", noIcon, "C", "", plain,
  221.   "Paste ", noIcon, "V", "", plain,
  222.   "Clear", noIcon, "", "", plain
  223.  }
  224. };
  225. resource 'MENU' (304, preload) {
  226.  304,
  227.  textMenuProc,
  228.  allEnabled,
  229.  enabled,
  230.  "Function Keys",
  231.  {
  232.   "Function Key  1", noIcon, "1", "", plain,
  233.   "Function Key  2", noIcon, "2", "", plain,
  234.   "Function Key  3", noIcon, "3", "", plain,
  235.   "Function Key  4", noIcon, "4", "", plain,
  236.   "Function Key  5", noIcon, "5", "", plain,
  237.   "Function Key  6", noIcon, "6", "", plain,
  238.   "Function Key  7", noIcon, "7", "", plain,
  239.   "Function Key  8", noIcon, "8", "", plain,
  240.   "Function Key  9", noIcon, "9", "", plain,
  241.   "Function Key 10", noIcon, "0", "", plain
  242.  }
  243. };
  244.  
  245. resource 'ALRT' (301, purgeable) {
  246.  {100, 15, 210, 345},
  247.  301,
  248.  {
  249.   OK, visible, sound3,
  250.   OK, visible, sound2,
  251.   OK, visible, sound1,
  252.   OK, visible, sound1
  253.  }
  254. };
  255. resource 'ALRT' (400, purgeable) {
  256.  {50, 10, 150, 420},
  257.  400,
  258.  {
  259.   Cancel, visible, sound3,
  260.   Cancel, visible, sound3,
  261.   Cancel, visible, sound3,
  262.   Cancel, visible, sound3
  263.  }
  264. };
  265. resource 'DLOG' (302, purgeable) {
  266.  {100, 15, 180, 345},
  267.  dBoxProc,
  268.  visible,
  269.  noGoAway,
  270.  0x0,
  271.  302,
  272.  ""
  273. };
  274. resource 'DLOG' (300, purgeable) {
  275.     {50, 35, 300, 470},
  276.     dBoxProc,
  277.     visible,
  278.     noGoAway,
  279.     0x0,
  280.     300,
  281.     ""
  282. };
  283. resource 'DITL' (302, purgeable) {
  284.  {
  285.   {50, 175, 65, 190},
  286.   CheckBox {
  287.    enabled,
  288.    ""
  289.   },
  290.   {50, 200, 65, 330},
  291.   StaticText {
  292.    disabled,
  293.    "Quit"
  294.   },
  295.   {50, 10, 65, 25},
  296.   CheckBox {
  297.    enabled,
  298.    ""
  299.   },
  300.   {50, 35, 65, 165},
  301.   StaticText {
  302.    disabled,
  303.    "Continue"
  304.   },
  305.   {10, 10, 30, 400},
  306.   StaticText {
  307.    disabled,
  308.    "Program interrupted in line number ^1"
  309.   }
  310.  }
  311. };
  312. resource 'DITL' (400, purgeable) {
  313.  {
  314.   {10, 100, 30, 400},
  315.   StaticText {
  316.    disabled,
  317.    "Fatal program error"
  318.   },
  319.   {75, 330, 92, 400},
  320.   Button {
  321.    enabled,
  322.    "Restart"
  323.   },
  324.   {40, 10, 55, 400},
  325.   StaticText {
  326.    disabled,
  327.    "Error ^0 in Line Number ^1"
  328.   },
  329.   {55, 10, 70, 400},
  330.   StaticText {
  331.    disabled,
  332.    "^2"
  333.   }
  334.  }
  335. };
  336. resource 'DITL' (301, purgeable) {
  337.  {
  338.   {80, 200, 97, 310},
  339.   Button {
  340.    enabled,
  341.    "I'm sorry !"
  342.   },
  343.   {30, 70, 50, 455},
  344.   StaticText {
  345.    disabled,
  346.    "Invalid input in line number ^1"
  347.   },
  348.   {50, 25, 70, 455},
  349.   StaticText {
  350.    disabled,
  351.    "Please start over from the beginning."
  352.   }
  353.  }
  354. };
  355.  
  356.  
  357. resource 'DITL' (300, purgeable) {
  358.     {    /* array DITLarray: 5 elements */
  359.         /* [1] */
  360.         {30, 25, 50, 455},
  361.         StaticText {
  362.             disabled,
  363.             "About this program …"
  364.         },
  365.         /* [2] */
  366.         {50, 25, 90, 455},
  367.         StaticText {
  368.             disabled,
  369.             "This program was compiled by PCBASIC,\$0D"
  370.             "the shareware BASIC compiler from Pterodactyl Software!"
  371.         },
  372.         /* [3] */
  373.         {90, 25, 220, 455},
  374.         StaticText {
  375.             disabled,
  376.             " To get your PCBASIC compiler contact\$0D\$0D"
  377.             "           Pterodactyl Software\$0D"
  378.             "             c/o Harland Harrison\$0D"
  379.             "           200 Davey Glen  Apt 416\$0D"
  380.             "           Belmont CA 94002\$0D"
  381.             "           (415) 491- 5270"
  382.         },
  383.         /* [4] */
  384.         {4090, 25, 4110, 455},
  385.         StaticText {
  386.             disabled,
  387.             " 0"
  388.         },
  389.         /* [5] */
  390.         {220, 360, 237, 410},
  391.         Button {
  392.             enabled,
  393.             "OK"
  394.         }
  395.     }
  396. };
  397.  
  398. resource 'FREF' (128) {
  399.     'APPL',
  400.     0,
  401.     ""
  402. };
  403.  
  404. resource 'FREF' (129) {
  405.     'DOCM',
  406.     1,
  407.     ""
  408. };
  409.  
  410. resource 'BNDL' (128) {
  411.     'DEMO',
  412.     0,
  413.     {    /* array TypeArray: 2 elements */
  414.         /* [1] */
  415.         'ICN#',
  416.         {    /* array IDArray: 2 elements */
  417.             /* [1] */
  418.             0, 128,
  419.             /* [2] */
  420.             1, 129
  421.         },
  422.         /* [2] */
  423.         'FREF',
  424.         {    /* array IDArray: 2 elements */
  425.             /* [1] */
  426.             0, 128,
  427.             /* [2] */
  428.             1, 129
  429.         }
  430.     }
  431. };
  432.  
  433.  
  434. resource 'ICN#' (128) {
  435.     {    /* array: 2 elements */
  436.         /* [1] */
  437.         $"0100 0000 0080 0000 0040 0000 0060 0000 0030 0000 0038 0000 001C 0000 001E 0000"
  438.         $"001F 0000 000F 8000 000F D800 000F D3FC 000F E0FF 000F E1C0 000F F270 001F F618"
  439.         $"001F FC00 003F F000 003F F000 00FF E000 01FF E000 07BF C000 FC3F 8000 F07F 8000"
  440.         $"C07F 4000 00FE 6000 00F8 0000 01F0 0000 03C0 0000 0780 0000 3E00 0000 F8",
  441.         /* [2] */
  442.         $"FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF"
  443.         $"FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF"
  444.         $"FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF"
  445.         $"FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF"
  446.     }
  447. };
  448.  
  449. resource 'ICN#' (129) {
  450.     {    /* array: 2 elements */
  451.         /* [1] */
  452.         $"0C64 48C0 0A96 D520 0A85 5500 0C84 5D00 0894 5520 0864 54C0 0000 0000 0E31 DCC0"
  453.         $"094A 0920 0E79 8900 0948 4920 0E4B 9CC0 0000 0000 6245 9476 956D 5445 8555 9466"
  454.         $"9545 1445 6245 1775 0000 0000 0000 0000 CED8 9898 A495 5550 C4D9 55D3 8495 5550"
  455.         $"84D4 9958 0000 0000 0075 4000 0025 4000 0022 4000 0022 4000 0022 60",
  456.         /* [2] */
  457.         $"FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF"
  458.         $"FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF"
  459.         $"FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF"
  460.         $"FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF FFFF"
  461.     }
  462. };
  463.