home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / tel / fstmdm.ba < prev    next >
Text File  |  2006-10-19  |  505b  |  11 lines
  1. 1 'Club 100 Library - 415/939-1246 BBS     937-5039 NEWSLETTER, 932-8856 VOICE
  2. 5 REM FSTMDM - BY: Bob Scott
  3. 10 POKE 64270,172:POKE 64271,126
  4. 20 IF (PEEK(64268)=216) AND (PEEK(64269)=245) THEN PRINT"Removing 450 bps":POKE 64268,49:POKE 64269,66:CLEAR 256,MAXRAM:MENU
  5. 30 PRINT "Installing 450 bps":POKE 64269,245:POKE 64268,216
  6. 40 CLEAR 256,MAXRAM-25
  7. 50 FOR I=62936 TO 62955:READ X%:POKE I,X%:NEXT I
  8. 60 MENU
  9. 70 DATA 243,245,62,85,211,188,62,65,211,189,62
  10. 80 DATA 195,211,184,205,41,66,241,251,201
  11.