'===========================================================================
' Subject: JPEG VIEWER FOR BASEC             Date: 12-23-98 (18:30)       
' Author:  The ABC Programmer                Code: BEC                    
' Origin:  voxel@edmc.net                  Packet: BASEC.ABC
'===========================================================================
' Unbelievable, a JPEG viewer in BASIC... cool!
'
' How it's called:  ShowJPG(Filename, X, Y, Scale)

dim filename as string*1024
dim mode as integer
dim x as integer
dim y as integer

filename = "abc.jpg"

cls
?"Woo hoo, JPEG viewer for BASIC?":?:?"Press any key to proceed..."
do:loop until inkey$<>""

mode = 13    '' so far I have 13 (320x200x256) and 12 (640x480x256)

screen mode
for x = 0 to 300 step 150
  for y = 0 to 200 step 50
    showjpg(filename,x,y,1)
    showjpg(filename,x,y+30,2)
    showjpg(filename,x+50,y+30,4)
    showjpg(filename,x+90,y+30,8)
  next y
next x
do:loop until inkey$<>""
screen 0