home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 54 / 054.d81 / bits ii (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1988-01-01  |  1.8 KB  |  68 lines
  1. 5 a=a+1
  2. 10 ifa=1thenload"bits.o",8,1
  3. 12 ifa=2thenload"bits.txt",8,1
  4. 39 :
  5. 41 gosub 600
  6. 50 clr:dima(300):poke53280,.:poke53281,.
  7. 55 sys52650
  8. 99 :
  9. 100 print"[147]"tab(10)"horizontal scroll demo"
  10. 101 printtab(15)"by jim row"
  11. 103 print"[154]  please enter the text that you wish "
  12. 104 print"  to be scrolled now.  254 chars max!"
  13. 105 print"[164]";:x=1
  14. 110 geta$:ifa$=""then110
  15. 120 ifa$=chr$(13)thenprint"[157] ":goto 200
  16. 121 ifa$=chr$(20)thenprint"[157] [157][157][164]";:x=x-1:goto110
  17. 123 ifa$="[147]" then 100
  18. 125 ifa$<" "ora$>"z"anda$<"[193]"ora$>"[218]" then 110
  19. 130 ifx=256 then 110
  20. 140 x=x+1
  21. 175 print"[157]"a$"[164]";
  22. 190 goto 110
  23. 191 :
  24. 192 :
  25. 200 sys52650:nu=x:fory=1tonu-1:poke52949+y,peek(1023+y):a(y)=peek(1023+y):next
  26. 201 poke52949+nu,.:gosub600:poke52933,255:sys52650
  27. 205 print"[147]    do you want to save the text?"
  28. 206 geta$:ifa$=""then206
  29. 207 ifa$="y"ora$="[217]"then210
  30. 208 ifa$="n"ora$="[206]"thensys52650:goto360
  31. 209 goto 206
  32. 210 :
  33. 211 sys52650: rem turn off
  34. 212 print"[147]     enter the file name you want "
  35. 213 print"          to save the text as.":print"    name :";
  36. 214 print"[164][157]";:x=1:nm$=""
  37. 215 geta$:ifa$=""then215
  38. 220 ifa$=chr$(20)andx>1thenprint" [157][157][164][157]";:nm$=left$(nm$,len(nm$)-1):x=x-1:goto 215
  39. 225 ifa$=chr$(20)then 215
  40. 229 ifa$=chr$(13) andx=1 then sys52650:goto 205
  41. 230 ifa$=chr$(13) then 290
  42. 235 ifa$<" "ora$>"z"anda$<"[193]"ora$>"[218]"then215
  43. 236 ifa$="?"ora$="*"ora$="," then  215
  44. 247 ifx=16 then 215
  45. 250 x=x+1:
  46. 255 nm$=nm$+a$:printa$"[164][157]";
  47. 260 goto 215
  48. 290 :
  49. 300 print"[147]       please wait while saving"
  50. 302 open15,8,15,"r0:"+nm$+"="+nm$:input#15,er:close15
  51. 304 ifer<>63 then 350
  52. 310 print"[147]  file already exists! press any key."
  53. 313 geta$:ifa$=""then313
  54. 320 goto 212
  55. 350 open2,8,2,nm$+",p,w"
  56. 351 print#2,chr$(214)+chr$(206);
  57. 352 fory=1tonu:print#2,chr$(a(y));:next:print#2,chr$(0);:close2
  58. 360 print"[147]do you want to create another text file?"
  59. 361 geta$:ifa$=""then361
  60. 362 ifa$="y"ora$="[217]"then a=2:goto12
  61. 370 ifa$="n"ora$="[206]"then 400
  62. 371 goto 361
  63. 400 open15,8,15,"r0:hello connect=hello connect":input#15,er,er$:close15
  64. 401 ifer<>63then print"[147]":end
  65. 403 load"hello connect",8,1
  66. 599 rem       initilize screen
  67. 600 forx=960to1001:pokex,32:next:poke52933,255:return
  68.