gnacu

thisdirt #setflag this,dflags,df_dirty
         rts

chkdirt  lda tkenv+te_flags
         and #tf_dirty
         bne mkdirt+8

         sec                ;not dirty
         rts

gnacu

10 print"ascii to petscii converter"
20 print"copyright to whoever wrote it"
30 print
40 input"source file";sf$
50 input"destination file";df$
60 dv=peek(186)
70 open2,dv,2,sf$+",s,r"
80 open3,dv,3,df$+",s,w"
85 rem --------------------------------
90 sys2000

gnacu

        .include "//os/h/:modules.h"
        #inc_k "io"
        #inc_s "file"

        *=2000
        
loop    ldx #2
        jsr chkin
        
        jsr chrin

gnacu

;----[ basic.s ]------------------------

;HOW TO USE:
;
; .include this file as first code.
; Omit the *= $xxxx from your code.

         *= $0801

         .word end    ;Next Line Ptr

gnacu

10 print"ascii to petscii converter"
20 print"copyright to whoever wrote it"
30 print
40 input"source file";sf$
50 input"destination file";df$
60 dv=peek(186)
70 open2,dv,2,sf$+",s,r"
80 open3,dv,3,df$+",s,w"
85 rem --------------------------------
90 get#2,a$:s=status

gnacu

;---------------------------------------
extern
         #inc_h "file"
fopen    #syscall lfil,fopen_
fread    #syscall lfil,fread_
fwrite   #syscall lfil,fwrite_
fclose   #syscall lfil,fclose_

         #inc_h "input"
initmouse #syscall linp,initmouse_

gnacu

;-- Tab 1: Table Delegates ---

t1_sidx  .byte 0 ;Selected Index

t1_ci ;Column Info

         #stxy ptr
         ldy #2 ;#tc_id ... where def'd?
         lda (this),y
         tax

gnacu

mthcycle ;Month Button Cycled
         ;this -> month cycle button
         ldy #settitle_
         jsr getmethod

         ldy #value
         lda (this),y
         jsr months_s

         jmp sysjmp

gnacu

a_togfoot ;Menu option toggle footer

         #storeget tstviews,9 ;Checkbox
         jsr ptrthis

         ldy #cflags
         lda (this),y
         eor #cf_state
         sta (this),y

gnacu

a_togwrap ;Menu option toggle wrap
         #ldxy tkenv
         jsr settkenv

         #storeget tstviews,8 ;Checkbox
         jsr ptrthis

         ldy #cflags
         lda (this),y
         eor #cf_state