Home » Archimedes archive » Micro User » MU 1991-08.adf » PD-Stuff » OnePrint/!OnePrint/Source
OnePrint/!OnePrint/Source
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Micro User » MU 1991-08.adf » PD-Stuff |
| Filename: | OnePrint/!OnePrint/Source |
| Read OK: | ✔ |
| File size: | 7172 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
REM >Source
REM Program One Print
REM Version 1.00
REM Author Geoff Titmuss
REM � Ivoryash Limited 1991
REM Program Subject to Copyright
ver$ = "1.00 (1 April 1991)"
ON ERROR VDU4:PRINT REPORT$;" at line ";ERL;" - press a key":in=GET:PROCstop
REM To add a new printer, increment Makes by 1, and add an extra initial
REM value on the line Makes()=...
REM Then add another IF THEN ... ENDIF block in PROCsetcodes, but with
REM your printer control codes.
Makes=2 :REM number of printer types
DIM Make$(Makes)
Make$()="Star NL10","Cannon BJ10e","Epson FX80"
h%=OPENIN("<Obey$Dir>.Printer") :REM get default printer
Printer$=GET$#h%
CLOSE#h%
L%=0 :REM clear global variable - left margin
R%=0 :REM clear global variable - right margin
lines = 1 :REM number of entry lines on screen
PROCwimp :REM set up wimp environment
REM Main loop *****************************************
ON ERROR PROCerror
REPEAT
SYS "Wimp_Poll",,b TO reason
CASE reason OF
WHEN 2: b!24=0 :REM don't allow scroll
SYS "Wimp_OpenWindow",,b :REM Open window request
IF !b=entry: PROCresize
WHEN 3: SYS "Wimp_CloseWindow",,b :REM Close window request
WHEN 6: PROCbuttons(b) :REM Mouse button change
WHEN 7: PROCdragdone :REM User drag box
WHEN 8: PROCkey :REM Key pressed
WHEN 9: PROCmenuselect(b) :REM Menu select
WHEN 17,18:PROCreceive(b) :REM General message
WHEN 19: PROCnoack(b) :REM Request not acknowledged
ENDCASE
UNTIL quit
PROCstop
END
DEF PROCkey :REM handle key presses
IF !b=entry THEN
CASE b!24 OF
WHEN 13 :PROCcaret(b!4, 1, TRUE) :REM return pressed
WHEN &18E :PROCcaret(b!4, 1, FALSE) :REM up arrow
WHEN &18F :PROCcaret(b!4,-1, FALSE) :REM down arrow
ENDCASE
ENDIF
IF !b=saveas AND b!24=13 :PROCsaveit($fname) :REM return on save window
SYS "Wimp_ProcessKey",b!24 :REM pass key on to other apps
ENDPROC
DEF PROCcaret(icon, direction, right) :REM move carrot in window
icon += direction
IF icon > lines-1 :icon = 0 :REM below bottom icon
IF icon < 0 :icon = lines-1 :REM above top icon
IF right=FALSE THEN
SYS "Wimp_GetCaretPosition",,b
right = b!20
ENDIF
right=FNmin(right, LEN( $(FNindir(entry, icon))))
SYS "Wimp_SetCaretPosition",entry,icon,,,-1,right
ENDPROC
REM resize input window - this is not trivial because I choose to
REM put three buttons at the bottom of the screen, because this is
REM easier and more intuitive than menu selection. So, if the
REM window is sized, I have to remove all the icons, and then
REM recreated the correct number of input lines. I then add the new
REM buttons on the bottom. Sorry - it flickers a bit!
DEF PROCresize
SYS "Wimp_GetCaretPosition",,b :REM remember where the carrot was.
CaretWin = !b
CaretIcon = b!4
CaretIndex = b!20
!b = entry :REM find how big the window is.
SYS "Wimp_GetWindowState",,b
miny = b!8
maxy = b!16
sizex = b!12-b!4
sizey = b!16-b!8
ycount = ((sizey-top-bottom) DIV depth) -1 :REM number of input lines.
IF (ycount=lines) AND (oldsizex=sizex): ENDPROC :REM no change in size.
FOR I%=0 TO ClearBox: PROCshut(I%): NEXT :REM delete all icons.
FOR I%=0 TO ycount-1 :REM add new input lines.
temp = top+((I%+2)*depth)
temp = FNopen(TextIcon, sizex-20, -temp, -temp-depth, text+80*I%)
NEXT
temp1 = top + ((ycount+1)*depth) + 65
PrintBox = FNopen(PrintIcon, 0, -temp1, -temp1-Depth, 0)
OptionsBox = FNopen(OptionsIcon, 0, -temp1, -temp1-Depth, 0)
ClearBox = FNopen(ClearIcon, 0, -temp1, -temp1-Depth, 0)
PROCredraw(entry, FALSE) :REM this makes changes visible
lines = ycount :REM number of input lines
oldsizex = sizex :REM remember for next time
IF CaretWin = entry THEN
CaretIcon = FNmin(CaretIcon, lines-1)
SYS "Wimp_SetCaretPosition",entry,CaretIcon,,,-1,CaretIndex
ENDIF
ENDPROC
DEF FNopen(block, maxx, maxy, miny, indir) :REM open an icon
block!8 = miny
IF maxx<>0: block!12 = maxx
block!16 = maxy
IF indir<>0: block!24 = indir :REM point at text buffer
SYS "Wimp_CreateIcon" ,,block TO temp
=temp
DEF PROCshut(icon) :REM shut an icon
!b = entry
b!4 = icon
SYS "Wimp_DeleteIcon",,b
ENDPROC
REM ***********
REM
REM MenuSelect
REM
REM ***********
DEF PROCmenuselect(b)
CASE !b OF
WHEN 1:PROCsaveit($fname) :REM save as
WHEN 2: :REM select another printer
IF b!4 <> -1 THEN
Printer$ = Make$(b!4)
PROCgrey(0) :REM ungray any options for old printer
PROCsetcodes :REM set up new printer codes
PROCgrey(1) :REM gray any options not available
L%=0: R%=0
$SetUpTitle = "Options - "+Printer$
PROCredraw(setup,FALSE) :REM show correct printer in title bar
PROCsaveprinter :REM save printer choice on disk
ENDIF
WHEN 3: PROCexample :REM print test sheet
WHEN 4: quit=TRUE :REM quit
ENDCASE
PROCgetpointer :REM redisplay menu if adjust used
IF buttons% AND 1 THEN
PROCquitmenu(X%,Y%)
ENDIF
ENDPROC
DEF PROCsaveprinter :REM save current printer choice on disk
ON ERROR LOCAL: ENDPROC :REM if problem - forget it!
h%=OPENOUT("<Obey$Dir>.Printer")
BPUT#h%,Printer$+CHR$(10)
CLOSE#h%
ENDPROC
REM ********
REM
REM Buttons
REM
REM ********
DEF PROCbuttons(b)
window = b!12
icon = b!16
buttons = b!8
CASE window OF
WHEN -2 :REM icon bar
IF buttons=&02 THEN
PROCquitmenu(!b-64,298) :REM display menu
ELSE
PROCredraw(setup,TRUE) :REM open options window
PROCredraw(entry,TRUE) :REM open input window
ENDIF
WHEN entry :REM main display
CASE TRUE OF
WHEN buttons=&02 :REM menu button pressed
PROCquitmenu(!b,b!4) :REM display menu
WHEN (buttons=&01 OR buttons=&04) :REM select button pressed
CASE icon OF
WHEN PrintBox
IF FNbuffer=TRUE THEN
PROCmargin(VAL($left),VAL($right))
PROCprintit :REM Print
ENDIF
WHEN OptionsBox
PROCredraw(setup,TRUE) :REM Options
WHEN ClearBox
PROCclear :REM Clear text
PROCredraw(entry, FALSE) :REM refresh display
SYS "Wimp_SetCaretPosition",entry,0,,,-1,-1
ENDCASE
ENDCASE
WHEN setup :REM options window
IF buttons=&02 THEN
PROCquitmenu(!b,b!4) :REM display menu
ELSE
PROCprint(FNsetstyle) :REM send new codes to printer - this
:REM looks good on printers with LEDs
:REM which show their settings.
ENDIF
WHEN saveas :REM save window
CASE TRUE OF
WHEN (icon=dragicon AND (b!8 AND &50)<>0) :REM icon dragged
PROCdragbox
WHEN icon=ok :REM ok pressed
PROCsaveit($fname)
ENDCASE
ENDCASE
ENDPROC
DEF PROCprintit :REM send text to printer
PROCprint(FNsetstyle) :REM send control codes
FOR I%=0 TO lines-1 :REM then print each line directly
word$ = $(FNindir(entry, I%)) :REM from the icon buffer.
PROCprint(word$+nl$)
NEXT
ENDPROC
DEF FNstate(icon) :REM is icon selected?
!b = setup
b!4 = icon
SYS "Wimp_GetIconState",,b
=((b!26 AND %00100000) = %00100000)
DEF PROCclear :REM clear all icon buffers of text.
FOR I%=0 TO 30
$(text+I%*80) = ""
NEXT
ENDPROC
REM ****** FILE TRANSFER *************************
REM
REM 4 cases
REM Me to file - dragbox,dragdone,filesave,saveit
REM File to me - dataload
REM Me to App - dragbox,dragdone,,sendram
REM App to Me - savetous,getram
REM
REM **********************************************
DEF PROCreceive(b)
CASE b!16 OF
WHEN 0: quit=TRUE :REM Shut down
WHEN 1: PROCsavetous(b) :REM Program wishes to save a file
WHEN 2: PROCfilesave(b) :REM Ready to save a file
WHEN 3: PROCdataload(b) :REM Load a file
WHEN 6: PROCsendram(b) :REM Data pipe from me
WHEN 7: PROCgetram(b) :REM Data pipe to me
ENDCASE
ENDPROC
DEF PROCdragbox
!b = saveas :REM window handle
SYS "Wimp_GetWindowState",,b :REM get window position
wex = b!4 - b!20 :REM min x - x scroll
wey = b!16 - b!24 :REM max y - y scroll
b!4 = dragicon :REM icon handle
SYS "Wimp_GetIconState",,b :REM get icon position
b!4 = 5 :REM Drag type - fixed size box
b!8 = b!8 + wex :REM min x of initial box
b!12 = b!12 + wey :REM min y of initial box
b!16 = b!16 + wex :REM max x
b!20 = b!20 + wey :REM max y
b!24 = 0 :REM min x parent
b!28 = 0 :REM min y parent
b!32 = &7FFFFFFF :REM max x parent
b!36 = &7FFFFFFF :REM max y parent
SYS "Wimp_DragBox",,b
newdrag=TRUE :REM note for sendram
ENDPROC
DEF PROCdragdone
length=0 :REM calculate size of text to send.
FOR I%=0 TO lines-1
length+=LEN($(FNindir(entry, I%)))+1
NEXT
SYS "Wimp_GetPointerInfo",,b :REM block is for output
b!20=64 :REM length of block
b!32=0 :REM my ref (0=originating)
b!36=1 :REM message action
b!40=b!12 :REM window handle
b!44=b!16 :REM icon handle
b!48=!b :REM destination x
b!52=b!4 :REM destination y
b!56=length :REM size of file
b!60=&FFF :REM file type
$(b+64)=FNleaf($fname)+CHR$0 :REM file name, zero terminated
SYS "Wimp_SendMessage",17,b+20,b!12,b!16
myref=b!28 :REM myref returned
ENDPROC
DEF PROCfilesave(b) :REM filing system ready to save file.
IF b!12=myref THEN
PROCsaveit(FNgname(b+44))
b!12=b!8 :REM say file saved OK.
b!16=3
SYS "Wimp_SendMessage",18,b,b!4
ENDIF
ENDPROC
DEF PROCsaveit(name$) :REM actually save the file
REM if name contains . it is file name.
REM if name contains < it is a RISC OS variable.
IF INSTR(name$,".") OR INSTR(name$,"<") THEN
$fname = name$ :REM set name for next time
I%=0
X%=OPENOUT name$
FOR I%=0 TO lines-1
word$ = $(FNindir(entry, I%))
BPUT#X%,word$
NEXT
CLOSE #X%
OSCLI("STAMP "+name$) :REM put date on it
OSCLI("SETTYPE "+name$+" &FFF") :REM text file
!b1=saveas :REM window handle
SYS "Wimp_CloseWindow",,b1 :REM close save window
SYS "Wimp_CreateMenu",,-1 :REM close all menus
ELSE
$b1=" To save, drag the icon to a directory viewer"
SYS "Wimp_ReportError",b1,1,"!Teletext"
ENDIF
ENDPROC
DEF PROCdataload(b) :REM load from filing system
PROCclear :REM clear input window of text
ff$=FNgname(b+44) :REM name of file
I%=0
X%=OPENIN ff$
WHILE (NOT EOF#X%) AND (I%<30)
temp$ = GET$#X%
$(text+I%*80) = LEFT$(temp$,80)
I%+=1
ENDWHILE
CLOSE #X%
REM if file was created just for me to load, delete it.
IF b!12=myref: *DELETE <Wimp$Scrap>
b!12=b!8
b!16=4 :REM say file has been loaded.
SYS "Wimp_SendMessage",17,b,b!4
PROCredraw(entry, FALSE) :REM refresh the display.
ENDPROC
REM **************************************************
REM
REM SaveToUs, GetRam - a program wishes to save to us
REM
REM **************************************************
DEF PROCsavetous(b) :REM b from message type 17,18
FOR F%=0 TO 43 STEP 4 :REM record block in case no reply
oldblk!F%=b!F%
NEXT
fname$=FNgname(b+44) :REM file name
flength=b!36 :REM length of file
ftype=b!40 :REM file type
rma=FNclaim(b!36) :REM address of RMA memory
b!12=b!8 :REM my ref?
b!16=6 :REM send it to me as RAM
b!20=rma :REM start address
b!24=b!36 :REM length of block
SYS "Wimp_SendMessage",18,b,b!4
myref=b!12 :REM myref?
retry=TRUE :REM flag in case no reply to message 6
ENDPROC
DEF PROCgetram(b) :REM other app has sent data via RAM
IF b!24=flength THEN
b!12=b!8
b!16=6 :REM message - send it to me as RAM
SYS "Wimp_SendMessage",18,b,b!4
ELSE :REM data has been sent
PROCclear :REM clear input window of text
fname$=FNleaf(fname$) :REM get short file name
I% = 0 :REM loop round data, splitting into new lines
J% = 0 :REM for newline(10) or return(13)
K% = 0
REPEAT
?(text+I%*80+K%) = rma?J%
K%+=1
IF rma?J% = 13: I%+=1: K%=0
IF rma?J% = 10: ?(text+I%*80+K%-1)=13: I%+=1: K%=0
IF K%>78: ?(text+I%*80+K%) = 13: I%+=1: K%=0
J%+=1
UNTIL (I% > 32) OR (J% >= flength)
PROCrelease(rma) :REM release RMA memory
PROCredraw(entry, FALSE) :REM refresh the display
ENDIF
ENDPROC
REM ****************************************************
REM
REM NoAck is run when an app wants to save a file to me
REM but they don't support data pipe
REM
REM ****************************************************
DEF PROCnoack(b) :REM b from type 19 message
IF b!12=myref THEN
IF retry THEN
oldblk!12=oldblk!8
oldblk!16=2 :REM ready to save a file
!oldblk=100
oldblk!36 = -1
$(oldblk+44)="<Wimp$Scrap>"+CHR$0 :REM temp file name
SYS "Wimp_SendMessage",17,oldblk,oldblk!4
myref=oldblk!8
retry=FALSE :REM don't try again
ELSE
ERROR 1,"Pipe Broken"
ENDIF
ENDIF
ENDPROC
REM ****************************************
REM
REM SendRam - an application wants my file
REM
REM ****************************************
DEF PROCsendram(b)
IF newdrag THEN
newdrag=FALSE
rma=FNclaim(length) :REM address of RAM for transfer
ptr=rma :REM put text into block of RAM
FOR I%=0 TO lines-1
temp$=$(FNindir(entry, I%))
$ptr = temp$
ptr+=LEN(temp$)+1
?(ptr-1) = 10
NEXT
start=rma :REM start address of data to send
cnd=start+length :REM end address of data to send
ENDIF
IF b!24 < cnd-start THEN
cend=start+b!24
ELSE
cend=cnd
ENDIF
REM the following line transfers my block of RAM to the other
REM applications block of RAM - I believe!
SYS "Wimp_TransferBlock",us,start,b!4,b!20,cend-start
b!12=b!8
b!16=7 :REM message - load ram
b!24=cend-start :REM amount sent
SYS "Wimp_SendMessage",18,b,b!4
start=cend
IF start=cnd: PROCrelease(rma) :REM release memory
!b1=saveas :REM window handle
SYS "Wimp_CloseWindow",,b1 :REM close save window
SYS "Wimp_CreateMenu",,-1 :REM close all menus
ENDPROC
DEF FNclaim(size) :REM claim an area of RAM
SYS "OS_Module",6,,,size TO ,,ptr
=ptr
DEF PROCrelease(RETURN ptr) :REM release an area of RAM
IF ptr: SYS "OS_Module",7,,ptr
ptr=0
ENDPROC
DEF FNleaf(path$) :REM return short file name (no path)
WHILE INSTR(path$,".")
path$=MID$(path$,INSTR(path$,".")+1)
ENDWHILE
=path$
DEF FNgname(ptr) :REM return zero terminated file name
LOCAL f$
WHILE ?ptr f$+=CHR$?ptr
ptr+=1
ENDWHILE
=f$
REM ******************
REM
REM Error has occured
REM
REM ******************
DEF PROCerror
!b=ERR
$(b+4)=REPORT$+" at line "+STR$ERL+CHR$0
SYS "Wimp_ReportError", b, 3, "!OnePrint" TO ,response%
IF response%=2: PROCstop
ENDPROC
DEF PROCstop :REM close task down neatly.
SYS "Wimp_CloseDown"
END
ENDPROC
REM ***********************************************
REM
REM QuitMenu, Menu, MenuItem, MenuHead build menus
REM
REM ***********************************************
DEF PROCquitmenu(X%,Y%) :REM construct menu
menuflag=0 :REM redundant flag!
P%=FNmenuhead(m,"One Print",200)
P%=FNmenuitem(P%, 0, info,&7000021, "Info",0,0,0)
P%=FNmenuitem(P%, 0,saveas,&7000021, "Save",0,0,0)
P%=FNmenuitem(P%, 0, m1,&7000021, "Printer",0,0,0)
P%=FNmenuitem(P%, 0, -1,&7000021,"Test Printer",0,0,0)
P%=FNmenuitem(P%,&80, -1,&7000021, "Quit",0,0,0)
P%=FNmenuhead(m1,"Printers",200) :REM construct Printer menu
FOR I%=0 TO Makes
flag=0: IF I%=Makes: flag=&80
IF Printer$=Make$(I%): flag=flag EOR &01
P%=FNmenuitem(P%,flag,-1,&7000021,Make$(I%),0,0,0)
NEXT
SYS "Wimp_CreateMenu",,m,X%,Y% :REM blk,x select - 64,y
ENDPROC
DEF FNmenuitem(m,a,b,c,text$,d,e,f)
!m=a :REM menu flags (&80 = last item)
m!4=b :REM sub menu pointer
m!8=c :REM icon flags
IF text$<>"" THEN
$(m+12)=text$ :REM icon data
ELSE
m!12=d :REM pointer to text
m!16=e :REM pointer to validation string
m!20=f :REM length of buffer
ENDIF
=m+24
DEF FNmenuhead(m,text$,width)
$m=text$ :REM menu title
m!12=&70207 :REM colour
m!16=width :REM width of menu items
m!20=40 :REM height of menu items
m!24=0 :REM vertical gap between items
=m+28
DEF PROCgetpointer
SYS "Wimp_GetPointerInfo",,b
mousex% = !b
mousey% = b!4
buttons% = b!8
handle% = b!12
icon% = b!16
ENDPROC
DEF PROCredraw(window,topwin) :REM refresh window on display
IF topwin THEN
!b=window
SYS "Wimp_GetWindowState",,b :REM get size of window
b!28=-1 :REM position window on top
SYS "Wimp_OpenWindow",,b
ENDIF
!b=window
SYS "Wimp_RedrawWindow",,b TO more%
WHILE more%
SYS "Wimp_GetRectangle",,b TO more%
ENDWHILE
ENDPROC
REM ***********************
REM
REM Icon defines all icons
REM
REM ***********************
DEF FNicon(!b,b!4,b!8,b!12,b!16,b!20,text$,d,f)
IF text$<>"" THEN
$(b+24)=LEFT$(text$,12) :REM icon data
ELSE
b!24=d :REM pointer to text
b!28=-1 :REM pointer to validation string
b!32=f :REM length of buffer
ENDIF
SYS "Wimp_CreateIcon",,b TO handle
=handle
DEF FNmax(x%,y%)
IF x%>y% :=x%
=y%
DEF FNmin(x%,y%)
IF y%<x% :=y%
=x%
DEF PROCwimp : REM Set up WIMP environment
DIM b &1000, b1 100, m 400, m1 300
DIM PrintIcon 40, OptionsIcon 40, ClearIcon 40, TextIcon 40
DIM text 3000
$b="TASK"
SYS "Wimp_Initialise",200,!b,"OnePrint" TO ,us
icon=FNicon(-1,0,10,68,78,&3002,"!OnePrint",0,0) :REM put icon on icon bar
quit = FALSE :REM flag to stop
myref = 1234 :REM used in file transfer
DIM oldblk 256 :REM block used in file transfer
retry = FALSE :REM flag for file transfer
REM Load windows from template file *******************
DIM ind% 2000 :REM indirected icon work space
SYS "Wimp_OpenTemplate",,"<Obey$Dir>.Templates"
SYS "Wimp_LoadTemplate",,b,ind%,ind%+2000,-1,"Entry",0 TO ,,ind%
SYS "Wimp_CreateWindow",,b TO entry
SYS "Wimp_LoadTemplate",,b,ind%,ind%+1000,-1,"Info",0 TO ,,ind%
SYS "Wimp_CreateWindow",,b TO info
SYS "Wimp_LoadTemplate",,b,ind%,ind%+1000,-1,"xfer_send",0 TO ,,ind%
SYS "Wimp_CreateWindow",,b TO saveas
SYS "Wimp_LoadTemplate",,b,ind%,ind%+1000,-1,"SetUp",0 TO ,,ind%
SYS "Wimp_CreateWindow",,b TO setup
SYS "Wimp_CloseTemplate"
!b = info :REM set version number
b!4 = 4
SYS "Wimp_GetIconState",,b
$(b!28) = ver$
!b = saveas :REM get filename indirection
b!4 = 1
SYS "Wimp_GetIconState",,b
fname = b!28
$fname = "Textfile"
ok = 0 :REM ok icon number
dragicon = 2 :REM dragicon number
PROCsprite("file_fff") :REM open sprite on saveas window
right=FNindir(setup, 7) :REM indirection for right margin string
left =FNindir(setup, 29) :REM ditto left
PROCsetcodes :REM set up printer codes
PROCgrey(1) :REM gray any unavailable options
!b = setup
SYS "Wimp_GetWindowInfo",,b
SetUpTitle = b!76 :REM indirection of window title
$SetUpTitle = "Options - "+Printer$
!b = entry :REM get initial size of entry window
SYS "Wimp_GetWindowState",,b
miny = b!8
maxy = b!16
oldsizex = 0
lasticon = 0
PROCstore(lasticon, TextIcon) :REM structure for data entry icons
depth = TextIcon!16 - TextIcon!8
top = TextIcon!8
bottom = 127
PrintBox = 1 :REM button icon numbers on
OptionsBox = 2 :REM template file.
ClearBox = 3
PROCstore(PrintBox,PrintIcon) :REM store structure for buttons.
PROCstore(OptionsBox,OptionsIcon)
PROCstore(ClearBox,ClearIcon)
Depth = ClearIcon!16 - ClearIcon!8
PROCclear :REM clear data entry to blank
PROCresize :REM redraw window for initial size
ENDPROC
DEF PROCsprite(temp$) :REM open sprite on saveas window
!b1 = saveas
b1!4 = dragicon
SYS "Wimp_GetIconState",,b1
!b = saveas
b!4 = dragicon
SYS "Wimp_DeleteIcon",,b
b1!4 = saveas
b1?24 = &02
b1?25 = &60
$(b1+28) = temp$+CHR$(13)
SYS "Wimp_CreateIcon",,b1+4
ENDPROC
DEF PROCstore(icon, RETURN block) :REM store an icon structure in block
!block = entry
block!4 = icon
SYS "Wimp_GetIconState",,block
block!4 = entry
block = block+4
ENDPROC
DEF FNindir(window, icon) :REM find indirected string address
!b1 = window
b1!4 = icon
SYS "Wimp_GetIconState",,b1
=b1!28
DEF PROCmargin(left%, right%) :REM send printer codes for left and
:REM right margins. Only send them
:REM if margins have changed, since some
:REM printers need a line feed to activate
:REM this! eg Cannon BJ-10e
IF (L%<>left%) OR (R%<>right%) THEN
L%=left%
R%=right%
IF Margin$="" THEN
PROCprint(LMargin$+CHR$(L%))
PROCprint(RMargin$+CHR$(R%))
ELSE
PROCprint(Margin$+CHR$(L%)+CHR$(R%)+nl$)
ENDIF
ENDIF
ENDPROC
DEFFNsetstyle :REM Set printer codes
P$ = Reset$
IF FNstate(22) :P$+=NLQOn$
IF FNstate(9) :P$+=ExpandOn$
IF FNstate(10) :P$+=EliteOn$+ExpandOn$
IF FNstate(12) :P$+=EliteOn$
IF FNstate(13) :P$+=CondenseOn$
IF FNstate(14) :P$+=EliteOn$+CondenseOn$
IF FNstate(16) :P$+=EmphOn$
IF FNstate(17) :P$+=BoldOn$
IF FNstate(18) :P$+=EmphOn$+BoldOn$
IF FNstate(20) :P$+=ItalicOn$
IF FNstate(24) :P$+=SuperOn$
IF FNstate(25) :P$+=SubOn$
IF FNstate(27) :P$+=DoubOn$
IF FNstate(28) :P$+=QuadOn$
IF FNstate(31) :P$+=Centre$
IF FNstate(8) :P$+=Right$
=P$
DEF PROCgrey(OnOff)
IF EmphOn$="" :PROCgreyicon(16): PROCgreyicon(18)
IF BoldOn$="" :PROCgreyicon(17): PROCgreyicon(18)
IF ItalicOn$="" :PROCgreyicon(19): PROCgreyicon(20)
IF NLQOn$="" :PROCgreyicon(21): PROCgreyicon(22)
IF DoubOn$="" :PROCgreyicon(26): PROCgreyicon(27)
IF QuadOn$="" :PROCgreyicon(28)
IF Left$="" :PROCgreyicon(30):PROCgreyicon(31):PROCgreyicon(8)
ENDPROC
DEF PROCgreyicon(icon)
!b = setup
b!4 = icon
IF OnOff=1 THEN
b!8 = %10000000000000000000000
ELSE
b!8 = %00000000000000000000000
ENDIF
b!12 = %10000000000000000000000
SYS "Wimp_SetIconState",,b
ENDPROC
DEF PROCprint(a$) :REM send text to printer
*FX3,10
*FX6,254
PRINT a$;
*FX6,10
*FX3,0
ENDPROC
DEF FNbuffer :REM printer on?
IF FNprinterOn: =TRUE
REPEAT
!b=30
$(b+4)="Printer not ready"
SYS "Wimp_ReportError", b, 3, "!OnePrint" TO ,response%
IF response%=2: =FALSE :REM user cancelled
REM clear printer buffer (Cannon BJ10e seems to need this?)
*FX21,3
UNTIL FNprinterOn
=TRUE
DEF FNprinterOn
startsize=ADVAL(-4)
*FX3,10
VDU 0,0 :REM send a null code.
*FX3,0
time=TIME+5:REPEAT UNTIL TIME>time :REM allow some time for printer
endsize=ADVAL(-4) :REM to swallow data.
IF endsize>=startsize: =TRUE
=FALSE
DEFFNchr(a%,b%,c%) :REM contruct a string of control codes
IF c%=-1 AND b%=-1: =CHR$(a%)
IF c%=-1:=CHR$(a%)+CHR$(b%)
=CHR$(a%)+CHR$(b%)+CHR$(c%)
DEFPROCexample :REM example text
PROCmargin(0,80) :REM set margins to full width
T$="This is ":I$=" characters per inch)"
IF FNbuffer=FALSE: ENDPROC
PROCprint(Reset$+ExpandOn$+T$+"expanded Pica (5 per inch)"+nl$)
PROCprint(Reset$+EliteOn$+ExpandOn$+T$+"expanded Elite (6 per inch)"+nl$)
PROCprint(Reset$+T$+"Pica (10"+I$+nl$)
PROCprint(Reset$+EliteOn$+T$+"Elite (12"+I$+nl$)
PROCprint(Reset$+CondenseOn$+T$+"condensed Pica (17"+I$+nl$)
PROCprint(Reset$+EliteOn$+CondenseOn$+T$+"condensed Elite (20"+I$+nl$)
PROCprint(Reset$+nl$)
PROCprint(Reset$+T$+"single strike"+nl$)
PROCprint(Reset$+EmphOn$+T$+"emphasized printing"+nl$)
PROCprint(Reset$+BoldOn$+T$+"bold printing"+nl$)
PROCprint(Reset$+EmphOn$+T$+"emphasized and bold"+nl$)
PROCprint(Reset$+nl$)
IF ItalicOn$<>"" :PROCprint(Reset$+ItalicOn$+T$+"italic style"+nl$)
PROCprint(Reset$+NLQOn$+T$+"NLQ (Near letter quality)"+nl$)
IF ItalicOn$<>"" :PROCprint(Reset$+NLQOn$+ItalicOn$+T$+"NLQ in italic style"+nl$)
PROCprint(Reset$+nl$)
PROCprint(Reset$+T$+"normal ")
PROCprint(SuperOn$+T$+"superscript ")
PROCprint(SubOn$+T$+"subscript"+nl$)
PROCprint(Reset$+CondenseOn$+T$+"condensed ")
PROCprint(SuperOn$+T$+"superscript ")
PROCprint(SubOn$+T$+"subscript"+nl$+nl$)
PROCprint(FNsetstyle) :REM reset to options window
PROCmargin(VAL($left),VAL($right)) :REM reset margins
ENDPROC
DEF PROCsetcodes
REM Set codes for printer
REM -1 means short codes
nl$ =CHR$(13) :REM new line character
PicaOn$ =FNchr(27, 80,-1)
EliteOn$ =FNchr(27, 77,-1)
ExpandOn$ =FNchr(27, 87, 1)
ExpandOff$ =FNchr(27, 87, 0)
CondenseOn$ =FNchr(15, -1,-1)
CondenseOff$ =FNchr(18, -1,-1)
EmphOn$ =FNchr(27, 69,-1)
EmphOff$ =FNchr(27, 70,-1)
BoldOn$ =FNchr(27, 71,-1)
BoldOff$ =FNchr(27, 72,-1)
ItalicOn$ =FNchr(27, 52,-1)
ItalicOff$ =FNchr(27, 53,-1)
NLQOn$ =FNchr(27,120, 1)
NLQOff$ =FNchr(27,120, 0)
SuperOn$ =FNchr(27, 83, 0)
SubOn$ =FNchr(27, 83, 1)
SubOff$ =FNchr(27, 84,-1)
DoubOn$ =FNchr(27,104, 1)
QuadOn$ =FNchr(27,104, 2)
DoubOff$ =FNchr(27,104, 0)
Left$ =FNchr(27, 97, 0)
Centre$ =FNchr(27, 97, 1)
Right$ =FNchr(27, 97, 2)
Margin$ = ""
LMargin$ =FNchr(27,108,-1)
RMargin$ =FNchr(27, 81,-1)
REM you only need to set items that differ from defaults.
IF Printer$ = "Cannon BJ10e" THEN
PicaOn$ =FNchr(27,73,0)
EliteOn$ =FNchr(27,58,-1)
NLQOn$ =FNchr(27,73,2)
NLQOff$ =FNchr(27,73,0)
ItalicOn$ =""
ItalicOff$ =""
DoubOn$ =FNchr(27,91,64)+FNchr(4,0,0)+FNchr(0,34,2)
QuadOn$ =""
DoubOff$ =FNchr(27,91,64)+FNchr(4,0,0)+FNchr(0,17,1)
Margin$ =FNchr(27, 88,-1)
Left$ =""
Centre$ =""
Right$ =""
ENDIF
REM you only need to set items that differ from defaults.
IF Printer$ = "Epson FX80" THEN
Left$ = ""
Centre$ = ""
Right$ = ""
DoubOn$ = ""
QuadOn$ = ""
DoubOff$ = ""
ENDIF
REM most printers have a reset code, however to work on all printers
REM (well the 3 I have tried), it seems better to reset the printer by
REM this long winded method!
Reset$ = DoubOff$ + PicaOn$ + ExpandOff$ + CondenseOff$ + EmphOff$ + BoldOff$ + ItalicOff$ + + +f$ + SubOff$ + Left$
ENDPROC
00000000 52 45 4d 20 3e 53 6f 75 72 63 65 0a 52 45 4d 20 |REM >Source.REM |
00000010 50 72 6f 67 72 61 6d 20 4f 6e 65 20 50 72 69 6e |Program One Prin|
00000020 74 0a 52 45 4d 20 56 65 72 73 69 6f 6e 20 31 2e |t.REM Version 1.|
00000030 30 30 0a 52 45 4d 20 41 75 74 68 6f 72 20 47 65 |00.REM Author Ge|
00000040 6f 66 66 20 54 69 74 6d 75 73 73 0a 52 45 4d 20 |off Titmuss.REM |
00000050 a9 20 49 76 6f 72 79 61 73 68 20 4c 69 6d 69 74 |. Ivoryash Limit|
00000060 65 64 20 31 39 39 31 0a 52 45 4d 20 50 72 6f 67 |ed 1991.REM Prog|
00000070 72 61 6d 20 53 75 62 6a 65 63 74 20 74 6f 20 43 |ram Subject to C|
00000080 6f 70 79 72 69 67 68 74 0a 0a 76 65 72 24 20 3d |opyright..ver$ =|
00000090 20 22 31 2e 30 30 20 28 31 20 41 70 72 69 6c 20 | "1.00 (1 April |
000000a0 31 39 39 31 29 22 0a 4f 4e 20 45 52 52 4f 52 20 |1991)".ON ERROR |
000000b0 56 44 55 34 3a 50 52 49 4e 54 20 52 45 50 4f 52 |VDU4:PRINT REPOR|
000000c0 54 24 3b 22 20 61 74 20 6c 69 6e 65 20 22 3b 45 |T$;" at line ";E|
000000d0 52 4c 3b 22 20 2d 20 70 72 65 73 73 20 61 20 6b |RL;" - press a k|
000000e0 65 79 22 3a 69 6e 3d 47 45 54 3a 50 52 4f 43 73 |ey":in=GET:PROCs|
000000f0 74 6f 70 0a 0a 52 45 4d 20 54 6f 20 61 64 64 20 |top..REM To add |
00000100 61 20 6e 65 77 20 70 72 69 6e 74 65 72 2c 20 69 |a new printer, i|
00000110 6e 63 72 65 6d 65 6e 74 20 4d 61 6b 65 73 20 62 |ncrement Makes b|
00000120 79 20 31 2c 20 61 6e 64 20 61 64 64 20 61 6e 20 |y 1, and add an |
00000130 65 78 74 72 61 20 69 6e 69 74 69 61 6c 0a 52 45 |extra initial.RE|
00000140 4d 20 76 61 6c 75 65 20 6f 6e 20 74 68 65 20 6c |M value on the l|
00000150 69 6e 65 20 4d 61 6b 65 73 28 29 3d 2e 2e 2e 0a |ine Makes()=....|
00000160 52 45 4d 20 54 68 65 6e 20 61 64 64 20 61 6e 6f |REM Then add ano|
00000170 74 68 65 72 20 49 46 20 54 48 45 4e 20 2e 2e 2e |ther IF THEN ...|
00000180 20 45 4e 44 49 46 20 62 6c 6f 63 6b 20 69 6e 20 | ENDIF block in |
00000190 50 52 4f 43 73 65 74 63 6f 64 65 73 2c 20 62 75 |PROCsetcodes, bu|
000001a0 74 20 77 69 74 68 0a 52 45 4d 20 79 6f 75 72 20 |t with.REM your |
000001b0 70 72 69 6e 74 65 72 20 63 6f 6e 74 72 6f 6c 20 |printer control |
000001c0 63 6f 64 65 73 2e 0a 0a 4d 61 6b 65 73 3d 32 20 |codes...Makes=2 |
000001d0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a | :|
000001e0 52 45 4d 20 6e 75 6d 62 65 72 20 6f 66 20 70 72 |REM number of pr|
000001f0 69 6e 74 65 72 20 74 79 70 65 73 0a 44 49 4d 20 |inter types.DIM |
00000200 4d 61 6b 65 24 28 4d 61 6b 65 73 29 0a 4d 61 6b |Make$(Makes).Mak|
00000210 65 24 28 29 3d 22 53 74 61 72 20 4e 4c 31 30 22 |e$()="Star NL10"|
00000220 2c 22 43 61 6e 6e 6f 6e 20 42 4a 31 30 65 22 2c |,"Cannon BJ10e",|
00000230 22 45 70 73 6f 6e 20 46 58 38 30 22 0a 0a 68 25 |"Epson FX80"..h%|
00000240 3d 4f 50 45 4e 49 4e 28 22 3c 4f 62 65 79 24 44 |=OPENIN("<Obey$D|
00000250 69 72 3e 2e 50 72 69 6e 74 65 72 22 29 20 3a 52 |ir>.Printer") :R|
00000260 45 4d 20 67 65 74 20 64 65 66 61 75 6c 74 20 70 |EM get default p|
00000270 72 69 6e 74 65 72 0a 50 72 69 6e 74 65 72 24 3d |rinter.Printer$=|
00000280 47 45 54 24 23 68 25 0a 43 4c 4f 53 45 23 68 25 |GET$#h%.CLOSE#h%|
00000290 0a 0a 4c 25 3d 30 20 20 20 20 20 20 20 20 20 20 |..L%=0 |
000002a0 20 20 20 20 20 20 20 20 20 3a 52 45 4d 20 63 6c | :REM cl|
000002b0 65 61 72 20 67 6c 6f 62 61 6c 20 76 61 72 69 61 |ear global varia|
000002c0 62 6c 65 20 2d 20 6c 65 66 74 20 6d 61 72 67 69 |ble - left margi|
000002d0 6e 0a 52 25 3d 30 20 20 20 20 20 20 20 20 20 20 |n.R%=0 |
000002e0 20 20 20 20 20 20 20 20 20 3a 52 45 4d 20 63 6c | :REM cl|
000002f0 65 61 72 20 67 6c 6f 62 61 6c 20 76 61 72 69 61 |ear global varia|
00000300 62 6c 65 20 2d 20 72 69 67 68 74 20 6d 61 72 67 |ble - right marg|
00000310 69 6e 0a 6c 69 6e 65 73 20 3d 20 31 20 20 20 20 |in.lines = 1 |
00000320 20 20 20 20 20 20 20 20 20 20 3a 52 45 4d 20 6e | :REM n|
00000330 75 6d 62 65 72 20 6f 66 20 65 6e 74 72 79 20 6c |umber of entry l|
00000340 69 6e 65 73 20 6f 6e 20 73 63 72 65 65 6e 0a 0a |ines on screen..|
00000350 50 52 4f 43 77 69 6d 70 20 20 20 20 20 20 20 20 |PROCwimp |
00000360 20 20 20 20 20 20 20 3a 52 45 4d 20 73 65 74 20 | :REM set |
00000370 75 70 20 77 69 6d 70 20 65 6e 76 69 72 6f 6e 6d |up wimp environm|
00000380 65 6e 74 0a 0a 52 45 4d 20 4d 61 69 6e 20 6c 6f |ent..REM Main lo|
00000390 6f 70 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |op *************|
000003a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
000003b0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 0a 4f 4e |************..ON|
000003c0 20 45 52 52 4f 52 20 50 52 4f 43 65 72 72 6f 72 | ERROR PROCerror|
000003d0 0a 0a 52 45 50 45 41 54 0a 20 20 53 59 53 20 22 |..REPEAT. SYS "|
000003e0 57 69 6d 70 5f 50 6f 6c 6c 22 2c 2c 62 20 54 4f |Wimp_Poll",,b TO|
000003f0 20 72 65 61 73 6f 6e 0a 20 20 43 41 53 45 20 72 | reason. CASE r|
00000400 65 61 73 6f 6e 20 4f 46 0a 20 20 20 20 57 48 45 |eason OF. WHE|
00000410 4e 20 32 3a 20 20 20 20 62 21 32 34 3d 30 20 20 |N 2: b!24=0 |
00000420 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000430 20 20 20 3a 52 45 4d 20 64 6f 6e 27 74 20 61 6c | :REM don't al|
00000440 6c 6f 77 20 73 63 72 6f 6c 6c 0a 20 20 20 20 20 |low scroll. |
00000450 20 20 20 20 20 20 20 20 20 20 53 59 53 20 22 57 | SYS "W|
00000460 69 6d 70 5f 4f 70 65 6e 57 69 6e 64 6f 77 22 2c |imp_OpenWindow",|
00000470 2c 62 20 20 20 3a 52 45 4d 20 4f 70 65 6e 20 77 |,b :REM Open w|
00000480 69 6e 64 6f 77 20 72 65 71 75 65 73 74 0a 20 20 |indow request. |
00000490 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 | IF |
000004a0 21 62 3d 65 6e 74 72 79 3a 20 50 52 4f 43 72 65 |!b=entry: PROCre|
000004b0 73 69 7a 65 0a 20 20 20 20 57 48 45 4e 20 33 3a |size. WHEN 3:|
000004c0 20 20 20 20 53 59 53 20 22 57 69 6d 70 5f 43 6c | SYS "Wimp_Cl|
000004d0 6f 73 65 57 69 6e 64 6f 77 22 2c 2c 62 20 20 3a |oseWindow",,b :|
000004e0 52 45 4d 20 43 6c 6f 73 65 20 77 69 6e 64 6f 77 |REM Close window|
000004f0 20 72 65 71 75 65 73 74 0a 20 20 20 20 57 48 45 | request. WHE|
00000500 4e 20 36 3a 20 20 20 20 50 52 4f 43 62 75 74 74 |N 6: PROCbutt|
00000510 6f 6e 73 28 62 29 20 20 20 20 20 20 20 20 20 20 |ons(b) |
00000520 20 20 20 3a 52 45 4d 20 4d 6f 75 73 65 20 62 75 | :REM Mouse bu|
00000530 74 74 6f 6e 20 63 68 61 6e 67 65 0a 20 20 20 20 |tton change. |
00000540 57 48 45 4e 20 37 3a 20 20 20 20 50 52 4f 43 64 |WHEN 7: PROCd|
00000550 72 61 67 64 6f 6e 65 20 20 20 20 20 20 20 20 20 |ragdone |
00000560 20 20 20 20 20 20 3a 52 45 4d 20 55 73 65 72 20 | :REM User |
00000570 64 72 61 67 20 62 6f 78 0a 20 20 20 20 57 48 45 |drag box. WHE|
00000580 4e 20 38 3a 20 20 20 20 50 52 4f 43 6b 65 79 20 |N 8: PROCkey |
00000590 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000005a0 20 20 20 3a 52 45 4d 20 4b 65 79 20 70 72 65 73 | :REM Key pres|
000005b0 73 65 64 0a 20 20 20 20 57 48 45 4e 20 39 3a 20 |sed. WHEN 9: |
000005c0 20 20 20 50 52 4f 43 6d 65 6e 75 73 65 6c 65 63 | PROCmenuselec|
000005d0 74 28 62 29 20 20 20 20 20 20 20 20 20 20 3a 52 |t(b) :R|
000005e0 45 4d 20 4d 65 6e 75 20 73 65 6c 65 63 74 0a 20 |EM Menu select. |
000005f0 20 20 20 57 48 45 4e 20 31 37 2c 31 38 3a 50 52 | WHEN 17,18:PR|
00000600 4f 43 72 65 63 65 69 76 65 28 62 29 20 20 20 20 |OCreceive(b) |
00000610 20 20 20 20 20 20 20 20 20 3a 52 45 4d 20 47 65 | :REM Ge|
00000620 6e 65 72 61 6c 20 6d 65 73 73 61 67 65 0a 20 20 |neral message. |
00000630 20 20 57 48 45 4e 20 31 39 3a 20 20 20 50 52 4f | WHEN 19: PRO|
00000640 43 6e 6f 61 63 6b 28 62 29 20 20 20 20 20 20 20 |Cnoack(b) |
00000650 20 20 20 20 20 20 20 20 3a 52 45 4d 20 52 65 71 | :REM Req|
00000660 75 65 73 74 20 6e 6f 74 20 61 63 6b 6e 6f 77 6c |uest not acknowl|
00000670 65 64 67 65 64 0a 20 20 45 4e 44 43 41 53 45 0a |edged. ENDCASE.|
00000680 55 4e 54 49 4c 20 71 75 69 74 0a 0a 50 52 4f 43 |UNTIL quit..PROC|
00000690 73 74 6f 70 0a 45 4e 44 0a 0a 44 45 46 20 50 52 |stop.END..DEF PR|
000006a0 4f 43 6b 65 79 20 20 20 20 20 20 20 20 20 20 20 |OCkey |
000006b0 20 20 20 3a 52 45 4d 20 68 61 6e 64 6c 65 20 6b | :REM handle k|
000006c0 65 79 20 70 72 65 73 73 65 73 0a 20 20 49 46 20 |ey presses. IF |
000006d0 21 62 3d 65 6e 74 72 79 20 54 48 45 4e 0a 20 20 |!b=entry THEN. |
000006e0 20 20 43 41 53 45 20 62 21 32 34 20 4f 46 0a 20 | CASE b!24 OF. |
000006f0 20 20 20 20 20 57 48 45 4e 20 31 33 20 20 20 20 | WHEN 13 |
00000700 20 20 20 20 20 3a 50 52 4f 43 63 61 72 65 74 28 | :PROCcaret(|
00000710 62 21 34 2c 20 31 2c 20 54 52 55 45 29 20 20 20 |b!4, 1, TRUE) |
00000720 20 20 20 20 3a 52 45 4d 20 72 65 74 75 72 6e 20 | :REM return |
00000730 70 72 65 73 73 65 64 0a 20 20 20 20 20 20 57 48 |pressed. WH|
00000740 45 4e 20 26 31 38 45 20 20 20 20 20 20 20 3a 50 |EN &18E :P|
00000750 52 4f 43 63 61 72 65 74 28 62 21 34 2c 20 31 2c |ROCcaret(b!4, 1,|
00000760 20 46 41 4c 53 45 29 20 20 20 20 20 20 3a 52 45 | FALSE) :RE|
00000770 4d 20 75 70 20 61 72 72 6f 77 0a 20 20 20 20 20 |M up arrow. |
00000780 20 57 48 45 4e 20 26 31 38 46 20 20 20 20 20 20 | WHEN &18F |
00000790 20 3a 50 52 4f 43 63 61 72 65 74 28 62 21 34 2c | :PROCcaret(b!4,|
000007a0 2d 31 2c 20 46 41 4c 53 45 29 20 20 20 20 20 20 |-1, FALSE) |
000007b0 3a 52 45 4d 20 64 6f 77 6e 20 61 72 72 6f 77 0a |:REM down arrow.|
000007c0 20 20 20 20 45 4e 44 43 41 53 45 0a 20 20 45 4e | ENDCASE. EN|
000007d0 44 49 46 0a 0a 20 20 49 46 20 21 62 3d 73 61 76 |DIF.. IF !b=sav|
000007e0 65 61 73 20 41 4e 44 20 62 21 32 34 3d 31 33 20 |eas AND b!24=13 |
000007f0 3a 50 52 4f 43 73 61 76 65 69 74 28 24 66 6e 61 |:PROCsaveit($fna|
00000800 6d 65 29 20 20 20 3a 52 45 4d 20 72 65 74 75 72 |me) :REM retur|
00000810 6e 20 6f 6e 20 73 61 76 65 20 77 69 6e 64 6f 77 |n on save window|
00000820 0a 0a 20 20 53 59 53 20 22 57 69 6d 70 5f 50 72 |.. SYS "Wimp_Pr|
00000830 6f 63 65 73 73 4b 65 79 22 2c 62 21 32 34 20 20 |ocessKey",b!24 |
00000840 20 20 20 20 20 3a 52 45 4d 20 70 61 73 73 20 6b | :REM pass k|
00000850 65 79 20 6f 6e 20 74 6f 20 6f 74 68 65 72 20 61 |ey on to other a|
00000860 70 70 73 0a 45 4e 44 50 52 4f 43 0a 0a 44 45 46 |pps.ENDPROC..DEF|
00000870 20 50 52 4f 43 63 61 72 65 74 28 69 63 6f 6e 2c | PROCcaret(icon,|
00000880 20 64 69 72 65 63 74 69 6f 6e 2c 20 72 69 67 68 | direction, righ|
00000890 74 29 20 20 3a 52 45 4d 20 6d 6f 76 65 20 63 61 |t) :REM move ca|
000008a0 72 72 6f 74 20 69 6e 20 77 69 6e 64 6f 77 0a 20 |rrot in window. |
000008b0 20 69 63 6f 6e 20 2b 3d 20 64 69 72 65 63 74 69 | icon += directi|
000008c0 6f 6e 0a 20 20 49 46 20 69 63 6f 6e 20 3e 20 6c |on. IF icon > l|
000008d0 69 6e 65 73 2d 31 20 3a 69 63 6f 6e 20 3d 20 30 |ines-1 :icon = 0|
000008e0 20 20 20 20 20 20 20 20 20 20 3a 52 45 4d 20 62 | :REM b|
000008f0 65 6c 6f 77 20 62 6f 74 74 6f 6d 20 69 63 6f 6e |elow bottom icon|
00000900 0a 20 20 49 46 20 69 63 6f 6e 20 3c 20 30 20 20 |. IF icon < 0 |
00000910 20 20 20 20 20 3a 69 63 6f 6e 20 3d 20 6c 69 6e | :icon = lin|
00000920 65 73 2d 31 20 20 20 20 3a 52 45 4d 20 61 62 6f |es-1 :REM abo|
00000930 76 65 20 74 6f 70 20 69 63 6f 6e 0a 20 20 20 0a |ve top icon. .|
00000940 20 20 49 46 20 72 69 67 68 74 3d 46 41 4c 53 45 | IF right=FALSE|
00000950 20 54 48 45 4e 0a 20 20 20 20 53 59 53 20 22 57 | THEN. SYS "W|
00000960 69 6d 70 5f 47 65 74 43 61 72 65 74 50 6f 73 69 |imp_GetCaretPosi|
00000970 74 69 6f 6e 22 2c 2c 62 0a 20 20 20 20 72 69 67 |tion",,b. rig|
00000980 68 74 20 3d 20 62 21 32 30 0a 20 20 45 4e 44 49 |ht = b!20. ENDI|
00000990 46 0a 0a 20 20 72 69 67 68 74 3d 46 4e 6d 69 6e |F.. right=FNmin|
000009a0 28 72 69 67 68 74 2c 20 4c 45 4e 28 20 24 28 46 |(right, LEN( $(F|
000009b0 4e 69 6e 64 69 72 28 65 6e 74 72 79 2c 20 69 63 |Nindir(entry, ic|
000009c0 6f 6e 29 29 29 29 0a 0a 20 20 53 59 53 20 22 57 |on)))).. SYS "W|
000009d0 69 6d 70 5f 53 65 74 43 61 72 65 74 50 6f 73 69 |imp_SetCaretPosi|
000009e0 74 69 6f 6e 22 2c 65 6e 74 72 79 2c 69 63 6f 6e |tion",entry,icon|
000009f0 2c 2c 2c 2d 31 2c 72 69 67 68 74 0a 45 4e 44 50 |,,,-1,right.ENDP|
00000a00 52 4f 43 0a 20 20 20 20 20 20 20 20 20 20 20 20 |ROC. |
00000a10 20 20 0a 52 45 4d 20 72 65 73 69 7a 65 20 69 6e | .REM resize in|
00000a20 70 75 74 20 77 69 6e 64 6f 77 20 2d 20 74 68 69 |put window - thi|
00000a30 73 20 69 73 20 6e 6f 74 20 74 72 69 76 69 61 6c |s is not trivial|
00000a40 20 62 65 63 61 75 73 65 20 49 20 63 68 6f 6f 73 | because I choos|
00000a50 65 20 74 6f 0a 52 45 4d 20 70 75 74 20 74 68 72 |e to.REM put thr|
00000a60 65 65 20 62 75 74 74 6f 6e 73 20 61 74 20 74 68 |ee buttons at th|
00000a70 65 20 62 6f 74 74 6f 6d 20 6f 66 20 74 68 65 20 |e bottom of the |
00000a80 73 63 72 65 65 6e 2c 20 62 65 63 61 75 73 65 20 |screen, because |
00000a90 74 68 69 73 20 69 73 0a 52 45 4d 20 65 61 73 69 |this is.REM easi|
00000aa0 65 72 20 61 6e 64 20 6d 6f 72 65 20 69 6e 74 75 |er and more intu|
00000ab0 69 74 69 76 65 20 74 68 61 6e 20 6d 65 6e 75 20 |itive than menu |
00000ac0 73 65 6c 65 63 74 69 6f 6e 2e 20 20 53 6f 2c 20 |selection. So, |
00000ad0 69 66 20 74 68 65 20 0a 52 45 4d 20 77 69 6e 64 |if the .REM wind|
00000ae0 6f 77 20 69 73 20 73 69 7a 65 64 2c 20 49 20 68 |ow is sized, I h|
00000af0 61 76 65 20 74 6f 20 72 65 6d 6f 76 65 20 61 6c |ave to remove al|
00000b00 6c 20 74 68 65 20 69 63 6f 6e 73 2c 20 61 6e 64 |l the icons, and|
00000b10 20 74 68 65 6e 0a 52 45 4d 20 72 65 63 72 65 61 | then.REM recrea|
00000b20 74 65 64 20 74 68 65 20 63 6f 72 72 65 63 74 20 |ted the correct |
00000b30 6e 75 6d 62 65 72 20 6f 66 20 69 6e 70 75 74 20 |number of input |
00000b40 6c 69 6e 65 73 2e 20 49 20 74 68 65 6e 20 61 64 |lines. I then ad|
00000b50 64 20 74 68 65 20 6e 65 77 0a 52 45 4d 20 62 75 |d the new.REM bu|
00000b60 74 74 6f 6e 73 20 6f 6e 20 74 68 65 20 62 6f 74 |ttons on the bot|
00000b70 74 6f 6d 2e 20 53 6f 72 72 79 20 2d 20 69 74 20 |tom. Sorry - it |
00000b80 66 6c 69 63 6b 65 72 73 20 61 20 62 69 74 21 0a |flickers a bit!.|
00000b90 0a 44 45 46 20 50 52 4f 43 72 65 73 69 7a 65 0a |.DEF PROCresize.|
00000ba0 20 20 53 59 53 20 22 57 69 6d 70 5f 47 65 74 43 | SYS "Wimp_GetC|
00000bb0 61 72 65 74 50 6f 73 69 74 69 6f 6e 22 2c 2c 62 |aretPosition",,b|
00000bc0 20 20 20 3a 52 45 4d 20 72 65 6d 65 6d 62 65 72 | :REM remember|
00000bd0 20 77 68 65 72 65 20 74 68 65 20 63 61 72 72 6f | where the carro|
00000be0 74 20 77 61 73 2e 0a 20 20 43 61 72 65 74 57 69 |t was.. CaretWi|
00000bf0 6e 20 3d 20 21 62 0a 20 20 43 61 72 65 74 49 63 |n = !b. CaretIc|
00000c00 6f 6e 20 3d 20 62 21 34 0a 20 20 43 61 72 65 74 |on = b!4. Caret|
00000c10 49 6e 64 65 78 20 3d 20 62 21 32 30 0a 0a 20 20 |Index = b!20.. |
00000c20 21 62 20 3d 20 65 6e 74 72 79 20 20 20 20 20 20 |!b = entry |
00000c30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000c40 20 3a 52 45 4d 20 66 69 6e 64 20 68 6f 77 20 62 | :REM find how b|
00000c50 69 67 20 74 68 65 20 77 69 6e 64 6f 77 20 69 73 |ig the window is|
00000c60 2e 0a 20 20 53 59 53 20 22 57 69 6d 70 5f 47 65 |.. SYS "Wimp_Ge|
00000c70 74 57 69 6e 64 6f 77 53 74 61 74 65 22 2c 2c 62 |tWindowState",,b|
00000c80 0a 20 20 6d 69 6e 79 20 3d 20 62 21 38 0a 20 20 |. miny = b!8. |
00000c90 6d 61 78 79 20 3d 20 62 21 31 36 0a 20 20 73 69 |maxy = b!16. si|
00000ca0 7a 65 78 20 3d 20 62 21 31 32 2d 62 21 34 0a 20 |zex = b!12-b!4. |
00000cb0 20 73 69 7a 65 79 20 3d 20 62 21 31 36 2d 62 21 | sizey = b!16-b!|
00000cc0 38 0a 20 20 79 63 6f 75 6e 74 20 3d 20 28 28 73 |8. ycount = ((s|
00000cd0 69 7a 65 79 2d 74 6f 70 2d 62 6f 74 74 6f 6d 29 |izey-top-bottom)|
00000ce0 20 44 49 56 20 64 65 70 74 68 29 20 2d 31 20 20 | DIV depth) -1 |
00000cf0 3a 52 45 4d 20 6e 75 6d 62 65 72 20 6f 66 20 69 |:REM number of i|
00000d00 6e 70 75 74 20 6c 69 6e 65 73 2e 0a 0a 20 20 49 |nput lines... I|
00000d10 46 20 28 79 63 6f 75 6e 74 3d 6c 69 6e 65 73 29 |F (ycount=lines)|
00000d20 20 41 4e 44 20 28 6f 6c 64 73 69 7a 65 78 3d 73 | AND (oldsizex=s|
00000d30 69 7a 65 78 29 3a 20 45 4e 44 50 52 4f 43 20 20 |izex): ENDPROC |
00000d40 3a 52 45 4d 20 6e 6f 20 63 68 61 6e 67 65 20 69 |:REM no change i|
00000d50 6e 20 73 69 7a 65 2e 0a 0a 20 20 46 4f 52 20 49 |n size... FOR I|
00000d60 25 3d 30 20 54 4f 20 43 6c 65 61 72 42 6f 78 3a |%=0 TO ClearBox:|
00000d70 20 50 52 4f 43 73 68 75 74 28 49 25 29 3a 20 4e | PROCshut(I%): N|
00000d80 45 58 54 20 20 20 20 20 20 20 20 20 3a 52 45 4d |EXT :REM|
00000d90 20 64 65 6c 65 74 65 20 61 6c 6c 20 69 63 6f 6e | delete all icon|
00000da0 73 2e 0a 0a 20 20 46 4f 52 20 49 25 3d 30 20 54 |s... FOR I%=0 T|
00000db0 4f 20 79 63 6f 75 6e 74 2d 31 20 20 20 20 20 20 |O ycount-1 |
00000dc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000dd0 20 20 20 20 20 20 20 3a 52 45 4d 20 61 64 64 20 | :REM add |
00000de0 6e 65 77 20 69 6e 70 75 74 20 6c 69 6e 65 73 2e |new input lines.|
00000df0 0a 20 20 20 20 74 65 6d 70 20 3d 20 74 6f 70 2b |. temp = top+|
00000e00 28 28 49 25 2b 32 29 2a 64 65 70 74 68 29 0a 20 |((I%+2)*depth). |
00000e10 20 20 20 74 65 6d 70 20 3d 20 46 4e 6f 70 65 6e | temp = FNopen|
00000e20 28 54 65 78 74 49 63 6f 6e 2c 20 73 69 7a 65 78 |(TextIcon, sizex|
00000e30 2d 32 30 2c 20 2d 74 65 6d 70 2c 20 2d 74 65 6d |-20, -temp, -tem|
00000e40 70 2d 64 65 70 74 68 2c 20 74 65 78 74 2b 38 30 |p-depth, text+80|
00000e50 2a 49 25 29 20 20 20 20 20 20 0a 20 20 4e 45 58 |*I%) . NEX|
00000e60 54 0a 20 20 74 65 6d 70 31 20 3d 20 74 6f 70 20 |T. temp1 = top |
00000e70 2b 20 28 28 79 63 6f 75 6e 74 2b 31 29 2a 64 65 |+ ((ycount+1)*de|
00000e80 70 74 68 29 20 2b 20 36 35 0a 0a 20 20 50 72 69 |pth) + 65.. Pri|
00000e90 6e 74 42 6f 78 20 20 20 3d 20 46 4e 6f 70 65 6e |ntBox = FNopen|
00000ea0 28 50 72 69 6e 74 49 63 6f 6e 2c 20 20 20 30 2c |(PrintIcon, 0,|
00000eb0 20 2d 74 65 6d 70 31 2c 20 2d 74 65 6d 70 31 2d | -temp1, -temp1-|
00000ec0 44 65 70 74 68 2c 20 30 29 0a 20 20 4f 70 74 69 |Depth, 0). Opti|
00000ed0 6f 6e 73 42 6f 78 20 3d 20 46 4e 6f 70 65 6e 28 |onsBox = FNopen(|
00000ee0 4f 70 74 69 6f 6e 73 49 63 6f 6e 2c 20 30 2c 20 |OptionsIcon, 0, |
00000ef0 2d 74 65 6d 70 31 2c 20 2d 74 65 6d 70 31 2d 44 |-temp1, -temp1-D|
00000f00 65 70 74 68 2c 20 30 29 0a 20 20 43 6c 65 61 72 |epth, 0). Clear|
00000f10 42 6f 78 20 20 20 3d 20 46 4e 6f 70 65 6e 28 43 |Box = FNopen(C|
00000f20 6c 65 61 72 49 63 6f 6e 2c 20 20 20 30 2c 20 2d |learIcon, 0, -|
00000f30 74 65 6d 70 31 2c 20 2d 74 65 6d 70 31 2d 44 65 |temp1, -temp1-De|
00000f40 70 74 68 2c 20 30 29 0a 0a 20 20 50 52 4f 43 72 |pth, 0).. PROCr|
00000f50 65 64 72 61 77 28 65 6e 74 72 79 2c 20 46 41 4c |edraw(entry, FAL|
00000f60 53 45 29 20 20 20 20 20 20 20 20 3a 52 45 4d 20 |SE) :REM |
00000f70 74 68 69 73 20 6d 61 6b 65 73 20 63 68 61 6e 67 |this makes chang|
00000f80 65 73 20 76 69 73 69 62 6c 65 0a 20 20 6c 69 6e |es visible. lin|
00000f90 65 73 20 3d 20 79 63 6f 75 6e 74 20 20 20 20 20 |es = ycount |
00000fa0 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 52 45 | :RE|
00000fb0 4d 20 6e 75 6d 62 65 72 20 6f 66 20 69 6e 70 75 |M number of inpu|
00000fc0 74 20 6c 69 6e 65 73 0a 20 20 6f 6c 64 73 69 7a |t lines. oldsiz|
00000fd0 65 78 20 3d 20 73 69 7a 65 78 20 20 20 20 20 20 |ex = sizex |
00000fe0 20 20 20 20 20 20 20 20 20 20 3a 52 45 4d 20 72 | :REM r|
00000ff0 65 6d 65 6d 62 65 72 20 66 6f 72 20 6e 65 78 74 |emember for next|
00001000 20 74 69 6d 65 0a 0a 20 20 49 46 20 43 61 72 65 | time.. IF Care|
00001010 74 57 69 6e 20 3d 20 65 6e 74 72 79 20 54 48 45 |tWin = entry THE|
00001020 4e 0a 20 20 20 20 43 61 72 65 74 49 63 6f 6e 20 |N. CaretIcon |
00001030 3d 20 46 4e 6d 69 6e 28 43 61 72 65 74 49 63 6f |= FNmin(CaretIco|
00001040 6e 2c 20 6c 69 6e 65 73 2d 31 29 0a 20 20 20 20 |n, lines-1). |
00001050 53 59 53 20 22 57 69 6d 70 5f 53 65 74 43 61 72 |SYS "Wimp_SetCar|
00001060 65 74 50 6f 73 69 74 69 6f 6e 22 2c 65 6e 74 72 |etPosition",entr|
00001070 79 2c 43 61 72 65 74 49 63 6f 6e 2c 2c 2c 2d 31 |y,CaretIcon,,,-1|
00001080 2c 43 61 72 65 74 49 6e 64 65 78 0a 20 20 45 4e |,CaretIndex. EN|
00001090 44 49 46 0a 45 4e 44 50 52 4f 43 0a 0a 44 45 46 |DIF.ENDPROC..DEF|
000010a0 20 46 4e 6f 70 65 6e 28 62 6c 6f 63 6b 2c 20 6d | FNopen(block, m|
000010b0 61 78 78 2c 20 6d 61 78 79 2c 20 6d 69 6e 79 2c |axx, maxy, miny,|
000010c0 20 69 6e 64 69 72 29 20 20 20 3a 52 45 4d 20 6f | indir) :REM o|
000010d0 70 65 6e 20 61 6e 20 69 63 6f 6e 0a 20 20 62 6c |pen an icon. bl|
000010e0 6f 63 6b 21 38 20 20 3d 20 6d 69 6e 79 0a 20 20 |ock!8 = miny. |
000010f0 49 46 20 6d 61 78 78 3c 3e 30 3a 20 62 6c 6f 63 |IF maxx<>0: bloc|
00001100 6b 21 31 32 20 3d 20 6d 61 78 78 0a 20 20 62 6c |k!12 = maxx. bl|
00001110 6f 63 6b 21 31 36 20 3d 20 6d 61 78 79 0a 20 20 |ock!16 = maxy. |
00001120 49 46 20 69 6e 64 69 72 3c 3e 30 3a 20 62 6c 6f |IF indir<>0: blo|
00001130 63 6b 21 32 34 20 3d 20 69 6e 64 69 72 20 20 20 |ck!24 = indir |
00001140 20 20 20 20 20 20 20 20 20 20 20 3a 52 45 4d 20 | :REM |
00001150 70 6f 69 6e 74 20 61 74 20 74 65 78 74 20 62 75 |point at text bu|
00001160 66 66 65 72 0a 20 20 53 59 53 20 22 57 69 6d 70 |ffer. SYS "Wimp|
00001170 5f 43 72 65 61 74 65 49 63 6f 6e 22 20 2c 2c 62 |_CreateIcon" ,,b|
00001180 6c 6f 63 6b 20 54 4f 20 74 65 6d 70 0a 3d 74 65 |lock TO temp.=te|
00001190 6d 70 0a 0a 44 45 46 20 50 52 4f 43 73 68 75 74 |mp..DEF PROCshut|
000011a0 28 69 63 6f 6e 29 20 20 20 20 20 20 20 20 20 20 |(icon) |
000011b0 20 20 3a 52 45 4d 20 73 68 75 74 20 61 6e 20 69 | :REM shut an i|
000011c0 63 6f 6e 0a 20 20 21 62 20 20 3d 20 65 6e 74 72 |con. !b = entr|
000011d0 79 0a 20 20 62 21 34 20 3d 20 69 63 6f 6e 0a 20 |y. b!4 = icon. |
000011e0 20 53 59 53 20 22 57 69 6d 70 5f 44 65 6c 65 74 | SYS "Wimp_Delet|
000011f0 65 49 63 6f 6e 22 2c 2c 62 0a 45 4e 44 50 52 4f |eIcon",,b.ENDPRO|
00001200 43 0a 0a 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a |C..REM *********|
00001210 2a 2a 0a 52 45 4d 0a 52 45 4d 20 4d 65 6e 75 53 |**.REM.REM MenuS|
00001220 65 6c 65 63 74 0a 52 45 4d 0a 52 45 4d 20 2a 2a |elect.REM.REM **|
00001230 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 0a 44 45 46 20 50 |*********..DEF P|
00001240 52 4f 43 6d 65 6e 75 73 65 6c 65 63 74 28 62 29 |ROCmenuselect(b)|
00001250 0a 20 20 43 41 53 45 20 21 62 20 4f 46 0a 20 20 |. CASE !b OF. |
00001260 20 20 57 48 45 4e 20 31 3a 50 52 4f 43 73 61 76 | WHEN 1:PROCsav|
00001270 65 69 74 28 24 66 6e 61 6d 65 29 20 20 20 20 20 |eit($fname) |
00001280 20 3a 52 45 4d 20 73 61 76 65 20 61 73 0a 20 20 | :REM save as. |
00001290 20 20 57 48 45 4e 20 32 3a 20 20 20 20 20 20 20 | WHEN 2: |
000012a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000012b0 20 3a 52 45 4d 20 73 65 6c 65 63 74 20 61 6e 6f | :REM select ano|
000012c0 74 68 65 72 20 70 72 69 6e 74 65 72 0a 20 20 20 |ther printer. |
000012d0 20 20 20 49 46 20 62 21 34 20 3c 3e 20 2d 31 20 | IF b!4 <> -1 |
000012e0 54 48 45 4e 0a 20 20 20 20 20 20 20 20 50 72 69 |THEN. Pri|
000012f0 6e 74 65 72 24 20 3d 20 4d 61 6b 65 24 28 62 21 |nter$ = Make$(b!|
00001300 34 29 0a 20 20 20 20 20 20 20 20 50 52 4f 43 67 |4). PROCg|
00001310 72 65 79 28 30 29 20 20 20 20 20 20 20 20 20 20 |rey(0) |
00001320 20 20 20 20 20 20 3a 52 45 4d 20 75 6e 67 72 61 | :REM ungra|
00001330 79 20 61 6e 79 20 6f 70 74 69 6f 6e 73 20 66 6f |y any options fo|
00001340 72 20 6f 6c 64 20 70 72 69 6e 74 65 72 0a 20 20 |r old printer. |
00001350 20 20 20 20 20 20 50 52 4f 43 73 65 74 63 6f 64 | PROCsetcod|
00001360 65 73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |es |
00001370 20 3a 52 45 4d 20 73 65 74 20 75 70 20 6e 65 77 | :REM set up new|
00001380 20 70 72 69 6e 74 65 72 20 63 6f 64 65 73 0a 20 | printer codes. |
00001390 20 20 20 20 20 20 20 50 52 4f 43 67 72 65 79 28 | PROCgrey(|
000013a0 31 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |1) |
000013b0 20 20 3a 52 45 4d 20 67 72 61 79 20 61 6e 79 20 | :REM gray any |
000013c0 6f 70 74 69 6f 6e 73 20 6e 6f 74 20 61 76 61 69 |options not avai|
000013d0 6c 61 62 6c 65 0a 20 20 20 20 20 20 20 20 4c 25 |lable. L%|
000013e0 3d 30 3a 20 52 25 3d 30 0a 20 20 20 20 20 20 20 |=0: R%=0. |
000013f0 20 24 53 65 74 55 70 54 69 74 6c 65 20 3d 20 22 | $SetUpTitle = "|
00001400 4f 70 74 69 6f 6e 73 20 2d 20 22 2b 50 72 69 6e |Options - "+Prin|
00001410 74 65 72 24 0a 20 20 20 20 20 20 20 20 50 52 4f |ter$. PRO|
00001420 43 72 65 64 72 61 77 28 73 65 74 75 70 2c 46 41 |Credraw(setup,FA|
00001430 4c 53 45 29 20 20 20 20 3a 52 45 4d 20 73 68 6f |LSE) :REM sho|
00001440 77 20 63 6f 72 72 65 63 74 20 70 72 69 6e 74 65 |w correct printe|
00001450 72 20 69 6e 20 74 69 74 6c 65 20 62 61 72 0a 20 |r in title bar. |
00001460 20 20 20 20 20 20 20 50 52 4f 43 73 61 76 65 70 | PROCsavep|
00001470 72 69 6e 74 65 72 20 20 20 20 20 20 20 20 20 20 |rinter |
00001480 20 20 3a 52 45 4d 20 73 61 76 65 20 70 72 69 6e | :REM save prin|
00001490 74 65 72 20 63 68 6f 69 63 65 20 6f 6e 20 64 69 |ter choice on di|
000014a0 73 6b 0a 20 20 20 20 20 20 45 4e 44 49 46 0a 20 |sk. ENDIF. |
000014b0 20 20 20 57 48 45 4e 20 33 3a 20 50 52 4f 43 65 | WHEN 3: PROCe|
000014c0 78 61 6d 70 6c 65 20 20 20 20 20 20 20 20 20 20 |xample |
000014d0 20 20 3a 52 45 4d 20 70 72 69 6e 74 20 74 65 73 | :REM print tes|
000014e0 74 20 73 68 65 65 74 0a 20 20 20 20 57 48 45 4e |t sheet. WHEN|
000014f0 20 34 3a 20 71 75 69 74 3d 54 52 55 45 20 20 20 | 4: quit=TRUE |
00001500 20 20 20 20 20 20 20 20 20 20 20 3a 52 45 4d 20 | :REM |
00001510 71 75 69 74 0a 20 20 45 4e 44 43 41 53 45 0a 0a |quit. ENDCASE..|
00001520 20 20 50 52 4f 43 67 65 74 70 6f 69 6e 74 65 72 | PROCgetpointer|
00001530 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001540 20 20 20 3a 52 45 4d 20 72 65 64 69 73 70 6c 61 | :REM redispla|
00001550 79 20 6d 65 6e 75 20 69 66 20 61 64 6a 75 73 74 |y menu if adjust|
00001560 20 75 73 65 64 0a 20 20 49 46 20 62 75 74 74 6f | used. IF butto|
00001570 6e 73 25 20 41 4e 44 20 31 20 54 48 45 4e 0a 20 |ns% AND 1 THEN. |
00001580 20 20 20 50 52 4f 43 71 75 69 74 6d 65 6e 75 28 | PROCquitmenu(|
00001590 58 25 2c 59 25 29 0a 20 20 45 4e 44 49 46 0a 45 |X%,Y%). ENDIF.E|
000015a0 4e 44 50 52 4f 43 0a 0a 44 45 46 20 50 52 4f 43 |NDPROC..DEF PROC|
000015b0 73 61 76 65 70 72 69 6e 74 65 72 20 20 20 20 20 |saveprinter |
000015c0 20 20 20 20 20 20 20 20 20 20 20 3a 52 45 4d 20 | :REM |
000015d0 73 61 76 65 20 63 75 72 72 65 6e 74 20 70 72 69 |save current pri|
000015e0 6e 74 65 72 20 63 68 6f 69 63 65 20 6f 6e 20 64 |nter choice on d|
000015f0 69 73 6b 0a 20 20 4f 4e 20 45 52 52 4f 52 20 4c |isk. ON ERROR L|
00001600 4f 43 41 4c 3a 20 45 4e 44 50 52 4f 43 20 20 20 |OCAL: ENDPROC |
00001610 20 20 20 20 20 20 20 3a 52 45 4d 20 69 66 20 70 | :REM if p|
00001620 72 6f 62 6c 65 6d 20 2d 20 66 6f 72 67 65 74 20 |roblem - forget |
00001630 69 74 21 0a 20 20 68 25 3d 4f 50 45 4e 4f 55 54 |it!. h%=OPENOUT|
00001640 28 22 3c 4f 62 65 79 24 44 69 72 3e 2e 50 72 69 |("<Obey$Dir>.Pri|
00001650 6e 74 65 72 22 29 0a 20 20 42 50 55 54 23 68 25 |nter"). BPUT#h%|
00001660 2c 50 72 69 6e 74 65 72 24 2b 43 48 52 24 28 31 |,Printer$+CHR$(1|
00001670 30 29 0a 20 20 43 4c 4f 53 45 23 68 25 0a 45 4e |0). CLOSE#h%.EN|
00001680 44 50 52 4f 43 0a 0a 52 45 4d 20 2a 2a 2a 2a 2a |DPROC..REM *****|
00001690 2a 2a 2a 0a 52 45 4d 0a 52 45 4d 20 42 75 74 74 |***.REM.REM Butt|
000016a0 6f 6e 73 0a 52 45 4d 0a 52 45 4d 20 2a 2a 2a 2a |ons.REM.REM ****|
000016b0 2a 2a 2a 2a 0a 0a 44 45 46 20 50 52 4f 43 62 75 |****..DEF PROCbu|
000016c0 74 74 6f 6e 73 28 62 29 0a 20 20 77 69 6e 64 6f |ttons(b). windo|
000016d0 77 20 20 3d 20 62 21 31 32 0a 20 20 69 63 6f 6e |w = b!12. icon|
000016e0 20 20 20 20 3d 20 62 21 31 36 0a 20 20 62 75 74 | = b!16. but|
000016f0 74 6f 6e 73 20 3d 20 62 21 38 0a 0a 20 20 43 41 |tons = b!8.. CA|
00001700 53 45 20 77 69 6e 64 6f 77 20 4f 46 0a 20 20 20 |SE window OF. |
00001710 20 57 48 45 4e 20 2d 32 20 20 20 20 20 20 20 20 | WHEN -2 |
00001720 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001730 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 52 | :R|
00001740 45 4d 20 69 63 6f 6e 20 62 61 72 0a 20 20 20 20 |EM icon bar. |
00001750 20 20 49 46 20 62 75 74 74 6f 6e 73 3d 26 30 32 | IF buttons=&02|
00001760 20 54 48 45 4e 0a 20 20 20 20 20 20 20 20 50 52 | THEN. PR|
00001770 4f 43 71 75 69 74 6d 65 6e 75 28 21 62 2d 36 34 |OCquitmenu(!b-64|
00001780 2c 32 39 38 29 20 20 20 20 20 20 20 20 20 20 20 |,298) |
00001790 20 20 20 20 20 20 20 3a 52 45 4d 20 64 69 73 70 | :REM disp|
000017a0 6c 61 79 20 6d 65 6e 75 0a 20 20 20 20 20 20 45 |lay menu. E|
000017b0 4c 53 45 0a 20 20 20 20 20 20 20 20 50 52 4f 43 |LSE. PROC|
000017c0 72 65 64 72 61 77 28 73 65 74 75 70 2c 54 52 55 |redraw(setup,TRU|
000017d0 45 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |E) |
000017e0 20 20 20 20 20 3a 52 45 4d 20 6f 70 65 6e 20 6f | :REM open o|
000017f0 70 74 69 6f 6e 73 20 77 69 6e 64 6f 77 0a 20 20 |ptions window. |
00001800 20 20 20 20 20 20 50 52 4f 43 72 65 64 72 61 77 | PROCredraw|
00001810 28 65 6e 74 72 79 2c 54 52 55 45 29 20 20 20 20 |(entry,TRUE) |
00001820 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a | :|
00001830 52 45 4d 20 6f 70 65 6e 20 69 6e 70 75 74 20 77 |REM open input w|
00001840 69 6e 64 6f 77 0a 20 20 20 20 20 20 45 4e 44 49 |indow. ENDI|
00001850 46 0a 0a 20 20 20 20 57 48 45 4e 20 65 6e 74 72 |F.. WHEN entr|
00001860 79 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |y |
00001870 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001880 20 20 20 20 3a 52 45 4d 20 6d 61 69 6e 20 64 69 | :REM main di|
00001890 73 70 6c 61 79 0a 20 20 20 20 20 20 43 41 53 45 |splay. CASE|
000018a0 20 54 52 55 45 20 4f 46 0a 20 20 20 20 20 20 20 | TRUE OF. |
000018b0 20 57 48 45 4e 20 62 75 74 74 6f 6e 73 3d 26 30 | WHEN buttons=&0|
000018c0 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |2 |
000018d0 20 20 20 20 20 20 20 20 20 20 3a 52 45 4d 20 6d | :REM m|
000018e0 65 6e 75 20 62 75 74 74 6f 6e 20 70 72 65 73 73 |enu button press|
000018f0 65 64 0a 20 20 20 20 20 20 20 20 20 20 50 52 4f |ed. PRO|
00001900 43 71 75 69 74 6d 65 6e 75 28 21 62 2c 62 21 34 |Cquitmenu(!b,b!4|
00001910 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |) |
00001920 20 20 20 20 3a 52 45 4d 20 64 69 73 70 6c 61 79 | :REM display|
00001930 20 6d 65 6e 75 0a 0a 20 20 20 20 20 20 20 20 57 | menu.. W|
00001940 48 45 4e 20 28 62 75 74 74 6f 6e 73 3d 26 30 31 |HEN (buttons=&01|
00001950 20 4f 52 20 62 75 74 74 6f 6e 73 3d 26 30 34 29 | OR buttons=&04)|
00001960 20 20 20 20 20 20 20 20 3a 52 45 4d 20 73 65 6c | :REM sel|
00001970 65 63 74 20 62 75 74 74 6f 6e 20 70 72 65 73 73 |ect button press|
00001980 65 64 0a 20 20 20 20 20 20 20 20 20 20 43 41 53 |ed. CAS|
00001990 45 20 69 63 6f 6e 20 4f 46 0a 20 20 20 20 20 20 |E icon OF. |
000019a0 20 20 20 20 20 20 57 48 45 4e 20 50 72 69 6e 74 | WHEN Print|
000019b0 42 6f 78 0a 20 20 20 20 20 20 20 20 20 20 20 20 |Box. |
000019c0 20 20 20 20 20 20 20 49 46 20 46 4e 62 75 66 66 | IF FNbuff|
000019d0 65 72 3d 54 52 55 45 20 54 48 45 4e 0a 20 20 20 |er=TRUE THEN. |
000019e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000019f0 20 20 50 52 4f 43 6d 61 72 67 69 6e 28 56 41 4c | PROCmargin(VAL|
00001a00 28 24 6c 65 66 74 29 2c 56 41 4c 28 24 72 69 67 |($left),VAL($rig|
00001a10 68 74 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 |ht)). |
00001a20 20 20 20 20 20 20 20 20 20 20 50 52 4f 43 70 72 | PROCpr|
00001a30 69 6e 74 69 74 20 20 20 20 20 20 20 20 20 20 20 |intit |
00001a40 20 20 20 20 20 20 20 20 3a 52 45 4d 20 50 72 69 | :REM Pri|
00001a50 6e 74 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 |nt. |
00001a60 20 20 20 20 20 20 45 4e 44 49 46 0a 20 20 20 20 | ENDIF. |
00001a70 20 20 20 20 20 20 20 20 57 48 45 4e 20 4f 70 74 | WHEN Opt|
00001a80 69 6f 6e 73 42 6f 78 0a 20 20 20 20 20 20 20 20 |ionsBox. |
00001a90 20 20 20 20 20 20 20 20 20 20 20 50 52 4f 43 72 | PROCr|
00001aa0 65 64 72 61 77 28 73 65 74 75 70 2c 54 52 55 45 |edraw(setup,TRUE|
00001ab0 29 20 20 20 20 20 20 20 20 3a 52 45 4d 20 4f 70 |) :REM Op|
00001ac0 74 69 6f 6e 73 0a 20 20 20 20 20 20 20 20 20 20 |tions. |
00001ad0 20 20 57 48 45 4e 20 43 6c 65 61 72 42 6f 78 0a | WHEN ClearBox.|
00001ae0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001af0 20 20 20 50 52 4f 43 63 6c 65 61 72 20 20 20 20 | PROCclear |
00001b00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001b10 20 3a 52 45 4d 20 43 6c 65 61 72 20 74 65 78 74 | :REM Clear text|
00001b20 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
00001b30 20 20 20 20 50 52 4f 43 72 65 64 72 61 77 28 65 | PROCredraw(e|
00001b40 6e 74 72 79 2c 20 46 41 4c 53 45 29 20 20 20 20 |ntry, FALSE) |
00001b50 20 20 3a 52 45 4d 20 72 65 66 72 65 73 68 20 64 | :REM refresh d|
00001b60 69 73 70 6c 61 79 0a 20 20 20 20 20 20 20 20 20 |isplay. |
00001b70 20 20 20 20 20 20 20 20 20 20 53 59 53 20 22 57 | SYS "W|
00001b80 69 6d 70 5f 53 65 74 43 61 72 65 74 50 6f 73 69 |imp_SetCaretPosi|
00001b90 74 69 6f 6e 22 2c 65 6e 74 72 79 2c 30 2c 2c 2c |tion",entry,0,,,|
00001ba0 2d 31 2c 2d 31 0a 20 20 20 20 20 20 20 20 20 20 |-1,-1. |
00001bb0 45 4e 44 43 41 53 45 0a 20 20 20 20 20 20 45 4e |ENDCASE. EN|
00001bc0 44 43 41 53 45 0a 0a 20 20 20 20 57 48 45 4e 20 |DCASE.. WHEN |
00001bd0 73 65 74 75 70 20 20 20 20 20 20 20 20 20 20 20 |setup |
00001be0 20 20 20 20 20 20 20 20 20 20 20 3a 52 45 4d 20 | :REM |
00001bf0 6f 70 74 69 6f 6e 73 20 77 69 6e 64 6f 77 0a 20 |options window. |
00001c00 20 20 20 20 20 49 46 20 62 75 74 74 6f 6e 73 3d | IF buttons=|
00001c10 26 30 32 20 54 48 45 4e 0a 20 20 20 20 20 20 20 |&02 THEN. |
00001c20 20 50 52 4f 43 71 75 69 74 6d 65 6e 75 28 21 62 | PROCquitmenu(!b|
00001c30 2c 62 21 34 29 20 20 20 20 20 20 20 20 3a 52 45 |,b!4) :RE|
00001c40 4d 20 64 69 73 70 6c 61 79 20 6d 65 6e 75 0a 20 |M display menu. |
00001c50 20 20 20 20 20 45 4c 53 45 0a 20 20 20 20 20 20 | ELSE. |
00001c60 20 20 50 52 4f 43 70 72 69 6e 74 28 46 4e 73 65 | PROCprint(FNse|
00001c70 74 73 74 79 6c 65 29 20 20 20 20 20 20 20 3a 52 |tstyle) :R|
00001c80 45 4d 20 73 65 6e 64 20 6e 65 77 20 63 6f 64 65 |EM send new code|
00001c90 73 20 74 6f 20 70 72 69 6e 74 65 72 20 2d 20 74 |s to printer - t|
00001ca0 68 69 73 20 0a 20 20 20 20 20 20 20 20 20 20 20 |his . |
00001cb0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001cc0 20 20 20 20 20 20 20 20 20 3a 52 45 4d 20 6c 6f | :REM lo|
00001cd0 6f 6b 73 20 67 6f 6f 64 20 6f 6e 20 70 72 69 6e |oks good on prin|
00001ce0 74 65 72 73 20 77 69 74 68 20 4c 45 44 73 0a 20 |ters with LEDs. |
00001cf0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
*
00001d10 20 20 20 3a 52 45 4d 20 77 68 69 63 68 20 73 68 | :REM which sh|
00001d20 6f 77 20 74 68 65 69 72 20 73 65 74 74 69 6e 67 |ow their setting|
00001d30 73 2e 0a 20 20 20 20 20 20 45 4e 44 49 46 0a 0a |s.. ENDIF..|
00001d40 20 20 20 20 57 48 45 4e 20 73 61 76 65 61 73 20 | WHEN saveas |
00001d50 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001d60 20 20 20 20 3a 52 45 4d 20 73 61 76 65 20 77 69 | :REM save wi|
00001d70 6e 64 6f 77 0a 20 20 20 20 20 20 43 41 53 45 20 |ndow. CASE |
00001d80 54 52 55 45 20 4f 46 0a 20 20 20 20 20 20 20 20 |TRUE OF. |
00001d90 57 48 45 4e 20 28 69 63 6f 6e 3d 64 72 61 67 69 |WHEN (icon=dragi|
00001da0 63 6f 6e 20 41 4e 44 20 28 62 21 38 20 41 4e 44 |con AND (b!8 AND|
00001db0 20 26 35 30 29 3c 3e 30 29 20 20 3a 52 45 4d 20 | &50)<>0) :REM |
00001dc0 69 63 6f 6e 20 64 72 61 67 67 65 64 0a 20 20 20 |icon dragged. |
00001dd0 20 20 20 20 20 20 20 50 52 4f 43 64 72 61 67 62 | PROCdragb|
00001de0 6f 78 0a 20 20 20 20 20 20 20 20 57 48 45 4e 20 |ox. WHEN |
00001df0 69 63 6f 6e 3d 6f 6b 20 20 20 20 20 20 20 20 20 |icon=ok |
00001e00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001e10 20 20 20 20 20 20 3a 52 45 4d 20 6f 6b 20 70 72 | :REM ok pr|
00001e20 65 73 73 65 64 0a 20 20 20 20 20 20 20 20 20 20 |essed. |
00001e30 50 52 4f 43 73 61 76 65 69 74 28 24 66 6e 61 6d |PROCsaveit($fnam|
00001e40 65 29 0a 20 20 20 20 20 20 45 4e 44 43 41 53 45 |e). ENDCASE|
00001e50 0a 20 20 45 4e 44 43 41 53 45 0a 45 4e 44 50 52 |. ENDCASE.ENDPR|
00001e60 4f 43 0a 0a 44 45 46 20 50 52 4f 43 70 72 69 6e |OC..DEF PROCprin|
00001e70 74 69 74 20 20 20 20 20 20 20 20 20 20 20 20 20 |tit |
00001e80 20 20 20 20 20 20 20 3a 52 45 4d 20 73 65 6e 64 | :REM send|
00001e90 20 74 65 78 74 20 74 6f 20 70 72 69 6e 74 65 72 | text to printer|
00001ea0 0a 20 20 50 52 4f 43 70 72 69 6e 74 28 46 4e 73 |. PROCprint(FNs|
00001eb0 65 74 73 74 79 6c 65 29 20 20 20 20 20 20 20 20 |etstyle) |
00001ec0 20 20 20 20 3a 52 45 4d 20 73 65 6e 64 20 63 6f | :REM send co|
00001ed0 6e 74 72 6f 6c 20 63 6f 64 65 73 0a 0a 20 20 46 |ntrol codes.. F|
00001ee0 4f 52 20 49 25 3d 30 20 54 4f 20 6c 69 6e 65 73 |OR I%=0 TO lines|
00001ef0 2d 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |-1 |
00001f00 3a 52 45 4d 20 74 68 65 6e 20 70 72 69 6e 74 20 |:REM then print |
00001f10 65 61 63 68 20 6c 69 6e 65 20 64 69 72 65 63 74 |each line direct|
00001f20 6c 79 0a 20 20 20 20 77 6f 72 64 24 20 3d 20 24 |ly. word$ = $|
00001f30 28 46 4e 69 6e 64 69 72 28 65 6e 74 72 79 2c 20 |(FNindir(entry, |
00001f40 49 25 29 29 20 20 3a 52 45 4d 20 66 72 6f 6d 20 |I%)) :REM from |
00001f50 74 68 65 20 69 63 6f 6e 20 62 75 66 66 65 72 2e |the icon buffer.|
00001f60 0a 20 20 20 20 50 52 4f 43 70 72 69 6e 74 28 77 |. PROCprint(w|
00001f70 6f 72 64 24 2b 6e 6c 24 29 0a 20 20 4e 45 58 54 |ord$+nl$). NEXT|
00001f80 0a 45 4e 44 50 52 4f 43 0a 0a 44 45 46 20 46 4e |.ENDPROC..DEF FN|
00001f90 73 74 61 74 65 28 69 63 6f 6e 29 20 20 20 20 20 |state(icon) |
00001fa0 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 52 45 | :RE|
00001fb0 4d 20 69 73 20 69 63 6f 6e 20 73 65 6c 65 63 74 |M is icon select|
00001fc0 65 64 3f 0a 20 20 21 62 20 20 3d 20 73 65 74 75 |ed?. !b = setu|
00001fd0 70 0a 20 20 62 21 34 20 3d 20 69 63 6f 6e 0a 20 |p. b!4 = icon. |
00001fe0 20 53 59 53 20 22 57 69 6d 70 5f 47 65 74 49 63 | SYS "Wimp_GetIc|
00001ff0 6f 6e 53 74 61 74 65 22 2c 2c 62 0a 3d 28 28 62 |onState",,b.=((b|
00002000 21 32 36 20 41 4e 44 20 25 30 30 31 30 30 30 30 |!26 AND %0010000|
00002010 30 29 20 3d 20 25 30 30 31 30 30 30 30 30 29 0a |0) = %00100000).|
00002020 0a 44 45 46 20 50 52 4f 43 63 6c 65 61 72 20 20 |.DEF PROCclear |
00002030 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002040 20 20 20 20 3a 52 45 4d 20 63 6c 65 61 72 20 61 | :REM clear a|
00002050 6c 6c 20 69 63 6f 6e 20 62 75 66 66 65 72 73 20 |ll icon buffers |
00002060 6f 66 20 74 65 78 74 2e 0a 20 20 46 4f 52 20 49 |of text.. FOR I|
00002070 25 3d 30 20 54 4f 20 33 30 0a 20 20 20 20 24 28 |%=0 TO 30. $(|
00002080 74 65 78 74 2b 49 25 2a 38 30 29 20 3d 20 22 22 |text+I%*80) = ""|
00002090 0a 20 20 4e 45 58 54 0a 45 4e 44 50 52 4f 43 0a |. NEXT.ENDPROC.|
000020a0 0a 52 45 4d 20 2a 2a 2a 2a 2a 2a 20 46 49 4c 45 |.REM ****** FILE|
000020b0 20 54 52 41 4e 53 46 45 52 20 2a 2a 2a 2a 2a 2a | TRANSFER ******|
000020c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
000020d0 2a 2a 2a 0a 52 45 4d 0a 52 45 4d 20 34 20 63 61 |***.REM.REM 4 ca|
000020e0 73 65 73 0a 52 45 4d 20 4d 65 20 74 6f 20 66 69 |ses.REM Me to fi|
000020f0 6c 65 20 20 2d 20 64 72 61 67 62 6f 78 2c 64 72 |le - dragbox,dr|
00002100 61 67 64 6f 6e 65 2c 66 69 6c 65 73 61 76 65 2c |agdone,filesave,|
00002110 73 61 76 65 69 74 0a 52 45 4d 20 46 69 6c 65 20 |saveit.REM File |
00002120 74 6f 20 6d 65 20 20 2d 20 64 61 74 61 6c 6f 61 |to me - dataloa|
00002130 64 0a 52 45 4d 20 4d 65 20 74 6f 20 41 70 70 20 |d.REM Me to App |
00002140 20 20 2d 20 64 72 61 67 62 6f 78 2c 64 72 61 67 | - dragbox,drag|
00002150 64 6f 6e 65 2c 2c 73 65 6e 64 72 61 6d 0a 52 45 |done,,sendram.RE|
00002160 4d 20 41 70 70 20 74 6f 20 4d 65 20 20 20 2d 20 |M App to Me - |
00002170 73 61 76 65 74 6f 75 73 2c 67 65 74 72 61 6d 0a |savetous,getram.|
00002180 52 45 4d 0a 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a |REM.REM ********|
00002190 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
000021b0 2a 2a 2a 2a 2a 2a 0a 0a 44 45 46 20 50 52 4f 43 |******..DEF PROC|
000021c0 72 65 63 65 69 76 65 28 62 29 0a 20 20 43 41 53 |receive(b). CAS|
000021d0 45 20 62 21 31 36 20 4f 46 0a 20 20 20 20 57 48 |E b!16 OF. WH|
000021e0 45 4e 20 30 3a 20 71 75 69 74 3d 54 52 55 45 20 |EN 0: quit=TRUE |
000021f0 20 20 20 20 20 20 3a 52 45 4d 20 53 68 75 74 20 | :REM Shut |
00002200 64 6f 77 6e 0a 20 20 20 20 57 48 45 4e 20 31 3a |down. WHEN 1:|
00002210 20 50 52 4f 43 73 61 76 65 74 6f 75 73 28 62 29 | PROCsavetous(b)|
00002220 20 3a 52 45 4d 20 50 72 6f 67 72 61 6d 20 77 69 | :REM Program wi|
00002230 73 68 65 73 20 74 6f 20 73 61 76 65 20 61 20 66 |shes to save a f|
00002240 69 6c 65 0a 20 20 20 20 57 48 45 4e 20 32 3a 20 |ile. WHEN 2: |
00002250 50 52 4f 43 66 69 6c 65 73 61 76 65 28 62 29 20 |PROCfilesave(b) |
00002260 3a 52 45 4d 20 52 65 61 64 79 20 74 6f 20 73 61 |:REM Ready to sa|
00002270 76 65 20 61 20 66 69 6c 65 0a 20 20 20 20 57 48 |ve a file. WH|
00002280 45 4e 20 33 3a 20 50 52 4f 43 64 61 74 61 6c 6f |EN 3: PROCdatalo|
00002290 61 64 28 62 29 20 3a 52 45 4d 20 4c 6f 61 64 20 |ad(b) :REM Load |
000022a0 61 20 66 69 6c 65 0a 20 20 20 20 57 48 45 4e 20 |a file. WHEN |
000022b0 36 3a 20 50 52 4f 43 73 65 6e 64 72 61 6d 28 62 |6: PROCsendram(b|
000022c0 29 20 20 3a 52 45 4d 20 44 61 74 61 20 70 69 70 |) :REM Data pip|
000022d0 65 20 66 72 6f 6d 20 6d 65 0a 20 20 20 20 57 48 |e from me. WH|
000022e0 45 4e 20 37 3a 20 50 52 4f 43 67 65 74 72 61 6d |EN 7: PROCgetram|
000022f0 28 62 29 20 20 20 3a 52 45 4d 20 44 61 74 61 20 |(b) :REM Data |
00002300 70 69 70 65 20 74 6f 20 6d 65 0a 20 20 45 4e 44 |pipe to me. END|
00002310 43 41 53 45 0a 45 4e 44 50 52 4f 43 0a 0a 44 45 |CASE.ENDPROC..DE|
00002320 46 20 50 52 4f 43 64 72 61 67 62 6f 78 0a 20 20 |F PROCdragbox. |
00002330 21 62 20 3d 20 73 61 76 65 61 73 20 20 20 20 20 |!b = saveas |
00002340 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 52 45 | :RE|
00002350 4d 20 77 69 6e 64 6f 77 20 68 61 6e 64 6c 65 0a |M window handle.|
00002360 20 20 53 59 53 20 22 57 69 6d 70 5f 47 65 74 57 | SYS "Wimp_GetW|
00002370 69 6e 64 6f 77 53 74 61 74 65 22 2c 2c 62 20 3a |indowState",,b :|
00002380 52 45 4d 20 67 65 74 20 77 69 6e 64 6f 77 20 70 |REM get window p|
00002390 6f 73 69 74 69 6f 6e 0a 0a 20 20 77 65 78 20 3d |osition.. wex =|
000023a0 20 62 21 34 20 20 2d 20 62 21 32 30 20 20 20 20 | b!4 - b!20 |
000023b0 20 20 20 20 20 20 20 20 3a 52 45 4d 20 6d 69 6e | :REM min|
000023c0 20 78 20 2d 20 78 20 73 63 72 6f 6c 6c 0a 20 20 | x - x scroll. |
000023d0 77 65 79 20 3d 20 62 21 31 36 20 2d 20 62 21 32 |wey = b!16 - b!2|
000023e0 34 20 20 20 20 20 20 20 20 20 20 20 20 3a 52 45 |4 :RE|
000023f0 4d 20 6d 61 78 20 79 20 2d 20 79 20 73 63 72 6f |M max y - y scro|
00002400 6c 6c 0a 20 20 62 21 34 20 3d 20 64 72 61 67 69 |ll. b!4 = dragi|
00002410 63 6f 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 |con |
00002420 20 20 3a 52 45 4d 20 69 63 6f 6e 20 68 61 6e 64 | :REM icon hand|
00002430 6c 65 0a 20 20 53 59 53 20 22 57 69 6d 70 5f 47 |le. SYS "Wimp_G|
00002440 65 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c 62 20 |etIconState",,b |
00002450 20 20 3a 52 45 4d 20 67 65 74 20 69 63 6f 6e 20 | :REM get icon |
00002460 70 6f 73 69 74 69 6f 6e 0a 0a 20 20 62 21 34 20 |position.. b!4 |
00002470 20 3d 20 35 20 20 20 20 20 20 20 20 20 20 20 20 | = 5 |
00002480 20 20 20 20 20 20 20 20 20 3a 52 45 4d 20 44 72 | :REM Dr|
00002490 61 67 20 74 79 70 65 20 2d 20 66 69 78 65 64 20 |ag type - fixed |
000024a0 73 69 7a 65 20 62 6f 78 0a 20 20 62 21 38 20 20 |size box. b!8 |
000024b0 3d 20 62 21 38 20 20 2b 20 77 65 78 20 20 20 20 |= b!8 + wex |
000024c0 20 20 20 20 20 20 20 20 3a 52 45 4d 20 6d 69 6e | :REM min|
000024d0 20 78 20 6f 66 20 69 6e 69 74 69 61 6c 20 62 6f | x of initial bo|
000024e0 78 0a 20 20 62 21 31 32 20 3d 20 62 21 31 32 20 |x. b!12 = b!12 |
000024f0 2b 20 77 65 79 20 20 20 20 20 20 20 20 20 20 20 |+ wey |
00002500 20 3a 52 45 4d 20 6d 69 6e 20 79 20 6f 66 20 69 | :REM min y of i|
00002510 6e 69 74 69 61 6c 20 62 6f 78 0a 20 20 62 21 31 |nitial box. b!1|
00002520 36 20 3d 20 62 21 31 36 20 2b 20 77 65 78 20 20 |6 = b!16 + wex |
00002530 20 20 20 20 20 20 20 20 20 20 3a 52 45 4d 20 6d | :REM m|
00002540 61 78 20 78 0a 20 20 62 21 32 30 20 3d 20 62 21 |ax x. b!20 = b!|
00002550 32 30 20 2b 20 77 65 79 20 20 20 20 20 20 20 20 |20 + wey |
00002560 20 20 20 20 3a 52 45 4d 20 6d 61 78 20 79 0a 20 | :REM max y. |
00002570 20 62 21 32 34 20 3d 20 30 20 20 20 20 20 20 20 | b!24 = 0 |
00002580 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 52 | :R|
00002590 45 4d 20 6d 69 6e 20 78 20 70 61 72 65 6e 74 0a |EM min x parent.|
000025a0 20 20 62 21 32 38 20 3d 20 30 20 20 20 20 20 20 | b!28 = 0 |
000025b0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a | :|
000025c0 52 45 4d 20 6d 69 6e 20 79 20 70 61 72 65 6e 74 |REM min y parent|
000025d0 0a 20 20 62 21 33 32 20 3d 20 26 37 46 46 46 46 |. b!32 = &7FFFF|
000025e0 46 46 46 20 20 20 20 20 20 20 20 20 20 20 20 20 |FFF |
000025f0 3a 52 45 4d 20 6d 61 78 20 78 20 70 61 72 65 6e |:REM max x paren|
00002600 74 0a 20 20 62 21 33 36 20 3d 20 26 37 46 46 46 |t. b!36 = &7FFF|
00002610 46 46 46 46 20 20 20 20 20 20 20 20 20 20 20 20 |FFFF |
00002620 20 3a 52 45 4d 20 6d 61 78 20 79 20 70 61 72 65 | :REM max y pare|
00002630 6e 74 0a 20 20 53 59 53 20 22 57 69 6d 70 5f 44 |nt. SYS "Wimp_D|
00002640 72 61 67 42 6f 78 22 2c 2c 62 0a 20 20 6e 65 77 |ragBox",,b. new|
00002650 64 72 61 67 3d 54 52 55 45 20 20 20 20 20 20 20 |drag=TRUE |
00002660 20 20 20 20 20 20 20 20 20 20 3a 52 45 4d 20 6e | :REM n|
00002670 6f 74 65 20 66 6f 72 20 73 65 6e 64 72 61 6d 0a |ote for sendram.|
00002680 45 4e 44 50 52 4f 43 0a 0a 44 45 46 20 50 52 4f |ENDPROC..DEF PRO|
00002690 43 64 72 61 67 64 6f 6e 65 0a 20 20 6c 65 6e 67 |Cdragdone. leng|
000026a0 74 68 3d 30 20 20 20 20 20 20 20 20 20 20 20 20 |th=0 |
000026b0 20 20 20 20 20 20 20 20 20 3a 52 45 4d 20 63 61 | :REM ca|
000026c0 6c 63 75 6c 61 74 65 20 73 69 7a 65 20 6f 66 20 |lculate size of |
000026d0 74 65 78 74 20 74 6f 20 73 65 6e 64 2e 0a 20 20 |text to send.. |
000026e0 46 4f 52 20 49 25 3d 30 20 54 4f 20 6c 69 6e 65 |FOR I%=0 TO line|
000026f0 73 2d 31 0a 20 20 20 20 6c 65 6e 67 74 68 2b 3d |s-1. length+=|
00002700 4c 45 4e 28 24 28 46 4e 69 6e 64 69 72 28 65 6e |LEN($(FNindir(en|
00002710 74 72 79 2c 20 49 25 29 29 29 2b 31 0a 20 20 4e |try, I%)))+1. N|
00002720 45 58 54 0a 0a 20 20 53 59 53 20 22 57 69 6d 70 |EXT.. SYS "Wimp|
00002730 5f 47 65 74 50 6f 69 6e 74 65 72 49 6e 66 6f 22 |_GetPointerInfo"|
00002740 2c 2c 62 20 3a 52 45 4d 20 62 6c 6f 63 6b 20 69 |,,b :REM block i|
00002750 73 20 66 6f 72 20 6f 75 74 70 75 74 0a 20 20 62 |s for output. b|
00002760 21 32 30 3d 36 34 20 20 20 20 20 20 20 20 20 20 |!20=64 |
00002770 20 20 20 20 20 20 20 20 20 20 20 20 3a 52 45 4d | :REM|
00002780 20 6c 65 6e 67 74 68 20 6f 66 20 62 6c 6f 63 6b | length of block|
00002790 0a 20 20 62 21 33 32 3d 30 20 20 20 20 20 20 20 |. b!32=0 |
000027a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000027b0 3a 52 45 4d 20 6d 79 20 72 65 66 20 28 30 3d 6f |:REM my ref (0=o|
000027c0 72 69 67 69 6e 61 74 69 6e 67 29 0a 20 20 62 21 |riginating). b!|
000027d0 33 36 3d 31 20 20 20 20 20 20 20 20 20 20 20 20 |36=1 |
000027e0 20 20 20 20 20 20 20 20 20 20 20 3a 52 45 4d 20 | :REM |
000027f0 6d 65 73 73 61 67 65 20 61 63 74 69 6f 6e 0a 20 |message action. |
00002800 20 62 21 34 30 3d 62 21 31 32 20 20 20 20 20 20 | b!40=b!12 |
00002810 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 52 | :R|
00002820 45 4d 20 77 69 6e 64 6f 77 20 68 61 6e 64 6c 65 |EM window handle|
00002830 0a 20 20 62 21 34 34 3d 62 21 31 36 20 20 20 20 |. b!44=b!16 |
00002840 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002850 3a 52 45 4d 20 69 63 6f 6e 20 68 61 6e 64 6c 65 |:REM icon handle|
00002860 0a 20 20 62 21 34 38 3d 21 62 20 20 20 20 20 20 |. b!48=!b |
00002870 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002880 3a 52 45 4d 20 64 65 73 74 69 6e 61 74 69 6f 6e |:REM destination|
00002890 20 78 0a 20 20 62 21 35 32 3d 62 21 34 20 20 20 | x. b!52=b!4 |
000028a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000028b0 20 20 3a 52 45 4d 20 64 65 73 74 69 6e 61 74 69 | :REM destinati|
000028c0 6f 6e 20 79 0a 20 20 62 21 35 36 3d 6c 65 6e 67 |on y. b!56=leng|
000028d0 74 68 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |th |
000028e0 20 20 20 20 3a 52 45 4d 20 73 69 7a 65 20 6f 66 | :REM size of|
000028f0 20 66 69 6c 65 0a 20 20 62 21 36 30 3d 26 46 46 | file. b!60=&FF|
00002900 46 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |F |
00002910 20 20 20 20 20 3a 52 45 4d 20 66 69 6c 65 20 74 | :REM file t|
00002920 79 70 65 0a 20 20 24 28 62 2b 36 34 29 3d 46 4e |ype. $(b+64)=FN|
00002930 6c 65 61 66 28 24 66 6e 61 6d 65 29 2b 43 48 52 |leaf($fname)+CHR|
00002940 24 30 20 3a 52 45 4d 20 66 69 6c 65 20 6e 61 6d |$0 :REM file nam|
00002950 65 2c 20 7a 65 72 6f 20 74 65 72 6d 69 6e 61 74 |e, zero terminat|
00002960 65 64 0a 20 20 53 59 53 20 22 57 69 6d 70 5f 53 |ed. SYS "Wimp_S|
00002970 65 6e 64 4d 65 73 73 61 67 65 22 2c 31 37 2c 62 |endMessage",17,b|
00002980 2b 32 30 2c 62 21 31 32 2c 62 21 31 36 0a 20 20 |+20,b!12,b!16. |
00002990 6d 79 72 65 66 3d 62 21 32 38 20 20 20 20 20 20 |myref=b!28 |
000029a0 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 52 45 | :RE|
000029b0 4d 20 6d 79 72 65 66 20 72 65 74 75 72 6e 65 64 |M myref returned|
000029c0 0a 45 4e 44 50 52 4f 43 0a 0a 44 45 46 20 50 52 |.ENDPROC..DEF PR|
000029d0 4f 43 66 69 6c 65 73 61 76 65 28 62 29 20 20 20 |OCfilesave(b) |
000029e0 20 20 20 20 20 20 20 20 20 3a 52 45 4d 20 66 69 | :REM fi|
000029f0 6c 69 6e 67 20 73 79 73 74 65 6d 20 72 65 61 64 |ling system read|
00002a00 79 20 74 6f 20 73 61 76 65 20 66 69 6c 65 2e 0a |y to save file..|
00002a10 20 20 49 46 20 62 21 31 32 3d 6d 79 72 65 66 20 | IF b!12=myref |
00002a20 54 48 45 4e 0a 20 20 20 20 50 52 4f 43 73 61 76 |THEN. PROCsav|
00002a30 65 69 74 28 46 4e 67 6e 61 6d 65 28 62 2b 34 34 |eit(FNgname(b+44|
00002a40 29 29 0a 0a 20 20 20 20 62 21 31 32 3d 62 21 38 |)).. b!12=b!8|
00002a50 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002a60 20 20 20 3a 52 45 4d 20 73 61 79 20 66 69 6c 65 | :REM say file|
00002a70 20 73 61 76 65 64 20 4f 4b 2e 0a 20 20 20 20 62 | saved OK.. b|
00002a80 21 31 36 3d 33 0a 20 20 20 20 53 59 53 20 22 57 |!16=3. SYS "W|
00002a90 69 6d 70 5f 53 65 6e 64 4d 65 73 73 61 67 65 22 |imp_SendMessage"|
00002aa0 2c 31 38 2c 62 2c 62 21 34 0a 20 20 45 4e 44 49 |,18,b,b!4. ENDI|
00002ab0 46 0a 45 4e 44 50 52 4f 43 0a 0a 44 45 46 20 50 |F.ENDPROC..DEF P|
00002ac0 52 4f 43 73 61 76 65 69 74 28 6e 61 6d 65 24 29 |ROCsaveit(name$)|
00002ad0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 52 | :R|
00002ae0 45 4d 20 61 63 74 75 61 6c 6c 79 20 73 61 76 65 |EM actually save|
00002af0 20 74 68 65 20 66 69 6c 65 0a 20 20 52 45 4d 20 | the file. REM |
00002b00 69 66 20 6e 61 6d 65 20 63 6f 6e 74 61 69 6e 73 |if name contains|
00002b10 20 2e 20 69 74 20 69 73 20 66 69 6c 65 20 6e 61 | . it is file na|
00002b20 6d 65 2e 0a 20 20 52 45 4d 20 69 66 20 6e 61 6d |me.. REM if nam|
00002b30 65 20 63 6f 6e 74 61 69 6e 73 20 3c 20 69 74 20 |e contains < it |
00002b40 69 73 20 61 20 52 49 53 43 20 4f 53 20 76 61 72 |is a RISC OS var|
00002b50 69 61 62 6c 65 2e 0a 20 20 49 46 20 49 4e 53 54 |iable.. IF INST|
00002b60 52 28 6e 61 6d 65 24 2c 22 2e 22 29 20 4f 52 20 |R(name$,".") OR |
00002b70 49 4e 53 54 52 28 6e 61 6d 65 24 2c 22 3c 22 29 |INSTR(name$,"<")|
00002b80 20 54 48 45 4e 0a 20 20 20 20 24 66 6e 61 6d 65 | THEN. $fname|
00002b90 20 3d 20 6e 61 6d 65 24 20 20 20 20 20 20 20 20 | = name$ |
00002ba0 20 20 20 20 20 20 20 20 20 3a 52 45 4d 20 73 65 | :REM se|
00002bb0 74 20 6e 61 6d 65 20 66 6f 72 20 6e 65 78 74 20 |t name for next |
00002bc0 74 69 6d 65 0a 0a 20 20 20 20 49 25 3d 30 0a 20 |time.. I%=0. |
00002bd0 20 20 20 58 25 3d 4f 50 45 4e 4f 55 54 20 6e 61 | X%=OPENOUT na|
00002be0 6d 65 24 0a 20 20 0a 20 20 20 20 46 4f 52 20 49 |me$. . FOR I|
00002bf0 25 3d 30 20 54 4f 20 6c 69 6e 65 73 2d 31 20 0a |%=0 TO lines-1 .|
00002c00 20 20 20 20 20 20 77 6f 72 64 24 20 3d 20 24 28 | word$ = $(|
00002c10 46 4e 69 6e 64 69 72 28 65 6e 74 72 79 2c 20 49 |FNindir(entry, I|
00002c20 25 29 29 0a 20 20 20 20 20 20 42 50 55 54 23 58 |%)). BPUT#X|
00002c30 25 2c 77 6f 72 64 24 0a 20 20 20 20 4e 45 58 54 |%,word$. NEXT|
00002c40 0a 0a 20 20 20 20 43 4c 4f 53 45 20 23 58 25 0a |.. CLOSE #X%.|
00002c50 20 20 20 20 4f 53 43 4c 49 28 22 53 54 41 4d 50 | OSCLI("STAMP|
00002c60 20 22 2b 6e 61 6d 65 24 29 20 20 20 20 20 20 20 | "+name$) |
00002c70 20 20 20 20 3a 52 45 4d 20 70 75 74 20 64 61 74 | :REM put dat|
00002c80 65 20 6f 6e 20 69 74 0a 20 20 20 20 4f 53 43 4c |e on it. OSCL|
00002c90 49 28 22 53 45 54 54 59 50 45 20 22 2b 6e 61 6d |I("SETTYPE "+nam|
00002ca0 65 24 2b 22 20 26 46 46 46 22 29 20 3a 52 45 4d |e$+" &FFF") :REM|
00002cb0 20 74 65 78 74 20 66 69 6c 65 0a 0a 20 20 20 20 | text file.. |
00002cc0 21 62 31 3d 73 61 76 65 61 73 20 20 20 20 20 20 |!b1=saveas |
00002cd0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002ce0 3a 52 45 4d 20 77 69 6e 64 6f 77 20 68 61 6e 64 |:REM window hand|
00002cf0 6c 65 0a 20 20 20 20 53 59 53 20 22 57 69 6d 70 |le. SYS "Wimp|
00002d00 5f 43 6c 6f 73 65 57 69 6e 64 6f 77 22 2c 2c 62 |_CloseWindow",,b|
00002d10 31 20 20 20 20 20 20 3a 52 45 4d 20 63 6c 6f 73 |1 :REM clos|
00002d20 65 20 73 61 76 65 20 77 69 6e 64 6f 77 0a 20 20 |e save window. |
00002d30 20 20 53 59 53 20 22 57 69 6d 70 5f 43 72 65 61 | SYS "Wimp_Crea|
00002d40 74 65 4d 65 6e 75 22 2c 2c 2d 31 20 20 20 20 20 |teMenu",,-1 |
00002d50 20 20 3a 52 45 4d 20 63 6c 6f 73 65 20 61 6c 6c | :REM close all|
00002d60 20 6d 65 6e 75 73 0a 20 20 45 4c 53 45 0a 20 20 | menus. ELSE. |
00002d70 20 20 24 62 31 3d 22 20 20 20 20 20 20 54 6f 20 | $b1=" To |
00002d80 73 61 76 65 2c 20 64 72 61 67 20 74 68 65 20 69 |save, drag the i|
00002d90 63 6f 6e 20 74 6f 20 61 20 64 69 72 65 63 74 6f |con to a directo|
00002da0 72 79 20 76 69 65 77 65 72 22 0a 20 20 20 20 53 |ry viewer". S|
00002db0 59 53 20 22 57 69 6d 70 5f 52 65 70 6f 72 74 45 |YS "Wimp_ReportE|
00002dc0 72 72 6f 72 22 2c 62 31 2c 31 2c 22 21 54 65 6c |rror",b1,1,"!Tel|
00002dd0 65 74 65 78 74 22 0a 20 20 45 4e 44 49 46 0a 45 |etext". ENDIF.E|
00002de0 4e 44 50 52 4f 43 0a 0a 44 45 46 20 50 52 4f 43 |NDPROC..DEF PROC|
00002df0 64 61 74 61 6c 6f 61 64 28 62 29 20 20 20 20 20 |dataload(b) |
00002e00 20 20 20 20 20 20 20 20 20 3a 52 45 4d 20 6c 6f | :REM lo|
00002e10 61 64 20 66 72 6f 6d 20 66 69 6c 69 6e 67 20 73 |ad from filing s|
00002e20 79 73 74 65 6d 0a 20 20 50 52 4f 43 63 6c 65 61 |ystem. PROCclea|
00002e30 72 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |r |
00002e40 20 20 20 20 20 20 20 3a 52 45 4d 20 63 6c 65 61 | :REM clea|
00002e50 72 20 69 6e 70 75 74 20 77 69 6e 64 6f 77 20 6f |r input window o|
00002e60 66 20 74 65 78 74 0a 20 20 66 66 24 3d 46 4e 67 |f text. ff$=FNg|
00002e70 6e 61 6d 65 28 62 2b 34 34 29 20 20 20 20 20 20 |name(b+44) |
00002e80 20 20 20 20 20 20 20 20 3a 52 45 4d 20 6e 61 6d | :REM nam|
00002e90 65 20 6f 66 20 66 69 6c 65 0a 20 20 49 25 3d 30 |e of file. I%=0|
00002ea0 0a 20 20 58 25 3d 4f 50 45 4e 49 4e 20 66 66 24 |. X%=OPENIN ff$|
00002eb0 0a 20 20 0a 20 20 57 48 49 4c 45 20 28 4e 4f 54 |. . WHILE (NOT|
00002ec0 20 45 4f 46 23 58 25 29 20 41 4e 44 20 28 49 25 | EOF#X%) AND (I%|
00002ed0 3c 33 30 29 20 0a 20 20 20 20 74 65 6d 70 24 20 |<30) . temp$ |
00002ee0 3d 20 47 45 54 24 23 58 25 0a 20 20 20 20 24 28 |= GET$#X%. $(|
00002ef0 74 65 78 74 2b 49 25 2a 38 30 29 20 3d 20 4c 45 |text+I%*80) = LE|
00002f00 46 54 24 28 74 65 6d 70 24 2c 38 30 29 0a 20 20 |FT$(temp$,80). |
00002f10 20 20 49 25 2b 3d 31 0a 20 20 45 4e 44 57 48 49 | I%+=1. ENDWHI|
00002f20 4c 45 0a 0a 20 20 43 4c 4f 53 45 20 23 58 25 0a |LE.. CLOSE #X%.|
00002f30 0a 20 20 52 45 4d 20 69 66 20 66 69 6c 65 20 77 |. REM if file w|
00002f40 61 73 20 63 72 65 61 74 65 64 20 6a 75 73 74 20 |as created just |
00002f50 66 6f 72 20 6d 65 20 74 6f 20 6c 6f 61 64 2c 20 |for me to load, |
00002f60 64 65 6c 65 74 65 20 69 74 2e 0a 20 20 49 46 20 |delete it.. IF |
00002f70 62 21 31 32 3d 6d 79 72 65 66 3a 20 2a 44 45 4c |b!12=myref: *DEL|
00002f80 45 54 45 20 3c 57 69 6d 70 24 53 63 72 61 70 3e |ETE <Wimp$Scrap>|
00002f90 0a 0a 20 20 62 21 31 32 3d 62 21 38 0a 20 20 62 |.. b!12=b!8. b|
00002fa0 21 31 36 3d 34 20 20 20 20 20 20 20 20 20 20 20 |!16=4 |
00002fb0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 52 | :R|
00002fc0 45 4d 20 73 61 79 20 66 69 6c 65 20 68 61 73 20 |EM say file has |
00002fd0 62 65 65 6e 20 6c 6f 61 64 65 64 2e 0a 20 20 53 |been loaded.. S|
00002fe0 59 53 20 22 57 69 6d 70 5f 53 65 6e 64 4d 65 73 |YS "Wimp_SendMes|
00002ff0 73 61 67 65 22 2c 31 37 2c 62 2c 62 21 34 0a 0a |sage",17,b,b!4..|
00003000 20 20 50 52 4f 43 72 65 64 72 61 77 28 65 6e 74 | PROCredraw(ent|
00003010 72 79 2c 20 46 41 4c 53 45 29 20 20 20 20 20 20 |ry, FALSE) |
00003020 20 3a 52 45 4d 20 72 65 66 72 65 73 68 20 74 68 | :REM refresh th|
00003030 65 20 64 69 73 70 6c 61 79 2e 0a 45 4e 44 50 52 |e display..ENDPR|
00003040 4f 43 0a 0a 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a |OC..REM ********|
00003050 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00003070 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 52 45 4d 0a 52 |**********.REM.R|
00003080 45 4d 20 53 61 76 65 54 6f 55 73 2c 20 47 65 74 |EM SaveToUs, Get|
00003090 52 61 6d 20 2d 20 61 20 70 72 6f 67 72 61 6d 20 |Ram - a program |
000030a0 77 69 73 68 65 73 20 74 6f 20 73 61 76 65 20 74 |wishes to save t|
000030b0 6f 20 75 73 0a 52 45 4d 0a 52 45 4d 20 2a 2a 2a |o us.REM.REM ***|
000030c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
000030e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a |***************.|
000030f0 0a 44 45 46 20 50 52 4f 43 73 61 76 65 74 6f 75 |.DEF PROCsavetou|
00003100 73 28 62 29 20 20 20 20 20 20 3a 52 45 4d 20 62 |s(b) :REM b|
00003110 20 66 72 6f 6d 20 6d 65 73 73 61 67 65 20 74 79 | from message ty|
00003120 70 65 20 31 37 2c 31 38 0a 20 20 46 4f 52 20 46 |pe 17,18. FOR F|
00003130 25 3d 30 20 54 4f 20 34 33 20 53 54 45 50 20 34 |%=0 TO 43 STEP 4|
00003140 20 20 3a 52 45 4d 20 72 65 63 6f 72 64 20 62 6c | :REM record bl|
00003150 6f 63 6b 20 69 6e 20 63 61 73 65 20 6e 6f 20 72 |ock in case no r|
00003160 65 70 6c 79 0a 20 20 20 20 6f 6c 64 62 6c 6b 21 |eply. oldblk!|
00003170 46 25 3d 62 21 46 25 0a 20 20 4e 45 58 54 0a 0a |F%=b!F%. NEXT..|
00003180 20 20 66 6e 61 6d 65 24 3d 46 4e 67 6e 61 6d 65 | fname$=FNgname|
00003190 28 62 2b 34 34 29 20 20 20 3a 52 45 4d 20 66 69 |(b+44) :REM fi|
000031a0 6c 65 20 6e 61 6d 65 0a 20 20 66 6c 65 6e 67 74 |le name. flengt|
000031b0 68 3d 62 21 33 36 20 20 20 20 20 20 20 20 20 20 |h=b!36 |
000031c0 20 3a 52 45 4d 20 6c 65 6e 67 74 68 20 6f 66 20 | :REM length of |
000031d0 66 69 6c 65 0a 20 20 66 74 79 70 65 3d 62 21 34 |file. ftype=b!4|
000031e0 30 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 52 |0 :R|
000031f0 45 4d 20 66 69 6c 65 20 74 79 70 65 0a 20 20 72 |EM file type. r|
00003200 6d 61 3d 46 4e 63 6c 61 69 6d 28 62 21 33 36 29 |ma=FNclaim(b!36)|
00003210 20 20 20 20 20 20 3a 52 45 4d 20 61 64 64 72 65 | :REM addre|
00003220 73 73 20 6f 66 20 52 4d 41 20 6d 65 6d 6f 72 79 |ss of RMA memory|
00003230 0a 0a 20 20 62 21 31 32 3d 62 21 38 20 20 20 20 |.. b!12=b!8 |
00003240 20 20 20 20 20 20 20 20 20 20 20 3a 52 45 4d 20 | :REM |
00003250 6d 79 20 72 65 66 3f 0a 20 20 62 21 31 36 3d 36 |my ref?. b!16=6|
00003260 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003270 20 3a 52 45 4d 20 73 65 6e 64 20 69 74 20 74 6f | :REM send it to|
00003280 20 6d 65 20 61 73 20 52 41 4d 20 0a 20 20 62 21 | me as RAM . b!|
00003290 32 30 3d 72 6d 61 20 20 20 20 20 20 20 20 20 20 |20=rma |
000032a0 20 20 20 20 20 3a 52 45 4d 20 73 74 61 72 74 20 | :REM start |
000032b0 61 64 64 72 65 73 73 0a 20 20 62 21 32 34 3d 62 |address. b!24=b|
000032c0 21 33 36 20 20 20 20 20 20 20 20 20 20 20 20 20 |!36 |
000032d0 20 3a 52 45 4d 20 6c 65 6e 67 74 68 20 6f 66 20 | :REM length of |
000032e0 62 6c 6f 63 6b 0a 20 20 53 59 53 20 22 57 69 6d |block. SYS "Wim|
000032f0 70 5f 53 65 6e 64 4d 65 73 73 61 67 65 22 2c 31 |p_SendMessage",1|
00003300 38 2c 62 2c 62 21 34 0a 0a 20 20 6d 79 72 65 66 |8,b,b!4.. myref|
00003310 3d 62 21 31 32 20 20 20 20 20 20 20 20 20 20 20 |=b!12 |
00003320 20 20 3a 52 45 4d 20 6d 79 72 65 66 3f 0a 20 20 | :REM myref?. |
00003330 72 65 74 72 79 3d 54 52 55 45 20 20 20 20 20 20 |retry=TRUE |
00003340 20 20 20 20 20 20 20 3a 52 45 4d 20 66 6c 61 67 | :REM flag|
00003350 20 69 6e 20 63 61 73 65 20 6e 6f 20 72 65 70 6c | in case no repl|
00003360 79 20 74 6f 20 6d 65 73 73 61 67 65 20 36 0a 45 |y to message 6.E|
00003370 4e 44 50 52 4f 43 0a 0a 44 45 46 20 50 52 4f 43 |NDPROC..DEF PROC|
00003380 67 65 74 72 61 6d 28 62 29 20 20 20 20 20 20 20 |getram(b) |
00003390 20 20 20 3a 52 45 4d 20 6f 74 68 65 72 20 61 70 | :REM other ap|
000033a0 70 20 68 61 73 20 73 65 6e 74 20 64 61 74 61 20 |p has sent data |
000033b0 76 69 61 20 52 41 4d 0a 20 20 49 46 20 62 21 32 |via RAM. IF b!2|
000033c0 34 3d 66 6c 65 6e 67 74 68 20 54 48 45 4e 0a 20 |4=flength THEN. |
000033d0 20 20 20 62 21 31 32 3d 62 21 38 0a 20 20 20 20 | b!12=b!8. |
000033e0 62 21 31 36 3d 36 20 20 20 20 20 20 20 20 20 20 |b!16=6 |
000033f0 20 20 20 20 20 20 20 3a 52 45 4d 20 6d 65 73 73 | :REM mess|
00003400 61 67 65 20 2d 20 73 65 6e 64 20 69 74 20 74 6f |age - send it to|
00003410 20 6d 65 20 61 73 20 52 41 4d 20 0a 20 20 20 20 | me as RAM . |
00003420 53 59 53 20 22 57 69 6d 70 5f 53 65 6e 64 4d 65 |SYS "Wimp_SendMe|
00003430 73 73 61 67 65 22 2c 31 38 2c 62 2c 62 21 34 0a |ssage",18,b,b!4.|
00003440 20 20 45 4c 53 45 20 20 20 20 20 20 20 20 20 20 | ELSE |
00003450 20 20 20 20 20 20 20 20 20 20 20 3a 52 45 4d 20 | :REM |
00003460 64 61 74 61 20 68 61 73 20 62 65 65 6e 20 73 65 |data has been se|
00003470 6e 74 0a 20 20 20 20 50 52 4f 43 63 6c 65 61 72 |nt. PROCclear|
00003480 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 52 | :R|
00003490 45 4d 20 63 6c 65 61 72 20 69 6e 70 75 74 20 77 |EM clear input w|
000034a0 69 6e 64 6f 77 20 6f 66 20 74 65 78 74 0a 20 20 |indow of text. |
000034b0 20 20 66 6e 61 6d 65 24 3d 46 4e 6c 65 61 66 28 | fname$=FNleaf(|
000034c0 66 6e 61 6d 65 24 29 20 20 3a 52 45 4d 20 67 65 |fname$) :REM ge|
000034d0 74 20 73 68 6f 72 74 20 66 69 6c 65 20 6e 61 6d |t short file nam|
000034e0 65 0a 0a 20 20 20 20 49 25 20 3d 20 30 20 20 20 |e.. I% = 0 |
000034f0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 52 | :R|
00003500 45 4d 20 6c 6f 6f 70 20 72 6f 75 6e 64 20 64 61 |EM loop round da|
00003510 74 61 2c 20 73 70 6c 69 74 74 69 6e 67 20 69 6e |ta, splitting in|
00003520 74 6f 20 6e 65 77 20 6c 69 6e 65 73 0a 20 20 20 |to new lines. |
00003530 20 4a 25 20 3d 20 30 20 20 20 20 20 20 20 20 20 | J% = 0 |
00003540 20 20 20 20 20 20 20 20 3a 52 45 4d 20 66 6f 72 | :REM for|
00003550 20 6e 65 77 6c 69 6e 65 28 31 30 29 20 6f 72 20 | newline(10) or |
00003560 72 65 74 75 72 6e 28 31 33 29 0a 20 20 20 20 4b |return(13). K|
00003570 25 20 3d 20 30 0a 20 20 20 20 52 45 50 45 41 54 |% = 0. REPEAT|
00003580 0a 20 20 20 20 20 20 3f 28 74 65 78 74 2b 49 25 |. ?(text+I%|
00003590 2a 38 30 2b 4b 25 29 20 3d 20 72 6d 61 3f 4a 25 |*80+K%) = rma?J%|
000035a0 0a 20 20 20 20 20 20 4b 25 2b 3d 31 0a 20 20 20 |. K%+=1. |
000035b0 20 20 20 49 46 20 72 6d 61 3f 4a 25 20 3d 20 31 | IF rma?J% = 1|
000035c0 33 3a 20 20 20 20 49 25 2b 3d 31 3a 20 4b 25 3d |3: I%+=1: K%=|
000035d0 30 0a 20 20 20 20 20 20 49 46 20 72 6d 61 3f 4a |0. IF rma?J|
000035e0 25 20 3d 20 31 30 3a 20 20 3f 28 74 65 78 74 2b |% = 10: ?(text+|
000035f0 49 25 2a 38 30 2b 4b 25 2d 31 29 3d 31 33 3a 20 |I%*80+K%-1)=13: |
00003600 20 49 25 2b 3d 31 3a 20 4b 25 3d 30 0a 20 20 20 | I%+=1: K%=0. |
00003610 20 20 20 49 46 20 4b 25 3e 37 38 3a 20 20 3f 28 | IF K%>78: ?(|
00003620 74 65 78 74 2b 49 25 2a 38 30 2b 4b 25 29 20 3d |text+I%*80+K%) =|
00003630 20 31 33 3a 20 49 25 2b 3d 31 3a 20 4b 25 3d 30 | 13: I%+=1: K%=0|
00003640 0a 20 20 20 20 20 20 4a 25 2b 3d 31 0a 20 20 20 |. J%+=1. |
00003650 20 55 4e 54 49 4c 20 28 49 25 20 3e 20 33 32 29 | UNTIL (I% > 32)|
00003660 20 4f 52 20 28 4a 25 20 3e 3d 20 66 6c 65 6e 67 | OR (J% >= fleng|
00003670 74 68 29 0a 0a 20 20 20 20 50 52 4f 43 72 65 6c |th).. PROCrel|
00003680 65 61 73 65 28 72 6d 61 29 20 20 20 20 20 20 20 |ease(rma) |
00003690 20 20 20 20 20 20 20 20 20 20 3a 52 45 4d 20 72 | :REM r|
000036a0 65 6c 65 61 73 65 20 52 4d 41 20 6d 65 6d 6f 72 |elease RMA memor|
000036b0 79 0a 20 20 20 20 50 52 4f 43 72 65 64 72 61 77 |y. PROCredraw|
000036c0 28 65 6e 74 72 79 2c 20 46 41 4c 53 45 29 20 20 |(entry, FALSE) |
000036d0 20 20 20 20 20 20 20 3a 52 45 4d 20 72 65 66 72 | :REM refr|
000036e0 65 73 68 20 74 68 65 20 64 69 73 70 6c 61 79 0a |esh the display.|
000036f0 20 20 45 4e 44 49 46 0a 45 4e 44 50 52 4f 43 20 | ENDIF.ENDPROC |
00003700 0a 0a 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |..REM **********|
00003710 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00003730 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 52 45 4d 0a 52 |**********.REM.R|
00003740 45 4d 20 4e 6f 41 63 6b 20 69 73 20 72 75 6e 20 |EM NoAck is run |
00003750 77 68 65 6e 20 61 6e 20 61 70 70 20 77 61 6e 74 |when an app want|
00003760 73 20 74 6f 20 73 61 76 65 20 61 20 66 69 6c 65 |s to save a file|
00003770 20 74 6f 20 6d 65 0a 52 45 4d 20 62 75 74 20 74 | to me.REM but t|
00003780 68 65 79 20 64 6f 6e 27 74 20 73 75 70 70 6f 72 |hey don't suppor|
00003790 74 20 64 61 74 61 20 70 69 70 65 0a 52 45 4d 0a |t data pipe.REM.|
000037a0 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |REM ************|
000037b0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
000037d0 2a 2a 2a 2a 2a 2a 2a 2a 0a 0a 44 45 46 20 50 52 |********..DEF PR|
000037e0 4f 43 6e 6f 61 63 6b 28 62 29 20 20 20 20 20 20 |OCnoack(b) |
000037f0 20 20 3a 52 45 4d 20 62 20 66 72 6f 6d 20 74 79 | :REM b from ty|
00003800 70 65 20 31 39 20 6d 65 73 73 61 67 65 0a 20 20 |pe 19 message. |
00003810 49 46 20 62 21 31 32 3d 6d 79 72 65 66 20 54 48 |IF b!12=myref TH|
00003820 45 4e 0a 20 20 20 20 49 46 20 72 65 74 72 79 20 |EN. IF retry |
00003830 54 48 45 4e 0a 20 20 20 20 20 20 6f 6c 64 62 6c |THEN. oldbl|
00003840 6b 21 31 32 3d 6f 6c 64 62 6c 6b 21 38 0a 20 20 |k!12=oldblk!8. |
00003850 20 20 20 20 6f 6c 64 62 6c 6b 21 31 36 3d 32 20 | oldblk!16=2 |
00003860 20 20 20 20 20 20 3a 52 45 4d 20 72 65 61 64 79 | :REM ready|
00003870 20 74 6f 20 73 61 76 65 20 61 20 66 69 6c 65 20 | to save a file |
00003880 0a 20 20 20 20 20 20 21 6f 6c 64 62 6c 6b 3d 31 |. !oldblk=1|
00003890 30 30 0a 20 20 20 20 20 20 6f 6c 64 62 6c 6b 21 |00. oldblk!|
000038a0 33 36 20 3d 20 2d 31 0a 20 20 20 20 20 20 24 28 |36 = -1. $(|
000038b0 6f 6c 64 62 6c 6b 2b 34 34 29 3d 22 3c 57 69 6d |oldblk+44)="<Wim|
000038c0 70 24 53 63 72 61 70 3e 22 2b 43 48 52 24 30 20 |p$Scrap>"+CHR$0 |
000038d0 20 20 3a 52 45 4d 20 74 65 6d 70 20 66 69 6c 65 | :REM temp file|
000038e0 20 6e 61 6d 65 0a 20 20 20 20 20 20 53 59 53 20 | name. SYS |
000038f0 22 57 69 6d 70 5f 53 65 6e 64 4d 65 73 73 61 67 |"Wimp_SendMessag|
00003900 65 22 2c 31 37 2c 6f 6c 64 62 6c 6b 2c 6f 6c 64 |e",17,oldblk,old|
00003910 62 6c 6b 21 34 0a 20 20 20 20 20 20 6d 79 72 65 |blk!4. myre|
00003920 66 3d 6f 6c 64 62 6c 6b 21 38 0a 20 20 20 20 20 |f=oldblk!8. |
00003930 20 72 65 74 72 79 3d 46 41 4c 53 45 20 20 20 20 | retry=FALSE |
00003940 20 20 20 3a 52 45 4d 20 64 6f 6e 27 74 20 74 72 | :REM don't tr|
00003950 79 20 61 67 61 69 6e 0a 20 20 20 20 45 4c 53 45 |y again. ELSE|
00003960 0a 20 20 20 20 20 20 45 52 52 4f 52 20 31 2c 22 |. ERROR 1,"|
00003970 50 69 70 65 20 42 72 6f 6b 65 6e 22 0a 20 20 20 |Pipe Broken". |
00003980 20 45 4e 44 49 46 0a 20 20 45 4e 44 49 46 0a 45 | ENDIF. ENDIF.E|
00003990 4e 44 50 52 4f 43 0a 0a 52 45 4d 20 2a 2a 2a 2a |NDPROC..REM ****|
000039a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
000039c0 2a 2a 2a 2a 0a 52 45 4d 0a 52 45 4d 20 53 65 6e |****.REM.REM Sen|
000039d0 64 52 61 6d 20 2d 20 61 6e 20 61 70 70 6c 69 63 |dRam - an applic|
000039e0 61 74 69 6f 6e 20 77 61 6e 74 73 20 6d 79 20 66 |ation wants my f|
000039f0 69 6c 65 0a 52 45 4d 0a 52 45 4d 20 2a 2a 2a 2a |ile.REM.REM ****|
00003a00 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00003a20 2a 2a 2a 2a 0a 0a 44 45 46 20 50 52 4f 43 73 65 |****..DEF PROCse|
00003a30 6e 64 72 61 6d 28 62 29 0a 20 20 49 46 20 6e 65 |ndram(b). IF ne|
00003a40 77 64 72 61 67 20 54 48 45 4e 0a 20 20 20 20 6e |wdrag THEN. n|
00003a50 65 77 64 72 61 67 3d 46 41 4c 53 45 0a 20 20 20 |ewdrag=FALSE. |
00003a60 20 72 6d 61 3d 46 4e 63 6c 61 69 6d 28 6c 65 6e | rma=FNclaim(len|
00003a70 67 74 68 29 20 20 20 20 20 20 20 20 20 20 20 20 |gth) |
00003a80 20 3a 52 45 4d 20 61 64 64 72 65 73 73 20 6f 66 | :REM address of|
00003a90 20 52 41 4d 20 66 6f 72 20 74 72 61 6e 73 66 65 | RAM for transfe|
00003aa0 72 0a 0a 20 20 20 20 70 74 72 3d 72 6d 61 20 20 |r.. ptr=rma |
00003ab0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003ac0 20 20 20 20 20 20 20 3a 52 45 4d 20 70 75 74 20 | :REM put |
00003ad0 74 65 78 74 20 69 6e 74 6f 20 62 6c 6f 63 6b 20 |text into block |
00003ae0 6f 66 20 52 41 4d 0a 20 20 20 20 46 4f 52 20 49 |of RAM. FOR I|
00003af0 25 3d 30 20 54 4f 20 6c 69 6e 65 73 2d 31 0a 20 |%=0 TO lines-1. |
00003b00 20 20 20 20 20 74 65 6d 70 24 3d 24 28 46 4e 69 | temp$=$(FNi|
00003b10 6e 64 69 72 28 65 6e 74 72 79 2c 20 49 25 29 29 |ndir(entry, I%))|
00003b20 0a 20 20 20 20 20 20 24 70 74 72 20 3d 20 74 65 |. $ptr = te|
00003b30 6d 70 24 0a 20 20 20 20 20 20 70 74 72 2b 3d 4c |mp$. ptr+=L|
00003b40 45 4e 28 74 65 6d 70 24 29 2b 31 0a 20 20 20 20 |EN(temp$)+1. |
00003b50 20 20 3f 28 70 74 72 2d 31 29 20 3d 20 31 30 0a | ?(ptr-1) = 10.|
00003b60 20 20 20 20 4e 45 58 54 0a 0a 20 20 20 20 73 74 | NEXT.. st|
00003b70 61 72 74 3d 72 6d 61 20 20 20 20 20 20 20 20 20 |art=rma |
00003b80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 52 | :R|
00003b90 45 4d 20 73 74 61 72 74 20 61 64 64 72 65 73 73 |EM start address|
00003ba0 20 6f 66 20 64 61 74 61 20 74 6f 20 73 65 6e 64 | of data to send|
00003bb0 0a 20 20 20 20 63 6e 64 3d 73 74 61 72 74 2b 6c |. cnd=start+l|
00003bc0 65 6e 67 74 68 20 20 20 20 20 20 20 20 20 20 20 |ength |
00003bd0 20 20 20 20 20 3a 52 45 4d 20 65 6e 64 20 61 64 | :REM end ad|
00003be0 64 72 65 73 73 20 6f 66 20 64 61 74 61 20 74 6f |dress of data to|
00003bf0 20 73 65 6e 64 0a 20 20 45 4e 44 49 46 0a 0a 20 | send. ENDIF.. |
00003c00 20 49 46 20 62 21 32 34 20 3c 20 63 6e 64 2d 73 | IF b!24 < cnd-s|
00003c10 74 61 72 74 20 54 48 45 4e 0a 20 20 20 20 63 65 |tart THEN. ce|
00003c20 6e 64 3d 73 74 61 72 74 2b 62 21 32 34 0a 20 20 |nd=start+b!24. |
00003c30 45 4c 53 45 0a 20 20 20 20 63 65 6e 64 3d 63 6e |ELSE. cend=cn|
00003c40 64 0a 20 20 45 4e 44 49 46 0a 20 20 20 20 20 20 |d. ENDIF. |
00003c50 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
*
00003c70 20 20 20 20 20 20 20 20 20 20 20 20 20 0a 20 20 | . |
00003c80 52 45 4d 20 74 68 65 20 66 6f 6c 6c 6f 77 69 6e |REM the followin|
00003c90 67 20 6c 69 6e 65 20 74 72 61 6e 73 66 65 72 73 |g line transfers|
00003ca0 20 6d 79 20 62 6c 6f 63 6b 20 6f 66 20 52 41 4d | my block of RAM|
00003cb0 20 74 6f 20 74 68 65 20 6f 74 68 65 72 0a 20 20 | to the other. |
00003cc0 52 45 4d 20 61 70 70 6c 69 63 61 74 69 6f 6e 73 |REM applications|
00003cd0 20 62 6c 6f 63 6b 20 6f 66 20 52 41 4d 20 2d 20 | block of RAM - |
00003ce0 49 20 62 65 6c 69 65 76 65 21 0a 20 20 53 59 53 |I believe!. SYS|
00003cf0 20 22 57 69 6d 70 5f 54 72 61 6e 73 66 65 72 42 | "Wimp_TransferB|
00003d00 6c 6f 63 6b 22 2c 75 73 2c 73 74 61 72 74 2c 62 |lock",us,start,b|
00003d10 21 34 2c 62 21 32 30 2c 63 65 6e 64 2d 73 74 61 |!4,b!20,cend-sta|
00003d20 72 74 0a 0a 20 20 62 21 31 32 3d 62 21 38 0a 20 |rt.. b!12=b!8. |
00003d30 20 62 21 31 36 3d 37 20 20 20 20 20 20 20 20 20 | b!16=7 |
00003d40 20 20 20 20 20 3a 52 45 4d 20 6d 65 73 73 61 67 | :REM messag|
00003d50 65 20 2d 20 6c 6f 61 64 20 72 61 6d 0a 20 20 62 |e - load ram. b|
00003d60 21 32 34 3d 63 65 6e 64 2d 73 74 61 72 74 20 20 |!24=cend-start |
00003d70 20 20 20 3a 52 45 4d 20 61 6d 6f 75 6e 74 20 73 | :REM amount s|
00003d80 65 6e 74 0a 20 20 53 59 53 20 22 57 69 6d 70 5f |ent. SYS "Wimp_|
00003d90 53 65 6e 64 4d 65 73 73 61 67 65 22 2c 31 38 2c |SendMessage",18,|
00003da0 62 2c 62 21 34 0a 0a 20 20 73 74 61 72 74 3d 63 |b,b!4.. start=c|
00003db0 65 6e 64 0a 0a 20 20 49 46 20 73 74 61 72 74 3d |end.. IF start=|
00003dc0 63 6e 64 3a 20 50 52 4f 43 72 65 6c 65 61 73 65 |cnd: PROCrelease|
00003dd0 28 72 6d 61 29 20 3a 52 45 4d 20 72 65 6c 65 61 |(rma) :REM relea|
00003de0 73 65 20 6d 65 6d 6f 72 79 0a 0a 20 20 21 62 31 |se memory.. !b1|
00003df0 3d 73 61 76 65 61 73 20 20 20 20 20 20 20 20 20 |=saveas |
00003e00 20 20 20 20 20 20 20 20 20 20 20 20 3a 52 45 4d | :REM|
00003e10 20 77 69 6e 64 6f 77 20 68 61 6e 64 6c 65 0a 20 | window handle. |
00003e20 20 53 59 53 20 22 57 69 6d 70 5f 43 6c 6f 73 65 | SYS "Wimp_Close|
00003e30 57 69 6e 64 6f 77 22 2c 2c 62 31 20 20 20 20 20 |Window",,b1 |
00003e40 3a 52 45 4d 20 63 6c 6f 73 65 20 73 61 76 65 20 |:REM close save |
00003e50 77 69 6e 64 6f 77 0a 20 20 53 59 53 20 22 57 69 |window. SYS "Wi|
00003e60 6d 70 5f 43 72 65 61 74 65 4d 65 6e 75 22 2c 2c |mp_CreateMenu",,|
00003e70 2d 31 20 20 20 20 20 20 3a 52 45 4d 20 63 6c 6f |-1 :REM clo|
00003e80 73 65 20 61 6c 6c 20 6d 65 6e 75 73 0a 45 4e 44 |se all menus.END|
00003e90 50 52 4f 43 0a 0a 44 45 46 20 46 4e 63 6c 61 69 |PROC..DEF FNclai|
00003ea0 6d 28 73 69 7a 65 29 20 20 20 20 20 20 20 20 20 |m(size) |
00003eb0 20 20 20 20 20 20 20 3a 52 45 4d 20 63 6c 61 69 | :REM clai|
00003ec0 6d 20 61 6e 20 61 72 65 61 20 6f 66 20 52 41 4d |m an area of RAM|
00003ed0 0a 20 20 53 59 53 20 22 4f 53 5f 4d 6f 64 75 6c |. SYS "OS_Modul|
00003ee0 65 22 2c 36 2c 2c 2c 73 69 7a 65 20 54 4f 20 2c |e",6,,,size TO ,|
00003ef0 2c 70 74 72 0a 3d 70 74 72 0a 0a 44 45 46 20 50 |,ptr.=ptr..DEF P|
00003f00 52 4f 43 72 65 6c 65 61 73 65 28 52 45 54 55 52 |ROCrelease(RETUR|
00003f10 4e 20 70 74 72 29 20 20 20 20 20 20 3a 52 45 4d |N ptr) :REM|
00003f20 20 72 65 6c 65 61 73 65 20 61 6e 20 61 72 65 61 | release an area|
00003f30 20 6f 66 20 52 41 4d 0a 20 20 49 46 20 70 74 72 | of RAM. IF ptr|
00003f40 3a 20 53 59 53 20 22 4f 53 5f 4d 6f 64 75 6c 65 |: SYS "OS_Module|
00003f50 22 2c 37 2c 2c 70 74 72 0a 20 20 70 74 72 3d 30 |",7,,ptr. ptr=0|
00003f60 0a 45 4e 44 50 52 4f 43 0a 0a 44 45 46 20 46 4e |.ENDPROC..DEF FN|
00003f70 6c 65 61 66 28 70 61 74 68 24 29 20 20 20 20 20 |leaf(path$) |
00003f80 20 20 20 20 20 20 20 20 20 20 20 3a 52 45 4d 20 | :REM |
00003f90 72 65 74 75 72 6e 20 73 68 6f 72 74 20 66 69 6c |return short fil|
00003fa0 65 20 6e 61 6d 65 20 28 6e 6f 20 70 61 74 68 29 |e name (no path)|
00003fb0 0a 20 20 57 48 49 4c 45 20 49 4e 53 54 52 28 70 |. WHILE INSTR(p|
00003fc0 61 74 68 24 2c 22 2e 22 29 0a 20 20 20 20 70 61 |ath$,"."). pa|
00003fd0 74 68 24 3d 4d 49 44 24 28 70 61 74 68 24 2c 49 |th$=MID$(path$,I|
00003fe0 4e 53 54 52 28 70 61 74 68 24 2c 22 2e 22 29 2b |NSTR(path$,".")+|
00003ff0 31 29 0a 20 20 45 4e 44 57 48 49 4c 45 0a 3d 70 |1). ENDWHILE.=p|
00004000 61 74 68 24 0a 0a 44 45 46 20 46 4e 67 6e 61 6d |ath$..DEF FNgnam|
00004010 65 28 70 74 72 29 20 20 20 20 20 20 20 20 20 20 |e(ptr) |
00004020 20 20 20 20 20 20 20 3a 52 45 4d 20 72 65 74 75 | :REM retu|
00004030 72 6e 20 7a 65 72 6f 20 74 65 72 6d 69 6e 61 74 |rn zero terminat|
00004040 65 64 20 66 69 6c 65 20 6e 61 6d 65 0a 20 20 4c |ed file name. L|
00004050 4f 43 41 4c 20 66 24 0a 20 20 57 48 49 4c 45 20 |OCAL f$. WHILE |
00004060 3f 70 74 72 20 66 24 2b 3d 43 48 52 24 3f 70 74 |?ptr f$+=CHR$?pt|
00004070 72 0a 20 20 20 20 70 74 72 2b 3d 31 0a 20 20 45 |r. ptr+=1. E|
00004080 4e 44 57 48 49 4c 45 0a 3d 66 24 0a 0a 52 45 4d |NDWHILE.=f$..REM|
00004090 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a | ***************|
000040a0 2a 2a 2a 0a 52 45 4d 0a 52 45 4d 20 45 72 72 6f |***.REM.REM Erro|
000040b0 72 20 68 61 73 20 6f 63 63 75 72 65 64 0a 52 45 |r has occured.RE|
000040c0 4d 0a 52 45 4d 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |M.REM **********|
000040d0 2a 2a 2a 2a 2a 2a 2a 2a 0a 0a 44 45 46 20 50 52 |********..DEF PR|
000040e0 4f 43 65 72 72 6f 72 0a 20 20 21 62 3d 45 52 52 |OCerror. !b=ERR|
000040f0 0a 20 20 24 28 62 2b 34 29 3d 52 45 50 4f 52 54 |. $(b+4)=REPORT|
00004100 24 2b 22 20 61 74 20 6c 69 6e 65 20 22 2b 53 54 |$+" at line "+ST|
00004110 52 24 45 52 4c 2b 43 48 52 24 30 0a 20 20 53 59 |R$ERL+CHR$0. SY|
00004120 53 20 22 57 69 6d 70 5f 52 65 70 6f 72 74 45 72 |S "Wimp_ReportEr|
00004130 72 6f 72 22 2c 20 62 2c 20 33 2c 20 22 21 4f 6e |ror", b, 3, "!On|
00004140 65 50 72 69 6e 74 22 20 54 4f 20 2c 72 65 73 70 |ePrint" TO ,resp|
00004150 6f 6e 73 65 25 0a 20 20 49 46 20 72 65 73 70 6f |onse%. IF respo|
00004160 6e 73 65 25 3d 32 3a 20 50 52 4f 43 73 74 6f 70 |nse%=2: PROCstop|
00004170 0a 45 4e 44 50 52 4f 43 0a 0a 44 45 46 20 50 52 |.ENDPROC..DEF PR|
00004180 4f 43 73 74 6f 70 20 20 20 20 20 20 20 20 20 20 |OCstop |
00004190 20 20 20 20 20 20 20 3a 52 45 4d 20 63 6c 6f 73 | :REM clos|
000041a0 65 20 74 61 73 6b 20 64 6f 77 6e 20 6e 65 61 74 |e task down neat|
000041b0 6c 79 2e 0a 20 20 53 59 53 20 22 57 69 6d 70 5f |ly.. SYS "Wimp_|
000041c0 43 6c 6f 73 65 44 6f 77 6e 22 0a 20 20 45 4e 44 |CloseDown". END|
000041d0 0a 45 4e 44 50 52 4f 43 0a 0a 52 45 4d 20 2a 2a |.ENDPROC..REM **|
000041e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00004200 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 52 45 |*************.RE|
00004210 4d 0a 52 45 4d 20 51 75 69 74 4d 65 6e 75 2c 20 |M.REM QuitMenu, |
00004220 4d 65 6e 75 2c 20 4d 65 6e 75 49 74 65 6d 2c 20 |Menu, MenuItem, |
00004230 4d 65 6e 75 48 65 61 64 20 62 75 69 6c 64 20 6d |MenuHead build m|
00004240 65 6e 75 73 0a 52 45 4d 0a 52 45 4d 20 2a 2a 2a |enus.REM.REM ***|
00004250 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
*
00004270 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 0a 44 45 |************..DE|
00004280 46 20 50 52 4f 43 71 75 69 74 6d 65 6e 75 28 58 |F PROCquitmenu(X|
00004290 25 2c 59 25 29 20 20 20 20 20 20 3a 52 45 4d 20 |%,Y%) :REM |
000042a0 63 6f 6e 73 74 72 75 63 74 20 6d 65 6e 75 0a 20 |construct menu. |
000042b0 20 6d 65 6e 75 66 6c 61 67 3d 30 20 20 20 20 20 | menuflag=0 |
000042c0 20 20 20 20 20 20 20 20 20 20 20 20 3a 52 45 4d | :REM|
000042d0 20 72 65 64 75 6e 64 61 6e 74 20 66 6c 61 67 21 | redundant flag!|
000042e0 0a 0a 20 20 50 25 3d 46 4e 6d 65 6e 75 68 65 61 |.. P%=FNmenuhea|
000042f0 64 28 6d 2c 22 4f 6e 65 20 50 72 69 6e 74 22 2c |d(m,"One Print",|
00004300 32 30 30 29 0a 20 20 50 25 3d 46 4e 6d 65 6e 75 |200). P%=FNmenu|
00004310 69 74 65 6d 28 50 25 2c 20 20 30 2c 20 20 69 6e |item(P%, 0, in|
00004320 66 6f 2c 26 37 30 30 30 30 32 31 2c 20 20 20 20 |fo,&7000021, |
00004330 20 20 20 20 22 49 6e 66 6f 22 2c 30 2c 30 2c 30 | "Info",0,0,0|
00004340 29 0a 20 20 50 25 3d 46 4e 6d 65 6e 75 69 74 65 |). P%=FNmenuite|
00004350 6d 28 50 25 2c 20 20 30 2c 73 61 76 65 61 73 2c |m(P%, 0,saveas,|
00004360 26 37 30 30 30 30 32 31 2c 20 20 20 20 20 20 20 |&7000021, |
00004370 20 22 53 61 76 65 22 2c 30 2c 30 2c 30 29 0a 20 | "Save",0,0,0). |
00004380 20 50 25 3d 46 4e 6d 65 6e 75 69 74 65 6d 28 50 | P%=FNmenuitem(P|
00004390 25 2c 20 20 30 2c 20 20 20 20 6d 31 2c 26 37 30 |%, 0, m1,&70|
000043a0 30 30 30 32 31 2c 20 20 20 20 20 22 50 72 69 6e |00021, "Prin|
000043b0 74 65 72 22 2c 30 2c 30 2c 30 29 0a 20 20 50 25 |ter",0,0,0). P%|
000043c0 3d 46 4e 6d 65 6e 75 69 74 65 6d 28 50 25 2c 20 |=FNmenuitem(P%, |
000043d0 20 30 2c 20 20 20 20 2d 31 2c 26 37 30 30 30 30 | 0, -1,&70000|
000043e0 32 31 2c 22 54 65 73 74 20 50 72 69 6e 74 65 72 |21,"Test Printer|
000043f0 22 2c 30 2c 30 2c 30 29 0a 20 20 50 25 3d 46 4e |",0,0,0). P%=FN|
00004400 6d 65 6e 75 69 74 65 6d 28 50 25 2c 26 38 30 2c |menuitem(P%,&80,|
00004410 20 20 20 20 2d 31 2c 26 37 30 30 30 30 32 31 2c | -1,&7000021,|
00004420 20 20 20 20 20 20 20 20 22 51 75 69 74 22 2c 30 | "Quit",0|
00004430 2c 30 2c 30 29 0a 0a 20 20 50 25 3d 46 4e 6d 65 |,0,0).. P%=FNme|
00004440 6e 75 68 65 61 64 28 6d 31 2c 22 50 72 69 6e 74 |nuhead(m1,"Print|
00004450 65 72 73 22 2c 32 30 30 29 20 20 3a 52 45 4d 20 |ers",200) :REM |
00004460 63 6f 6e 73 74 72 75 63 74 20 50 72 69 6e 74 65 |construct Printe|
00004470 72 20 6d 65 6e 75 0a 20 20 46 4f 52 20 49 25 3d |r menu. FOR I%=|
00004480 30 20 54 4f 20 4d 61 6b 65 73 0a 20 20 20 20 66 |0 TO Makes. f|
00004490 6c 61 67 3d 30 3a 20 49 46 20 49 25 3d 4d 61 6b |lag=0: IF I%=Mak|
000044a0 65 73 3a 20 66 6c 61 67 3d 26 38 30 0a 20 20 20 |es: flag=&80. |
000044b0 20 49 46 20 50 72 69 6e 74 65 72 24 3d 4d 61 6b | IF Printer$=Mak|
000044c0 65 24 28 49 25 29 3a 20 66 6c 61 67 3d 66 6c 61 |e$(I%): flag=fla|
000044d0 67 20 45 4f 52 20 26 30 31 0a 0a 20 20 20 20 50 |g EOR &01.. P|
000044e0 25 3d 46 4e 6d 65 6e 75 69 74 65 6d 28 50 25 2c |%=FNmenuitem(P%,|
000044f0 66 6c 61 67 2c 2d 31 2c 26 37 30 30 30 30 32 31 |flag,-1,&7000021|
00004500 2c 4d 61 6b 65 24 28 49 25 29 2c 30 2c 30 2c 30 |,Make$(I%),0,0,0|
00004510 29 0a 20 20 4e 45 58 54 0a 0a 20 20 53 59 53 20 |). NEXT.. SYS |
00004520 22 57 69 6d 70 5f 43 72 65 61 74 65 4d 65 6e 75 |"Wimp_CreateMenu|
00004530 22 2c 2c 6d 2c 58 25 2c 59 25 20 20 3a 52 45 4d |",,m,X%,Y% :REM|
00004540 20 62 6c 6b 2c 78 20 73 65 6c 65 63 74 20 2d 20 | blk,x select - |
00004550 36 34 2c 79 0a 45 4e 44 50 52 4f 43 0a 0a 44 45 |64,y.ENDPROC..DE|
00004560 46 20 46 4e 6d 65 6e 75 69 74 65 6d 28 6d 2c 61 |F FNmenuitem(m,a|
00004570 2c 62 2c 63 2c 74 65 78 74 24 2c 64 2c 65 2c 66 |,b,c,text$,d,e,f|
00004580 29 0a 20 20 21 6d 3d 61 20 20 20 20 20 20 20 20 |). !m=a |
00004590 20 20 20 20 3a 52 45 4d 20 6d 65 6e 75 20 66 6c | :REM menu fl|
000045a0 61 67 73 20 28 26 38 30 20 3d 20 6c 61 73 74 20 |ags (&80 = last |
000045b0 69 74 65 6d 29 0a 20 20 6d 21 34 3d 62 20 20 20 |item). m!4=b |
000045c0 20 20 20 20 20 20 20 20 3a 52 45 4d 20 73 75 62 | :REM sub|
000045d0 20 6d 65 6e 75 20 70 6f 69 6e 74 65 72 0a 20 20 | menu pointer. |
000045e0 6d 21 38 3d 63 20 20 20 20 20 20 20 20 20 20 20 |m!8=c |
000045f0 3a 52 45 4d 20 69 63 6f 6e 20 66 6c 61 67 73 0a |:REM icon flags.|
00004600 20 20 49 46 20 74 65 78 74 24 3c 3e 22 22 20 54 | IF text$<>"" T|
00004610 48 45 4e 0a 20 20 20 20 24 28 6d 2b 31 32 29 3d |HEN. $(m+12)=|
00004620 74 65 78 74 24 20 3a 52 45 4d 20 69 63 6f 6e 20 |text$ :REM icon |
00004630 64 61 74 61 0a 20 20 45 4c 53 45 0a 20 20 20 20 |data. ELSE. |
00004640 6d 21 31 32 3d 64 20 20 20 20 20 20 20 20 3a 52 |m!12=d :R|
00004650 45 4d 20 70 6f 69 6e 74 65 72 20 74 6f 20 74 65 |EM pointer to te|
00004660 78 74 0a 20 20 20 20 6d 21 31 36 3d 65 20 20 20 |xt. m!16=e |
00004670 20 20 20 20 20 3a 52 45 4d 20 70 6f 69 6e 74 65 | :REM pointe|
00004680 72 20 74 6f 20 76 61 6c 69 64 61 74 69 6f 6e 20 |r to validation |
00004690 73 74 72 69 6e 67 0a 20 20 20 20 6d 21 32 30 3d |string. m!20=|
000046a0 66 20 20 20 20 20 20 20 20 3a 52 45 4d 20 6c 65 |f :REM le|
000046b0 6e 67 74 68 20 6f 66 20 62 75 66 66 65 72 0a 20 |ngth of buffer. |
000046c0 20 45 4e 44 49 46 0a 3d 6d 2b 32 34 0a 0a 44 45 | ENDIF.=m+24..DE|
000046d0 46 20 46 4e 6d 65 6e 75 68 65 61 64 28 6d 2c 74 |F FNmenuhead(m,t|
000046e0 65 78 74 24 2c 77 69 64 74 68 29 0a 20 20 24 6d |ext$,width). $m|
000046f0 3d 74 65 78 74 24 20 20 20 20 20 20 20 20 3a 52 |=text$ :R|
00004700 45 4d 20 6d 65 6e 75 20 74 69 74 6c 65 0a 20 20 |EM menu title. |
00004710 6d 21 31 32 3d 26 37 30 32 30 37 20 20 20 20 20 |m!12=&70207 |
00004720 3a 52 45 4d 20 63 6f 6c 6f 75 72 0a 20 20 6d 21 |:REM colour. m!|
00004730 31 36 3d 77 69 64 74 68 20 20 20 20 20 20 3a 52 |16=width :R|
00004740 45 4d 20 77 69 64 74 68 20 6f 66 20 6d 65 6e 75 |EM width of menu|
00004750 20 69 74 65 6d 73 0a 20 20 6d 21 32 30 3d 34 30 | items. m!20=40|
00004760 20 20 20 20 20 20 20 20 20 3a 52 45 4d 20 68 65 | :REM he|
00004770 69 67 68 74 20 6f 66 20 6d 65 6e 75 20 69 74 65 |ight of menu ite|
00004780 6d 73 0a 20 20 6d 21 32 34 3d 30 20 20 20 20 20 |ms. m!24=0 |
00004790 20 20 20 20 20 3a 52 45 4d 20 76 65 72 74 69 63 | :REM vertic|
000047a0 61 6c 20 67 61 70 20 62 65 74 77 65 65 6e 20 69 |al gap between i|
000047b0 74 65 6d 73 0a 3d 6d 2b 32 38 0a 0a 44 45 46 20 |tems.=m+28..DEF |
000047c0 50 52 4f 43 67 65 74 70 6f 69 6e 74 65 72 0a 20 |PROCgetpointer. |
000047d0 20 53 59 53 20 22 57 69 6d 70 5f 47 65 74 50 6f | SYS "Wimp_GetPo|
000047e0 69 6e 74 65 72 49 6e 66 6f 22 2c 2c 62 0a 20 20 |interInfo",,b. |
000047f0 6d 6f 75 73 65 78 25 20 20 3d 20 21 62 0a 20 20 |mousex% = !b. |
00004800 6d 6f 75 73 65 79 25 20 20 3d 20 62 21 34 0a 20 |mousey% = b!4. |
00004810 20 62 75 74 74 6f 6e 73 25 20 3d 20 62 21 38 0a | buttons% = b!8.|
00004820 20 20 68 61 6e 64 6c 65 25 20 20 3d 20 62 21 31 | handle% = b!1|
00004830 32 0a 20 20 69 63 6f 6e 25 20 20 20 20 3d 20 62 |2. icon% = b|
00004840 21 31 36 0a 45 4e 44 50 52 4f 43 0a 0a 44 45 46 |!16.ENDPROC..DEF|
00004850 20 50 52 4f 43 72 65 64 72 61 77 28 77 69 6e 64 | PROCredraw(wind|
00004860 6f 77 2c 74 6f 70 77 69 6e 29 20 20 20 20 20 20 |ow,topwin) |
00004870 3a 52 45 4d 20 72 65 66 72 65 73 68 20 77 69 6e |:REM refresh win|
00004880 64 6f 77 20 6f 6e 20 64 69 73 70 6c 61 79 0a 20 |dow on display. |
00004890 20 49 46 20 74 6f 70 77 69 6e 20 54 48 45 4e 0a | IF topwin THEN.|
000048a0 20 20 20 20 21 62 3d 77 69 6e 64 6f 77 0a 20 20 | !b=window. |
000048b0 20 20 53 59 53 20 22 57 69 6d 70 5f 47 65 74 57 | SYS "Wimp_GetW|
000048c0 69 6e 64 6f 77 53 74 61 74 65 22 2c 2c 62 20 20 |indowState",,b |
000048d0 20 3a 52 45 4d 20 67 65 74 20 73 69 7a 65 20 6f | :REM get size o|
000048e0 66 20 77 69 6e 64 6f 77 0a 20 20 20 20 62 21 32 |f window. b!2|
000048f0 38 3d 2d 31 20 20 20 20 20 20 20 20 20 20 20 20 |8=-1 |
00004900 20 20 20 20 20 20 20 20 20 20 20 20 3a 52 45 4d | :REM|
00004910 20 70 6f 73 69 74 69 6f 6e 20 77 69 6e 64 6f 77 | position window|
00004920 20 6f 6e 20 74 6f 70 0a 20 20 20 20 53 59 53 20 | on top. SYS |
00004930 22 57 69 6d 70 5f 4f 70 65 6e 57 69 6e 64 6f 77 |"Wimp_OpenWindow|
00004940 22 2c 2c 62 0a 20 20 45 4e 44 49 46 0a 0a 20 20 |",,b. ENDIF.. |
00004950 21 62 3d 77 69 6e 64 6f 77 0a 20 20 53 59 53 20 |!b=window. SYS |
00004960 22 57 69 6d 70 5f 52 65 64 72 61 77 57 69 6e 64 |"Wimp_RedrawWind|
00004970 6f 77 22 2c 2c 62 20 54 4f 20 6d 6f 72 65 25 0a |ow",,b TO more%.|
00004980 20 20 57 48 49 4c 45 20 6d 6f 72 65 25 0a 20 20 | WHILE more%. |
00004990 20 20 53 59 53 20 22 57 69 6d 70 5f 47 65 74 52 | SYS "Wimp_GetR|
000049a0 65 63 74 61 6e 67 6c 65 22 2c 2c 62 20 54 4f 20 |ectangle",,b TO |
000049b0 6d 6f 72 65 25 0a 20 20 45 4e 44 57 48 49 4c 45 |more%. ENDWHILE|
000049c0 0a 45 4e 44 50 52 4f 43 0a 0a 52 45 4d 20 2a 2a |.ENDPROC..REM **|
000049d0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
000049e0 2a 2a 2a 2a 2a 0a 52 45 4d 0a 52 45 4d 20 49 63 |*****.REM.REM Ic|
000049f0 6f 6e 20 64 65 66 69 6e 65 73 20 61 6c 6c 20 69 |on defines all i|
00004a00 63 6f 6e 73 0a 52 45 4d 0a 52 45 4d 20 2a 2a 2a |cons.REM.REM ***|
00004a10 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |****************|
00004a20 2a 2a 2a 2a 0a 0a 44 45 46 20 46 4e 69 63 6f 6e |****..DEF FNicon|
00004a30 28 21 62 2c 62 21 34 2c 62 21 38 2c 62 21 31 32 |(!b,b!4,b!8,b!12|
00004a40 2c 62 21 31 36 2c 62 21 32 30 2c 74 65 78 74 24 |,b!16,b!20,text$|
00004a50 2c 64 2c 66 29 0a 20 20 49 46 20 74 65 78 74 24 |,d,f). IF text$|
00004a60 3c 3e 22 22 20 54 48 45 4e 0a 20 20 20 20 24 28 |<>"" THEN. $(|
00004a70 62 2b 32 34 29 3d 4c 45 46 54 24 28 74 65 78 74 |b+24)=LEFT$(text|
00004a80 24 2c 31 32 29 20 3a 52 45 4d 20 69 63 6f 6e 20 |$,12) :REM icon |
00004a90 64 61 74 61 0a 20 20 45 4c 53 45 0a 20 20 20 20 |data. ELSE. |
00004aa0 62 21 32 34 3d 64 20 20 20 20 20 20 20 20 20 20 |b!24=d |
00004ab0 20 20 20 20 20 20 20 20 3a 52 45 4d 20 70 6f 69 | :REM poi|
00004ac0 6e 74 65 72 20 74 6f 20 74 65 78 74 0a 20 20 20 |nter to text. |
00004ad0 20 62 21 32 38 3d 2d 31 20 20 20 20 20 20 20 20 | b!28=-1 |
00004ae0 20 20 20 20 20 20 20 20 20 3a 52 45 4d 20 70 6f | :REM po|
00004af0 69 6e 74 65 72 20 74 6f 20 76 61 6c 69 64 61 74 |inter to validat|
00004b00 69 6f 6e 20 73 74 72 69 6e 67 0a 20 20 20 20 62 |ion string. b|
00004b10 21 33 32 3d 66 20 20 20 20 20 20 20 20 20 20 20 |!32=f |
00004b20 20 20 20 20 20 20 20 3a 52 45 4d 20 6c 65 6e 67 | :REM leng|
00004b30 74 68 20 6f 66 20 62 75 66 66 65 72 0a 20 20 45 |th of buffer. E|
00004b40 4e 44 49 46 0a 0a 20 20 53 59 53 20 22 57 69 6d |NDIF.. SYS "Wim|
00004b50 70 5f 43 72 65 61 74 65 49 63 6f 6e 22 2c 2c 62 |p_CreateIcon",,b|
00004b60 20 54 4f 20 68 61 6e 64 6c 65 0a 3d 68 61 6e 64 | TO handle.=hand|
00004b70 6c 65 0a 0a 44 45 46 20 46 4e 6d 61 78 28 78 25 |le..DEF FNmax(x%|
00004b80 2c 79 25 29 0a 20 20 49 46 20 78 25 3e 79 25 20 |,y%). IF x%>y% |
00004b90 3a 3d 78 25 0a 3d 79 25 0a 0a 44 45 46 20 46 4e |:=x%.=y%..DEF FN|
00004ba0 6d 69 6e 28 78 25 2c 79 25 29 0a 20 20 49 46 20 |min(x%,y%). IF |
00004bb0 79 25 3c 78 25 20 3a 3d 79 25 0a 3d 78 25 0a 0a |y%<x% :=y%.=x%..|
00004bc0 44 45 46 20 50 52 4f 43 77 69 6d 70 20 20 20 20 |DEF PROCwimp |
00004bd0 20 20 20 20 20 20 20 20 20 20 20 3a 20 52 45 4d | : REM|
00004be0 20 53 65 74 20 75 70 20 57 49 4d 50 20 65 6e 76 | Set up WIMP env|
00004bf0 69 72 6f 6e 6d 65 6e 74 0a 20 20 44 49 4d 20 62 |ironment. DIM b|
00004c00 20 26 31 30 30 30 2c 20 62 31 20 31 30 30 2c 20 | &1000, b1 100, |
00004c10 6d 20 34 30 30 2c 20 6d 31 20 33 30 30 0a 20 20 |m 400, m1 300. |
00004c20 44 49 4d 20 50 72 69 6e 74 49 63 6f 6e 20 34 30 |DIM PrintIcon 40|
00004c30 2c 20 4f 70 74 69 6f 6e 73 49 63 6f 6e 20 34 30 |, OptionsIcon 40|
00004c40 2c 20 43 6c 65 61 72 49 63 6f 6e 20 34 30 2c 20 |, ClearIcon 40, |
00004c50 54 65 78 74 49 63 6f 6e 20 34 30 0a 20 20 44 49 |TextIcon 40. DI|
00004c60 4d 20 74 65 78 74 20 33 30 30 30 0a 0a 20 20 24 |M text 3000.. $|
00004c70 62 3d 22 54 41 53 4b 22 0a 20 20 53 59 53 20 22 |b="TASK". SYS "|
00004c80 57 69 6d 70 5f 49 6e 69 74 69 61 6c 69 73 65 22 |Wimp_Initialise"|
00004c90 2c 32 30 30 2c 21 62 2c 22 4f 6e 65 50 72 69 6e |,200,!b,"OnePrin|
00004ca0 74 22 20 54 4f 20 2c 75 73 0a 20 20 69 63 6f 6e |t" TO ,us. icon|
00004cb0 3d 46 4e 69 63 6f 6e 28 2d 31 2c 30 2c 31 30 2c |=FNicon(-1,0,10,|
00004cc0 36 38 2c 37 38 2c 26 33 30 30 32 2c 22 21 4f 6e |68,78,&3002,"!On|
00004cd0 65 50 72 69 6e 74 22 2c 30 2c 30 29 20 3a 52 45 |ePrint",0,0) :RE|
00004ce0 4d 20 70 75 74 20 69 63 6f 6e 20 6f 6e 20 69 63 |M put icon on ic|
00004cf0 6f 6e 20 62 61 72 0a 0a 20 20 71 75 69 74 20 20 |on bar.. quit |
00004d00 3d 20 46 41 4c 53 45 20 20 20 20 20 20 20 20 20 |= FALSE |
00004d10 20 20 20 3a 52 45 4d 20 66 6c 61 67 20 74 6f 20 | :REM flag to |
00004d20 73 74 6f 70 0a 20 20 6d 79 72 65 66 20 3d 20 31 |stop. myref = 1|
00004d30 32 33 34 20 20 20 20 20 20 20 20 20 20 20 20 20 |234 |
00004d40 3a 52 45 4d 20 75 73 65 64 20 69 6e 20 66 69 6c |:REM used in fil|
00004d50 65 20 74 72 61 6e 73 66 65 72 0a 20 20 44 49 4d |e transfer. DIM|
00004d60 20 6f 6c 64 62 6c 6b 20 32 35 36 20 20 20 20 20 | oldblk 256 |
00004d70 20 20 20 20 20 20 3a 52 45 4d 20 62 6c 6f 63 6b | :REM block|
00004d80 20 75 73 65 64 20 69 6e 20 66 69 6c 65 20 74 72 | used in file tr|
00004d90 61 6e 73 66 65 72 0a 20 20 72 65 74 72 79 20 3d |ansfer. retry =|
00004da0 20 46 41 4c 53 45 20 20 20 20 20 20 20 20 20 20 | FALSE |
00004db0 20 20 3a 52 45 4d 20 66 6c 61 67 20 66 6f 72 20 | :REM flag for |
00004dc0 66 69 6c 65 20 74 72 61 6e 73 66 65 72 0a 0a 20 |file transfer.. |
00004dd0 20 52 45 4d 20 4c 6f 61 64 20 77 69 6e 64 6f 77 | REM Load window|
00004de0 73 20 66 72 6f 6d 20 74 65 6d 70 6c 61 74 65 20 |s from template |
00004df0 66 69 6c 65 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a |file ***********|
00004e00 2a 2a 2a 2a 2a 2a 2a 2a 0a 0a 20 20 44 49 4d 20 |********.. DIM |
00004e10 69 6e 64 25 20 32 30 30 30 20 20 20 20 20 20 20 |ind% 2000 |
00004e20 20 20 20 20 20 3a 52 45 4d 20 69 6e 64 69 72 65 | :REM indire|
00004e30 63 74 65 64 20 69 63 6f 6e 20 77 6f 72 6b 20 73 |cted icon work s|
00004e40 70 61 63 65 0a 0a 20 20 53 59 53 20 22 57 69 6d |pace.. SYS "Wim|
00004e50 70 5f 4f 70 65 6e 54 65 6d 70 6c 61 74 65 22 2c |p_OpenTemplate",|
00004e60 2c 22 3c 4f 62 65 79 24 44 69 72 3e 2e 54 65 6d |,"<Obey$Dir>.Tem|
00004e70 70 6c 61 74 65 73 22 0a 20 20 53 59 53 20 22 57 |plates". SYS "W|
00004e80 69 6d 70 5f 4c 6f 61 64 54 65 6d 70 6c 61 74 65 |imp_LoadTemplate|
00004e90 22 2c 2c 62 2c 69 6e 64 25 2c 69 6e 64 25 2b 32 |",,b,ind%,ind%+2|
00004ea0 30 30 30 2c 2d 31 2c 22 45 6e 74 72 79 22 2c 30 |000,-1,"Entry",0|
00004eb0 20 54 4f 20 2c 2c 69 6e 64 25 0a 20 20 53 59 53 | TO ,,ind%. SYS|
00004ec0 20 22 57 69 6d 70 5f 43 72 65 61 74 65 57 69 6e | "Wimp_CreateWin|
00004ed0 64 6f 77 22 2c 2c 62 20 54 4f 20 65 6e 74 72 79 |dow",,b TO entry|
00004ee0 0a 20 20 53 59 53 20 22 57 69 6d 70 5f 4c 6f 61 |. SYS "Wimp_Loa|
00004ef0 64 54 65 6d 70 6c 61 74 65 22 2c 2c 62 2c 69 6e |dTemplate",,b,in|
00004f00 64 25 2c 69 6e 64 25 2b 31 30 30 30 2c 2d 31 2c |d%,ind%+1000,-1,|
00004f10 22 49 6e 66 6f 22 2c 30 20 54 4f 20 2c 2c 69 6e |"Info",0 TO ,,in|
00004f20 64 25 0a 20 20 53 59 53 20 22 57 69 6d 70 5f 43 |d%. SYS "Wimp_C|
00004f30 72 65 61 74 65 57 69 6e 64 6f 77 22 2c 2c 62 20 |reateWindow",,b |
00004f40 54 4f 20 69 6e 66 6f 0a 20 20 53 59 53 20 22 57 |TO info. SYS "W|
00004f50 69 6d 70 5f 4c 6f 61 64 54 65 6d 70 6c 61 74 65 |imp_LoadTemplate|
00004f60 22 2c 2c 62 2c 69 6e 64 25 2c 69 6e 64 25 2b 31 |",,b,ind%,ind%+1|
00004f70 30 30 30 2c 2d 31 2c 22 78 66 65 72 5f 73 65 6e |000,-1,"xfer_sen|
00004f80 64 22 2c 30 20 54 4f 20 2c 2c 69 6e 64 25 0a 20 |d",0 TO ,,ind%. |
00004f90 20 53 59 53 20 22 57 69 6d 70 5f 43 72 65 61 74 | SYS "Wimp_Creat|
00004fa0 65 57 69 6e 64 6f 77 22 2c 2c 62 20 54 4f 20 73 |eWindow",,b TO s|
00004fb0 61 76 65 61 73 0a 20 20 53 59 53 20 22 57 69 6d |aveas. SYS "Wim|
00004fc0 70 5f 4c 6f 61 64 54 65 6d 70 6c 61 74 65 22 2c |p_LoadTemplate",|
00004fd0 2c 62 2c 69 6e 64 25 2c 69 6e 64 25 2b 31 30 30 |,b,ind%,ind%+100|
00004fe0 30 2c 2d 31 2c 22 53 65 74 55 70 22 2c 30 20 54 |0,-1,"SetUp",0 T|
00004ff0 4f 20 2c 2c 69 6e 64 25 0a 20 20 53 59 53 20 22 |O ,,ind%. SYS "|
00005000 57 69 6d 70 5f 43 72 65 61 74 65 57 69 6e 64 6f |Wimp_CreateWindo|
00005010 77 22 2c 2c 62 20 54 4f 20 73 65 74 75 70 0a 20 |w",,b TO setup. |
00005020 20 53 59 53 20 22 57 69 6d 70 5f 43 6c 6f 73 65 | SYS "Wimp_Close|
00005030 54 65 6d 70 6c 61 74 65 22 0a 0a 20 20 21 62 20 |Template".. !b |
00005040 20 3d 20 69 6e 66 6f 20 20 20 20 20 20 20 20 20 | = info |
00005050 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 52 45 | :RE|
00005060 4d 20 73 65 74 20 76 65 72 73 69 6f 6e 20 6e 75 |M set version nu|
00005070 6d 62 65 72 0a 20 20 62 21 34 20 3d 20 34 0a 20 |mber. b!4 = 4. |
00005080 20 53 59 53 20 22 57 69 6d 70 5f 47 65 74 49 63 | SYS "Wimp_GetIc|
00005090 6f 6e 53 74 61 74 65 22 2c 2c 62 0a 20 20 24 28 |onState",,b. $(|
000050a0 62 21 32 38 29 20 3d 20 76 65 72 24 0a 0a 20 20 |b!28) = ver$.. |
000050b0 21 62 20 20 3d 20 73 61 76 65 61 73 20 20 20 20 |!b = saveas |
000050c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000050d0 3a 52 45 4d 20 67 65 74 20 66 69 6c 65 6e 61 6d |:REM get filenam|
000050e0 65 20 69 6e 64 69 72 65 63 74 69 6f 6e 0a 20 20 |e indirection. |
000050f0 62 21 34 20 3d 20 31 0a 20 20 53 59 53 20 22 57 |b!4 = 1. SYS "W|
00005100 69 6d 70 5f 47 65 74 49 63 6f 6e 53 74 61 74 65 |imp_GetIconState|
00005110 22 2c 2c 62 0a 20 20 66 6e 61 6d 65 20 20 3d 20 |",,b. fname = |
00005120 62 21 32 38 0a 20 20 24 66 6e 61 6d 65 20 3d 20 |b!28. $fname = |
00005130 22 54 65 78 74 66 69 6c 65 22 0a 0a 20 20 6f 6b |"Textfile".. ok|
00005140 20 20 3d 20 30 20 20 20 20 20 20 20 20 20 20 20 | = 0 |
00005150 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 52 | :R|
00005160 45 4d 20 6f 6b 20 69 63 6f 6e 20 6e 75 6d 62 65 |EM ok icon numbe|
00005170 72 0a 20 20 64 72 61 67 69 63 6f 6e 20 3d 20 32 |r. dragicon = 2|
00005180 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00005190 20 20 20 20 3a 52 45 4d 20 64 72 61 67 69 63 6f | :REM dragico|
000051a0 6e 20 6e 75 6d 62 65 72 0a 20 20 50 52 4f 43 73 |n number. PROCs|
000051b0 70 72 69 74 65 28 22 66 69 6c 65 5f 66 66 66 22 |prite("file_fff"|
000051c0 29 20 20 20 20 20 20 20 20 20 20 3a 52 45 4d 20 |) :REM |
000051d0 6f 70 65 6e 20 73 70 72 69 74 65 20 6f 6e 20 73 |open sprite on s|
000051e0 61 76 65 61 73 20 77 69 6e 64 6f 77 0a 0a 20 20 |aveas window.. |
000051f0 72 69 67 68 74 3d 46 4e 69 6e 64 69 72 28 73 65 |right=FNindir(se|
00005200 74 75 70 2c 20 37 29 20 20 20 20 20 20 20 20 20 |tup, 7) |
00005210 3a 52 45 4d 20 69 6e 64 69 72 65 63 74 69 6f 6e |:REM indirection|
00005220 20 66 6f 72 20 72 69 67 68 74 20 6d 61 72 67 69 | for right margi|
00005230 6e 20 73 74 72 69 6e 67 0a 20 20 6c 65 66 74 20 |n string. left |
00005240 3d 46 4e 69 6e 64 69 72 28 73 65 74 75 70 2c 20 |=FNindir(setup, |
00005250 32 39 29 20 20 20 20 20 20 20 20 3a 52 45 4d 20 |29) :REM |
00005260 64 69 74 74 6f 20 6c 65 66 74 0a 0a 20 20 50 52 |ditto left.. PR|
00005270 4f 43 73 65 74 63 6f 64 65 73 20 20 20 20 20 20 |OCsetcodes |
00005280 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 52 | :R|
00005290 45 4d 20 73 65 74 20 75 70 20 70 72 69 6e 74 65 |EM set up printe|
000052a0 72 20 63 6f 64 65 73 0a 20 20 50 52 4f 43 67 72 |r codes. PROCgr|
000052b0 65 79 28 31 29 20 20 20 20 20 20 20 20 20 20 20 |ey(1) |
000052c0 20 20 20 20 20 20 20 20 20 20 3a 52 45 4d 20 67 | :REM g|
000052d0 72 61 79 20 61 6e 79 20 75 6e 61 76 61 69 6c 61 |ray any unavaila|
000052e0 62 6c 65 20 6f 70 74 69 6f 6e 73 0a 0a 20 20 21 |ble options.. !|
000052f0 62 20 20 3d 20 73 65 74 75 70 0a 20 20 53 59 53 |b = setup. SYS|
00005300 20 22 57 69 6d 70 5f 47 65 74 57 69 6e 64 6f 77 | "Wimp_GetWindow|
00005310 49 6e 66 6f 22 2c 2c 62 0a 20 20 53 65 74 55 70 |Info",,b. SetUp|
00005320 54 69 74 6c 65 20 3d 20 62 21 37 36 20 20 20 20 |Title = b!76 |
00005330 20 20 20 20 20 20 20 20 20 20 20 3a 52 45 4d 20 | :REM |
00005340 69 6e 64 69 72 65 63 74 69 6f 6e 20 6f 66 20 77 |indirection of w|
00005350 69 6e 64 6f 77 20 74 69 74 6c 65 0a 20 20 24 53 |indow title. $S|
00005360 65 74 55 70 54 69 74 6c 65 20 3d 20 22 4f 70 74 |etUpTitle = "Opt|
00005370 69 6f 6e 73 20 2d 20 22 2b 50 72 69 6e 74 65 72 |ions - "+Printer|
00005380 24 0a 0a 20 20 21 62 20 3d 20 65 6e 74 72 79 20 |$.. !b = entry |
00005390 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000053a0 20 20 20 20 20 3a 52 45 4d 20 67 65 74 20 69 6e | :REM get in|
000053b0 69 74 69 61 6c 20 73 69 7a 65 20 6f 66 20 65 6e |itial size of en|
000053c0 74 72 79 20 77 69 6e 64 6f 77 0a 20 20 53 59 53 |try window. SYS|
000053d0 20 22 57 69 6d 70 5f 47 65 74 57 69 6e 64 6f 77 | "Wimp_GetWindow|
000053e0 53 74 61 74 65 22 2c 2c 62 0a 20 20 6d 69 6e 79 |State",,b. miny|
000053f0 20 3d 20 62 21 38 0a 20 20 6d 61 78 79 20 3d 20 | = b!8. maxy = |
00005400 62 21 31 36 0a 0a 20 20 6f 6c 64 73 69 7a 65 78 |b!16.. oldsizex|
00005410 20 3d 20 30 0a 20 20 6c 61 73 74 69 63 6f 6e 20 | = 0. lasticon |
00005420 3d 20 30 0a 20 20 50 52 4f 43 73 74 6f 72 65 28 |= 0. PROCstore(|
00005430 6c 61 73 74 69 63 6f 6e 2c 20 54 65 78 74 49 63 |lasticon, TextIc|
00005440 6f 6e 29 20 20 20 20 20 20 20 3a 52 45 4d 20 73 |on) :REM s|
00005450 74 72 75 63 74 75 72 65 20 66 6f 72 20 64 61 74 |tructure for dat|
00005460 61 20 65 6e 74 72 79 20 69 63 6f 6e 73 0a 20 20 |a entry icons. |
00005470 64 65 70 74 68 20 20 3d 20 54 65 78 74 49 63 6f |depth = TextIco|
00005480 6e 21 31 36 20 2d 20 54 65 78 74 49 63 6f 6e 21 |n!16 - TextIcon!|
00005490 38 0a 20 20 74 6f 70 20 20 20 20 3d 20 54 65 78 |8. top = Tex|
000054a0 74 49 63 6f 6e 21 38 20 0a 20 20 62 6f 74 74 6f |tIcon!8 . botto|
000054b0 6d 20 3d 20 31 32 37 0a 0a 20 20 50 72 69 6e 74 |m = 127.. Print|
000054c0 42 6f 78 20 20 20 3d 20 31 20 20 20 20 20 20 20 |Box = 1 |
000054d0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a | :|
000054e0 52 45 4d 20 62 75 74 74 6f 6e 20 69 63 6f 6e 20 |REM button icon |
000054f0 6e 75 6d 62 65 72 73 20 6f 6e 0a 20 20 4f 70 74 |numbers on. Opt|
00005500 69 6f 6e 73 42 6f 78 20 3d 20 32 20 20 20 20 20 |ionsBox = 2 |
00005510 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00005520 20 3a 52 45 4d 20 74 65 6d 70 6c 61 74 65 20 66 | :REM template f|
00005530 69 6c 65 2e 0a 20 20 43 6c 65 61 72 42 6f 78 20 |ile.. ClearBox |
00005540 20 20 3d 20 33 0a 0a 20 20 50 52 4f 43 73 74 6f | = 3.. PROCsto|
00005550 72 65 28 50 72 69 6e 74 42 6f 78 2c 50 72 69 6e |re(PrintBox,Prin|
00005560 74 49 63 6f 6e 29 20 20 20 20 20 20 20 3a 52 45 |tIcon) :RE|
00005570 4d 20 73 74 6f 72 65 20 73 74 72 75 63 74 75 72 |M store structur|
00005580 65 20 66 6f 72 20 62 75 74 74 6f 6e 73 2e 0a 20 |e for buttons.. |
00005590 20 50 52 4f 43 73 74 6f 72 65 28 4f 70 74 69 6f | PROCstore(Optio|
000055a0 6e 73 42 6f 78 2c 4f 70 74 69 6f 6e 73 49 63 6f |nsBox,OptionsIco|
000055b0 6e 29 0a 20 20 50 52 4f 43 73 74 6f 72 65 28 43 |n). PROCstore(C|
000055c0 6c 65 61 72 42 6f 78 2c 43 6c 65 61 72 49 63 6f |learBox,ClearIco|
000055d0 6e 29 0a 0a 20 20 44 65 70 74 68 20 3d 20 43 6c |n).. Depth = Cl|
000055e0 65 61 72 49 63 6f 6e 21 31 36 20 2d 20 43 6c 65 |earIcon!16 - Cle|
000055f0 61 72 49 63 6f 6e 21 38 0a 20 20 50 52 4f 43 63 |arIcon!8. PROCc|
00005600 6c 65 61 72 20 20 20 20 20 20 20 20 20 20 20 20 |lear |
00005610 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a | :|
00005620 52 45 4d 20 63 6c 65 61 72 20 64 61 74 61 20 65 |REM clear data e|
00005630 6e 74 72 79 20 74 6f 20 62 6c 61 6e 6b 0a 20 20 |ntry to blank. |
00005640 50 52 4f 43 72 65 73 69 7a 65 20 20 20 20 20 20 |PROCresize |
00005650 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00005660 20 20 20 20 3a 52 45 4d 20 72 65 64 72 61 77 20 | :REM redraw |
00005670 77 69 6e 64 6f 77 20 66 6f 72 20 69 6e 69 74 69 |window for initi|
00005680 61 6c 20 73 69 7a 65 0a 45 4e 44 50 52 4f 43 0a |al size.ENDPROC.|
00005690 0a 44 45 46 20 50 52 4f 43 73 70 72 69 74 65 28 |.DEF PROCsprite(|
000056a0 74 65 6d 70 24 29 20 20 20 20 20 20 20 20 20 20 |temp$) |
000056b0 20 20 20 3a 52 45 4d 20 6f 70 65 6e 20 73 70 72 | :REM open spr|
000056c0 69 74 65 20 6f 6e 20 73 61 76 65 61 73 20 77 69 |ite on saveas wi|
000056d0 6e 64 6f 77 0a 20 20 21 62 31 20 20 3d 20 73 61 |ndow. !b1 = sa|
000056e0 76 65 61 73 0a 20 20 62 31 21 34 20 3d 20 64 72 |veas. b1!4 = dr|
000056f0 61 67 69 63 6f 6e 0a 20 20 53 59 53 20 22 57 69 |agicon. SYS "Wi|
00005700 6d 70 5f 47 65 74 49 63 6f 6e 53 74 61 74 65 22 |mp_GetIconState"|
00005710 2c 2c 62 31 0a 0a 20 20 21 62 20 3d 20 73 61 76 |,,b1.. !b = sav|
00005720 65 61 73 0a 20 20 62 21 34 20 3d 20 64 72 61 67 |eas. b!4 = drag|
00005730 69 63 6f 6e 0a 20 20 53 59 53 20 22 57 69 6d 70 |icon. SYS "Wimp|
00005740 5f 44 65 6c 65 74 65 49 63 6f 6e 22 2c 2c 62 0a |_DeleteIcon",,b.|
00005750 0a 20 20 62 31 21 34 20 20 3d 20 73 61 76 65 61 |. b1!4 = savea|
00005760 73 0a 20 20 62 31 3f 32 34 20 3d 20 26 30 32 0a |s. b1?24 = &02.|
00005770 20 20 62 31 3f 32 35 20 3d 20 26 36 30 0a 20 20 | b1?25 = &60. |
00005780 24 28 62 31 2b 32 38 29 20 3d 20 74 65 6d 70 24 |$(b1+28) = temp$|
00005790 2b 43 48 52 24 28 31 33 29 0a 20 20 53 59 53 20 |+CHR$(13). SYS |
000057a0 22 57 69 6d 70 5f 43 72 65 61 74 65 49 63 6f 6e |"Wimp_CreateIcon|
000057b0 22 2c 2c 62 31 2b 34 0a 45 4e 44 50 52 4f 43 0a |",,b1+4.ENDPROC.|
000057c0 0a 44 45 46 20 50 52 4f 43 73 74 6f 72 65 28 69 |.DEF PROCstore(i|
000057d0 63 6f 6e 2c 20 52 45 54 55 52 4e 20 62 6c 6f 63 |con, RETURN bloc|
000057e0 6b 29 20 20 3a 52 45 4d 20 73 74 6f 72 65 20 61 |k) :REM store a|
000057f0 6e 20 69 63 6f 6e 20 73 74 72 75 63 74 75 72 65 |n icon structure|
00005800 20 69 6e 20 62 6c 6f 63 6b 0a 20 20 21 62 6c 6f | in block. !blo|
00005810 63 6b 20 20 3d 20 65 6e 74 72 79 0a 20 20 62 6c |ck = entry. bl|
00005820 6f 63 6b 21 34 20 3d 20 69 63 6f 6e 0a 20 20 53 |ock!4 = icon. S|
00005830 59 53 20 22 57 69 6d 70 5f 47 65 74 49 63 6f 6e |YS "Wimp_GetIcon|
00005840 53 74 61 74 65 22 2c 2c 62 6c 6f 63 6b 0a 20 20 |State",,block. |
00005850 0a 20 20 62 6c 6f 63 6b 21 34 20 3d 20 65 6e 74 |. block!4 = ent|
00005860 72 79 0a 20 20 62 6c 6f 63 6b 20 3d 20 62 6c 6f |ry. block = blo|
00005870 63 6b 2b 34 0a 45 4e 44 50 52 4f 43 0a 0a 44 45 |ck+4.ENDPROC..DE|
00005880 46 20 46 4e 69 6e 64 69 72 28 77 69 6e 64 6f 77 |F FNindir(window|
00005890 2c 20 69 63 6f 6e 29 20 20 20 20 20 20 20 20 20 |, icon) |
000058a0 3a 52 45 4d 20 66 69 6e 64 20 69 6e 64 69 72 65 |:REM find indire|
000058b0 63 74 65 64 20 73 74 72 69 6e 67 20 61 64 64 72 |cted string addr|
000058c0 65 73 73 0a 20 20 21 62 31 20 20 3d 20 77 69 6e |ess. !b1 = win|
000058d0 64 6f 77 0a 20 20 62 31 21 34 20 3d 20 69 63 6f |dow. b1!4 = ico|
000058e0 6e 0a 20 20 53 59 53 20 22 57 69 6d 70 5f 47 65 |n. SYS "Wimp_Ge|
000058f0 74 49 63 6f 6e 53 74 61 74 65 22 2c 2c 62 31 0a |tIconState",,b1.|
00005900 3d 62 31 21 32 38 0a 20 0a 44 45 46 20 50 52 4f |=b1!28. .DEF PRO|
00005910 43 6d 61 72 67 69 6e 28 6c 65 66 74 25 2c 20 72 |Cmargin(left%, r|
00005920 69 67 68 74 25 29 20 20 20 20 20 3a 52 45 4d 20 |ight%) :REM |
00005930 73 65 6e 64 20 70 72 69 6e 74 65 72 20 63 6f 64 |send printer cod|
00005940 65 73 20 66 6f 72 20 6c 65 66 74 20 61 6e 64 20 |es for left and |
00005950 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
00005960 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00005970 20 20 20 3a 52 45 4d 20 72 69 67 68 74 20 6d 61 | :REM right ma|
00005980 72 67 69 6e 73 2e 20 4f 6e 6c 79 20 73 65 6e 64 |rgins. Only send|
00005990 20 74 68 65 6d 0a 20 20 20 20 20 20 20 20 20 20 | them. |
000059a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000059b0 20 20 20 20 20 20 20 20 3a 52 45 4d 20 69 66 20 | :REM if |
000059c0 6d 61 72 67 69 6e 73 20 68 61 76 65 20 63 68 61 |margins have cha|
000059d0 6e 67 65 64 2c 20 73 69 6e 63 65 20 73 6f 6d 65 |nged, since some|
000059e0 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
000059f0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00005a00 20 20 20 3a 52 45 4d 20 70 72 69 6e 74 65 72 73 | :REM printers|
00005a10 20 6e 65 65 64 20 61 20 6c 69 6e 65 20 66 65 65 | need a line fee|
00005a20 64 20 74 6f 20 61 63 74 69 76 61 74 65 0a 20 20 |d to activate. |
00005a30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
*
00005a50 3a 52 45 4d 20 74 68 69 73 21 20 20 65 67 20 20 |:REM this! eg |
00005a60 43 61 6e 6e 6f 6e 20 42 4a 2d 31 30 65 0a 0a 20 |Cannon BJ-10e.. |
00005a70 20 49 46 20 28 4c 25 3c 3e 6c 65 66 74 25 29 20 | IF (L%<>left%) |
00005a80 4f 52 20 28 52 25 3c 3e 72 69 67 68 74 25 29 20 |OR (R%<>right%) |
00005a90 54 48 45 4e 0a 20 20 20 20 4c 25 3d 6c 65 66 74 |THEN. L%=left|
00005aa0 25 0a 20 20 20 20 52 25 3d 72 69 67 68 74 25 0a |%. R%=right%.|
00005ab0 0a 20 20 20 20 49 46 20 4d 61 72 67 69 6e 24 3d |. IF Margin$=|
00005ac0 22 22 20 54 48 45 4e 0a 20 20 20 20 20 20 50 52 |"" THEN. PR|
00005ad0 4f 43 70 72 69 6e 74 28 4c 4d 61 72 67 69 6e 24 |OCprint(LMargin$|
00005ae0 2b 43 48 52 24 28 4c 25 29 29 0a 20 20 20 20 20 |+CHR$(L%)). |
00005af0 20 50 52 4f 43 70 72 69 6e 74 28 52 4d 61 72 67 | PROCprint(RMarg|
00005b00 69 6e 24 2b 43 48 52 24 28 52 25 29 29 0a 20 20 |in$+CHR$(R%)). |
00005b10 20 20 45 4c 53 45 0a 20 20 20 20 20 20 50 52 4f | ELSE. PRO|
00005b20 43 70 72 69 6e 74 28 4d 61 72 67 69 6e 24 2b 43 |Cprint(Margin$+C|
00005b30 48 52 24 28 4c 25 29 2b 43 48 52 24 28 52 25 29 |HR$(L%)+CHR$(R%)|
00005b40 2b 6e 6c 24 29 20 0a 20 20 20 20 45 4e 44 49 46 |+nl$) . ENDIF|
00005b50 0a 20 20 45 4e 44 49 46 0a 45 4e 44 50 52 4f 43 |. ENDIF.ENDPROC|
00005b60 0a 0a 44 45 46 46 4e 73 65 74 73 74 79 6c 65 20 |..DEFFNsetstyle |
00005b70 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00005b80 3a 52 45 4d 20 53 65 74 20 70 72 69 6e 74 65 72 |:REM Set printer|
00005b90 20 63 6f 64 65 73 0a 20 20 50 24 20 3d 20 52 65 | codes. P$ = Re|
00005ba0 73 65 74 24 0a 0a 20 20 49 46 20 46 4e 73 74 61 |set$.. IF FNsta|
00005bb0 74 65 28 32 32 29 20 3a 50 24 2b 3d 4e 4c 51 4f |te(22) :P$+=NLQO|
00005bc0 6e 24 0a 0a 20 20 49 46 20 46 4e 73 74 61 74 65 |n$.. IF FNstate|
00005bd0 28 39 29 20 20 3a 50 24 2b 3d 45 78 70 61 6e 64 |(9) :P$+=Expand|
00005be0 4f 6e 24 0a 20 20 49 46 20 46 4e 73 74 61 74 65 |On$. IF FNstate|
00005bf0 28 31 30 29 20 3a 50 24 2b 3d 45 6c 69 74 65 4f |(10) :P$+=EliteO|
00005c00 6e 24 2b 45 78 70 61 6e 64 4f 6e 24 0a 20 20 49 |n$+ExpandOn$. I|
00005c10 46 20 46 4e 73 74 61 74 65 28 31 32 29 20 3a 50 |F FNstate(12) :P|
00005c20 24 2b 3d 45 6c 69 74 65 4f 6e 24 0a 20 20 49 46 |$+=EliteOn$. IF|
00005c30 20 46 4e 73 74 61 74 65 28 31 33 29 20 3a 50 24 | FNstate(13) :P$|
00005c40 2b 3d 43 6f 6e 64 65 6e 73 65 4f 6e 24 0a 20 20 |+=CondenseOn$. |
00005c50 49 46 20 46 4e 73 74 61 74 65 28 31 34 29 20 3a |IF FNstate(14) :|
00005c60 50 24 2b 3d 45 6c 69 74 65 4f 6e 24 2b 43 6f 6e |P$+=EliteOn$+Con|
00005c70 64 65 6e 73 65 4f 6e 24 0a 0a 20 20 49 46 20 46 |denseOn$.. IF F|
00005c80 4e 73 74 61 74 65 28 31 36 29 20 3a 50 24 2b 3d |Nstate(16) :P$+=|
00005c90 45 6d 70 68 4f 6e 24 0a 20 20 49 46 20 46 4e 73 |EmphOn$. IF FNs|
00005ca0 74 61 74 65 28 31 37 29 20 3a 50 24 2b 3d 42 6f |tate(17) :P$+=Bo|
00005cb0 6c 64 4f 6e 24 0a 20 20 49 46 20 46 4e 73 74 61 |ldOn$. IF FNsta|
00005cc0 74 65 28 31 38 29 20 3a 50 24 2b 3d 45 6d 70 68 |te(18) :P$+=Emph|
00005cd0 4f 6e 24 2b 42 6f 6c 64 4f 6e 24 0a 0a 20 20 49 |On$+BoldOn$.. I|
00005ce0 46 20 46 4e 73 74 61 74 65 28 32 30 29 20 3a 50 |F FNstate(20) :P|
00005cf0 24 2b 3d 49 74 61 6c 69 63 4f 6e 24 0a 0a 20 20 |$+=ItalicOn$.. |
00005d00 49 46 20 46 4e 73 74 61 74 65 28 32 34 29 20 3a |IF FNstate(24) :|
00005d10 50 24 2b 3d 53 75 70 65 72 4f 6e 24 0a 20 20 49 |P$+=SuperOn$. I|
00005d20 46 20 46 4e 73 74 61 74 65 28 32 35 29 20 3a 50 |F FNstate(25) :P|
00005d30 24 2b 3d 53 75 62 4f 6e 24 0a 0a 20 20 49 46 20 |$+=SubOn$.. IF |
00005d40 46 4e 73 74 61 74 65 28 32 37 29 20 3a 50 24 2b |FNstate(27) :P$+|
00005d50 3d 44 6f 75 62 4f 6e 24 0a 20 20 49 46 20 46 4e |=DoubOn$. IF FN|
00005d60 73 74 61 74 65 28 32 38 29 20 3a 50 24 2b 3d 51 |state(28) :P$+=Q|
00005d70 75 61 64 4f 6e 24 0a 0a 20 20 49 46 20 46 4e 73 |uadOn$.. IF FNs|
00005d80 74 61 74 65 28 33 31 29 20 3a 50 24 2b 3d 43 65 |tate(31) :P$+=Ce|
00005d90 6e 74 72 65 24 0a 20 20 49 46 20 46 4e 73 74 61 |ntre$. IF FNsta|
00005da0 74 65 28 38 29 20 20 3a 50 24 2b 3d 52 69 67 68 |te(8) :P$+=Righ|
00005db0 74 24 0a 3d 50 24 0a 0a 44 45 46 20 50 52 4f 43 |t$.=P$..DEF PROC|
00005dc0 67 72 65 79 28 4f 6e 4f 66 66 29 0a 20 20 49 46 |grey(OnOff). IF|
00005dd0 20 45 6d 70 68 4f 6e 24 3d 22 22 20 20 20 3a 50 | EmphOn$="" :P|
00005de0 52 4f 43 67 72 65 79 69 63 6f 6e 28 31 36 29 3a |ROCgreyicon(16):|
00005df0 20 50 52 4f 43 67 72 65 79 69 63 6f 6e 28 31 38 | PROCgreyicon(18|
00005e00 29 0a 20 20 49 46 20 42 6f 6c 64 4f 6e 24 3d 22 |). IF BoldOn$="|
00005e10 22 20 20 20 3a 50 52 4f 43 67 72 65 79 69 63 6f |" :PROCgreyico|
00005e20 6e 28 31 37 29 3a 20 50 52 4f 43 67 72 65 79 69 |n(17): PROCgreyi|
00005e30 63 6f 6e 28 31 38 29 0a 20 20 49 46 20 49 74 61 |con(18). IF Ita|
00005e40 6c 69 63 4f 6e 24 3d 22 22 20 3a 50 52 4f 43 67 |licOn$="" :PROCg|
00005e50 72 65 79 69 63 6f 6e 28 31 39 29 3a 20 50 52 4f |reyicon(19): PRO|
00005e60 43 67 72 65 79 69 63 6f 6e 28 32 30 29 0a 20 20 |Cgreyicon(20). |
00005e70 49 46 20 4e 4c 51 4f 6e 24 3d 22 22 20 20 20 20 |IF NLQOn$="" |
00005e80 3a 50 52 4f 43 67 72 65 79 69 63 6f 6e 28 32 31 |:PROCgreyicon(21|
00005e90 29 3a 20 50 52 4f 43 67 72 65 79 69 63 6f 6e 28 |): PROCgreyicon(|
00005ea0 32 32 29 0a 20 20 49 46 20 44 6f 75 62 4f 6e 24 |22). IF DoubOn$|
00005eb0 3d 22 22 20 20 20 3a 50 52 4f 43 67 72 65 79 69 |="" :PROCgreyi|
00005ec0 63 6f 6e 28 32 36 29 3a 20 50 52 4f 43 67 72 65 |con(26): PROCgre|
00005ed0 79 69 63 6f 6e 28 32 37 29 0a 20 20 49 46 20 51 |yicon(27). IF Q|
00005ee0 75 61 64 4f 6e 24 3d 22 22 20 20 20 3a 50 52 4f |uadOn$="" :PRO|
00005ef0 43 67 72 65 79 69 63 6f 6e 28 32 38 29 0a 20 20 |Cgreyicon(28). |
00005f00 49 46 20 4c 65 66 74 24 3d 22 22 20 20 20 20 20 |IF Left$="" |
00005f10 3a 50 52 4f 43 67 72 65 79 69 63 6f 6e 28 33 30 |:PROCgreyicon(30|
00005f20 29 3a 50 52 4f 43 67 72 65 79 69 63 6f 6e 28 33 |):PROCgreyicon(3|
00005f30 31 29 3a 50 52 4f 43 67 72 65 79 69 63 6f 6e 28 |1):PROCgreyicon(|
00005f40 38 29 0a 45 4e 44 50 52 4f 43 0a 0a 44 45 46 20 |8).ENDPROC..DEF |
00005f50 50 52 4f 43 67 72 65 79 69 63 6f 6e 28 69 63 6f |PROCgreyicon(ico|
00005f60 6e 29 0a 20 20 21 62 20 20 20 3d 20 73 65 74 75 |n). !b = setu|
00005f70 70 0a 20 20 62 21 34 20 20 3d 20 69 63 6f 6e 0a |p. b!4 = icon.|
00005f80 0a 20 20 49 46 20 4f 6e 4f 66 66 3d 31 20 54 48 |. IF OnOff=1 TH|
00005f90 45 4e 0a 20 20 20 20 62 21 38 20 3d 20 25 31 30 |EN. b!8 = %10|
00005fa0 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 |0000000000000000|
00005fb0 30 30 30 30 30 0a 20 20 45 4c 53 45 0a 20 20 20 |00000. ELSE. |
00005fc0 20 62 21 38 20 3d 20 25 30 30 30 30 30 30 30 30 | b!8 = %00000000|
00005fd0 30 30 30 30 30 30 30 30 30 30 30 30 30 30 30 0a |000000000000000.|
00005fe0 20 20 45 4e 44 49 46 0a 0a 20 20 62 21 31 32 20 | ENDIF.. b!12 |
00005ff0 3d 20 25 31 30 30 30 30 30 30 30 30 30 30 30 30 |= %1000000000000|
00006000 30 30 30 30 30 30 30 30 30 30 0a 20 20 53 59 53 |0000000000. SYS|
00006010 20 22 57 69 6d 70 5f 53 65 74 49 63 6f 6e 53 74 | "Wimp_SetIconSt|
00006020 61 74 65 22 2c 2c 62 0a 45 4e 44 50 52 4f 43 0a |ate",,b.ENDPROC.|
00006030 0a 44 45 46 20 50 52 4f 43 70 72 69 6e 74 28 61 |.DEF PROCprint(a|
00006040 24 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |$) |
00006050 20 20 20 20 20 3a 52 45 4d 20 73 65 6e 64 20 74 | :REM send t|
00006060 65 78 74 20 74 6f 20 70 72 69 6e 74 65 72 0a 20 |ext to printer. |
00006070 20 2a 46 58 33 2c 31 30 0a 20 20 2a 46 58 36 2c | *FX3,10. *FX6,|
00006080 32 35 34 0a 20 20 50 52 49 4e 54 20 61 24 3b 0a |254. PRINT a$;.|
00006090 20 20 2a 46 58 36 2c 31 30 0a 20 20 2a 46 58 33 | *FX6,10. *FX3|
000060a0 2c 30 0a 45 4e 44 50 52 4f 43 0a 0a 44 45 46 20 |,0.ENDPROC..DEF |
000060b0 46 4e 62 75 66 66 65 72 20 20 20 20 20 20 20 20 |FNbuffer |
000060c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000060d0 3a 52 45 4d 20 70 72 69 6e 74 65 72 20 6f 6e 3f |:REM printer on?|
000060e0 0a 20 20 49 46 20 46 4e 70 72 69 6e 74 65 72 4f |. IF FNprinterO|
000060f0 6e 3a 20 3d 54 52 55 45 0a 0a 20 20 52 45 50 45 |n: =TRUE.. REPE|
00006100 41 54 0a 20 20 20 20 21 62 3d 33 30 0a 20 20 20 |AT. !b=30. |
00006110 20 24 28 62 2b 34 29 3d 22 50 72 69 6e 74 65 72 | $(b+4)="Printer|
00006120 20 6e 6f 74 20 72 65 61 64 79 22 0a 20 20 20 20 | not ready". |
00006130 53 59 53 20 22 57 69 6d 70 5f 52 65 70 6f 72 74 |SYS "Wimp_Report|
00006140 45 72 72 6f 72 22 2c 20 62 2c 20 33 2c 20 22 21 |Error", b, 3, "!|
00006150 4f 6e 65 50 72 69 6e 74 22 20 54 4f 20 2c 72 65 |OnePrint" TO ,re|
00006160 73 70 6f 6e 73 65 25 0a 20 20 20 20 49 46 20 72 |sponse%. IF r|
00006170 65 73 70 6f 6e 73 65 25 3d 32 3a 20 3d 46 41 4c |esponse%=2: =FAL|
00006180 53 45 20 20 20 20 20 20 20 20 20 20 20 20 20 3a |SE :|
00006190 52 45 4d 20 75 73 65 72 20 63 61 6e 63 65 6c 6c |REM user cancell|
000061a0 65 64 0a 0a 20 20 20 20 52 45 4d 20 63 6c 65 61 |ed.. REM clea|
000061b0 72 20 70 72 69 6e 74 65 72 20 62 75 66 66 65 72 |r printer buffer|
000061c0 20 28 43 61 6e 6e 6f 6e 20 42 4a 31 30 65 20 73 | (Cannon BJ10e s|
000061d0 65 65 6d 73 20 74 6f 20 6e 65 65 64 20 74 68 69 |eems to need thi|
000061e0 73 3f 29 0a 20 20 20 20 2a 46 58 32 31 2c 33 0a |s?). *FX21,3.|
000061f0 20 20 55 4e 54 49 4c 20 46 4e 70 72 69 6e 74 65 | UNTIL FNprinte|
00006200 72 4f 6e 0a 3d 54 52 55 45 0a 0a 44 45 46 20 46 |rOn.=TRUE..DEF F|
00006210 4e 70 72 69 6e 74 65 72 4f 6e 0a 20 20 73 74 61 |NprinterOn. sta|
00006220 72 74 73 69 7a 65 3d 41 44 56 41 4c 28 2d 34 29 |rtsize=ADVAL(-4)|
00006230 0a 20 20 2a 46 58 33 2c 31 30 0a 20 20 56 44 55 |. *FX3,10. VDU|
00006240 20 30 2c 30 20 20 20 20 20 20 20 20 20 20 20 20 | 0,0 |
00006250 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00006260 20 20 3a 52 45 4d 20 73 65 6e 64 20 61 20 6e 75 | :REM send a nu|
00006270 6c 6c 20 63 6f 64 65 2e 0a 20 20 2a 46 58 33 2c |ll code.. *FX3,|
00006280 30 0a 20 20 74 69 6d 65 3d 54 49 4d 45 2b 35 3a |0. time=TIME+5:|
00006290 52 45 50 45 41 54 20 55 4e 54 49 4c 20 54 49 4d |REPEAT UNTIL TIM|
000062a0 45 3e 74 69 6d 65 20 20 20 3a 52 45 4d 20 61 6c |E>time :REM al|
000062b0 6c 6f 77 20 73 6f 6d 65 20 74 69 6d 65 20 66 6f |low some time fo|
000062c0 72 20 70 72 69 6e 74 65 72 0a 20 20 65 6e 64 73 |r printer. ends|
000062d0 69 7a 65 3d 41 44 56 41 4c 28 2d 34 29 20 20 20 |ize=ADVAL(-4) |
000062e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000062f0 20 3a 52 45 4d 20 74 6f 20 73 77 61 6c 6c 6f 77 | :REM to swallow|
00006300 20 64 61 74 61 2e 0a 0a 20 20 49 46 20 65 6e 64 | data... IF end|
00006310 73 69 7a 65 3e 3d 73 74 61 72 74 73 69 7a 65 3a |size>=startsize:|
00006320 20 3d 54 52 55 45 0a 3d 46 41 4c 53 45 0a 20 0a | =TRUE.=FALSE. .|
00006330 44 45 46 46 4e 63 68 72 28 61 25 2c 62 25 2c 63 |DEFFNchr(a%,b%,c|
00006340 25 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |%) |
00006350 20 20 3a 52 45 4d 20 63 6f 6e 74 72 75 63 74 20 | :REM contruct |
00006360 61 20 73 74 72 69 6e 67 20 6f 66 20 63 6f 6e 74 |a string of cont|
00006370 72 6f 6c 20 63 6f 64 65 73 0a 20 20 49 46 20 63 |rol codes. IF c|
00006380 25 3d 2d 31 20 41 4e 44 20 62 25 3d 2d 31 3a 20 |%=-1 AND b%=-1: |
00006390 3d 43 48 52 24 28 61 25 29 0a 20 20 49 46 20 63 |=CHR$(a%). IF c|
000063a0 25 3d 2d 31 3a 3d 43 48 52 24 28 61 25 29 2b 43 |%=-1:=CHR$(a%)+C|
000063b0 48 52 24 28 62 25 29 0a 20 20 3d 43 48 52 24 28 |HR$(b%). =CHR$(|
000063c0 61 25 29 2b 43 48 52 24 28 62 25 29 2b 43 48 52 |a%)+CHR$(b%)+CHR|
000063d0 24 28 63 25 29 0a 20 0a 44 45 46 50 52 4f 43 65 |$(c%). .DEFPROCe|
000063e0 78 61 6d 70 6c 65 20 20 20 20 20 20 20 20 20 20 |xample |
000063f0 20 20 20 20 20 20 20 20 20 20 3a 52 45 4d 20 65 | :REM e|
00006400 78 61 6d 70 6c 65 20 74 65 78 74 0a 20 20 50 52 |xample text. PR|
00006410 4f 43 6d 61 72 67 69 6e 28 30 2c 38 30 29 20 20 |OCmargin(0,80) |
00006420 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 52 | :R|
00006430 45 4d 20 73 65 74 20 6d 61 72 67 69 6e 73 20 74 |EM set margins t|
00006440 6f 20 66 75 6c 6c 20 77 69 64 74 68 0a 20 20 54 |o full width. T|
00006450 24 3d 22 54 68 69 73 20 69 73 20 22 3a 49 24 3d |$="This is ":I$=|
00006460 22 20 63 68 61 72 61 63 74 65 72 73 20 70 65 72 |" characters per|
00006470 20 69 6e 63 68 29 22 0a 20 20 49 46 20 46 4e 62 | inch)". IF FNb|
00006480 75 66 66 65 72 3d 46 41 4c 53 45 3a 20 45 4e 44 |uffer=FALSE: END|
00006490 50 52 4f 43 0a 20 20 50 52 4f 43 70 72 69 6e 74 |PROC. PROCprint|
000064a0 28 52 65 73 65 74 24 2b 45 78 70 61 6e 64 4f 6e |(Reset$+ExpandOn|
000064b0 24 2b 54 24 2b 22 65 78 70 61 6e 64 65 64 20 50 |$+T$+"expanded P|
000064c0 69 63 61 20 28 35 20 70 65 72 20 69 6e 63 68 29 |ica (5 per inch)|
000064d0 22 2b 6e 6c 24 29 0a 20 20 50 52 4f 43 70 72 69 |"+nl$). PROCpri|
000064e0 6e 74 28 52 65 73 65 74 24 2b 45 6c 69 74 65 4f |nt(Reset$+EliteO|
000064f0 6e 24 2b 45 78 70 61 6e 64 4f 6e 24 2b 54 24 2b |n$+ExpandOn$+T$+|
00006500 22 65 78 70 61 6e 64 65 64 20 45 6c 69 74 65 20 |"expanded Elite |
00006510 28 36 20 70 65 72 20 69 6e 63 68 29 22 2b 6e 6c |(6 per inch)"+nl|
00006520 24 29 0a 20 20 50 52 4f 43 70 72 69 6e 74 28 52 |$). PROCprint(R|
00006530 65 73 65 74 24 2b 54 24 2b 22 50 69 63 61 20 28 |eset$+T$+"Pica (|
00006540 31 30 22 2b 49 24 2b 6e 6c 24 29 0a 20 20 50 52 |10"+I$+nl$). PR|
00006550 4f 43 70 72 69 6e 74 28 52 65 73 65 74 24 2b 45 |OCprint(Reset$+E|
00006560 6c 69 74 65 4f 6e 24 2b 54 24 2b 22 45 6c 69 74 |liteOn$+T$+"Elit|
00006570 65 20 28 31 32 22 2b 49 24 2b 6e 6c 24 29 0a 20 |e (12"+I$+nl$). |
00006580 20 50 52 4f 43 70 72 69 6e 74 28 52 65 73 65 74 | PROCprint(Reset|
00006590 24 2b 43 6f 6e 64 65 6e 73 65 4f 6e 24 2b 54 24 |$+CondenseOn$+T$|
000065a0 2b 22 63 6f 6e 64 65 6e 73 65 64 20 50 69 63 61 |+"condensed Pica|
000065b0 20 28 31 37 22 2b 49 24 2b 6e 6c 24 29 0a 20 20 | (17"+I$+nl$). |
000065c0 50 52 4f 43 70 72 69 6e 74 28 52 65 73 65 74 24 |PROCprint(Reset$|
000065d0 2b 45 6c 69 74 65 4f 6e 24 2b 43 6f 6e 64 65 6e |+EliteOn$+Conden|
000065e0 73 65 4f 6e 24 2b 54 24 2b 22 63 6f 6e 64 65 6e |seOn$+T$+"conden|
000065f0 73 65 64 20 45 6c 69 74 65 20 28 32 30 22 2b 49 |sed Elite (20"+I|
00006600 24 2b 6e 6c 24 29 0a 20 20 50 52 4f 43 70 72 69 |$+nl$). PROCpri|
00006610 6e 74 28 52 65 73 65 74 24 2b 6e 6c 24 29 0a 0a |nt(Reset$+nl$)..|
00006620 20 20 50 52 4f 43 70 72 69 6e 74 28 52 65 73 65 | PROCprint(Rese|
00006630 74 24 2b 54 24 2b 22 73 69 6e 67 6c 65 20 73 74 |t$+T$+"single st|
00006640 72 69 6b 65 22 2b 6e 6c 24 29 0a 20 20 50 52 4f |rike"+nl$). PRO|
00006650 43 70 72 69 6e 74 28 52 65 73 65 74 24 2b 45 6d |Cprint(Reset$+Em|
00006660 70 68 4f 6e 24 2b 54 24 2b 22 65 6d 70 68 61 73 |phOn$+T$+"emphas|
00006670 69 7a 65 64 20 70 72 69 6e 74 69 6e 67 22 2b 6e |ized printing"+n|
00006680 6c 24 29 0a 20 20 50 52 4f 43 70 72 69 6e 74 28 |l$). PROCprint(|
00006690 52 65 73 65 74 24 2b 42 6f 6c 64 4f 6e 24 2b 54 |Reset$+BoldOn$+T|
000066a0 24 2b 22 62 6f 6c 64 20 70 72 69 6e 74 69 6e 67 |$+"bold printing|
000066b0 22 2b 6e 6c 24 29 0a 20 20 50 52 4f 43 70 72 69 |"+nl$). PROCpri|
000066c0 6e 74 28 52 65 73 65 74 24 2b 45 6d 70 68 4f 6e |nt(Reset$+EmphOn|
000066d0 24 2b 54 24 2b 22 65 6d 70 68 61 73 69 7a 65 64 |$+T$+"emphasized|
000066e0 20 61 6e 64 20 62 6f 6c 64 22 2b 6e 6c 24 29 0a | and bold"+nl$).|
000066f0 20 20 50 52 4f 43 70 72 69 6e 74 28 52 65 73 65 | PROCprint(Rese|
00006700 74 24 2b 6e 6c 24 29 0a 0a 20 20 49 46 20 49 74 |t$+nl$).. IF It|
00006710 61 6c 69 63 4f 6e 24 3c 3e 22 22 20 3a 50 52 4f |alicOn$<>"" :PRO|
00006720 43 70 72 69 6e 74 28 52 65 73 65 74 24 2b 49 74 |Cprint(Reset$+It|
00006730 61 6c 69 63 4f 6e 24 2b 54 24 2b 22 69 74 61 6c |alicOn$+T$+"ital|
00006740 69 63 20 73 74 79 6c 65 22 2b 6e 6c 24 29 0a 20 |ic style"+nl$). |
00006750 20 50 52 4f 43 70 72 69 6e 74 28 52 65 73 65 74 | PROCprint(Reset|
00006760 24 2b 4e 4c 51 4f 6e 24 2b 54 24 2b 22 4e 4c 51 |$+NLQOn$+T$+"NLQ|
00006770 20 28 4e 65 61 72 20 6c 65 74 74 65 72 20 71 75 | (Near letter qu|
00006780 61 6c 69 74 79 29 22 2b 6e 6c 24 29 0a 20 20 49 |ality)"+nl$). I|
00006790 46 20 49 74 61 6c 69 63 4f 6e 24 3c 3e 22 22 20 |F ItalicOn$<>"" |
000067a0 3a 50 52 4f 43 70 72 69 6e 74 28 52 65 73 65 74 |:PROCprint(Reset|
000067b0 24 2b 4e 4c 51 4f 6e 24 2b 49 74 61 6c 69 63 4f |$+NLQOn$+ItalicO|
000067c0 6e 24 2b 54 24 2b 22 4e 4c 51 20 69 6e 20 69 74 |n$+T$+"NLQ in it|
000067d0 61 6c 69 63 20 73 74 79 6c 65 22 2b 6e 6c 24 29 |alic style"+nl$)|
000067e0 0a 0a 20 20 50 52 4f 43 70 72 69 6e 74 28 52 65 |.. PROCprint(Re|
000067f0 73 65 74 24 2b 6e 6c 24 29 0a 20 20 50 52 4f 43 |set$+nl$). PROC|
00006800 70 72 69 6e 74 28 52 65 73 65 74 24 2b 54 24 2b |print(Reset$+T$+|
00006810 22 6e 6f 72 6d 61 6c 20 22 29 0a 20 20 50 52 4f |"normal "). PRO|
00006820 43 70 72 69 6e 74 28 53 75 70 65 72 4f 6e 24 2b |Cprint(SuperOn$+|
00006830 54 24 2b 22 73 75 70 65 72 73 63 72 69 70 74 20 |T$+"superscript |
00006840 22 29 0a 20 20 50 52 4f 43 70 72 69 6e 74 28 53 |"). PROCprint(S|
00006850 75 62 4f 6e 24 2b 54 24 2b 22 73 75 62 73 63 72 |ubOn$+T$+"subscr|
00006860 69 70 74 22 2b 6e 6c 24 29 0a 0a 20 20 50 52 4f |ipt"+nl$).. PRO|
00006870 43 70 72 69 6e 74 28 52 65 73 65 74 24 2b 43 6f |Cprint(Reset$+Co|
00006880 6e 64 65 6e 73 65 4f 6e 24 2b 54 24 2b 22 63 6f |ndenseOn$+T$+"co|
00006890 6e 64 65 6e 73 65 64 20 22 29 0a 20 20 50 52 4f |ndensed "). PRO|
000068a0 43 70 72 69 6e 74 28 53 75 70 65 72 4f 6e 24 2b |Cprint(SuperOn$+|
000068b0 54 24 2b 22 73 75 70 65 72 73 63 72 69 70 74 20 |T$+"superscript |
000068c0 22 29 0a 20 20 50 52 4f 43 70 72 69 6e 74 28 53 |"). PROCprint(S|
000068d0 75 62 4f 6e 24 2b 54 24 2b 22 73 75 62 73 63 72 |ubOn$+T$+"subscr|
000068e0 69 70 74 22 2b 6e 6c 24 2b 6e 6c 24 29 0a 0a 20 |ipt"+nl$+nl$).. |
000068f0 20 50 52 4f 43 70 72 69 6e 74 28 46 4e 73 65 74 | PROCprint(FNset|
00006900 73 74 79 6c 65 29 20 20 20 20 20 20 20 20 20 20 |style) |
00006910 20 20 20 20 20 20 20 20 20 3a 52 45 4d 20 72 65 | :REM re|
00006920 73 65 74 20 74 6f 20 6f 70 74 69 6f 6e 73 20 77 |set to options w|
00006930 69 6e 64 6f 77 0a 20 20 50 52 4f 43 6d 61 72 67 |indow. PROCmarg|
00006940 69 6e 28 56 41 4c 28 24 6c 65 66 74 29 2c 56 41 |in(VAL($left),VA|
00006950 4c 28 24 72 69 67 68 74 29 29 20 20 20 20 20 20 |L($right)) |
00006960 3a 52 45 4d 20 72 65 73 65 74 20 6d 61 72 67 69 |:REM reset margi|
00006970 6e 73 0a 45 4e 44 50 52 4f 43 0a 0a 44 45 46 20 |ns.ENDPROC..DEF |
00006980 50 52 4f 43 73 65 74 63 6f 64 65 73 0a 20 20 52 |PROCsetcodes. R|
00006990 45 4d 20 53 65 74 20 63 6f 64 65 73 20 66 6f 72 |EM Set codes for|
000069a0 20 70 72 69 6e 74 65 72 0a 20 20 52 45 4d 20 2d | printer. REM -|
000069b0 31 20 6d 65 61 6e 73 20 73 68 6f 72 74 20 63 6f |1 means short co|
000069c0 64 65 73 20 0a 0a 20 20 6e 6c 24 20 20 20 20 20 |des .. nl$ |
000069d0 20 20 20 20 20 3d 43 48 52 24 28 31 33 29 20 20 | =CHR$(13) |
000069e0 20 20 20 20 20 20 20 20 3a 52 45 4d 20 6e 65 77 | :REM new|
000069f0 20 6c 69 6e 65 20 63 68 61 72 61 63 74 65 72 0a | line character.|
00006a00 20 20 50 69 63 61 4f 6e 24 20 20 20 20 20 20 3d | PicaOn$ =|
00006a10 46 4e 63 68 72 28 32 37 2c 20 38 30 2c 2d 31 29 |FNchr(27, 80,-1)|
00006a20 0a 20 20 45 6c 69 74 65 4f 6e 24 20 20 20 20 20 |. EliteOn$ |
00006a30 3d 46 4e 63 68 72 28 32 37 2c 20 37 37 2c 2d 31 |=FNchr(27, 77,-1|
00006a40 29 0a 20 20 45 78 70 61 6e 64 4f 6e 24 20 20 20 |). ExpandOn$ |
00006a50 20 3d 46 4e 63 68 72 28 32 37 2c 20 38 37 2c 20 | =FNchr(27, 87, |
00006a60 31 29 0a 20 20 45 78 70 61 6e 64 4f 66 66 24 20 |1). ExpandOff$ |
00006a70 20 20 3d 46 4e 63 68 72 28 32 37 2c 20 38 37 2c | =FNchr(27, 87,|
00006a80 20 30 29 0a 20 20 43 6f 6e 64 65 6e 73 65 4f 6e | 0). CondenseOn|
00006a90 24 20 20 3d 46 4e 63 68 72 28 31 35 2c 20 2d 31 |$ =FNchr(15, -1|
00006aa0 2c 2d 31 29 0a 20 20 43 6f 6e 64 65 6e 73 65 4f |,-1). CondenseO|
00006ab0 66 66 24 20 3d 46 4e 63 68 72 28 31 38 2c 20 2d |ff$ =FNchr(18, -|
00006ac0 31 2c 2d 31 29 0a 20 20 45 6d 70 68 4f 6e 24 20 |1,-1). EmphOn$ |
00006ad0 20 20 20 20 20 3d 46 4e 63 68 72 28 32 37 2c 20 | =FNchr(27, |
00006ae0 36 39 2c 2d 31 29 0a 20 20 45 6d 70 68 4f 66 66 |69,-1). EmphOff|
00006af0 24 20 20 20 20 20 3d 46 4e 63 68 72 28 32 37 2c |$ =FNchr(27,|
00006b00 20 37 30 2c 2d 31 29 0a 20 20 42 6f 6c 64 4f 6e | 70,-1). BoldOn|
00006b10 24 20 20 20 20 20 20 3d 46 4e 63 68 72 28 32 37 |$ =FNchr(27|
00006b20 2c 20 37 31 2c 2d 31 29 0a 20 20 42 6f 6c 64 4f |, 71,-1). BoldO|
00006b30 66 66 24 20 20 20 20 20 3d 46 4e 63 68 72 28 32 |ff$ =FNchr(2|
00006b40 37 2c 20 37 32 2c 2d 31 29 0a 20 20 49 74 61 6c |7, 72,-1). Ital|
00006b50 69 63 4f 6e 24 20 20 20 20 3d 46 4e 63 68 72 28 |icOn$ =FNchr(|
00006b60 32 37 2c 20 35 32 2c 2d 31 29 0a 20 20 49 74 61 |27, 52,-1). Ita|
00006b70 6c 69 63 4f 66 66 24 20 20 20 3d 46 4e 63 68 72 |licOff$ =FNchr|
00006b80 28 32 37 2c 20 35 33 2c 2d 31 29 0a 20 20 4e 4c |(27, 53,-1). NL|
00006b90 51 4f 6e 24 20 20 20 20 20 20 20 3d 46 4e 63 68 |QOn$ =FNch|
00006ba0 72 28 32 37 2c 31 32 30 2c 20 31 29 0a 20 20 4e |r(27,120, 1). N|
00006bb0 4c 51 4f 66 66 24 20 20 20 20 20 20 3d 46 4e 63 |LQOff$ =FNc|
00006bc0 68 72 28 32 37 2c 31 32 30 2c 20 30 29 0a 20 20 |hr(27,120, 0). |
00006bd0 53 75 70 65 72 4f 6e 24 20 20 20 20 20 3d 46 4e |SuperOn$ =FN|
00006be0 63 68 72 28 32 37 2c 20 38 33 2c 20 30 29 0a 20 |chr(27, 83, 0). |
00006bf0 20 53 75 62 4f 6e 24 20 20 20 20 20 20 20 3d 46 | SubOn$ =F|
00006c00 4e 63 68 72 28 32 37 2c 20 38 33 2c 20 31 29 0a |Nchr(27, 83, 1).|
00006c10 20 20 53 75 62 4f 66 66 24 20 20 20 20 20 20 3d | SubOff$ =|
00006c20 46 4e 63 68 72 28 32 37 2c 20 38 34 2c 2d 31 29 |FNchr(27, 84,-1)|
00006c30 0a 20 20 44 6f 75 62 4f 6e 24 20 20 20 20 20 20 |. DoubOn$ |
00006c40 3d 46 4e 63 68 72 28 32 37 2c 31 30 34 2c 20 31 |=FNchr(27,104, 1|
00006c50 29 0a 20 20 51 75 61 64 4f 6e 24 20 20 20 20 20 |). QuadOn$ |
00006c60 20 3d 46 4e 63 68 72 28 32 37 2c 31 30 34 2c 20 | =FNchr(27,104, |
00006c70 32 29 20 0a 20 20 44 6f 75 62 4f 66 66 24 20 20 |2) . DoubOff$ |
00006c80 20 20 20 3d 46 4e 63 68 72 28 32 37 2c 31 30 34 | =FNchr(27,104|
00006c90 2c 20 30 29 0a 20 20 4c 65 66 74 24 20 20 20 20 |, 0). Left$ |
00006ca0 20 20 20 20 3d 46 4e 63 68 72 28 32 37 2c 20 39 | =FNchr(27, 9|
00006cb0 37 2c 20 30 29 0a 20 20 43 65 6e 74 72 65 24 20 |7, 0). Centre$ |
00006cc0 20 20 20 20 20 3d 46 4e 63 68 72 28 32 37 2c 20 | =FNchr(27, |
00006cd0 39 37 2c 20 31 29 0a 20 20 52 69 67 68 74 24 20 |97, 1). Right$ |
00006ce0 20 20 20 20 20 20 3d 46 4e 63 68 72 28 32 37 2c | =FNchr(27,|
00006cf0 20 39 37 2c 20 32 29 0a 20 20 4d 61 72 67 69 6e | 97, 2). Margin|
00006d00 24 20 20 20 20 20 20 3d 20 22 22 0a 20 20 4c 4d |$ = "". LM|
00006d10 61 72 67 69 6e 24 20 20 20 20 20 3d 46 4e 63 68 |argin$ =FNch|
00006d20 72 28 32 37 2c 31 30 38 2c 2d 31 29 0a 20 20 52 |r(27,108,-1). R|
00006d30 4d 61 72 67 69 6e 24 20 20 20 20 20 3d 46 4e 63 |Margin$ =FNc|
00006d40 68 72 28 32 37 2c 20 38 31 2c 2d 31 29 0a 0a 20 |hr(27, 81,-1).. |
00006d50 20 52 45 4d 20 79 6f 75 20 6f 6e 6c 79 20 6e 65 | REM you only ne|
00006d60 65 64 20 74 6f 20 73 65 74 20 69 74 65 6d 73 20 |ed to set items |
00006d70 74 68 61 74 20 64 69 66 66 65 72 20 66 72 6f 6d |that differ from|
00006d80 20 64 65 66 61 75 6c 74 73 2e 0a 20 20 49 46 20 | defaults.. IF |
00006d90 50 72 69 6e 74 65 72 24 20 3d 20 22 43 61 6e 6e |Printer$ = "Cann|
00006da0 6f 6e 20 42 4a 31 30 65 22 20 54 48 45 4e 0a 20 |on BJ10e" THEN. |
00006db0 20 20 20 50 69 63 61 4f 6e 24 20 20 20 20 20 20 | PicaOn$ |
00006dc0 3d 46 4e 63 68 72 28 32 37 2c 37 33 2c 30 29 0a |=FNchr(27,73,0).|
00006dd0 20 20 20 20 45 6c 69 74 65 4f 6e 24 20 20 20 20 | EliteOn$ |
00006de0 20 3d 46 4e 63 68 72 28 32 37 2c 35 38 2c 2d 31 | =FNchr(27,58,-1|
00006df0 29 0a 20 20 20 20 4e 4c 51 4f 6e 24 20 20 20 20 |). NLQOn$ |
00006e00 20 20 20 3d 46 4e 63 68 72 28 32 37 2c 37 33 2c | =FNchr(27,73,|
00006e10 32 29 0a 20 20 20 20 4e 4c 51 4f 66 66 24 20 20 |2). NLQOff$ |
00006e20 20 20 20 20 3d 46 4e 63 68 72 28 32 37 2c 37 33 | =FNchr(27,73|
00006e30 2c 30 29 0a 20 20 20 20 49 74 61 6c 69 63 4f 6e |,0). ItalicOn|
00006e40 24 20 20 20 20 3d 22 22 0a 20 20 20 20 49 74 61 |$ ="". Ita|
00006e50 6c 69 63 4f 66 66 24 20 20 20 3d 22 22 0a 20 20 |licOff$ ="". |
00006e60 20 20 44 6f 75 62 4f 6e 24 20 20 20 20 20 20 3d | DoubOn$ =|
00006e70 46 4e 63 68 72 28 32 37 2c 39 31 2c 36 34 29 2b |FNchr(27,91,64)+|
00006e80 46 4e 63 68 72 28 34 2c 30 2c 30 29 2b 46 4e 63 |FNchr(4,0,0)+FNc|
00006e90 68 72 28 30 2c 33 34 2c 32 29 0a 20 20 20 20 51 |hr(0,34,2). Q|
00006ea0 75 61 64 4f 6e 24 20 20 20 20 20 20 3d 22 22 0a |uadOn$ ="".|
00006eb0 20 20 20 20 44 6f 75 62 4f 66 66 24 20 20 20 20 | DoubOff$ |
00006ec0 20 3d 46 4e 63 68 72 28 32 37 2c 39 31 2c 36 34 | =FNchr(27,91,64|
00006ed0 29 2b 46 4e 63 68 72 28 34 2c 30 2c 30 29 2b 46 |)+FNchr(4,0,0)+F|
00006ee0 4e 63 68 72 28 30 2c 31 37 2c 31 29 0a 20 20 20 |Nchr(0,17,1). |
00006ef0 20 4d 61 72 67 69 6e 24 20 20 20 20 20 20 3d 46 | Margin$ =F|
00006f00 4e 63 68 72 28 32 37 2c 20 38 38 2c 2d 31 29 0a |Nchr(27, 88,-1).|
00006f10 20 20 20 20 4c 65 66 74 24 20 20 20 20 20 20 20 | Left$ |
00006f20 20 3d 22 22 0a 20 20 20 20 43 65 6e 74 72 65 24 | ="". Centre$|
00006f30 20 20 20 20 20 20 3d 22 22 0a 20 20 20 20 52 69 | ="". Ri|
00006f40 67 68 74 24 20 20 20 20 20 20 20 3d 22 22 0a 20 |ght$ ="". |
00006f50 20 45 4e 44 49 46 0a 0a 20 20 52 45 4d 20 79 6f | ENDIF.. REM yo|
00006f60 75 20 6f 6e 6c 79 20 6e 65 65 64 20 74 6f 20 73 |u only need to s|
00006f70 65 74 20 69 74 65 6d 73 20 74 68 61 74 20 64 69 |et items that di|
00006f80 66 66 65 72 20 66 72 6f 6d 20 64 65 66 61 75 6c |ffer from defaul|
00006f90 74 73 2e 0a 20 20 49 46 20 50 72 69 6e 74 65 72 |ts.. IF Printer|
00006fa0 24 20 3d 20 22 45 70 73 6f 6e 20 46 58 38 30 22 |$ = "Epson FX80"|
00006fb0 20 54 48 45 4e 0a 20 20 20 20 4c 65 66 74 24 20 | THEN. Left$ |
00006fc0 20 20 20 20 20 20 20 3d 20 22 22 0a 20 20 20 20 | = "". |
00006fd0 43 65 6e 74 72 65 24 20 20 20 20 20 20 3d 20 22 |Centre$ = "|
00006fe0 22 0a 20 20 20 20 52 69 67 68 74 24 20 20 20 20 |". Right$ |
00006ff0 20 20 20 3d 20 22 22 0a 20 20 20 20 44 6f 75 62 | = "". Doub|
00007000 4f 6e 24 20 20 20 20 20 20 3d 20 22 22 0a 20 20 |On$ = "". |
00007010 20 20 51 75 61 64 4f 6e 24 20 20 20 20 20 20 3d | QuadOn$ =|
00007020 20 22 22 0a 20 20 20 20 44 6f 75 62 4f 66 66 24 | "". DoubOff$|
00007030 20 20 20 20 20 3d 20 22 22 0a 20 20 45 4e 44 49 | = "". ENDI|
00007040 46 0a 0a 20 20 52 45 4d 20 6d 6f 73 74 20 70 72 |F.. REM most pr|
00007050 69 6e 74 65 72 73 20 68 61 76 65 20 61 20 72 65 |inters have a re|
00007060 73 65 74 20 63 6f 64 65 2c 20 68 6f 77 65 76 65 |set code, howeve|
00007070 72 20 74 6f 20 77 6f 72 6b 20 6f 6e 20 61 6c 6c |r to work on all|
00007080 20 70 72 69 6e 74 65 72 73 0a 20 20 52 45 4d 20 | printers. REM |
00007090 28 77 65 6c 6c 20 74 68 65 20 33 20 49 20 68 61 |(well the 3 I ha|
000070a0 76 65 20 74 72 69 65 64 29 2c 20 69 74 20 73 65 |ve tried), it se|
000070b0 65 6d 73 20 62 65 74 74 65 72 20 74 6f 20 72 65 |ems better to re|
000070c0 73 65 74 20 74 68 65 20 70 72 69 6e 74 65 72 20 |set the printer |
000070d0 62 79 0a 20 20 52 45 4d 20 74 68 69 73 20 6c 6f |by. REM this lo|
000070e0 6e 67 20 77 69 6e 64 65 64 20 6d 65 74 68 6f 64 |ng winded method|
000070f0 21 20 0a 20 20 52 65 73 65 74 24 20 3d 20 44 6f |! . Reset$ = Do|
00007100 75 62 4f 66 66 24 20 2b 20 50 69 63 61 4f 6e 24 |ubOff$ + PicaOn$|
00007110 20 2b 20 45 78 70 61 6e 64 4f 66 66 24 20 2b 20 | + ExpandOff$ + |
00007120 43 6f 6e 64 65 6e 73 65 4f 66 66 24 20 2b 20 45 |CondenseOff$ + E|
00007130 6d 70 68 4f 66 66 24 20 2b 20 42 6f 6c 64 4f 66 |mphOff$ + BoldOf|
00007140 66 24 20 2b 20 49 74 61 6c 69 63 4f 66 66 24 20 |f$ + ItalicOff$ |
00007150 2b 20 2b 20 2b 66 24 20 2b 20 53 75 62 4f 66 66 |+ + +f$ + SubOff|
00007160 24 20 2b 20 4c 65 66 74 24 0a 45 4e 44 50 52 4f |$ + Left$.ENDPRO|
00007170 43 0a |C.|
00007172 
.