COLD[CR] 1802 FIG-FORTH R0.4 3/16/81 : SET-LED 61440 C! ; [CR] OK : GET-LED 61440 C@ ; [CR] OK : DELAY 3000 0 DO LOOP ;[CR] OK : LEFT 7 0 DO GET-LED 2 * SET-LED DELAY LOOP ;[CR] OK : RIGHT 7 0 DO GET-LED 2 / SET-LED DELAY LOOP ;[CR] OK : RUN 1 SET-LED BEGIN LEFT RIGHT ?TERMINAL UNTIL ;[CR] OK RUN[CR]
hex2cosmac [filename] [-v] cosmac2hex [-s nnnn] [-e nnnn] [-v] [filename] bin2cosmac > hexdump -C 00000000 2d 2d 2d 2d 2d 42 45 47 49 4e 20 50 47 50 20 50 |-----BEGIN PGP P| 00000010 55 42 4c 49 43 20 4b 45 59 20 42 4c 4f 43 4b 2d |UBLIC KEY BLOCK-| 0000 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F ................ 0010 Hallo Velo!> /dev/null