home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / prt / sl-mx2.ba < prev    next >
Text File  |  2006-10-19  |  1KB  |  16 lines
  1. 0 'SLIDEMX.BA Bill Templeton
  2. 1 'CLUB 100 Library - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 10 CLS:CLEAR256,60982:ML=60982:E$=CHR$(27):R$=E$+"p":N$=E$+"q
  4. 11 FORI=0TO56:READJ:POKEML+I,J:NEXT
  5. 12 PRINT@252,R$" Hit ENTER for MENU "N$:PRINT@162,"Filename";:INPUTQ$:IFQ$=""THENMENU
  6. 13 CLS:LOADMQ$:CALL60982
  7. 14 GOSUB17:CLS:PRINT@82,"Another Slide (Y/N)?":A$=INPUT$(1):IFINSTR("yY",A$)THEN12ELSEMENU
  8. 15 DATA033,112,238,017,000,000,229,213,006,009,126,005,202,089,238,007,210,065,238,209,213,245,123,128,095,029,197,205
  9. 16 DATA076,116,193,241,195,065,238,209,225,035,020,122,254,240,194,060,238,022,000,123,198,008,095,254,064,194,060,238,201
  10. 17 LPRINTCHR$(27);"A";CHR$(7):RESTORE22:DEFINTZ:DIMZA$(15):FORZA=0TO15:READZB:ZA$(ZA)=STRING$(2,CHR$(ZB)):NEXT
  11. 18 ZA=CSRLIN:PRINTCHR$(27)"P";:FORZB=0TO7:ZE=-832:FORZC=0TO39:PRINT@ZC+ZB*40,;:FORZD=-20TO-15:POKEZE,PEEK(ZD):ZE=ZE+1
  12. 19 NEXT:NEXT:FORZC=0TO1:LPRINTCHR$(27)+"K"+CHR$(224)+CHR$(1); 'Aspect ratio: "K" to "L" or "z"
  13. 20 FORZD=-832TO-593:IFZCTHENLPRINTZA$(PEEK(ZD)\16);ELSELPRINTZA$(PEEK(ZD)MOD16);
  14. 21 NEXT:LPRINT:NEXT:NEXT:PRINT@ZA,CHR$(27)"Q";:BEEP:BEEP:PRINT@280,"":RETURN
  15. 22 DATA255,63,207,15,243,51,195,3,252,60,204,12,240,48,192,0
  16.