home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / prt / slidmx.ba < prev    next >
Text File  |  2006-10-19  |  768b  |  8 lines
  1. 0 'SLIDMX.BA - By Bill Templeton
  2. 1 'CLUB 100 LIBRARY - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 2 CLS:ML=60982:E$=CHR$(27):R$=E$+"p":N$=E$+"q":PRINT@42,"For High Res Screen Dump... type `H'    after picture fills LCD screen...":FORI=0TO56:READJ:POKEML+I,J:NEXT:PRINT@252,R$" Hit ENTER for MENU "N$
  4. 3 PRINT@162,"Filename";:INPUTQ$:IFQ$=""THENMENU
  5. 4 CLS:LOADMQ$:CALL60982:CLEAR256,62438:LOADM"LCDMX":H$=INPUT$(1):IFASC(H$)=27THENRUNELSEIFINSTR("Hh",H$)THENPOKE62491,76ELSEPOKE62491,75
  6. 5 CALL62957:RUN:DATA033,112,238,017,000,000,229,213,006,009,126,005,202,089,238,007,210,065,238,209:DATA213,245,123,128,095,029,197,205,076,116,193,241:DATA195,065,238,209,225,035,020,122,254,240,194,060,238,022,000,123
  7. 6 DATA198,008,095,254,064,194,060,238,201
  8.