home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / MADTRB35.ZIP / S2B.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1984-08-28  |  940 b   |  30 lines
  1. 1  '  S2B.BAS"
  2. 14000  KEY OFF: SCREEN 0,1,0,0: CLS
  3. 14005  DEFINT I-K,X-Z : COLOR 15,1: CLS
  4. 14010  LOCATE 25,1: PRINT "MSG: Enter 'END' to terminate conversion session.";
  5. 14020  LOCATE 23,1: LINE INPUT"Enter name of screen to be converted. ==> "; FI$
  6. 14030  IF FI$="end" OR FI$="END" THEN CLS: PRINT "Returning to T-SCREEN...": SYSTEM
  7. 14040  FS$=FI$+".TSM"
  8. 14050  CLS: LOCATE 25,1: PRINT "MSG: Conversion in progress...";
  9. 14088  '
  10. 14099  REM ** load a .TSM file
  11. 14100  OPEN"R",1,FS$,3520: VID% = VARPTR(#1)+188
  12. 14110  IF LOF(1)=0 THEN BEEP: MSG$="Screen not found. Press any key to retry.": GOSUB 14900: CLOSE 1: KILL FS$: GOTO 14010
  13. 14150  GET 1,1: CLOSE 1
  14. 14170  FS$=FI$+".BSV"
  15. 14199  REM ** bsave video to a .BSV file
  16. 14210  BSAVE FS$,VID%,3520
  17. 14220  DEF SEG = &HB800
  18. 14230  BLOAD FS$,0
  19. 14240  DEF SEG
  20. 14245  FS$=FI$+".TSC": FO$=FI$+".PRM"
  21. 14250  OPEN"R",1,FS$,64: FIELD 1, 64 AS INREC$
  22. 14260  OPEN"R",2,FO$,64: FIELD 2, 64 AS OUTREC$
  23. 14270  FOR I = 56 TO 64: GET 1,I
  24. 14280     LSET OUTREC$=INREC$: PUT 2,I-55
  25. 14290  NEXT I
  26. 14300  CLOSE: GOTO 14010
  27. 14900  LOCATE 23,1: PRINT TAB(79);: LOCATE 23,1: PRINT "MSG: ";: COLOR 31,1: PRINT MSG$;
  28. 14910  IN$=INKEY$: IF IN$="" THEN 14910
  29. 14920  LOCATE 23,1: COLOR 15,1: PRINT TAB(79);: RETURN
  30.