home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / POWERMENU.SDA / KEYWORDS.TXT < prev    next >
Encoding:
Text File  |  2019-04-13  |  12.5 KB  |  635 lines
  1. ++ AFTER KEYWORD MEANS ╨OWER ─RIVER
  2. -- MEANS ├╧═┴╠ 0.14 AND ╨OWER ─RIVER
  3.  
  4. // -- ALLOWS COMMENTS IN A PROGRAM
  5.   // ANYTHING TYPED HERE
  6.  
  7. ┴┬╙ -- GIVES THE ABSOLUTE VALUE
  8.   ┴┬╙(<NUMERIC EXPRESSION>)
  9.   ╨╥╔╬╘ ┴┬╙(STANDARD'NUMBER)
  10.  
  11. ┴╬─ -- LOGICAL ┴╬─
  12.   <EXPRESSION> ┴╬─ <EXPRESSION>
  13.   ╔╞ NUMBER>0 ┴╬─ NUMBER<100 ╘╚┼╬
  14.  
  15. ┴╨╨┼╬─-START AT END OF FILE FOR WRITING
  16.   ╧╨┼╬ [╞╔╠┼] <FILE#>,<FILENAME>,┴╨╨┼╬─
  17.   ╧╨┼╬ ╞╔╠┼ 2,"TEST",┴╨╨┼╬─
  18.  
  19. ┴╘ ++ SEE ╔╬╨╒╘ ┴╘, ╨╥╔╬╘ ┴╘
  20.  
  21. ┴╘╬ -- ARC TANGENT
  22.   ┴╘╬(<NUMERIC EXPRESSION>)
  23.   ╨╥╔╬╘ ┴╘╬(NUM1+NUM2)
  24.  
  25. ┴╒╘╧ -- AUTOMATIC LINE NUMBERING
  26.   ┴╒╘╧ [<START LINE>][,<INCREMENT>]
  27.   ┴╒╘╧ 9000
  28.  
  29. ┬┴├╦ -- MOVE TURTLE BACKWARDS
  30.   ┬┴├╦ <LENGTH>
  31.   ┬┴├╦ 50
  32.  
  33. ┬┴├╦╟╥╧╒╬─ -- SET BACKGROUND COLOR
  34.   ┬┴├╦╟╥╧╒╬─ <COLOR NUMBER>
  35.   ┬┴├╦╟╥╧╒╬─ 2 // RED
  36.  
  37. ┬┴╙╔├-EXIT ├╧═┴╠ TO ┬┴╙╔├, SEE ALSO ┬┘┼
  38.  
  39. ┬╔╘┴╬─ ++ BITWISE ┴╬─
  40.   <ARGUMENT> ┬╔╘┴╬─ <ARGUMENT>
  41.   SHOW(BNUM ┬╔╘┴╬─ %00001000)
  42.  
  43. ┬╔╘╧╥ ++ BITWISE ╧╥
  44.   <ARGUMENT> ┬╔╘╧╥ <ARGUMENT>
  45.   ╨╥╔╬╘ (BNUM ┬╔╘╧╥ FLAG)
  46.  
  47. ┬╔╘╪╧╥ ++ BITWISE ╪╧╥
  48.   <ARGUMENT> ┬╔╘╪╧╥ <ARGUMENT>
  49.   BNUM=(NUM1+NUM2) ┬╔╘╪╧╥ %10000000
  50.  
  51. ┬╧╥─┼╥ -- SET THE SCREEN BORDER COLOR
  52.   BORDER <COLOR NUMBER>
  53.   BORDER 0 // BLACK
  54.  
  55. ┬┘┼ ++ EXIT ├╧═┴╠ TO ┬┴╙╔├
  56.   ┬┘┼
  57.  
  58. ├┴╙┼ -- MULTIPLE CHOICE DECISIONS
  59.   ├┴╙┼ <CONTROL EXPRESSION> [╧╞]
  60.   ├┴╙┼ REPLY$ ╧╞
  61.  
  62. ├┴╘ -- GIVES DISK DIRECTORY, SEE ─╔╥
  63.   ├┴╘ [<DRIVE NUM>]
  64.   ├┴╘ 0
  65.  
  66. ├╚┴╔╬ -- LOAD & RUN PROGRAM ON DISK
  67.   ├╚┴╔╬ <FILENAME>
  68.   ├╚┴╔╬ "MENU"
  69.  
  70. ├╚╥$ -- GIVES THE CHARACTER SPECIFIED
  71.   ├╚╥$(<NUMERIC EXPRESSION>)
  72.   ╨╥╔╬╘ ├╚╥$(NUM)
  73.  
  74. ├╠┼┴╥ -- CLEAR THE GRAPHICS SCREEN
  75.   ├╠┼┴╥
  76.  
  77. ├╠╧╙┼ -- CLOSES FILES
  78.   ├╠╧╙┼ [[╞╔╠┼] <FILENUM>]
  79.   ├╠╧╙┼ ╞╔╠┼ 2
  80.  
  81. ├╠╧╙┼─ -- ALL PROC/FUNC VARIABLES LOCAL
  82.   ╨╥╧├ <PROCNAME>[(PARAMS)] [├╠╧╙┼─]
  83.   ╞╒╬├ <FUNCNAME>[(PARAMS)] [├╠╧╙┼─]
  84.   ╨╥╧├ NEWPAGE(HEADER$) ├╠╧╙┼─
  85.  
  86. ├╧╬ -- CONTINUE PROGRAM AFTER ╙╘╧╨
  87.   ├╧╬
  88.  
  89. ├╧╙ -- COSINE
  90.   ├╧╙(<NUMERIC EXPRESSION>)
  91.   ╨╥╔╬╘ ├╧╙(NUMBER)
  92.  
  93. ├╒╥├╧╠ ++RETURNS CURSOR COLUMN POSITION
  94.   ├╒╥├╧╠
  95.   COLUMN:=├╒╥├╧╠
  96.  
  97. ├╒╥╥╧╫ ++ RETURNS CURSOR ROW POSITION
  98.   ├╒╥╥╧╫
  99.   ROW:=├╒╥╥╧╫
  100.  
  101. ├╒╥╙╧╥ ++ POSITIONS THE CURSOR
  102.   ├╒╥╙╧╥ <ROW>,<COL>
  103.   ├╒╥╙╧╥ 5,1
  104.  
  105. ─┴╘┴ -- PROVIDES DATA FOR A ╥┼┴─
  106.   ─┴╘┴ <VALUE>[,<VALUE>]
  107.   ─┴╘┴ "╙AM",34,"╞RED",22,"╟LORIA",46
  108.  
  109. ─┴╘┴├╧╠╠╔╙╔╧╬ -- SPRITE/DATA COLLISION
  110.   ─┴╘┴├╧╠╠╔╙╔╧╬ <SPRT#>,<RESET FLAG?>
  111.   ─┴╘┴├╧╠╠╔╙╔╧╬ 3,TRUE
  112.  
  113. ─┼╞╔╬┼-SETUP SPRITE IMAGE FOR LATER USE
  114.   ─┼╞╔╬┼ <SHAPE#>,<64 BYTE STRING DEF>
  115.   ─┼╞╔╬┼ 4,SHAPE$
  116.  
  117. ─┼╠ -- DELETES LINES
  118.   ─┼╠ <RANGE>
  119.   ─┼╠ 460 - 580
  120.  
  121. ─┼╠┼╘┼ -- DELETES A FILE FROM DISK
  122.   ─┼╠┼╘┼ <FILENAME>
  123.   ─┼╠┼╘┼ "TEST"
  124.  
  125. ─╔═--RESERVE STRING/NUMERIC ARRAY SPACE
  126.   ─╔═ <STRING VAR> ╧╞ <MAX CHAR>
  127.   ─╔═ <STR ARRAY>(<INDX>) ╧╞ <MAX CHAR>
  128.   ─╔═ <ARRAY NAME>(<INDEX>)
  129.   ─╔═ PLAYERS$(1:4) ╧╞ 10
  130.   ─╔═ EXPENSES(MONTHS,CATEGORIES)
  131.  
  132. ─╔╥ ++ DISPLAY DISK DIRECTORY, SEE ├┴╘
  133.   ─╔╥ [<FILENAME>]
  134.   ─╔╥ "DATABASE.*"
  135.  
  136. ─╔╓ -- DIVISION WITH INTEGER ANSWER
  137.   <DIVIDEND> ─╔╓ <DIVISOR>
  138.   RESULT=GUESS ─╔╓ COUNT
  139.  
  140. ─╧ -- SEE ╞╧╥ AND ╫╚╔╠┼
  141.  
  142. ─╥┴╫╘╧ -- DRAW LINE FROM CURRENT POINT
  143.   ─╥┴╫╘╧ <X COORD>,<Y COORD>
  144.   ─╥┴╫╘╧ 50,80
  145.  
  146. ┼─╔╘--LIST/EDIT LINES -- NO INDENTATION
  147.   ┼─╔╘ [<RANGE>]
  148.   ┼─╔╘ 550-
  149.   ┼─╔╘
  150.  
  151. ┼╠╔╞ -- SHORTENED ┼╠╙┼ ╔╞ CONDITION
  152.   ┼╠╔╞ <EXPRESSION> [╘╚┼╬]
  153.   ┼╠╔╞ REPLY$ ╔╬ "┘Y╬N" ╘╚┼╬
  154.  
  155. ┼╠╙┼ -- ALTERNATIVE IN ╔╞ STRUCTURE
  156.   ┼╠╙┼
  157.  
  158. ┼╬─ -- HALT PROGRAM
  159.   ┼╬─
  160.  
  161. ┼╬─├┴╙┼ -- END OF ├┴╙┼ STRUCTURE
  162.   ┼╬─├┴╙┼
  163.  
  164. ┼╬─╞╧╥ -- END OF ╞╧╥ STRUCTURE
  165.   ┼╬─╞╧╥ [<CONTROL VARIABLE>]
  166.   ┼╬─╞╧╥ SIDES
  167.   ┼╬─╞╧╥ COUNT#
  168.  
  169. ┼╬─╞╒╬├ -- END OF FUNCTION
  170.   ┼╬─╞╒╬├ [<FUNCTION NAME>]
  171.   ┼╬─╞╒╬├ EVEN
  172.  
  173. ┼╬─╔╞ -- END OF ╔╞ STRUCTURE
  174.   ┼╬─╔╞
  175.  
  176. ┼╬─╨╥╧├ -- END OF PROCEDURE
  177.   ┼╬─╨╥╧├ [<PROCEDURE NAME>]
  178.   ┼╬─╨╥╧├ SHOW'ITEM
  179.  
  180. ┼╬─╫╚╔╠┼ -- END OF ╫╚╔╠┼ STRUCTURE
  181.   ┼╬─╫╚╔╠┼
  182.  
  183. ┼╬╘┼╥ -- RETRIEVE ┴╙├╔╔ PROGRAM LINES
  184.   ┼╬╘┼╥ <FILENAME>
  185.   ┼╬╘┼╥ "TESTING"
  186.  
  187. ┼╧─ -- ┼ND ╧F ─ATA FLAG
  188.   ┼╧─
  189.   ╫╚╔╠┼ ╬╧╘ ┼╧─ ─╧
  190.  
  191. ┼╧╞ -- ┼ND ╧F ╞ILE FLAG
  192.   ┼╧╞(<FILENUM>)
  193.   ╫╚╔╠┼ ╬╧╘ ┼╧╞(INFILE) ─╧
  194.  
  195. ┼╙├ -- ╙╘╧╨ KEY PRESSED FLAG
  196.   ┼╙├
  197.   ╔╞ ┼╙├ ╘╚┼╬
  198.  
  199. ┼╪┼├ -- EXECUTE A PROCEDURE
  200.   [┼╪┼├] <PROCNAME>[(<PARAMETER LIST>)]
  201.   SHOW'ITEM(NUMBER)
  202.  
  203. ┼╪╨ -- NATURAL LOG E TO N
  204.   ┼╪╨(<NUMERIC EXPRESSION>)
  205.   ╨╥╔╬╘ ┼╪╨(NUMBER)
  206.  
  207. ╞┴╠╙┼ -- PREDEFINED VALUE EQUAL TO 0
  208.   ╞┴╠╙┼
  209.   OK:=╞┴╠╙┼
  210.  
  211. ╞╔╠┼ -- SEE ╔╬╨╒╘, ╨╥╔╬╘, ╥┼┴─, ╫╥╔╘┼
  212.  
  213. ╞╔╠╠-- FILLS IN AREA WITH CURRENT COLOR
  214.   ╞╔╠╠ <X COORD>,<Y COORD>
  215.   ╞╔╠╠ 50,80
  216.  
  217. ╞╧╥ -- START OF ╞╧╥ LOOP STRUCTURE
  218.  
  219. ╞╧╥<VAR>=<#>╘╧<#>[╙╘┼╨<#>]─╧[<STATMNT>]
  220.   ╞╧╥ X:=10 ╘╧ 1 ╙╘┼╨ -1 ─╧ ╨╥╔╬╘ X
  221.   ╞╧╥ PLAYER#:=1 ╘╧ MAX# ─╧
  222.  
  223. ╞╧╥╫┴╥─ -- MOVE TURTLE FORWARD
  224.   ╞╧╥╫┴╥─ <LENGTH>
  225.   ╞╧╥╫┴╥─ 100
  226.  
  227. ╞╥┼┼++ RETURNS AVAILABLE PROGRAM MEMORY
  228.   ╞╥┼┼
  229.   ╨╥╔╬╘ ╞╥┼┼
  230.   ╔╞ ╞╥┼┼>2000 ╘╚┼╬ MAX:+300
  231.  
  232. ╞╒╠╠╙├╥┼┼╬ -- FULLSCREEN GRAPHICS (F5)
  233.   ╞╒╠╠╙├╥┼┼╬
  234.  
  235. ╞╒╬├ -- START OF A MULTI-LINE FUNCTION
  236.   ╞╒╬├ <NAME>[(<PARM>)] [├╠╧╙┼─]
  237.   ╞╒╬├ CALL'ANSWERED
  238.  
  239. ╟┼╘$ ++ RETURN # CHARS FROM OPEN FILE
  240.   ╟┼╘$(<FILENUM>,<# OF CHARACTERS>)
  241.   TEXT$=╟┼╘$(2,16)
  242.  
  243. ╟┼╘├╧╠╧╥-- RETURN SPECIFIED PIXEL COLOR
  244.   ╟┼╘├╧╠╧╥(<X COORD>,<Y COORD>)
  245.   PRINT ╟┼╘├╧╠╧╥(50,80)
  246.  
  247. ╟╧╘╧ --GO TO LINE AFTER SPECIFIED LABEL
  248.   ╟╧╘╧ <LABEL NAME>
  249.   ╟╧╘╧ JAIL
  250.  
  251. ╚╔─┼╙╨╥╔╘┼ -- TURN OFF SPECIFIED SPRITE
  252.   ╚╔─┼╙╨╥╔╘┼ <SPRITE#>
  253.   ╚╔─┼╙╨╥╔╘┼ 2
  254.  
  255. ╚╔─┼╘╒╥╘╠┼ -- MAKE TURTLE INVISIBLE
  256.   ╚╔─┼╘╒╥╘╠┼
  257.  
  258. ╚╧═┼ -- PUT TURTLE IN ITS HOME POSITION
  259.   ╚╧═┼ // X=160 & Y=99 IS HOME
  260.  
  261. ╔─┼╬╘╔╞┘ -- ASSIGN A SHAPE TO A SPRITE
  262.   ╔─┼╬╘╔╞┘ <SPRITE#>,<SHAPE#>
  263.   ╔─┼╬╘╔╞┘ 2,14 (SPRITE 7 IS TURTLE)
  264.  
  265. ╔╞ -- START OF CONDITIONAL ╔╞ STRUCTURE
  266.   ╔╞ <CONDITION> ╘╚┼╬ [<STATEMENT>]
  267.   ╔╞ REPLY$ ╔╬ "Y┘N╬" ╘╚┼╬
  268.  
  269. ╔╬ -- LOCATE STRING1 WITHIN STRING2
  270.   <STRING1> ╔╬ <STRING2>
  271.   ╔╞ GUESS$ ╔╬ WORD$ ╘╚┼╬ WINNER
  272.  
  273. ╔╬╦┼┘$ ++ RETURN 1 CHAR FROM KEYBOARD
  274.   ╔╬╦┼┘$
  275.   ├┴╙┼ ╔╬╦┼┘$ ╧╞
  276.  
  277. ╔╬╨╒╘ -- INPUT FROM KEYBOARD OR FILE
  278.   ╔╬╨╒╘ ╞╔╠┼ <#>[,<REC#>]:<VAR LIST>
  279.   ╔╬╨╒╘ [<PROMPT>:] <VARS>
  280.   ╔╬╨╒╘ "┌╔╨ ├╧─┼: ": ZIP'CODE,
  281.  
  282. ╔╬╨╒╘ ┴╘ ++ KEYBOARD INPUT AT LOCATION
  283.   ╔╬╨╒╘ ┴╘ <ROW>,<COL>:[<PRMPT>:]<VARS>
  284.   ╔╬╨╒╘ ┴╘ 0,10: "╬AME: ":LAST'NAME$
  285.   ╔╬╨╒╘ ┴╘ 5,15: AGE
  286.  
  287. ╔╬╘-NEAREST INTEGER, LESS THAN OR EQUAL
  288.   ╔╬╘(<NUMERIC EXPRESSION>)
  289.   TALLY:+╔╬╘(NUMBER)
  290.  
  291. ╦┼┘$ -- SCAN KEYBOARD, RETURN KEY TYPED
  292.   ╦┼┘$
  293.   ╫╚╔╠┼ ╦┼┘$<=├╚╥$(0) ─╧ ╬╒╠╠
  294.  
  295. ╠┴┬┼╠ -- ASSIGN LABEL NAME TO THE LINE
  296.   [╠┴┬┼╠] <LABEL NAME>:
  297.   QUICK'QUIT:
  298.  
  299. ╠┼╞╘ -- TURN TURTLE LEFT
  300.   ╠┼╞╘ <DEGREES>
  301.   ╠┼╞╘ 90 // A RIGHT ANGLE
  302.  
  303. ╠┼╬ -- GIVES THE LENGTH OF A STRING
  304.   ╠┼╬(<STRING EXPRESSION>)
  305.   LENGTH=╠┼╬(TEXT$)
  306.  
  307. ╠╔╬┼╞┼┼─ -- SET LINEFEED TO PRINTER
  308.   ╠╔╬┼╞┼┼─ <+/->
  309.   ╠╔╬┼╞┼┼─ +  //LINEFEEDS ON
  310.   ╠╔╬┼╞┼┼─ -  //LINEFEEDS OFF
  311.  
  312. ╠╔╙╘ -- LIST PROGRAM LINES
  313.   ╠╔╙╘ [<RANGE>] [<FILENAME>]
  314.   ╠╔╙╘ "MYPROG.LST"
  315.   ╠╔╙╘ 380-450 "READREC.PROC"
  316.  
  317. ╠╧┴─ -- LOAD A PROGRAM FROM DISK
  318.   ╠╧┴─ <FILENAME>
  319.   ╠╧┴─ "MENU"
  320.  
  321. ╠╧╟ -- NATURAL LOGARITHM OF N
  322.   ╠╧╟(<NUMERIC EXPRESSION>)
  323.   ╨╥╔╬╘ ╠╧╟(NUMBER);
  324.  
  325. ═╧─ -- REMAINDER OF DIVISION (MODULA)
  326.   <DIVIDEND> ═╧─ <DIVISOR>
  327.   COLOR=NUMBER ═╧─ 16
  328.  
  329. ═╧╓┼╘╧ -- CHANGE GRAPHICS LOCATION
  330.   ═╧╓┼╘╧ <X COORD>,<Y COORD>
  331.   ═╧╓┼╘╧ 50,80
  332.  
  333. ╬┼╫ -- CLEARS PROGRAM FROM MEMORY
  334.   ╬┼╫
  335.  
  336. ╬┼╪╘ -- CONVERTED TO ┼╬─╞╧╥, SEE ┼╬─╞╧╥
  337.  
  338. ╬╧╘ -- LOGICAL ╬╧╘
  339.   ╬╧╘ <CONDITION>
  340.   ╔╞ ╬╧╘ OK ╘╚┼╬
  341.  
  342. ╬╒╠╠ -- DOES NOTHING
  343.   ╬╒╠╠
  344.   ╫╚╔╠┼ ╦┼┘$<>"C" ─╧ ╬╒╠╠
  345.  
  346. ╧╞ -- SEE ─╔═ AND ├┴╙┼
  347.  
  348. ╧╨┼╬ -- OPEN A FILE
  349.   ╧╨┼╬ [╞╔╠┼] <FILE#>,<FILENAME>,<TYPE>
  350.   ╧╨┼╬ ╞╔╠┼ 2,"SCORES",╥┼┴─
  351.   ╧╨┼╬ ╞╔╠┼ 4,"",╒╬╔╘ 4,7,╫╥╔╘┼
  352.   ╧╨┼╬ ╞╔╠┼ 3,"SUBS.RAN",╥┴╬─╧═ 50
  353.  
  354. ╧╥ -- LOGICAL ╧╥
  355.   <CONDITION> ╧╥ <CONDITION>
  356.   ╔╞ REPLY$<"A" ╧╥ REPLY$>"Z" ╘╚┼╬
  357.  
  358. ╧╥─ -- ┴╙├╔╔ (ORDINAL) VALUE OF CHAR
  359.   ╧╥─(<STRING EXPRESSION>)
  360.   A:=╧╥─("A")
  361.  
  362. ╧╘╚┼╥╫╔╙┼ -- DEFAULT FOR ├┴╙┼
  363.   ╧╘╚┼╥╫╔╙┼
  364.  
  365. ╨┴╟┼ ++ CLEARSCREEN / FORMFEED
  366.   ╨┴╟┼
  367.  
  368. ╨┴╙╙ -- SEND COMMAND TO DISK DRIVE
  369.   ╨┴╙╙ <COMMAND$>
  370.   ╨┴╙╙ "I0"
  371.  
  372. ╨┼┼╦ -- LOOK AT MEMORY LOCATION
  373.   ╨┼┼╦(<MEMORY ADDRESS>)
  374.   DEVICE=╨┼┼╦(4839)
  375.  
  376. ╨┼╬├╧╠╧╥ -- SET TURTLE DRAWING COLOR
  377.   ╨┼╬├╧╠╧╥ <COLOR NUMBER>
  378.   ╨┼╬├╧╠╧╥ 2 // RED
  379.  
  380. ╨┼╬─╧╫╬ -- PUT PEN DOWN, TURTLE DRAWS
  381.   ╨┼╬─╧╫╬
  382.  
  383. ╨┼╬╒╨--PICK PEN UP, TURTLE DOESN'T DRAW
  384.   ╨┼╬╒╨
  385.  
  386. ╨╔ ++ VALUE OF PI
  387.   ╨╔
  388.   ╨╥╔╬╘ "╓ALUE OF ╨╔ IS";╨╔
  389.  
  390. ╨╠╧╘ -- PLOT A POINT IN CURRENT COLOR
  391.   ╨╠╧╘ <X COORD>,<Y COORD>
  392.   ╨╠╧╘ 50,80
  393.  
  394. ╨╠╧╘╘┼╪╘ -- PUT TEXT ON GRAPHICS SCREEN
  395.   ╨╠╧╘╘┼╪╘ <X COORD>,<Y COORD>,<TEXT$>
  396.   ╨╠╧╘╘┼╪╘ 0,24,"HIT SPACE TO CONTINUE"
  397.  
  398. ╨╧╦┼ -- CHANGE MEMORY CONTENTS
  399.   ╨╧╦┼ <MEMORY ADDRESS>,<CONTENTS>
  400.   ╨╧╦┼ 4839,13
  401.  
  402. ╨╥╔╬╘ -- PRINT TO SCREEN/PRINTER/FILE
  403.   ╨╥╔╬╘ [╒╙╔╬╟ <FORMAT>:] <LIST>
  404.   ╨╥╔╬╘ ╞╔╠┼<#>[,<REC>]:[╒╙╔╬╟ <U>:]<L>
  405.   ╨╥╔╬╘ ╞╔╠┼ 2: TEXT$
  406.  
  407. ╨╥╔╬╘ ┴╘ ++ PRINT TO SCREEN LOCATION
  408.   ╨╥╔╬╘ ┴╘ <R>,<C>:[╒╙╔╬╟ <FRMT>:]<LST>
  409.   ╨╥╔╬╘ ┴╘ 24,1: "╚IT A KEY TO GO ON"
  410.  
  411. ╨╥╔╧╥╔╘┘ -- DATA PRIORITY OVER SPRITE?
  412.   ╨╥╔╧╥╔╘┘ <SPRITE#>,<DATA PRIORITY?>
  413.   ╨╥╔╧╥╔╘┘ 2,FALSE
  414.  
  415. ╨╥╧├ -- START OF MULTI-LINE PROCEDURE
  416.   ╨╥╧├ <NAME>[(<PARM>)] [├╠╧╙┼─]
  417.   ╨╥╧├ READREC(NUMBER)
  418.  
  419. ╥┴╬─╧═ -- RANDOM ACCESS DISK FILE
  420.   ╧╨┼╬ ╞╔╠┼ <#>,<FILENAME>,╥┴╬─╧═ <LEN>
  421.   ╧╨┼╬ ╞╔╠┼ 2,"SUBS",╥┴╬─╧═ 88
  422.  
  423. ╥┴╬─╧═╔┌┼ ++ SEEDS RND NUMBER GENERATOR
  424.   ╥┴╬─╧═╔┌┼ [<SEED>]
  425.   ╥┴╬─╧═╔┌┼
  426.   ╥┴╬─╧═╔┌┼ 9
  427.  
  428. ╥┼┴─ --READ DATA FROM ─┴╘┴ LINE OR FILE
  429.   ╥┼┴─ [╞╔╠┼ <F#>[,<REC#>]:] <VAR LST>
  430.   ╧╨┼╬ [╞╔╠┼] <FILENUM>,<FILENAME>,╥┼┴─
  431.   ╥┼┴─ NAME$,AGE
  432.   ╥┼┴─ ╞╔╠┼ 2,REC: NAME$,ADR$,CITY$,ST$
  433.   ╧╨┼╬ ╞╔╠┼ 2,"SCORES.DAT",╥┼┴─
  434.  
  435. ╥┼╞--PARM VAR USED IN REFERENCE (ALIAS)
  436.   ╥┼╞ <VAR>
  437.   ╨╥╧├ ALTER(╥┼╞ TEXT$) ├╠╧╙┼─
  438.  
  439. ╥┼═ -- REMARKS, ╥┼═ IS CONVERTED TO //
  440.   // [<TEXT>]
  441.   // SPRITE DATA
  442.  
  443. ╥┼╬╒═ -- RENUMBER PROGRAM
  444.   ╥┼╬╒═ [<TARGET START>][,<INCREMENT>]
  445.   ╥┼╬╒═ 9000,1
  446.   ╥┼╬╒═ 100
  447.  
  448. ╥┼╨┼┴╘ -- START OF ╥┼╨┼┴╘ STRUCTURE
  449.   ╥┼╨┼┴╘
  450.  
  451. ╥┼╙╘╧╥┼ -- REUSE ─┴╘┴ WITH ╥┼┴─
  452.   ╥┼╙╘╧╥┼
  453.  
  454. ╥┼╘╒╥╬ -- RETURNS VALUE OF A FUNCTION
  455.   ╥┼╘╒╥╬ [<VALUE>]
  456.   ╥┼╘╒╥╬ ╘╥╒┼
  457.  
  458. ╥╔╟╚╘ -- TURN TURTLE RIGHT
  459.   ╥╔╟╚╘ <DEGREES>
  460.   ╥╔╟╚╘ 180 // REVERSE DIRECTION
  461.  
  462. ╥╬─ -- RANDOM NUMBER
  463.   ╥╬─ (<START NUM>[,<END NUM>])
  464.   DICE=╥╬─(1,6)+╥╬─(1,6)
  465.   PROBABILITY=╥╬─(0)
  466.  
  467. ╥╒╬ -- RUN PROGRAM IN MEMORY OR ON DISK
  468.   ╥╒╬
  469.  
  470. ╙┴╓┼ -- STORE PROGRAM TO DISK
  471.   ╙┴╓┼ <FILENAME>
  472.   ╙┴╓┼ "ZOMBIES"
  473.  
  474. ╙├┴╬ ++ SCAN FOR CORRECT STRUCTURES
  475.   ╙├┴╬
  476.  
  477. ╙┼╠┼├╘ -- CHOOSE OUTPUT LOCATION
  478.   ╙┼╠┼├╘ [╧╒╘╨╒╘] <TYPE>
  479.   ╙┼╠┼├╘ "LP:"  //PRINTER
  480.  
  481. ╙┼╘┼╪┼├ -- TELLS SYSTEM TO LIST ┼╪┼├
  482.   ╙┼╘┼╪┼├ <+/->
  483.   ╙┼╘┼╪┼├ +  //SHOW ┼╪┼├ KEYWORD
  484.   ╙┼╘┼╪┼├ -  //OMIT ┼╪┼├ KEYWORD
  485.  
  486. ╙┼╘╟╥┴╨╚╔├ -- TURN ON GRAPHICS SCREEN
  487.   ╙┼╘╟╥┴╨╚╔├ [<TYPE>]
  488.   ╙┼╘╟╥┴╨╚╔├ 0 // HI-RES SCREEN
  489.   ╙┼╘╟╥┴╨╚╔├ 1 // MULTI-COLOR
  490.   ╙┼╘╟╥┴╨╚╔├ // USE PREVIOUS
  491.  
  492. ╙┼╘╚┼┴─╔╬╟ -- SET TURTLE HEADING
  493.   ╙┼╘╚┼┴─╔╬╟ <DEGREES>
  494.   ╙┼╘╚┼┴─╔╬╟ 180
  495.  
  496. ╙┼╘╘┼╪╘ -- TURN ON TEXT SCREEN (F1)
  497.   ╙┼╘╘┼╪╘
  498.  
  499. ╙┼╘╪┘ -- SET TURTLE X, Y COORDINATES
  500.   ╙┼╘╪┘ <X COORD>,<Y COORD>
  501.   ╙┼╘╪┘ 50,80
  502.  
  503. ╙╟╬ -- -1 IF NEG, 0 IF 0, 1 IF POS
  504.   ╙╟╬(<NUMERIC EXPRESSION>)
  505.   FLAG=╙╟╬(NUMBER)
  506.  
  507. ╙╚╧╫╘╒╥╘╠┼ -- MAKE TURTLE VISIBLE
  508.   ╙╚╧╫╘╒╥╘╠┼
  509.  
  510. ╙╔╬ -- GIVES SINE
  511.   ╙╔╬(<NUMERIC EXPRESSION>)
  512.   ╨╠╧╘(╙╔╬(NUM),Y)
  513.  
  514. ╙╔┌┼ -- REPORT ON FREE MEMORY
  515.   ╙╔┌┼
  516.  
  517. ╙╨├$ ++ RETURNS # OF SPACES SPECIFIED
  518.   ╙╨├$(<NUMBER OF SPACES>)
  519.   ╨╥╔╬╘ ╙╨├$(39)
  520.  
  521. ╙╨╠╔╘╙├╥┼┼╬--2 TEXTLINES ABOVE GRAPHICS
  522.   ╙╨╠╔╘╙├╥┼┼╬ // OR USE (F3)
  523.  
  524. ╙╨╥╔╘┼┬┴├╦-- 2 MULTICOLOR SPRITE COLORS
  525.   ╙╨╥╔╘┼┬┴├╦ <COLOR1>,<COLOR2>
  526.   ╙╨╥╔╘┼┬┴├╦ 2,6 //RED & BLUE
  527.  
  528. ╙╨╥╔╘┼├╧╠╠╔╙╔╧╬ -- SPRITE/SPRITE COLLSN
  529.   ╙╨╥╔╘┼├╧╠╠╔╙╔╧╬ <SPRT#>,<RESET FLAG>
  530.   ╙╨╥╔╘┼├╧╠╠╔╙╔╧╬ 2,FALSE
  531.  
  532. ╙╨╥╔╘┼├╧╠╧╥ -- SET COLOR OF SPRITE
  533.   ╙╨╥╔╘┼├╧╠╧╥ <SPRITE#>,<COLOR NUMBER>
  534.   ╙╨╥╔╘┼├╧╠╧╥ 2,6 //SPRITE 2 RED
  535.  
  536. ╙╨╥╔╘┼╨╧╙ -- POSITION SPRITE AT X,Y
  537.   ╙╨╥╔╘┼╨╧╙ <SPRT#>,<X COORD>,<Y COORD>
  538.   ╙╨╥╔╘┼╨╧╙ 2,160,99// X=160 & Y=99
  539.  
  540. ╙╨╥╔╘┼╙╔┌┼ -- SET SPRITE SIZE (EXPAND?)
  541.   ╙╨╥╔╘┼╙╔┌┼ <SPR#>,<X EXPND>,<Y EXPND>
  542.   ╙╨╥╔╘┼╙╔┌┼ 2,TRUE,TRUE //DOUBLE SIZE
  543.  
  544. ╙╤╥ -- GIVES SQUARE ROOT
  545.   ╙╤╥(<NUMERIC EXPRESSION>)
  546.   ROOT=╙╤╥(NUMBER)
  547.  
  548. ╙╘┴╘╒╙--RETURN DISK DRIVE STATUS MSGE
  549.   ╙╘┴╘╒╙
  550.   DISK'ERR$:=╙╘┴╘╒╙$
  551.  
  552. ╙╘┼╨--INCREMENT ╞╧╥ LOOP BY THIS AMOUNT
  553.   ╙╘┼╨ <NUMERIC EXPRESSION>
  554.   ╞╧╥ X=1 ╘╧ MAX ╙╘┼╨ 2 ─╧
  555.  
  556. ╙╘╧╨ -- HALT PROGRAM EXECUTION
  557.   ╙╘╧╨
  558.  
  559. ╙╘╥$ ++ CONVERTS NUMBER INTO STRING
  560.   ╙╘╥$(<NUMBER>)
  561.   ZIP$=╙╘╥$(NUMBER)
  562.  
  563. ╙┘╙ -- CALL MACHINE LANGUAGE SUBROUTINE
  564.   ╙┘╙ <ADDRESS>
  565.   ╙┘╙ 838
  566.  
  567. ╘┴┬ -- MOVE CURSOR TO SPECIFIED COLUMN
  568.   ╘┴┬(<COLUMN NUMBER>)
  569.   ╨╥╔╬╘ ╘┴┬(COL), NAME$
  570.  
  571. ╘┴╬ -- GIVES TANGENT
  572.   ╘┴╬(<NUMERIC EXPRESSION>)
  573.   ╨╥╔╬╘ ╘┴╬(NUMBER)
  574.  
  575. ╘╚┼╬ -- PART OF ╔╞ STRUCTURE
  576.   ╘╚┼╬
  577.   ╔╞ OK ╘╚┼╬
  578.  
  579. ╘╔═┼ ++ SET/RETURN TIME (IN 1/60 SEC)
  580.   ╘╔═┼ [<JIFFIES>]
  581.   ╨╥╔╬╘ "╙ECONDS ="; ╘╔═┼/60
  582.   ╘╔═┼ 0
  583.  
  584. ╘╧ -- PART OF ╞╧╥ STRUCTURE
  585.   <START NUM> ╘╧ <END NUM>
  586.   ╞╧╥ X:=1 ╘╧ 4 ─╧
  587.  
  588. ╘╥┴╨ -- ENABLE/DISABLE THE <STOP> KEY
  589.   ╘╥┴╨ ┼╙├ <+/->
  590.   ╘╥┴╨ ┼╙├ -  //DISABLE <STOP> KEY
  591.   ╘╥┴╨ ┼╙├ +  //ENABLE <STOP> KEY
  592.  
  593. ╘╥╒┼ -- PREDEFINED VALUE OF 1
  594.   ╘╥╒┼
  595.   ╥┼╘╒╥╬ ╘╥╒┼
  596.  
  597. ╘╒╥╘╠┼╙╔┌┼ -- SET TURTLE SIZE (0 TO 10)
  598.   ╘╒╥╘╠┼╙╔┌┼ <SIZE>
  599.   ╘╒╥╘╠┼╙╔┌┼ 6
  600.  
  601. ╒╬╔╘ -- SPECIFY UNIT IN ╧╨┼╬ STATEMENT
  602.   ╧╨┼╬ ╞╔╠┼ <F#>,<NAME>[,╒╬╔╘ <UNIT#>
  603.   [,<SECNDRY ADRS>]][,<TYPE>] // WRAP
  604.   ╧╨┼╬ ╞╔╠┼ 2,"DATABASE",╒╬╔╘ 9,╥┼┴─
  605.  
  606. ╒╬╘╔╠ -- END OF ╥┼╨┼┴╘ LOOP
  607.   ╒╬╘╔╠ <CONDITION>
  608.   ╒╬╘╔╠ REPLY$="Q"
  609.  
  610. ╒╙╔╬╟ -- FORMATTED OUTPUT
  611.   ╨╥╔╬╘ ╒╙╔╬╟ <FORMAT>: <VAR LIST>
  612.   ╨╥╔╬╘ ╒╙╔╬╟ "##> $###.##": X, CASH(X)
  613.  
  614. ╓┴╠ ++ RETURNS NUMERIC VALUE OF STRING
  615.   ╓┴╠(<NUMERIC STRING>)
  616.   AGE=╓┴╠(REPLY$)
  617.  
  618. ╫╚┼╬ -- CHOICE IN ├┴╙┼ STRUCTURE
  619.   ╫╚┼╬ <LIST OF VALUES>
  620.   ╫╚┼╬ "╩AN","JAN"
  621.  
  622. ╫╚╔╠┼ -- START OF ╫╚╔╠┼ STRUCTURE
  623.   ╫╚╔╠┼ <EXPRESSION> [─╧] [<STATEMENT>]
  624.   ╫╚╔╠┼ ╬╧╘ ┼╧╞(INFILE) ─╧ PROCESS
  625.  
  626. ╫╥╔╘┼ -- WRITE TO A FILE
  627.   ╫╥╔╘┼ ╞╔╠┼ <FILE#>[,<REC#>]:<VAR>
  628.   ╧╨┼╬ [╞╔╠┼] <FILE#>,<FILENAME>,╫╥╔╘┼
  629.   ╫╥╔╘┼ ╞╔╠┼ 2: NAME$
  630.   ╧╨┼╬ ╞╔╠┼ 3,"SCORES",╫╥╔╘┼
  631.  
  632. ┌╧╬┼ -- TAB INTERVAL
  633.   ┌╧╬┼ [<TAB INTERVAL>]
  634.   ┌╧╬┼ 5
  635.