home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 129 / 129.d81 / b.tax (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-01-01  |  2.2 KB  |  64 lines
  1. 6 dv=peek(186):ifdv<8thendv=8
  2. 10 dimf$(8):fori=1to8:readf$(i):next
  3. 20 data 1040,1040a,1040ez,scha,schc,schse,reader c800,hello connect
  4. 30 dimm$(8):fori=1to8:readm$(i):next
  5. 35 data " 1040                         "
  6. 36 data " 1040[193]                        "
  7. 37 data " 1040[197][218]                       "
  8. 38 data " [211]chedule [193] ([196]eductions)      "
  9. 39 data " [211]chedule [195] ([194]usiness)        "
  10. 40 data " [211]chedule [211][197] ([211]hort [198]orm)     "
  11. 42 data " [201]nstructions                 "
  12. 43 data " [204][207][193][196][211][212][193][210]                     "
  13. 100 poke53281,0:poke53280,0:poke53272,23:print"[147][153]";
  14. 190 printtab(5)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  15. 191 printtab(5)"[221][155]                              [153][146][221]"
  16. 192 printtab(5)"[221][155]       [212]ax [193]ccountant         [153][146][221]"
  17. 194 printtab(5)"[221][155]    by [194]arbara [200]. [211]chulak     [153][146][221]"
  18. 196 printtab(5)"[221][155]  [208]ublished on [204][207][193][196][211][212][193][210] #129  [153][146][221]"
  19. 198 printtab(5)"[221][155]      (c) 1995 [211]oftdisk       [153][146][221]"
  20. 200 printtab(5)"[221][155] [211]ubscriptions 1-800-594-3370 [153][146][221]"
  21. 202 printtab(5)"[221][155]                              [153][146][221]"
  22. 220 printtab(5)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  23. 290 :
  24. 300 sys57812"tool box c000",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  25. 301 sys57812"notepad c900",dv,0:poke780,0:poke781,0:poke782,201:sys65493
  26. 302 sys49152+18,5,13,30,8,1,0
  27. 304 poke214,13:print:for i=1to8:printtab(6)"[154]"m$(i):next:poke198,0
  28. 306 sys49152+12,6,14,35,8,14,1
  29. 308 k=peek(828)
  30. 325 f$=f$(k)
  31. 330 onkgoto60000,60000,60000,60000,60000,60000,1000,40000
  32. 340 goto306
  33. 350 :
  34. 1000 sys49152+3,1:print"[147]"tab(14)"[150]*** [200][197][204][208] ***"
  35. 1005 sys49152+18,0,1,38,21,1,0
  36. 1010 h$="t.instr"
  37. 1014 sys49152+33
  38. 1015 sys49152+21,"[208]ress [210][197][212][213][210][206]     _ to [197]xit",24,13,0
  39. 1020 open2,dv,2,h$+",p,r":sys49152+30,14
  40. 1025 poke198,0
  41. 1026 sys49152+21,"       [208]ress [210][197][212][213][210][206]       ",24,10,0
  42. 1030 getk$:ifk$<>chr$(13)then1030
  43. 1031 poke 198,0
  44. 1035 close2:sys49152+6,1:goto304
  45. 1040 :
  46. 10000 dv=peek(186):open15,dv,15,"s0:b.tax":close15:save"b.tax",dv:end
  47. 10100 :
  48. 40000 fori=0to21:poke828+i,8+i:next
  49. 40010 ifdv<8ordv>29ordv=8then40030
  50. 40020 a=peek(828):b=peek(828+dv-8):poke828,b:poke828+dv-8,a
  51. 40030 a$="hello connect":forj=8to29:i=peek(828+j-8):ifi=14thennext
  52. 40040 close2:open2,i,2:close2:ifstthen40060
  53. 40050 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40070
  54. 40060 next:print"[147]":poke53272,23:poke186,8:end
  55. 40070 q$=chr$(34):poke646,peek(53281):print"[147]":poke53272,23
  56. 40080 print"[147]p[207]2048,0:p[207]44,8:p[207]43,1:p[207]56,160:p[207]55,0:clr:l[207]"q$a$q$","i
  57. 40090 print"run:":poke631,13:poke632,13:poke198,2:end
  58. 60000 fori=0to8:poke781,i:sys59903:next:print
  59. 60006 a$=f$:open15,dv,15,"r0:"+a$+"="+a$:input#15,er:close15
  60. 60010 if er<>63 thenprint"[147]":end
  61. 60011 q$=chr$(34):poke646,peek(53281)
  62. 60020 print"load"q$a$q$","dv
  63. 60030 print"run":poke631,13:poke632,13:poke633,13:poke198,3:end
  64.