home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 168 / 168.d81 / b.letters (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  4KB  |  142 lines
  1. 6 poke56,56:clr:poke53281,0:poke53280,5:print"[147][155]"
  2. 8 poke53371,0
  3. 10 dv=peek(186):ifdv<8thendv=8
  4. 20 sys57812"wnd.inp.cm.ind",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  5. 22 sys57812"letters font",dv,0:poke780,0:poke781,0:poke782,56:sys65493
  6. 24 poke53272,31
  7. 30 up=49152  :rem scroll up
  8. 32 dn=up+3   :rem scroll down
  9. 34 lf=up+6   :rem scroll left
  10. 36 rt=up+9   :rem scroll right
  11. 38 rv=up+12  :rem reverse window
  12. 40 cl=up+15  :rem clear window
  13. 42 fl=up+18  :rem fill window
  14. 44 br=up+21  :rem draw window border
  15. 46 ip=49920  :rem input any
  16. 48 cm=50432  :rem copymem
  17. 50 dr=50688  :rem directory read
  18. 52 pd=50320  :rem print down
  19. 60 dimw$(110),t$(55)
  20. 62 tp$="[220][220][220][220][220][220][220][220][220][220][220][220][220][220][220][220][220][220][220][220][220][220][220][220][220][220][220][220][220][220][220][220][220][220][220][220][220][220]"
  21. 64 bt$="[188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188][188]"
  22. 70 rem sysip,"letters file",dv
  23. 72 rem nt=peek(252)*256+peek(251)
  24. 74 rem fori=0tont:t$(i)=w$(i):next
  25. 76 gosub800
  26. 80 sysip,"letters file",dv
  27. 82 nb=peek(252)*256+peek(251)
  28. 92 print"[147][219]"tp$"[221]";
  29. 94 fori=1to15:print"[255]"spc(38)"[190]";:next
  30. 96 print"[187]"bt$"[189]";
  31. 98 print"[219]"tp$"[221]";
  32. 100 fori=1to6:print"[255]"spc(38)"[190]";:next
  33. 102 print"[187]"bt$""
  34. 104 poke2023,125:poke2023+54272,5
  35. 106 fori=217to242:pokei,peek(i)or128:next
  36. 108 print"[155]"
  37. 110 fori=0to37
  38. 112 syspd,i+1,1,t$(i)
  39. 114 next
  40. 115 poke214,17:print
  41. 116 fori=0to4
  42. 117 print"[154]"w$(i)
  43. 118 next
  44. 120 poke198,0:t1=0:b1=0
  45. 130 geta$:ifa$=""then130
  46. 132 ifa$="q"then40000
  47. 140 ifa$<>""then150
  48. 142 b1=b1+1:ifb1+5=>nbthenb1=b1-1:goto130
  49. 144 sysup,1,18,38,6,0
  50. 146 poke214,22:print:print"[154]"w$(b1+5)
  51. 148 goto130
  52. 150 ifa$<>"[145]"then160
  53. 152 b1=b1-1:ifb1<0thenb1=0:goto130
  54. 154 sysdn,1,18,38,6,0
  55. 156 poke214,17:print:print"[154]"w$(b1)
  56. 158 goto130
  57. 160 ifa$<>""then170
  58. 162 t1=t1+1:ift1+37>52thent1=t1-1:goto130
  59. 164 syslf,1,1,38,15,0
  60. 166 syspd,38,1,t$(t1+37)
  61. 168 goto130
  62. 170 ifa$<>"[157]"then180
  63. 172 t1=t1-1:ift1<0thent1=0:goto130
  64. 174 sysrt,1,1,38,15,0
  65. 176 syspd,1,1,t$(t1)
  66. 178 goto130
  67. 180 goto130
  68. 800 fori=0to52:readt$(i):next
  69. 801 rem mar
  70. 802 data"[152]@uv"
  71. 803 data"[146][193][161][194][162][195][163][196][164][197][165][198][166][199][167][155]x"
  72. 804 data"[152]hafadaba@ara[146][201][169][155]y"
  73. 805 data"[152]bc@crcpanala[146][206][174][155]z"
  74. 806 data"[152]pcnclcjchcfc[146][197][165][152]v"
  75. 807 data"[152]uuuuuuuuuuuuuu[152]w"
  76. 809 rem apr
  77. 810 data"[146][206][174][217][185][212][180][210][178][210][178][215][183][211][179][152]v"
  78. 811 data"[146][207][175][152]@ara[146][207][175][152]nulu[146][200][168][155]y"
  79. 812 data"[146][204][172][152]nalajahafa[146][201][169][155]["
  80. 813 data"[146][196][164][152]hcfcdcbc@c[146][205][173][155]z"
  81. 814 data"uu[152]uuuurepcnclc[152]v"
  82. 815 data"[146][212][180][152]bu@utuuuuuuu[152]w"
  83. 819 rem may
  84. 820 data"[146][201][169][152]punulujuhufuv"
  85. 821 data"[146][205][173][211][179][201][169][204][172][211][179][200][168][211][179][155]x"
  86. 822 data"[146][197][165][152]dcbc@crcpana[155]y"
  87. 823 data"[146][197][165][152]repcnclcjchc[155]\"
  88. 824 data"uu[152]uuuuuuuuuuuuw"
  89. 829 rem jun
  90. 830 data"[146][208][176][152]juhufudubu@uv"
  91. 831 data"[146][201][169][152]daba@arapunu[155]]"
  92. 832 data"[146][211][179][197][165][212][180][204][172][197][165][201][169][197][165][155]^"
  93. 834 data"[146][212][180][152]lcjchcfcdcbc[155]_"
  94. 835 data"[146][207][175][152]uuuuuuuurepc[155]v"
  95. 839 rem jul
  96. 840 data"[152]hufudubu@utuuuw"
  97. 841 data"[146][204][172][214][182][201][169][211][179][193][161][195][163][204][172][155]v"
  98. 842 data"[146][193][161][152]nala[146][192][160][152]hafa[146][198][166][155]]"
  99. 843 data"[146][210][178][152]hcfcdcbc@c[146][193][161][155]^"
  100. 844 data"[146][217][185][152]tu@erepsns[146][195][163][155]!"
  101. 845 data"[152]bu@utuuuuuuuuuw"
  102. 849 rem aug
  103. 850 data"[146][206][174][197][165][207][175][196][164][195][163][200][168][212][180][152]v"
  104. 851 data"[146][207][175][152]hafa[146][210][178][152]ba@ara[155]y"
  105. 852 data"[146][214][182][152]bc@c[146][197][165][152]panala[155]^"
  106. 853 data"[152]re[146][206][174][213][181][152]lc[146][200][168][201][169][213][181][155]#"
  107. 854 data"[152]uuuuuu[152]uuuuuu[152]@ev"
  108. 859 rem sep
  109. 860 data"[152]ju[146][198][166][211][179][152]dubu[146][205][173][152]tuw"
  110. 861 data"[146][197][165][152]ba@a[146][193][161][152]punu[146][193][161][155]$"
  111. 862 data"[146][204][172][152]pana[146][205][173][152]jaha[146][204][172][155]%"
  112. 863 data"[152]lc[146][201][169][152]hcfc[146][207][175][193][161][152]@c[155]["
  113. 864 data"[152]uuuu[152]uuuurepcncv"
  114. 865 data"[146]        uuuuuuw"
  115. 870 data"[146][159] l t j a j a t"
  116. 871 data"[146][159] a o a . e m h"
  117. 872 data"[146][159] d d c   r b e"
  118. 873 data"[146][159] y d o b o r  "
  119. 874 data"[146][159]     b . m o a"
  120. 875 data"[146][159] a a     e s u"
  121. 876 data"[146][159] m n h c   e t"
  122. 877 data"[146][159] h d o o b   h"
  123. 878 data"[146][159] e r r o r m o"
  124. 879 data"[146][159] r e n k a e r"
  125. 880 data"[146][159] s w e   y n  "
  126. 881 data"[146][159] t s r     s  "
  127. 882 data"[146][159]           c  "
  128. 883 data"[146][159]           h  "
  129. 899 return
  130. 999 goto999
  131. 10000 d=peek(186):n$="0:b.letters":open15,d,15,"s"+n$:close15:saven$,d:end
  132. 40000 fori=8to29:poke820+i,i:next:ifdv>8anddv<30thenpoke828,dv:poke820+dv,8
  133. 40010 a$="presenter":gosub40030:a$="hello connect":gosub40030
  134. 40020 print"[147]":poke53272,23:poke186,8:poke2048,0:poke44,8:poke43,1:end
  135. 40030 forj=8to29:i=peek(820+j):ifi=14thennext
  136. 40040 close2:open2,i,2:close2:ifstthen40060
  137. 40050 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40070
  138. 40060 next:return
  139. 40070 a$="hello connect":q$=chr$(34):poke646,peek(53281):print"[147]":poke53272,23
  140. 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
  141. 40090 print"run:":poke631,13:poke632,13:poke198,2:end
  142.