home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS 1992 June / SIMTEL_0692.cdr / msdos / packet / bsq.arc / BSQBOOT.BAS < prev    next >
Encoding:
BASIC Source File  |  1986-02-04  |  707 b   |  20 lines
  1. 10  PRINT "BSQ Bootstrap: reads BSQ.BSQ, writes BSQ.COM -  W1GOH 1/86
  2. 100 OPEN "bsq.bsq" FOR INPUT AS #1
  3. 110 OPEN "bsq.com" FOR OUTPUT AS #2
  4. 200 A%=0:B%=0:C%=0:D%=0:INPUT #1,L$:PRINT L$
  5. 400 IF EOF(1) THEN 4900
  6. 410 C%=ASC(INPUT$(1,#1)) AND 127
  7. 420 IF (C%<33) THEN 400
  8. 430 IF (C%>96) THEN 3000
  9. 440 GOSUB 1000 : GOTO 400
  10. 1000 C%=C%-33:A%=A%*64+C%:B%=B%+6
  11. 1010 IF B%<8 THEN RETURN
  12. 1011 IF B%=8 THEN B%=0:C%=A%:A%=0:GOTO 2000
  13. 1012 IF B%=10 THEN C%=INT(A%/4):A%=A% MOD 4:B%=2:GOTO 2000
  14. 1013 IF B%=12 THEN C%=INT(A%/16):A%=A% MOD 16:B%=4:GOTO 2000
  15. 2000 PRINT #2,CHR$(C% MOD 256);:D%=D%+1:GOTO 1010
  16. 3000 PRINT "Unrecognized BSQ code.. can't translate!":STOP
  17. 4900 CLOSE #2
  18. 4910 CLOSE #1
  19. 4999 END
  20.