Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10 UW 5/3/83; site uw-beaver
Path: utzoo!watmath!clyde!burl!ulysses!mhuxl!houxm!houxz!vax135!cornell!uw-beaver!info-mac
From: info-mac@uw-beaver (info-mac)
Newsgroups: fa.info-mac
Subject: MS-BASIC program to get MacsBug
Message-ID: <1434@uw-beaver>
Date: Thu, 9-Aug-84 16:22:05 EDT
Article-I.D.: uw-beaver>.1434
Posted: Thu Aug  9 16:22:05 1984
Date-Received: Sat, 11-Aug-84 01:18:11 EDT
Sender: daemon@uw-beave
Organization: U of Washington Computer Science
Lines: 28

From: Dale Carstensen C-3 
The following program copies a .dl version of macsbug to a data file.
10 REM This program copies "macsbug.dl" (made by doing a "tohex" on the
20 REM file FTP'ed from SUMEX, with name "m.d") to a working data file on
30 REM the Macintosh.  If you don't have 48K (or slightly more?) of free
40 REM space on your MS-BASIC disk, you should put "m.b" on a separate
50 REM disk, and prefix the file names in lines 100 and 110 with the name
60 REM of that disk followed by a colon (for example, "SuMacC:m.d").
100 OPEN "m.d" FOR INPUT AS #1
110 OPEN "xMacsBug" FOR OUTPUT AS #2
120 LINE INPUT#1, L$
130 FOR I = 1 TO 248
140 W$ = ""
150 FOR J = 1 TO 2
160 LINE INPUT #1, L$
170 FOR K= 1 TO 65 STEP 2
180 B = (ASC(MID$(L$, K, 1))-64) * 16 + ASC(MID$(L$, K + 1, 1)) - 64
190 W$ = W$ + CHR$(B)
200 NEXT K
210 NEXT J
220 PRINT #2, W$;
230 NEXT I
240 CLOSE #1
250 FOR I = 1 TO 16
260 PRINT#2,CHR$(0);
270 NEXT I
290 CLOSE #2
300 END