home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / cat / vt100.exe / lha / SXMMRG.DO < prev    next >
Text File  |  1993-12-10  |  550b  |  9 lines
  1. 56 GOSUB80:IFK=3THENPRINTU$" Disconnect? ";ELSEPRINTU$" VT100? ";
  2. 58 IFK=3THENMAXFILES=1:MENUELSEGOTO97
  3. 66 CLEAR500:MAXFILES=3:DEFINTA-Z:DIMX,X(1),M(60),Z(300):SCREEN,0:CLS:GOSUB67:GOTO68
  4. 67 RESTORE94:FORN=0TO60:READM(N):NEXT:K=3:U$=CHR$(154):N$=CHR$(0):V$=CHR$(22):G$=CHR$(255):GOSUB96:RETURN
  5. 96 F$="":FORN=248TO255:F$=F$+CHR$(N):NEXT:POKE63056,64:CALL17875:POKE63056,0:CALL27804:ONERRORGOTO84:RETURN
  6. 97 IFPEEK(59462)<>33THENCALL21608 
  7. 98 CALL59462:GOSUB67:K=0:MDMON:GOTO32
  8. 99 'Patch for SXM V 3.2 to be used with 100/100 V1.2 by Terry Luke
  9.