1 REM From www.commodore.ca
2 REM "Program reproduced with permission from 
3 REM a Bill Levak (wlevak@cyberspace.org), and 
4 REM post on and CBM Hackers newsgroup January 9, 2002
5 REM (http://www.softwolves.pp.se/misc/arkiv/cbm-hackers/)"
6 REM
7 REM "To read 8050 disks on the 8250 you need to use a program on the
8 REM drive to trick it into thinking like an 8050 
9 REM (save it before you run it!)"
10 REM 8050 8250 
11 REM 172  1  2 SIDES 
12 REM 192 38 38 BAM AND DIRECTORY 
13 REM 193 38 38 TRACK NUMBERS 
14 REM 194 39 38 
15 REM 195  0 38 
16 REM 196  0 39 
17 REM 197  0  0 BAM AND DIRECTORY 
18 REM 198  3  3 SECTOR NUMBERS 
19 REM 199  1  6 
20 REM 200  0  9 
21 REM 201  0  1 
22 REM 233 78 155 TOTAL TRACKS + 1 
23 REM 237  0 77 TRACKS ON SIDE 2 
24 REM INPUT"DEVICE ADDRESS";DA:OPEN1,DA,15 
25 REM PRINT#1,"M-W"CHR$(172)CHR$(16)CHR$(1)CHR$(1) 
26 REM PRINT#1,"M-W"CHR$(194)CHR$(16)CHR$(3)CHR$(39)CHR$(0)CHR$(0) 
27 REM PRINT#1,"M-W"CHR$(199)CHR$(16)CHR$(3)CHR$(1)CHR$(0)CHR$(0) 
28 REM PRINT#1,"M-W"CHR$(233)CHR$(16)CHR$(1)CHR$(78) 
29 REM PRINT#1,"M-W"CHR$(237)CHR$(16)CHR$(1)CHR$(0):PRINT#1,"U9?:CLOSE1 
30 REM *****************************************************************
31 REM *** Edited by Dave Stevenson, 17 April 2015                     *
32 REM ***  (PET BASIC 4.0 is case sensitive !!!)                      *
33 REM *****************************************************************
34 input"device address";da:open1,da,15 
35 print#1,"m-w"chr$(172)chr$(16)chr$(1)chr$(1) 
36 print#1,"m-w"chr$(194)chr$(16)chr$(3)chr$(39)chr$(0)chr$(0) 
37 print#1,"m-w"chr$(199)chr$(16)chr$(3)chr$(1)chr$(0)chr$(0) 
38 print#1,"m-w"chr$(233)chr$(16)chr$(1)chr$(78) 
39 print#1,"m-w"chr$(237)chr$(16)chr$(1)chr$(0):print#1,"u9":close1