10 REM LUNIX - LOADER V0.1 (5.12.1994)
20 REM WRITTEN BY POLDI
30 REM       = (IN RL.) DANIEL DALLMANN
40 REM
50 POKE56,140:POKE808,252
60 E=E+1:IFE=1THENPRINT"[204]OADING [204][213]NIX-[203]ERNEL":LOAD"LUNIX.SYS",8,1
70 PRINT"[196]O YOU WANT SOME COMMENTS ? (Y/N) ";
80 POKE204,0:POKE198,0:WAIT198,1:GETC$
85 PRINTC$:POKE204,1:FORT=1TO500:NEXT:PRINT" "
90 IFC$<>"Y"GOTO1000
95 :
100 PRINT"[204][213]NIX [214]ERSION 0.1P2 / 5.12.1994"
110 PRINT"  WRITTEN BY [196]ANIEL [196]ALLMANN
120 [153]"  YOUR COMMENTS TO ...
130 PRINT"   ZCMM1121@RPOOL1.RUS.UNI-STUTTGART.DE
140 [153]"(null)ITTLE (null)NIX,WELL BETTER VERY LITTLE :)"
150 [153]"RIGHT$'LL JUST EXPLAIN THE AVAILABLE COMMANDSON THIS VERSION ...
160 PRINT"THERE ARE SEVERAL GROUPS :
170 [153]" 1) COMMANDS USING STDIN (STANDART
180 PRINT"    INPUT) AND STDOUT (..OUTPUT)
190 [153]"     - SH0.EXE (A SUBSHELL)
200 PRINT"     - MIRROR  (TURNS LINES AROUD EG.
210 [153]"     -   HELLO WILL MIRRORED TO OLLEH
220 PRINT"     - WC      (COUNTS CHARS/WORDS/LINE"
230 PRINT"         TILL THERE IS A [197][207][212] (<[195][212][210][204]>+D)
240 [153]"     - HEXCONV (CONVERTS DECIMAL VALUES
250 PRINT"         IN A ASCII-STREAM INTO HEX)
260 [153]:[141]2000
270 [153]" 2) COMMANDS USING EITHER ONLY STDIN        OR STDOUT"
280 [153]"     - PS [-[L][A]]
290 PRINT"         PRINTS A LIST OF THE PROCESSES          IN THE SYSTEM"
300 PRINT"     - MEM
310 [153]"         SHOWS THE STATUS OF MEMORY AND          SYSTEM"
320 [153]"     - MAN     (PRINTS THIS TEXT IN A            SHORT FORM)
330 PRINT"     - COUNT   (COUNT UP TO 255)
340 [153]"     - PRIM X,Y
350 PRINT"         (CALCULATES Y PRIME NUMBERS >X
360 [153]"         0 <= Y < 65536
370 PRINT"         4 <  X < 4294967296 )
380 [153]"     - WRITE X
390 PRINT"         (WRITES A MESSAGE
400 [153]"         X MUST BE THE PID
410 PRINT"         =PROCESS IDENTIFICATION
420 [153]"         YOU CAN GET THE PID WITH PS -A
430 PRINT"         THE RECEIVER SHOULD BE A SHELL)
440 [141]2000
500 [153]" 3) COMMANDS WITHOUT I/O"
510 [153]"     - KILL X
520 PRINT"         KILLS A PROCESS X=PID
530 [153]"     - EXIT
540 PRINT"         EXITS A SHELL YOU CAN ALSO USE
550 [153]"         <LEN(null)(null)(null)>+D !
560 PRINT"     - MEMFREE
570 [153]"         SHOWS THE ACTUAL AMOUNT OF FREE
580 PRINT"         MEMORY PAGES (= 256 BYTES)
590 [153]"         YOU SHOULD START IT AS A
595 PRINT"         BACKGROUND PROCESS
596 [153]"         TYPE : MEMFREE &
600 GOSUB2000
610 PRINT" [200]OW TO COMBINE COMMANDS ?
620 [153]"   -EG.  PRIM 100,10 ! HEXCONV
630 PRINT"    WILL PRINT 10 PRIME NUMBER AS HEX.
640 [153]"   -     PS ! WRITE X
650 PRINT"   -     MAN ! MIRROR
660 [153]"    WILL PRINT A MIRRORED MANNUAL
670 PRINT"    (PARHAPS U CAN READ IT USING A           REAL MIRROR :)
680 [153]"   -     COUNT ! MIRROR ! MIRROR ! WC &
690 PRINT"    COUNT UP TO 255 -> 2*MIRROR ->          COUNT THE LINES
700 [153]"    ALL THAT IN THE BACKGROUND  :-)
710 PRINT" JUST BE CREATIV AND HAVE FUN WITH IT..
720 [141]2000:[137]1000
1000 [143] START LUNIX
1005 [153]" (null)RESS <ASC3> (ADD A SESSION) TO LOAD A    SHELL THEN PRESS <ASC1>....
1007 FORT=1TO1000:NEXT
1010 PRINT" [211]TARTING [204][213]NIX ...":SYS36241
2000 PRINT" <[211][208][193][195][197]> FOR MORE <[210][213][206]/[211][212][207][208]> FOR LUNIX ";
2010 POKE198,0:WAIT198,1
2020 GETQ$
2021 PRINT"[145]"CHR$(13)"                                       [145]"
2025 IFQ$=" "THENRETURN
2030 IFQ$<>CHR$(3)GOTO2000
2040 GOTO1000