home *** CD-ROM | disk | FTP | other *** search
/ Jason Aller Floppy Collection / 189.img / TCS120S.ZIP / SCR.PAS < prev    next >
Pascal/Delphi Source File  |  1986-11-29  |  2KB  |  74 lines
  1.  
  2. {$Igentypes.pas}
  3. {$Imodem.pas}
  4. type all=record
  5.      num,next,werex,werey,a1,a2,a3,a4:integer;
  6.      c1,c2,c3:anystr;
  7. end;
  8. var WOW,task:integer;
  9.     current,u1,u2,u3:all;
  10.     d3:char;
  11.  
  12.  
  13. PROCEDUre routine;
  14. var abc,cnt:integer;
  15. cd:char;
  16. begin
  17.  
  18.    if keypressed then begin
  19.     read(kbd,cd);
  20.     cnt:=ord(cd);
  21.     if (cnt=13) or (cnt=10) then writeln else write (cd);
  22.     cnt:=cnt-2;
  23.     cd:=chr(cnt);
  24.     sendchar('!');sendchar(cd);end;
  25.  
  26. if (numchars>3) then begin
  27.  
  28.  cd:=getchar;
  29.  cnt:=ord(cd);
  30.  
  31.    if cnt<10 then begin
  32.               cd:=waitchar;
  33.               abc:=ord(cd);
  34.               if cd='!' then begin
  35.               cd:=waitchar;
  36.               cnt:=ord(cd);
  37.                              if cnt>10 then begin
  38.               cd:=waitchar;
  39.               cnt:=ord(cd);
  40.               cnt:=cnt+2;
  41.               cd:=chr(cnt);
  42.  
  43.               if cd='#' then Write (' ') else
  44.                      IF (CNT=13) or (cnt=10) THEN
  45.                     WRITELN ELSE write (cd);
  46.                           end else cd:=getchar;
  47.                                    end;
  48.                                    end;
  49.                                    end;
  50.                         end;
  51.  
  52.  
  53. procedure load;
  54. var tf:text;
  55.     st:lstr;
  56. begin
  57.    st:='SCRAMBLE.CHN';
  58.    assign (tf,st);
  59.    chain (tf);
  60.    end;
  61.  
  62. begin
  63.    CLRSCR;
  64. ICOMOFFSET:=0;setparam (1,1200,false);
  65.  writeln ('[SAM BROWN NEO-GENERIC STANDARD ISSUE SCRAMBLER LOADER]');
  66.  
  67. if not driverpresent then begin
  68. Writeln ('You Dork,You forgot Modemdrv.com.hahaha');
  69. halt;
  70. end;
  71.  
  72. load;
  73. end.
  74.