home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 14 / 14.iso / s / s009 / 6.ddi / CXCH.BAS (.txt) next >
Encoding:
GW-BASIC  |  1986-11-13  |  430 b   |  12 lines
  1. 10  DEFINT A-I:CLS:PRINT"WEND+ FNDEFDBL CALLTROFF NOTBLOAD USINGSTRING$ COLOR<0xE2!> CALLTO USRIMP"
  2. 20  A$(0)="S":A$(1)="F":A$(2)="H":A$(3)="K"
  3. 30  INPUT"PRESET*LOAD<UNK! {00FC}>SCREEN*CALLTROFFNOTBLOADUSINGSTRING$COLOR<0xE2!>BLOAD<UNK! {00FB}>TROFFOPEN",F$:IF F$="" THEN SYSTEM
  4. 40  OPEN"R",#1,F$+".COM",74:FIELD#1,1AS A$,1AS B$,66AS D$,2AS C$
  5. 44  IF LOF(1)=0 THEN BEEP:CLOSE:GOTO 30
  6. 50  GET#1,1:C#=CVI(C$):IF C#<0 THEN C#=C#+65536
  7. 60  C=(C#-4)/74:PRINT"USINGPOINT USINGSTRING$ LOCATE<UNK! {FDA3}>OPEN"C
  8. 70  FOR I=1 TO C:GET#1,I+1:A=ASC(A$):B=ASC(B$)
  9. 80  IF B>128 THEN E=2 ELSE E=0:B=B+128
  10. 90  IF A>128 THEN F=1 ELSE F=0:A=A+128
  11. 100  PRINT CHR$(B)CHR$(A)A$(E+F)" ";:NEXT:PRINT:CLOSE:GOTO 30
  12.