home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_14_1986_Transactor_Publishing.d64 / kpower.defs (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  63 lines
  1. 100 rem -------------------------------
  2. 102 rem  keypower profile definitions
  3. 104 rem         kpower.defs
  4. 106 rem -------------------------------
  5. 108 rem
  6. 110 rem (reposition shift cursor keys)
  7. 112 rem
  8. 114 zp(nd,ua)=do+sf:zp(nd,la)=ri+sf
  9. 116 rem
  10. 118 rem   (commands on strings)
  11. 120 rem
  12. 122 zs$(td,s)=s$+"save"+q$+"0:"+i$+q$+",8"+r$:rem save
  13. 124 zs$(td,p)=s$+"open15,8,15,"+q$+"s0:"+i$+q$+":close15"+r$:rem purge
  14. 126 zs$(td,n)=s$+"open15,8,15,"+q$+"r0:"+i$+"="+i$+q$+":close15"+r$:rem rename
  15. 128 zs$(td,l)=s$+"load"+q$+"0:"+i$+q$+",8"+r$:rem load
  16. 130 zs$(td,r)=s$+"load"+q$+"0:"+i$+q$+",8"+r$+"run"+r$:rem load-run
  17. 132 zs$(td,i)=s$+"open15,8,15,"+q$+"i0"+q$+":close15"+r$:rem init disk
  18. 134 zs$(td,v)=s$+"open15,8,15,"+q$+"v0"+q$+":close15"+r$:rem validate
  19. 136 zs$(td,g)=s$+"load   ,8"+r$:rem load from dir
  20. 138 zs$(td,pl)=s$+"clr:poke43,peek(45):poke44,peek(46):new"+r$:rem test part
  21. 140 zs$(td,mi)=s$+"poke45,peek(43):poke46,peek(44):"
  22. 142 zs$(td,mi)=zs$(td,mi)+"poke43,1:poke44,8:clr"+r$:rem back to norm
  23. 144 rem
  24. 146 rem   (basic progs on strings)
  25. 147 rem
  26. 148 rem read error channel
  27. 150 zs$(td,e)=s$+"8000open15,8,15:input#15,a,b$,c,d:printa,b$,c,d"
  28. 152 zs$(td,e)=zs$(td,e)+":close15"+r$+"run8000"+r$+"8000"+r$
  29. 154 rem list dir to screen
  30. 156 zs$(td,d)=s$+"8000n$=chr$(0):open15,8,0,"+q$+"$0"+q$+":get#15,a$,b$"+r$
  31. 158 zs$(td,d)=zs$(td,d)+"8001get#15,a$,b$:ifst<>0then8005"+r$
  32. 160 zs$(td,d)=zs$(td,d)+"8002get#15,a$,b$:printasc(a$+n$)+asc(b$+n$)*256;"+r$
  33. 162 zs$(td,d)=zs$(td,d)+"8003get#15,a$:ifa$="+q$+q$+"thenprint:goto8006"+r$
  34. 164 zs$(td,d)=zs$(td,d)+ln$+chr$(a)
  35. 166 zs$(nd,a)=l$+"8004printa$;:goto8003"+r$
  36. 168 zs$(nd,a)=zs$(nd,a)+"8005close15:poke198,0:end"+r$
  37. 170 zs$(nd,a)=zs$(nd,a)+"8006k=peek(203):ifk=64then8001"+r$
  38. 172 zs$(nd,a)=zs$(nd,a)+"8007ifk=62then8005"+r$
  39. 174 zs$(nd,a)=zs$(nd,a)+"8008goto8006"+r$+"run8000"+r$
  40. 176 rem delete basic lines
  41. 178 zs$(td,z)=s$+"8000"+r$+"[145]8001"+r$+"[145]8002"+r$+"[145]8003"+r$
  42. 180 zs$(td,z)=zs$(td,z)+"[145]8004"+r$+"[145]8005"+r$+"[145]8006"+r$+"[145]8007"+r$
  43. 182 zs$(td,z)=zs$(td,z)+"[145]8008"+r$+"[145]8009"+r$+"[145]8010"+r$+"[145]8011"+r$
  44. 184 rem
  45. 186 rem    (some basic keywords)
  46. 187 rem
  47. 188 zs$(cd,a)=s$+"asc(":zs$(cd,c)=s$+"chr$(":zs$(cd,d)=s$+"data"
  48. 190 zs$(cd,f)=s$+"for":zs$(cd,g)=s$+"goto":zs$(cd,i)=s$+"input"
  49. 192 zs$(cd,l)=s$+"list":zs$(cd,m)=s$+"mid$(":zs$(cd,n)=s$+"next"
  50. 194 zs$(cd,o)=s$+"open":zs$(cd,p)=s$+"print":zs$(cd,r)=s$+"right$("
  51. 196 zs$(cd,s)=s$+"str$("
  52. 198 rem
  53. 200 rem (jmp table and command line)
  54. 202 rem
  55. 204 zv=40204:rem zc=0 no command line*
  56. 206 rem
  57. 208 rem   (interrupt routines)
  58. 210 rem
  59. 212 zr(nd,f5)=40192:zr(nd,f7)=40195:rem list scroll down/up
  60. 214 zr(sd,f5)=40198:zr(cd,f5)=40201:rem line rule enable/disable
  61. 216 rem
  62. 218 rem end of defs
  63.