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:ifa$=""thena$=chr$(0)

gnacu

;---------------------------------------
;memory.lib

realloc  jmp 3

extern
         #inc_h "file"
fopen    #syscall lfil,fopen_
fread    #syscall lfil,fread_
fwrite   #syscall lfil,fwrite_

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

gnacu

menucmd  ;X -> Menu Command Code
         .block
         txa
         #switch 8
         .text "khls!ewf"
         .rta a_killmus,a_hidemus
         .rta a_loadmus,a_showmus
         .rta quitapp
         .rta a_raise
         .rta a_togwrap,a_togfoot

gnacu

menuenq  ;X -> Menu Command Code
         .block
         txa
         #switch 2
         .text "wf"
         .rta a_wrapchk,a_footchk

         ;Current Tab
         cmp #"4"
         bcs done ;>"3"