1000 REM **************************
1010 REM ** BUGFIX--tape version **
1020 REM **************************
1030 REM
1040 REM This program creates an
1050 REM autoboot tape that patches
1060 REM the cassette handler.  To
1070 REM load the tape, hold the
1080 REM START button down when you
1090 REM turn the power on.  When
1100 REM you hear the beep, press
1110 REM PLAY, then RETURN.
1120 REM
1130 REM Thomas Newton, 1/23/1983
1140 REM
1150 REM You are encouraged to give
1160 REM copies to any person or club.
1170 REM
1180 DIM PROG$(191),PAD$(65)
1190 RESTORE:SUM=0:PAD$(1,1)=CHR$(0):PAD$(64,64)=CHR$(0):PAD$(2,65)=PAD$
1200 FOR X=1 TO 191
1210 READ Y:SUM=SUM+Y:PROG$(X,X)=CHR$(Y)
1220 NEXT X
1230 IF SUM<>17627 THEN PRINT "There is a typo in the DATA.":END
1240 PRINT "Press RECORD and PLAY, then RETURN"
1250 OPEN #1,8,128,"C:":REM short IRGs
1260 PRINT #1;PROG$;:PRINT #1;PAD$;:CLOSE #1
1270 REM the above was possible because BASIC prints strings at m.l. speed
1280 END
1290 REM
1300 REM autoboot program data
1310 REM
1320 REM prepared from object file
1330 REM by removing load and run
1340 REM addresses and filling in
1350 REM the space left by the DS
1360 REM with zeroes
1370 REM
1380 DATA 0,2,0,7,13,7,169,60
1390 DATA 141,2,211,24,96,169,191,141
1400 DATA 232,2,169,7,141,232,2,162
1410 DATA 15,189,64,228,157,94,7,202
1420 DATA 16,247,8,216,24,173,94,7
1430 DATA 105,1,141,153,173,95,7
1440 DATA 105,0,141,154,7,40,169,110
1450 DATA 141,94,7,169,7,141,95,7
1460 DATA 162,0,189,26,3,201,67,240
1470 DATA 5,232,232,232,208,244,142,93
1480 DATA 7,169,94,157,27,3,169,7
1490 DATA 157,28,3,24,96,0,0,0
1500 DATA 0,0,0,0,0,0,0,0
1510 DATA 0,0,0,0,0,0,234,8
1520 DATA 72,165,43,141,190,7,165,42
1530 DATA 41,8,141,189,7,240,23,169
1540 DATA 35,141,15,210,169,40,141,8
1550 DATA 210,169,0,141,4,210,141,6
1560 DATA 210,169,255,141,13,210,104,40
1570 DATA 32,0,0,8,72,173,189,7
1580 DATA 240,24,173,190,7,48,19,169
1590 DATA 60,141,2,211,169,160,141,1
1600 DATA 210,141,3,210,141,5,210,141
1610 DATA 7,210,104,40,96,0,0