1 REM Ins{nd av Lars Gj|rling <6825> 1989-09-10 23.12.06 (KERMIT) 10 IF FNChkdos ; "DOS" ELSE ; "BASIC" 20 PUT FNStartpar$+'<' 30 ; FNExit 10000 DEF FNChkdos LOCAL I 10010 I=PEEK2(65302)-160 10020 WHILE I<160 : IF PEEK2(I)=-212 RETURN -1 10030 IF PEEK(I)<>13 I=I+1 : WEND 10040 RETURN 0 10050 FNEND 10060 ! 10070 DEF FNStartpar$ LOCAL Cmdsp,I,Cmd$=160 10080 Cmdsp=PEEK2(65302)-160 10090 WHILE I<160 : I=I+1 : IF PEEK(Cmdsp+I-1)=44 GOTO 10120 10100 IF PEEK(Cmdsp+I-1)=13 RETURN '' ! No startpar string 10110 WEND : RETURN '' ! No startpar string 10120 IF PEEK(Cmdsp+I)=255 I=I+1 ! Skip DOS-entry flag 10130 WHILE I<160 : IF PEEK(Cmdsp+I)=13 GOTO 10150 10135 IF PEEK(Cmdsp+I)<32 OR PEEK(Cmdsp+I)>127 RETURN '' 10140 Cmd$=Cmd$+CHR$(PEEK(Cmdsp+I)) : I=I+1 : WEND 10150 RETURN Cmd$ 10160 FNEND 10170 ! 10180 DEF FNExit LOCAL A$=21,A 10190 IF FNChkdos=0 GOTO 10240 ELSE CLOSE ! We MUST close ALL files!!! 10200 A$='CMDINT SYS'+CHR$(14,255,205,27,96,216,195,3,193) 10210 A=VARPTR(A$) 10220 IF CALL(A+11,A) ; "Can't load CMDINT.SYS, press any key for RESET!"; 10230 GET A$ : IF CALL(0) REM Just a miracle would get through here... 10240 END ! End to get out of a function is ugly but... 10250 FNEND