home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 110 / 110.d81 / car (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  5KB  |  168 lines
  1. 5 poke53280,0:poke53281,0:poke53272,31:printchr$(14)chr$(8)chr$(147);
  2. 10 ad=49152:x=12:y=5:w=8:r=1:c=1
  3. 15 dv=peek(186):ifdv<8thendv=8
  4. 20 dimch(12,3):fori=1to3:forj=1to12:readch(j,i):next:next
  5. 25 data 0,0,0,1,1,1,1,0,0,1,1,0
  6. 26 data 1,1,0,1,0,1,1,1,1,1,1,1
  7. 27 data 1,1,0,1,1,0,1,1,1,1,1,1
  8. 30 dima(13,3)
  9. 35 fori=1to3:a(1,i)=4:a(8,i)=28:a(9,i)=6:next
  10. 40 a(6,1)=0:a(7,1)=0:a(5,2)=7.0
  11. 100 print"[150]       [195] [193] [210]    [198] [201] [206] [193] [206] [195] [201] [197] [210]      ":print
  12. 101 print"[154]              [195][193][211][200]     [204][207][193][206]     [204][197][193][211][197]"
  13. 105 print"[155][176][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][174]"
  14. 110 print"[155][221][212]erm (yrs)[221]      4 [155][221]      4 [221]      4 [221]"
  15. 115 print"[155][221][195]ar [195]ost  [221]        [155][221]        [221]        [221]"
  16. 120 print"[155][221][196]ownpaymnt[221]        [155][221]        [155][221]        [155][221]"
  17. 122 print"[155][221][154][212][207][212] [213][208][198][210][206][212][155][221][154]        [155][221][154]        [155][221][154]        [155][221]"
  18. 125 print"[155][221][201]nt. [210]ate [221]     [206][193] [221]    7.0 [155][221]     [206][193] [221]"
  19. 130 print"[155][221][205]onthly   [221]      0 [221]        [221]        [155][221]"
  20. 135 print"[155][221][154][212][207][212][204] [205][207][206][212][200][155][221][154]      0 [155][221][154]        [155][221][154]        [155][221]"
  21. 140 print"[155][221][212]ax [210]ate  [221]     28 [155][221]     28 [221]     28 [221]"
  22. 145 print"[155][221][201]nv. [210]ate [221]      6 [155][221]      6 [221]      6 [221]"
  23. 150 print"[155][221][204]ost [201]nt. [221]        [221]        [221]        [221]"
  24. 155 print"[155][221][154][212][207][212][193][204] [195][193][211][200][155][221][154]        [155][221][154]        [155][221][154]        [155][221]"
  25. 160 print"[155][221][210]esale    [221]        [155][221]        [221]      0 [221]"
  26. 162 print"[155][171][192][192][192][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][192][219][192][192][192][192][192][192][192][192][179]"
  27. 165 print"[155][221][150][212][207][212][193][204] [195][207][211][212][155][221][150]        [155][221][150]        [155][221][150]        [155][221]"
  28. 170 print"[155][173][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][189]"
  29. 185 print
  30. 190 print"[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][192][192][192][192][192][192][192][192][192]"
  31. 195 print"  [198]1[153]=[200]elp  [198]3[153]=[195]alc  [198]5[153]=[208]rint  [198]7[153]=[197]xit  "
  32. 196 print"[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][192][192][192][192][192][192][192][192][192]"
  33. 198 sysad+6,x,y,w
  34. 200 getk$
  35. 205 ifk$=""thengosub8200
  36. 210 ifk$="[157]"thengosub8300
  37. 215 ifk$=""thengosub8000
  38. 220 ifk$="[145]"thengosub8100
  39. 225 ifk$="[133]"thengosub7000:rem help
  40. 230 ifk$="[134]"thengosub4000:rem calc
  41. 235 ifk$="[135]"thengosub3000:rem print
  42. 240 ifk$="[136]"thengosub9000:rem exit
  43. 245 ifk$>="0"andk$<="9"thengosub1000
  44. 250 goto200
  45. 1000 ifch(r,c)=1thengosub6000:return
  46. 1005 sysad,1:poke781,22:sys59903
  47. 1010 poke214,21:print:print "[156] [197]nter: ";
  48. 1011 rem  v=val(str$(a(r,c)))
  49. 1012 rem  v$=right$(str$(v),len(str$(v))-1)
  50. 1015 ty=2:l=6:v=0:v$="":ct=0:gosub11015:v=val(v$)
  51. 1020 p1=0:ifr=5thenp1=-3
  52. 1021 ifr=9thenp1=-3
  53. 1022 ifr=6thenp1=-2
  54. 1023 ifr=8thenp1=-2
  55. 1025 gosub2000
  56. 1030 sysad+3,1
  57. 1035 poke214,y-1:print:printtab(x+1)""rv$;:a(r,c)=val(rv$)
  58. 1040 ifr=12thena(r,c+1)=val(rv$):print"[155]"rv$:return
  59. 1045 ifr>2 andr<7thenreturn
  60. 1050 a(r,c+1)=val(rv$):a(r,c+2)=val(rv$)
  61. 1055 print"[155]"rv$;:print""rv$
  62. 1060 return
  63. 1065 :
  64. 2000 p2=10^p1
  65. 2005 rv=int(v/p2+.5)*p2
  66. 2010 rv$=right$("      "+str$(rv),6)
  67. 2015 return
  68. 2020 :
  69. 3000 sysad,1:poke781,22:sys59903
  70. 3005 poke214,21:print:print "[156]          [208]rinter [210]eady? [y/n]"
  71. 3010 getk$:ifk$=""then3010
  72. 3015 ifk$="y"thensysad+9,0,3,38,20,7
  73. 3020 sysad+3,1:poke198,0:k$="":return
  74. 3025 :
  75. 4000 sysad,1:poke781,22:sys59903
  76. 4005 poke214,21:print:print "[156]             [195]alculating..."
  77. 4008 fori=1to3:a(4,i)=a(3,i):next
  78. 4010 am=a(2,2)-a(3,2):yr=a(1,2):ra=a(5,2)
  79. 4015 n1=yr*12:i1=ra/100/12:va=1/(1+i1)
  80. 4020 a(6,2)=am*i1/(1-va^n1)
  81. 4025 a(7,1)=0:a(7,2)=a(6,2)*12*yr:a(7,3)=a(6,3)*12*yr
  82. 4030 ra=a(9,1)
  83. 4035 fori=1to3
  84. 4040 fv=a(4,i)
  85. 4045 forj=1to12*yr:fv=fv+fv*ra/100/12:next
  86. 4047 fv=fv-a(4,i)
  87. 4050 fv=fv-fv*a(8,i)/100:a(10,i)=fv:next
  88. 4055 fori=1to3
  89. 4060 a(11,i)=a(4,i)+a(7,i)+a(10,i)
  90. 4065 a(13,i)=a(11,i)-a(12,i)
  91. 4070 next
  92. 4075 sysad+3,1:p1=0
  93. 4080 poke214,7:print:printtab(10)"[154]";
  94. 4085 fori=1to3:v=a(4,i):gosub2000:print""rv$;:next
  95. 4090 poke214,9:print:printtab(19)"[155]";
  96. 4095 v=a(6,2):gosub2000:print""rv$;
  97. 4100 poke214,10:print:printtab(10)"[154]";
  98. 4105 fori=1to3:v=a(7,i):gosub2000:print""rv$;:next
  99. 4110 poke214,13:print:printtab(10)"[155]";
  100. 4115 fori=1to3:v=a(10,i):gosub2000:print""rv$;:next
  101. 4120 poke214,14:print:printtab(10)"[154]";
  102. 4125 fori=1to3:v=a(11,i):gosub2000:print""rv$;:next
  103. 4130 poke214,17:print:printtab(10)"[150]";
  104. 4135 fori=1to3:v=a(13,i):gosub2000:print""rv$;:next
  105. 4140 return
  106. 4145 :
  107. 6000 poke54296,21
  108. 6005 poke54277,9
  109. 6010 poke54278,0
  110. 6015 poke54273,48
  111. 6020 poke54276,32
  112. 6025 poke54276,33
  113. 6030 return
  114. 6035 :
  115. 7000 sysad,1:print"[147]"tab(14)"[154][146]*** [200][197][204][208] ***":h$="car.instr"
  116. 7020 print"[153][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][192][192][192][192][192][192][192][192][174]";
  117. 7030 fori=1to21:print"[221]                                      [221]";:next
  118. 7040 print"[173][192][192][192][192][192][192][192][192][192][192][192][192] [150][208]ress [210][197][212][213][210][206] [153][192][192][192][192][192][192][192][192][192][192][192][192][189]";:poke646,14
  119. 7060 open2,dv,2,h$+",p,r":sysad+12,14
  120. 7070 poke198,0:close2
  121. 7080 getk$:ifk$<>chr$(13)then7080
  122. 7090 sysad+3,1:poke198,0:k$="":sysad+15:return
  123. 7100 :
  124. 8000 sysad+6,x,y,w
  125. 8005 y=y+1:r=r+1:ify>16theny=y-1:r=r-1
  126. 8010 sysad+6,x,y,w:return
  127. 8100 sysad+6,x,y,w
  128. 8105 y=y-1:r=r-1:ify<5theny=y+1:r=r+1
  129. 8110 sysad+6,x,y,w:return
  130. 8200 sysad+6,x,y,w
  131. 8205 x=x+9:c=c+1:ifx>30thenx=x-9:c=c-1
  132. 8210 sysad+6,x,y,w:return
  133. 8300 sysad+6,x,y,w
  134. 8305 x=x-9:c=c-1:ifx<12thenx=x+9:c=c+1
  135. 8310 sysad+6,x,y,w:return
  136. 8315 :
  137. 9000 sysad,1:poke781,22:sys59903
  138. 9005 poke214,21:print:print "[156]       [209]uit?  [193]re [217]ou [211]ure? (y/n)"
  139. 9010 getk$:ifk$=""then9010
  140. 9015 ifk$="y"then40000
  141. 9020 sysad+3,1:poke198,0:k$="":return
  142. 9025 :
  143. 10000 open15,8,15,"s0:car":close15:save"car",8:end
  144. 11000 k$="":ct=len(v$):print"[159]"v$"[164][157]";:f3=0
  145. 11005 getk$:ifk$=""then11005
  146. 11010 ifk$=chr$(13)then11075:rem return
  147. 11015 ifk$=chr$(20)andct<>0thenprint" [157][157][164][157]";:ct=ct-1:v$=left$(v$,ct):goto11005
  148. 11020 ifk$=" "then11060:rem space
  149. 11025 ifty=1or ty>2thenif(k$>"@")and(k$<"[")then11060:rem alpha
  150. 11030 ifty>1thenif(k$>"/")and(k$<":")then11060:rem numeric
  151. 11035 ifty=2thenifk$="."then11060
  152. 11040 ifty=1orty>2thenif(k$>"[192]")and(k$<"[219]")then11060:rem upper case
  153. 11045 ifty=4thenif(k$>" ")and(k$<"0")then11060:rem !"#$%&'()*+,-./ punctuation
  154. 11050 [139]ty[178]4[167][139](k$[177]"9")[175](k$[179]"@")[167]11060:[143] :;<=>? punctuation
  155. 11055 [137]11005
  156. 11060 [139]ct[177][178]l[167]11005
  157. 11065 ct[178]ct[170]1:v$[178]v$[170]k$:[153]k$;:[151]212,0:[153]"tocmd";
  158. 11070 [137]11005
  159. 11075 [139]ct[178]0[167]v$[178][199](0):f3[178]1
  160. 11080 [143]fori=len(v$)+1tol:v$=v$+" ":next:rem pad string
  161. 11085 [153]" ":[142]
  162. 11090 :
  163. 40000 a$[178]"hello connect":[129]i[178]8[164]9:[160]2:[159]2,i,2:[160]2:[139]st[167]40020
  164. 40010 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[