5 rem FSTMDM - copyright 1988 Bob Scott CIS 73125,1437
10 poke 64270,172:poke 64271,126
20 if (peek(64268)=216) and (peek(64269)=245) then print"Removing 450 bps":poke 64268,49:poke 64269,66:clear 256,maxram:menu
30 print "Installing 450 bps":poke 64269,245:poke 64268,216
40 clear 256,maxram-25
50 for i=62936 to 62955:read x%:poke i,x%:next i
60 menu
70 data 243,245,62,85,211,188,62,65,211,189,62
80 data 195,211,184,205,41,66,241,251,201