100 REM WEDGE BASIC LOADER›110 GRAPHICS 0:? "Insert a DOS 2.0S diskette"›120 ? "with DOS.SYS in drive 1."›130 ? :? "Press ÒÅÔÕÒÎ when you have done this"›140 IF PEEK(764)<>12 THEN 140›150 POKE 764,255›160 ? :? "Now writing the Wedge AUTORUN.SYS file"›170 TRAP 190›180 OPEN #1,8,0,"D:AUTORUN.SYS":TRAP 40000:GOTO 200›190 CLOSE #1:? :? "Can't open AUTORUN.SYS for write.":END ›200 PUT #1,255:PUT #1,255:REM $FFFF HEADER›210 PUT #1,0:PUT #1,31:REM $1F00 START›220 PUT #1,74:PUT #1,33:REM $214A END›230 FOR I=7936 TO 8522+6:REM INCLUDE 6-BYTE AUTORUN›240 READ A:TRAP 310:PUT #1,A:TRAP 40000›250 CKSUM=CKSUM+A›260 NEXT I›270 IF CKSUM<>60435 THEN ? "ýBad number in DATA statements.":ERR=1›280 CLOSE #1›290 IF NOT ERR THEN ? :? "DATA ok, write successful."›300 END ›310 ? :? "Error-";PEEK(195);" when attempting disk write.":CLOSE #1:END ›320 REM ›330 REM Following is the decimal›340 REM equivalent of Wedge 1.0›350 REM Must be typed in perfectly›360 REM in order to function.›370 REM ›7936 DATA 104,165,12,141,37,31›7942 DATA 165,13,141,38,31,169›7948 DATA 36,133,12,169,31,133›7954 DATA 13,32,43,31,32,92›7960 DATA 31,169,75,141,231,2›7966 DATA 169,33,141,232,2,96›7972 DATA 32,64,21,32,11,31›7978 DATA 96,169,80,141,68,3›7984 DATA 169,31,141,69,3,169›7990 DATA 0,141,73,3,169,12›7996 DATA 141,72,3,169,11,141›8002 DATA 66,3,162,0,32,86›8008 DATA 228,152,48,1,96,76›8014 DATA 55,33,65,116,97,114›8020 DATA 105,32,87,101,100,103›8026 DATA 101,155,160,0,185,26›8032 DATA 3,201,69,240,7,200›8038 DATA 200,192,34,208,243,96›8044 DATA 200,169,165,153,26,3›8050 DATA 200,169,31,153,26,3›8056 DATA 162,0,189,0,228,157›8062 DATA 165,31,232,224,16,208›8068 DATA 245,169,184,141,169,31›8074 DATA 169,31,141,170,31,24›8080 DATA 173,4,228,105,1,141›8086 DATA 186,31,173,5,228,105›8092 DATA 0,141,187,31,169,0›8098 DATA 133,203,96,251,243,51›8104 DATA 246,184,31,163,246,51›8110 DATA 246,60,246,76,228,243›8116 DATA 56,1,1,125,32,32›8122 DATA 62,246,8,201,155,240›8128 DATA 4,230,203,40,96,140›8134 DATA 181,31,142,182,31,165›8140 DATA 203,240,86,169,51,133›8146 DATA 205,169,32,133,206,160›8152 DATA 0,177,205,217,128,5›8158 DATA 208,12,200,177,205,240›8164 DATA 40,196,203,208,240,76›8170 DATA 37,32,201,255,240,53›8176 DATA 160,0,177,205,240,9›8182 DATA 230,205,144,2,230,206›8188 DATA 76,242,31,24,165,205›8194 DATA 105,3,133,205,144,2›8200 DATA 230,206,76,215,31,200›8206 DATA 132,204,177,205,141,183›8212 DATA 31,200,177,205,141,184›8218 DATA 31,108,183,31,160,0›8224 DATA 169,46,153,128,5,169›8230 DATA 0,133,203,169,155,172›8236 DATA 181,31,174,182,31,40›8242 DATA 96,68,73,82,0,125›8248 DATA 32,83,67,82,65,84›8254 DATA 67,72,0,22,33,76›8260 DATA 79,67,75,0,27,33›8266 DATA 85,78,76,79,67,75›8272 DATA 0,32,33,82,69,78›8278 DATA 65,77,69,0,37,33›8284 DATA 75,73,76,76,0,42›8290 DATA 33,255,155,50,54,32›8296 DATA 70,82,69,69,32,83›8302 DATA 69,67,84,79,82,83›8308 DATA 155,155,0,0,68,58›8314 DATA 42,46,42,162,80,169›8320 DATA 12,157,66,3,32,86›8326 DATA 228,162,80,169,3,157›8332 DATA 66,3,169,6,157,74›8338 DATA 3,169,120,157,68,3›8344 DATA 169,32,157,69,3,32›8350 DATA 86,228,152,16,3,76›8356 DATA 55,33,162,80,169,5›8362 DATA 157,66,3,169,100,157›8368 DATA 68,3,141,68,3,169›8374 DATA 32,157,69,3,141,69›8380 DATA 3,169,20,157,72,3›8386 DATA 141,72,3,32,86,228›8392 DATA 152,48,13,169,9,141›8398 DATA 66,3,162,0,32,86›8404 DATA 228,76,166,32,162,80›8410 DATA 169,12,157,66,3,32›8416 DATA 86,228,76,30,32,162›8422 DATA 80,157,66,3,169,0›8428 DATA 157,73,3,164,203,153›8434 DATA 128,5,56,152,229,204›8440 DATA 157,72,3,24,169,128›8446 DATA 101,204,157,68,3,169›8452 DATA 5,105,0,157,69,3›8458 DATA 32,86,228,152,16,3›8464 DATA 76,55,33,76,30,32›8470 DATA 169,33,76,229,32,169›8476 DATA 35,76,229,32,169,36›8482 DATA 76,229,32,169,32,76›8488 DATA 229,32,173,37,31,133›8494 DATA 12,173,38,31,133,13›8500 DATA 76,116,228,72,162,80›8506 DATA 169,12,157,66,3,32›8512 DATA 86,228,104,162,255,154›8518 DATA 133,185,76,64,185›9000 REM DATA FOR AUTORUN ADDRESS›9010 DATA 224,2,225,2,1,31›9020 REM END OF DATA STATEMENTS›