home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / developm / language / j32.sit / tutorial.js < prev   
Encoding:
Text File  |  1991-03-01  |  901 b   |  33 lines
  1. 'J Tutorial'
  2.  
  3. t=.0 0$''
  4. t=.t,'   J Tutorial'
  5. t=.t,'-------------------------------------------'
  6. t=.t,'Enter      Effects'
  7. t=.t,'-------------------------------------------'
  8. t=.t,'(cr)       Exit'
  9. t=.t,'?          This note'
  10. t=.t,'??         Table of contents'
  11. t=.t,'(space)    Next frame'
  12. t=.t,'x          Select a particular frame'
  13. t=.t,'           (e.g. E selects Classifications)'
  14. help=.t
  15.  
  16. read   =. 1!:1
  17. pr     =. 1!:2&2
  18. uncap  =. '((a.,~a.{~65+i.26)i.y.){a.,~a.{~97+i.26':''
  19. frames =. <&read (':tut:tut'&,)&(,&'.js')&":&.>i.47
  20. hdr    =. 32{.&>frames
  21. dir    =. uncap (|.~ ' '&=&{.)&(_2&{.)"1 hdr
  22.  
  23. t=.0 0$''
  24. t=.t,'i=.0'
  25. t=.t,'n=.#frames'
  26. t=.t,'pr help'
  27. t=.t,'$.=.3,~4+(3 2$''...???'')i._2{.''..'',x=.uncap read 1'
  28. t=.t,'$.=.$0'
  29. t=.t,'pr help'
  30. t=.t,'pr (j{.x),"1 ''   '',"1 (j=.2%~#x)}.x=.hdr,(2|n,1)$'' '''
  31. t=.t,'i=.n|>:i [ pr>i{frames [ i=.+/(0 1=n>j)*i,j=.((n,1>.#x){.dir)i.x'
  32. tutorial =. t : ''
  33.