home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1993 November / 1993-11.d64 / vertiscroll (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1993-01-01  |  799 b   |  25 lines
  1. 10 rem ** vertiscroll editor **
  2. 20 if a=0thena=1:load"vs.code",8,1
  3. 30 if b=0thenb=1:load"vs.letters",8,1
  4. 40 s=16928:e=17407
  5. 50 print"[147]    vertiscroll - scroll text editor"
  6. 60 print" press space to enter the text editor."
  7. 70 print" you can use 12 lines maximum."
  8. 80 print" please type an '@' at the end of your
  9. 90 [153]" text and press return to store."
  10. 100 [161] a$:[139] a$[179][177]" "[167]100
  11. 110 [153]"load";:[159] 1,0:[132]1,t$:[160]1
  12. 120 [129] x[178]1024 [164] 1503:[151] s[170]x[171]1024,[194](x):[151] x,42:[130]
  13. 130 [153]"loadpress space to see your vertiscroll."
  14. 140 [161] a$:[139] a$[179][177]" "[167]140
  15. 150 [158]16384
  16. 160 [153]"loadpress 's' to save, or 'e' to edit."
  17. 170 [161] k$:[139]k$[178]""[167]170
  18. 180 [139] k$[178]"e"[167] [158] 16387:[137]40
  19. 190 [158]16387
  20. 200 [133]"save filename";f$
  21. 210 f$[178]"@0:"[170]f$:[159]1,8,1,f$:[151]252,s[173]256:[151]251,s[171][194](252)[172]256
  22. 220 [151]782,e[173]256:[151]781,e[171][194](782)[172]256:[151]780,251:[158]65496:[160]1
  23. 230 [153]"cont"
  24. 240 [139] st[179][177]0[167] [153]"error during save!":[128]
  25.