home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1989 January / 1989-01.d64 / scroll.demo (.txt) < prev   
Commodore BASIC  |  2022-09-20  |  2KB  |  52 lines
  1. 10 rem copyright 1989 compute! publications, inc. - all rights reserved
  2. 20 ifpeek(52234)<>8thenload"ml-scroll",8,1
  3. 30 dimvt$(24):vt$(0)="":fori=1to24:vt$(i)=vt$(i-1)+"":next
  4. 40 dima$(127):fori=0to123:reada$(i):ifa$(i)<>"-1"thennexti
  5. 50 poke53280,0:poke53281,0:sys52230
  6. 60 print"[147][159]":poke702,17:sys52224,7,12,9,14,0,a$(6)
  7. 70 print"   copyright 1989 compute! pub., inc."
  8. 80 printtab(11)"all rights reserved"vt$(5)
  9. 90 tx$="":fori=1to16:tx$=tx$+"[209]":nexti
  10. 100 printtab(11)""tx$
  11. 110 fori=1to9:printtab(11)"[209]"tab(26)"[209]":nexti
  12. 120 printtab(11)tx$"[159]"
  13. 130 sys52227:x=peek(2):ifxthen130
  14. 140 geta$:ifa$=""then140
  15. 150 ifa$<"1"ora$>"4"then60
  16. 160 onval(a$)goto180,240,330,170
  17. 170 sys52230:end
  18. 180 print"[147]":poke702,0:fori=0to20step5:forj=0to30step10
  19. 190 sys52224,i,j,5,10,100,a$(0)
  20. 200 nextj,i
  21. 210 printvt$(5)tab(10)"[158]therearenosprites"
  22. 220 printvt$(7)tab(15)"usedhere!"vt$(10)tab(14)"pressanykey"
  23. 230 sys52227:print"[147]":goto50
  24. 240 poke53280,15:poke53281,15:print"[147][144]":poke702,0:tt$=""
  25. 250 sys52224,12,12,1,1,150,a$(32)
  26. 260 fori=1to32:tt$=tt$+"@":next
  27. 270 fori=0to12:printvt$(i+1)tab(19-i)""left$(tt$,i*2+1):next
  28. 280 fori=13to18:printvt$(i)tab(7)""left$(tt$,25):next
  29. 290 printvt$(23)tab(9)"pressanykeytoexit"
  30. 300 printvt$(14)tab(10)"partsofthescreen"
  31. 310 printvt$(16)tab(11)"maybeabackdrop"
  32. 320 sys52227:goto50
  33. 330 print"[147][159]multiple windows..."vt$(23)tab(9)"press any key to exit":poke702,0
  34. 340 i=1:j=3
  35. 350 gosub390:sys52224,j,i,5,10,255,a$(38)
  36. 360 j=j+2:i=i*2:ifi<20then350
  37. 370 sys52227
  38. 380 goto50
  39. 390 printvt$(j-1)tab(i-1)"[176][192][192][192][192][192][192][192][192][192][192][174]"
  40. 400 forij=1to5:printtab(i-1)"[221]          [221]":next
  41. 410 printtab(i-1)"[173][192][192][192][192][192][192][192][192][192][192][189]":return
  42. 420 data ,,"[176][192][192][192][192][192][192][192][192][174]","[221]compute![221]","[173][192][192][192][192][192][192][192][192][189]","_"
  43. 430 data ,,,,,,,,,"[176][192][192][192][192][192][192][192][192][192][192][192][192][174]","[221]  options   [221]"
  44. 440 data"[221]            [221]","[221] (1) demo1  [221]"
  45. 450 data"[221] (2) demo2  [221]","[221] (3) demo3  [221]"
  46. 460 data"[221] (4) quit   [221]","[221]            [221]"
  47. 470 data"[173][192][192][192][192][192][192][192][192][192][192][192][192][189]",,,,,,,,"_","^","^","_"
  48. 480 data,,,"there are",,"** many **",," windows",
  49. 490 data" on this",," screen",," just one",,"  of the",
  50. 500 data" possible",," effects",," using...",,"  smooth","scrolling"
  51. 510 data "  windows","    64",,,,,,"_","-1"
  52.