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-3The 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