Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Reserved Keywords
#1
Hi everyone

Made a program that lists NaaLaa reserved keywords. Hope you enjoy. [Image: smile.png]

Code:
'NaaLaa reserved keywords

import "Keycodes.lib"

constant:
  SCREENWIDTH 640
  SCREENHEIGHT 480

visible:
rwords$[175]


hidden:

rwords$[0]="abs"
rwords$[1]="acos"
rwords$[2]="active"
rwords$[3]="additive"
rwords$[4]="and"
rwords$[5]="AND"
rwords$[6]="asc"
rwords$[7]="asin"
rwords$[8]="atan"
rwords$[9]="atan2"
rwords$[10]="break"
rwords$[11]="caret"
rwords$[12]="cels"
rwords$[13]="center"
rwords$[14]="chdir"
rwords$[15]="chr"
rwords$[16]="clear"
rwords$[17]="clip"
rwords$[18]="cls"
rwords$[19]="color"
rwords$[20]="colori"
rwords$[21]="colorkey"
rwords$[22]="cols"
rwords$[23]="constant"
rwords$[24]="cos"
rwords$[25]="create"
rwords$[26]="datafolder"
rwords$[27]="date"
rwords$[28]="debug"
rwords$[29]="decimal"
rwords$[30]="degrees"
rwords$[31]="disable"
rwords$[32]="do"
rwords$[33]="download"
rwords$[34]="downto"
rwords$[35]="draw"
rwords$[36]="ellipse"
rwords$[37]="else"
rwords$[38]="elseif"
rwords$[39]="enable"
rwords$[40]="end"
rwords$[41]="endfunc"
rwords$[42]="endif"
rwords$[43]="endproc"
rwords$[44]="eof"
rwords$[45]="exists"
rwords$[46]="false"
rwords$[47]="fheight"
rwords$[48]="file"
rwords$[49]="float"
rwords$[50]="font"
rwords$[51]="for"
rwords$[52]="free"
rwords$[53]="function"
rwords$[54]="fwidth"
rwords$[55]="grid"
rwords$[56]="height"
rwords$[57]="hidden"
rwords$[58]="hraster"
rwords$[59]="hscroll"
rwords$[60]="if"
rwords$[61]="image"
rwords$[62]="import"
rwords$[63]="include"
rwords$[64]="inkey"
rwords$[65]="instr"
rwords$[66]="int"
rwords$[67]="joybutton"
rwords$[68]="joyx"
rwords$[69]="joyy"
rwords$[70]="justification"
rwords$[71]="keydown"
rwords$[72]="left"
rwords$[73]="len"
rwords$[74]="line"
rwords$[75]="load"
rwords$[76]="loop"
rwords$[77]="lower"
rwords$[78]="max"
rwords$[79]="mid"
rwords$[80]="min"
rwords$[81]="mouse"
rwords$[82]="mousebutton"
rwords$[83]="mousex"
rwords$[84]="mousey"
rwords$[85]="music"
rwords$[86]="next"
rwords$[87]="not"
rwords$[88]="off"
rwords$[89]="on"
rwords$[90]="open"
rwords$[91]="openfile"
rwords$[92]="or"
rwords$[93]="OR"
rwords$[94]="pixel"
rwords$[95]="pixeli"
rwords$[96]="play"
rwords$[97]="poly"
rwords$[98]="polyf"
rwords$[99]="pop"
rwords$[100]="primary"
rwords$[101]="proc"
rwords$[102]="procedure"
rwords$[103]="projection"
rwords$[104]="push"
rwords$[105]="radians"
rwords$[106]="randomize"
rwords$[107]="read"
rwords$[108]="read16"
rwords$[109]="read32"
rwords$[110]="read8"
rwords$[111]="readf"
rwords$[112]="reads"
rwords$[113]="rect"
rwords$[114]="redraw"
rwords$[115]="rem"
rwords$[116]="return"
rwords$[117]="right"
rwords$[118]="rln"
rwords$[119]="rnd"
rwords$[120]="rotate"
rwords$[121]="rows"
rwords$[122]="run"
rwords$[123]="save"
rwords$[124]="savefile"
rwords$[125]="scale"
rwords$[126]="screenh"
rwords$[127]="screenw"
rwords$[128]="scroll"
rwords$[129]="set"
rwords$[130]="shellexecute"
rwords$[131]="SHL"
rwords$[132]="SHR"
rwords$[133]="sin"
rwords$[134]="sizeof"
rwords$[135]="sound"
rwords$[136]="split"
rwords$[137]="sqr"
rwords$[138]="stop"
rwords$[139]="str"
rwords$[140]="system"
rwords$[141]="tan"
rwords$[142]="td_cam"
rwords$[143]="td_fog"
rwords$[144]="td_frustrum"
rwords$[145]="td_quad"
rwords$[146]="then"
rwords$[147]="time"
rwords$[148]="to"
rwords$[149]="transformation"
rwords$[150]="translate"
rwords$[151]="true"
rwords$[152]="until"
rwords$[153]="upper"
rwords$[154]="visible"
rwords$[155]="volume"
rwords$[156]="vraster"
rwords$[157]="vscroll"
rwords$[158]="wait"
rwords$[159]="wend"
rwords$[160]="while"
rwords$[161]="width"
rwords$[162]="window"
rwords$[163]="wln"
rwords$[164]="write"
rwords$[165]="write16"
rwords$[166]="write32"
rwords$[167]="write8"
rwords$[168]="writef"
rwords$[169]="writes"
rwords$[170]="zone"
rwords$[171]="zoneh"
rwords$[172]="zonew"
rwords$[173]="zonex"
rwords$[174]="zoney"

set color 0,0,0
cls
set window 0, 0, SCREENWIDTH, SCREENHEIGHT, false, 2
set redraw off

idx=-1
n=0
s=0
event=1
do

  if event=1
    idx=idx+1
    if idx>174
      idx=0
    endif
    n=n+1
  endif
 
  if n>25
    event=0
    n=0
    idx=idx-1
    set color 255,255,255
    wln
    wln "[SPACE]-Continue  [ESC]-Quit"
  endif

  if event=1     
    set color 0,255,0
    wln idx+1," - ", rwords[idx]
  endif

  if inkey(0)=32
    set color 0,0,0
    cls
    set caret 0,0
    event=1
  endif

  if inkey(0)=27
    s=1
  endif

  redraw
 
until s=1
end
Reply


Forum Jump:


Users browsing this thread: 1 Guest(s)