home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1992 August / 1992-08.d64 / windowsdemo (.txt) < prev   
Commodore BASIC  |  2022-09-20  |  3KB  |  63 lines
  1. 1 ifpeek(49170)<>120thenload"windows",8,1
  2. 10 print"[147][144]";:sys49170:sys49346,27,23,151,4,3,100:poke808,237
  3. 20 sys49308,27,23,151,4,14,192:sys49383,27,23,151,4,1,255:poke53280,14
  4. 30 print""tab(14)"[211]uper[215]indows"
  5. 40 print""tab(6)"[195]opyright 1992 [195][207][205][208][213][212][197] [201]nt'l"
  6. 50 printtab(10)"[193]ll rights reserved."
  7. 60 print""tab(6)"[208]rogrammed by [195]ameron [203]aiser"
  8. 70 forx=8192to10240:pokex,0:next
  9. 80 poke53280,15:sys49346,27,23,151,4,15,100:sys49308,27,23,151,4,15,192
  10. 90 sys49383,27,23,151,4,15,255
  11. 100 poke53280,12:sys49346,27,23,151,4,12,100:sys49308,27,23,151,4,12,192
  12. 110 sys49383,27,23,151,4,12,255
  13. 120 poke53280,11:sys49346,27,23,151,4,11,100:sys49308,27,23,151,4,11,192
  14. 130 sys49383,27,23,151,4,11,255
  15. 140 poke53280,0:sys49346,27,23,151,4,0,100:sys49308,27,23,151,4,0,192
  16. 150 sys49383,27,23,151,4,0,255:forx=1to900:next
  17. 160 print"[147][152][206]ormally you've got only one screen to  work with."
  18. 170 forx=10240to12288:pokex,0:next
  19. 180 print"[212]hat's the idea behind [211]uper[215]indows."
  20. 182 forx=12288to14336:pokex,0:next
  21. 190 print"[201]t gives you three separate screens to  control."
  22. 200 forx=14336to16383:pokex,0:next
  23. 210 print"[147][211]ee?";
  24. 220 sys49308,59,29,151,4,0,230:sys49346,27,23,151,4,0,60:gosub63000
  25. 230 print"[147][211]creens can be resized too..even shrunk!";
  26. 240 forx=1to84:sys49308,59,29,151,4,0,230-x:sys49346,27,23,151,4,0,x+60:next
  27. 250 sys49308,27,23,151,4,0,230
  28. 252 sys49346,27,23,151,4,0,60
  29. 253 print"[147][193]nd the screens act independently of    each other!"
  30. 254 forx=1to2500:next
  31. 260 print"[147][201] won't change.....":forx=1to1000:next
  32. 270 print"but i will!"
  33. 280 forx=1to100:sys49308,27,21,151,4,11,230:sys49308,27,23,151,4,0,230:next
  34. 290 print"[147][211]o many effects are possible that this  demo can't possibly show";
  35. 300 print" them all!"
  36. 310 forx=1to128:sys49346,27,23,151,4,x,100:sys49308,27,23,151,4,x+1,192
  37. 320 sys49383,27,23,151,4,x+2,255:nextx:print"[147]";
  38. 330 sys49308,27,23,151,4,0,192:sys49383,27,23,151,4,0,255:forx=1to1000:next
  39. 340 print"[208]ress [196] to see this demo again."
  40. 350 print"[208]ress [210][213][206]/[211][212][207][208]-[210][197][211][212][207][210][197] to quit."
  41. 360 wait198,1:geta$:ifa$<>"d"then360
  42. 62999 run
  43. 63000 for x=0 to 289 step1.5
  44. 63010 y=int(90+80*sin(x/10))
  45. 63020 ch%=x/8:ro%=y/8
  46. 63030 ln=y and 7
  47. 63040 by=8192+ro%*320+ch%*8+ln
  48. 63050 bi=7-(x and 7)
  49. 63060 poke by,peek(by) or 2^bi
  50. 63064 ifx=60thenprint"[147][194]est [201]'ve seen!":sys49346,27,23,151,4,14,60
  51. 63065 ifx=120thenprint"[147][144][208]retty, right? ":sys49346,27,23,151,4,4,60
  52. 63066 ifx=240thenprint"[147][152][194]ut there's still more!":sys49346,27,23,151,4,0,60
  53. 63067 ifx=180thenprint"[147][193] powerful utility!":sys49346,27,23,151,4,3,60
  54. 63070 ifx=60thenprint"[144][201]t can't be!"
  55. 63071 ifx=60thensys49383,27,23,151,4,15,255
  56. 63072 ifx=120thenprint"[212]his is amazing!"
  57. 63073 ifx=120thensys49383,27,23,151,4,2,255
  58. 63074 ifx=180thenprint"[159][201] think [201] might faint!"
  59. 63075 ifx=180thensys49383,27,23,151,4,11,255
  60. 63076 ifx=240thensys49383,27,23,151,4,0,255
  61. 63079 next
  62. 63080 return
  63.