\ hello 05.03.27 02:30 am NAB ( to run, put this file in the root directory of your system disk. ) ( you _should_ be able to run it with the following command: ) ( ) ( boot hd:hello.4th ) ( other options include specifying the absolute location of the file, first ) ( the device node for the partition, followed by the path in the file system. ) ( on my powerbook, this looks like this: ) ( ) ( boot ) ( /pci@f2000000/mac-io@17/ata-4@1f000/disk@0:11,\folkert\Desktop\hello.4th ) ( alternatively, you could also use a tftp server on an ethernet link. put ) ( the file in the tftp root directory on the server and run it with: ) ( ) ( boot enet:SERVER_IP,hello.4th,CLIENT_IP ) ( njoy^^ folkert@feedface.com ) ( fFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfF ) create tsin 43 , ( ................................. ) 44 , ( .................................. ) 45 , ( .................................. ) 46 , ( ................................... ) 47 , ( ................................... ) 48 , ( .................................... ) 49 , ( .................................... ) 4a , ( ..................................... ) 4b , ( ..................................... ) 4c , ( ...................................... ) 4d , ( ...................................... ) 4e , ( ....................................... ) 4f , ( ....................................... ) 50 , ( ........................................ ) 51 , ( ........................................ ) 52 , ( ......................................... ) 53 , ( ......................................... ) 54 , ( .......................................... ) 55 , ( .......................................... ) 56 , ( ........................................... ) 57 , ( ........................................... ) 58 , ( ............................................ ) 59 , ( ............................................ ) 5a , ( ............................................. ) 5b , ( ............................................. ) 5c , ( .............................................. ) 5d , ( .............................................. ) 5e , ( ............................................... ) 5f , ( ............................................... ) 60 , ( ................................................ ) 61 , ( ................................................ ) 62 , ( ................................................. ) 63 , ( ................................................. ) 63 , ( ................................................. ) 64 , ( .................................................. ) 65 , ( .................................................. ) 66 , ( ................................................... ) 67 , ( ................................................... ) 68 , ( .................................................... ) 68 , ( .................................................... ) 69 , ( .................................................... ) 6a , ( ..................................................... ) 6b , ( ..................................................... ) 6c , ( ...................................................... ) 6c , ( ...................................................... ) 6d , ( ...................................................... ) 6e , ( ....................................................... ) 6f , ( ....................................................... ) 6f , ( ....................................................... ) 70 , ( ........................................................ ) 71 , ( ........................................................ ) 71 , ( ........................................................ ) 72 , ( ......................................................... ) 73 , ( ......................................................... ) 73 , ( ......................................................... ) 74 , ( .......................................................... ) 74 , ( .......................................................... ) 75 , ( .......................................................... ) 75 , ( .......................................................... ) 76 , ( ........................................................... ) 77 , ( ........................................................... ) 77 , ( ........................................................... ) 78 , ( ............................................................ ) 78 , ( ............................................................ ) 78 , ( ............................................................ ) 79 , ( ............................................................ ) 79 , ( ............................................................ ) 7a , ( ............................................................. ) 7a , ( ............................................................. ) 7b , ( ............................................................. ) 7b , ( ............................................................. ) 7b , ( ............................................................. ) 7c , ( .............................................................. ) 7c , ( .............................................................. ) 7c , ( .............................................................. ) 7c , ( .............................................................. ) 7d , ( .............................................................. ) 7d , ( .............................................................. ) 7d , ( .............................................................. ) 7d , ( .............................................................. ) 7e , ( ............................................................... ) 7e , ( ............................................................... ) 7e , ( ............................................................... ) 7e , ( ............................................................... ) 7e , ( ............................................................... ) 7e , ( ............................................................... ) 7e , ( ............................................................... ) 7e , ( ............................................................... ) 7e , ( ............................................................... ) 7e , ( ............................................................... ) 7f , ( ............................................................... ) 7e , ( ............................................................... ) 7e , ( ............................................................... ) 7e , ( ............................................................... ) 7e , ( ............................................................... ) 7e , ( ............................................................... ) 7e , ( ............................................................... ) 7e , ( ............................................................... ) 7e , ( ............................................................... ) 7e , ( ............................................................... ) 7e , ( ............................................................... ) 7d , ( .............................................................. ) 7d , ( .............................................................. ) 7d , ( .............................................................. ) 7d , ( .............................................................. ) 7c , ( .............................................................. ) 7c , ( .............................................................. ) 7c , ( .............................................................. ) 7c , ( .............................................................. ) 7b , ( ............................................................. ) 7b , ( ............................................................. ) 7b , ( ............................................................. ) 7a , ( ............................................................. ) 7a , ( ............................................................. ) 79 , ( ............................................................ ) 79 , ( ............................................................ ) 78 , ( ............................................................ ) 78 , ( ............................................................ ) 78 , ( ............................................................ ) 77 , ( ........................................................... ) 77 , ( ........................................................... ) 76 , ( ........................................................... ) 75 , ( .......................................................... ) 75 , ( .......................................................... ) 74 , ( .......................................................... ) 74 , ( .......................................................... ) 73 , ( ......................................................... ) 73 , ( ......................................................... ) 72 , ( ......................................................... ) 71 , ( ........................................................ ) 71 , ( ........................................................ ) 70 , ( ........................................................ ) 6f , ( ....................................................... ) 6f , ( ....................................................... ) 6e , ( ....................................................... ) 6d , ( ...................................................... ) 6c , ( ...................................................... ) 6c , ( ...................................................... ) 6b , ( ..................................................... ) 6a , ( ..................................................... ) 69 , ( .................................................... ) 68 , ( .................................................... ) 68 , ( .................................................... ) 67 , ( ................................................... ) 66 , ( ................................................... ) 65 , ( .................................................. ) 64 , ( .................................................. ) 63 , ( ................................................. ) 63 , ( ................................................. ) 62 , ( ................................................. ) 61 , ( ................................................ ) 60 , ( ................................................ ) 5f , ( ............................................... ) 5e , ( ............................................... ) 5d , ( .............................................. ) 5c , ( .............................................. ) 5b , ( ............................................. ) 5a , ( ............................................. ) 59 , ( ............................................ ) 58 , ( ............................................ ) 57 , ( ........................................... ) 56 , ( ........................................... ) 55 , ( .......................................... ) 54 , ( .......................................... ) 53 , ( ......................................... ) 52 , ( ......................................... ) 51 , ( ........................................ ) 50 , ( ........................................ ) 4f , ( ....................................... ) 4e , ( ....................................... ) 4d , ( ...................................... ) 4c , ( ...................................... ) 4b , ( ..................................... ) 4a , ( ..................................... ) 49 , ( .................................... ) 48 , ( .................................... ) 47 , ( ................................... ) 46 , ( ................................... ) 45 , ( .................................. ) 44 , ( .................................. ) 43 , ( ................................. ) 42 , ( ................................. ) 41 , ( ................................ ) 40 , ( ................................ ) 3f , ( ............................... ) 3e , ( ............................... ) 3d , ( .............................. ) 3c , ( .............................. ) 3b , ( ............................. ) 3a , ( ............................. ) 39 , ( ............................ ) 38 , ( ............................ ) 37 , ( ........................... ) 36 , ( ........................... ) 35 , ( .......................... ) 34 , ( .......................... ) 33 , ( ......................... ) 32 , ( ......................... ) 31 , ( ........................ ) 30 , ( ........................ ) 2f , ( ....................... ) 2e , ( ....................... ) 2d , ( ...................... ) 2c , ( ...................... ) 2b , ( ..................... ) 2a , ( ..................... ) 29 , ( .................... ) 28 , ( .................... ) 27 , ( ................... ) 26 , ( ................... ) 25 , ( .................. ) 24 , ( .................. ) 23 , ( ................. ) 23 , ( ................. ) 22 , ( ................. ) 21 , ( ................ ) 20 , ( ................ ) 1f , ( ............... ) 1e , ( ............... ) 1e , ( ............... ) 1d , ( .............. ) 1c , ( .............. ) 1b , ( ............. ) 1a , ( ............. ) 1a , ( ............. ) 19 , ( ............ ) 18 , ( ............ ) 17 , ( ........... ) 17 , ( ........... ) 16 , ( ........... ) 15 , ( .......... ) 15 , ( .......... ) 14 , ( .......... ) 13 , ( ......... ) 13 , ( ......... ) 12 , ( ......... ) 12 , ( ......... ) 11 , ( ........ ) 11 , ( ........ ) 10 , ( ........ ) f , ( ....... ) f , ( ....... ) e , ( ....... ) e , ( ....... ) e , ( ....... ) d , ( ...... ) d , ( ...... ) c , ( ...... ) c , ( ...... ) b , ( ..... ) b , ( ..... ) b , ( ..... ) a , ( ..... ) a , ( ..... ) a , ( ..... ) a , ( ..... ) 9 , ( .... ) 9 , ( .... ) 9 , ( .... ) 9 , ( .... ) 8 , ( .... ) 8 , ( .... ) 8 , ( .... ) 8 , ( .... ) 8 , ( .... ) 8 , ( .... ) 8 , ( .... ) 8 , ( .... ) 8 , ( .... ) 8 , ( .... ) 8 , ( .... ) 8 , ( .... ) 8 , ( .... ) 8 , ( .... ) 8 , ( .... ) 8 , ( .... ) 8 , ( .... ) 8 , ( .... ) 8 , ( .... ) 8 , ( .... ) 8 , ( .... ) 9 , ( .... ) 9 , ( .... ) 9 , ( .... ) 9 , ( .... ) a , ( ..... ) a , ( ..... ) a , ( ..... ) a , ( ..... ) b , ( ..... ) b , ( ..... ) b , ( ..... ) c , ( ...... ) c , ( ...... ) d , ( ...... ) d , ( ...... ) e , ( ....... ) e , ( ....... ) e , ( ....... ) f , ( ....... ) f , ( ....... ) 10 , ( ........ ) 11 , ( ........ ) 11 , ( ........ ) 12 , ( ......... ) 12 , ( ......... ) 13 , ( ......... ) 13 , ( ......... ) 14 , ( .......... ) 15 , ( .......... ) 15 , ( .......... ) 16 , ( ........... ) 17 , ( ........... ) 17 , ( ........... ) 18 , ( ............ ) 19 , ( ............ ) 1a , ( ............. ) 1a , ( ............. ) 1b , ( ............. ) 1c , ( .............. ) 1d , ( .............. ) 1e , ( ............... ) 1e , ( ............... ) 1f , ( ............... ) 20 , ( ................ ) 21 , ( ................ ) 22 , ( ................. ) 23 , ( ................. ) 23 , ( ................. ) 24 , ( .................. ) 25 , ( .................. ) 26 , ( ................... ) 27 , ( ................... ) 28 , ( .................... ) 29 , ( .................... ) 2a , ( ..................... ) 2b , ( ..................... ) 2c , ( ...................... ) 2d , ( ...................... ) 2e , ( ....................... ) 2f , ( ....................... ) 30 , ( ........................ ) 31 , ( ........................ ) 32 , ( ......................... ) 33 , ( ......................... ) 34 , ( .......................... ) 35 , ( .......................... ) 36 , ( ........................... ) 37 , ( ........................... ) 38 , ( ............................ ) 39 , ( ............................ ) 3a , ( ............................. ) 3b , ( ............................. ) 3c , ( .............................. ) 3d , ( .............................. ) 3e , ( ............................... ) 3f , ( ............................... ) 40 , ( ................................ ) 41 , ( ................................ ) 42 , ( ................................. ) ( fFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfF ) : sin d# 360 mod 4 * tsin + @ ; : cos d# 90 + sin ; ( fFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfF ) dev screen variable RGB-temp struct ( 000 ) : color! ( r g b index -- ) >r RGB-temp 2+ c! RGB-temp 1+ c! RGB-temp c! RGB-temp r> 1 set-colors ; : gray! ( rgb index -- ) >r dup dup r> color! ; ff ff ff 0 color! ( foreground color ) F 1 do FF E0 i / E0 i / i color! loop 00 00 00 F color! ( background color ) 100 10 do i i i i color! loop ( fFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfF ) variable delay 20 delay ! : sleep ( -- ) delay @ ms ; : numlines ( -- numlines ) screen-height 2 * 3 / ; : size ( -- size ) screen-width numlines * ; : offset ( -- offset ) screen-height 6 / screen-width * frame-buffer-adr + ; : pixeladr ( y x -- pixeladr ) swap screen-width * + offset + ; ( fFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfF ) : sinefield ( -- ) numlines 0 do i screen-width 0 do dup dup sin i sin + swap i pixeladr c! loop drop loop ; ( fFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfF ) : strange ( phase -- ) 100 10 do dup i + sin i gray! loop drop sleep ; ( fFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfF ) #lines line# - 0 do i 10 * sin 2 / 1+ 0 do ." " loop ." x" cr loop ( fFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfFfF ) : main ( -- ) erase-screen screen-width 0 do 00 i offset + screen-width - c! loop screen-width 0 do 00 i offset + size + c! loop 0 strange sinefield d# 360 0 do i strange loop ; main ." ok computer? "