home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1988 December / 1988-12.d64 / window.demo (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  1KB  |  38 lines
  1. 10 rem copyright 1988 compute! publications, inc. - all rights reserved
  2. 20 ifa=0thena=1:poke2,0:load"window.obj",8,1
  3. 30 p1=49838:p2=49839:rem pokep1,32:pokep2,0
  4. 40 fork=1to5:readb(k):next:data 32,102,214,127,215
  5. 50 poke53280,6:poke53281,12:print"[144][147]":n=1024
  6. 60 print"[147]"tab(12)"copyright 1988"
  7. 70 printtab(7)"compute! publications, inc."
  8. 80 printtab(11)"all rights reserved"
  9. 90 forj=1to25:fork=1to40:poken,122:n=n+1:nextk:nextj
  10. 100 m$="_^ demo menu__ 1) open small window_ 2) open large"
  11. 110 m$=m$+" window_ 3) close 1 window_ 4) close all windows_ 5) exit"
  12. 120 m$=m$+" demo__    make selection"
  13. 130 pokep1,b(int(rnd(0)*5+1))
  14. 140 sys49152,13,16,12,24,2,m$
  15. 150 pokep1,b(int(rnd(0)*5+1))
  16. 160 getx$:ifx$<"1"orx$>"5"then160
  17. 170 print"[186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186]"
  18. 180 sys49155:rem close menu window
  19. 190 onasc(x$)-48goto200,240,280,300,340
  20. 200 ifpeek(2)>9thenprint" too many windows open!":sys49155,peek(2):goto130
  21. 210 r%=rnd(0)*6+2:c%=rnd(0)*25+1:gosub360
  22. 220 sys49152,r%,c%,10,11,x%,"_ this is_ a small_ window__  press_ any key"
  23. 230 goto320
  24. 240 ifpeek(2)>9then print" too many windows open!":sys49155,peek(2):goto130
  25. 250 r%=rnd(0)*10+2:c%=rnd(0)*11+1:gosub360
  26. 260 sys49152,r%,c%,12,28,x%,"___  this is a large window____^ press any key"
  27. 270 goto320
  28. 280 ifpeek(2)=0 then print" no windows open!      ":goto130
  29. 290 sys49155:goto130
  30. 300 ifpeek(2)=0then280
  31. 310 sys49155,peek(2):goto130
  32. 320 getx$:ifx$=""then320
  33. 330 goto130
  34. 340 ifpeek(2)thensys49155,peek(2)
  35. 350 fork=1to2000:next:print"[147]":end
  36. 360 x%=rnd(0)*15+1:if(peek(53281)and15)=x%then360
  37. 370 return
  38.