home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1993 June / 1993-06.d64 / quickdemos (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1993-01-01  |  1.4 KB  |  49 lines
  1. 10 if peek(49152) <> 32 then load"quickscreen",8,1
  2. 20 d$="":a$="***************************************"
  3. 30 poke53280,0:poke53281,0
  4. 40 print"[147]":for x=0 to 250:next x
  5. 50 print"[158]"spc(14)"quickscreen![146]"
  6. 60 print"[159]     boring text displays come alive!"
  7. 70 print"[150]     character graphic displays zoom!"
  8. 80 print""spc(14)"select demo:[146]"
  9. 90 print"[153]"spc(5)"1) demo # 1 - screen roll in"
  10. 100 print"[153]"spc(5)"2) demo # 2 - screen split"
  11. 110 print"[153]"spc(5)"3) demo # 3 - screen merge"
  12. 120 get k$:if k$="1"then 310
  13. 130 if k$="2"then 370
  14. 140 if k$="3"then 430
  15. 150 goto120
  16. 160 rem ** draw & store screen **
  17. 170 sys 49152,7: rem *** screen off
  18. 180 print"[159][147]"a$;d$;a$
  19. 190 for x=1024 to 1984 step 40:poke x,42:next
  20. 200 for x=1063 to 2023 step 40:poke x,42:next
  21. 210 print""spc(12)"[150]quickscreen demo"
  22. 220 print""spc(6)"a quick sys command moves the"
  23. 230 print""spc(12)"screen in or out."
  24. 240 print"[158]can be used in basic or machine"
  25. 250 print""spc(12)"language programs."
  26. 260 print"[156]"spc(9)" press a key continue "
  27. 270 sys 49152,0: rem *** store screen
  28. 280 print"[147]":    rem *** clear screen
  29. 290 sys 49152,8: rem *** screen on
  30. 300 return
  31. 310 rem ** demo # 1 **
  32. 320 gosub 160: rem *** draw & store scr
  33. 330 sys 49152,1: rem *** move in # 1
  34. 340 get k$:ifk$=""then 340
  35. 350 sys 49152,2: rem *** move out # 1
  36. 360 goto 40
  37. 370 rem ** demo # 2 **
  38. 380 gosub 160: rem *** draw & store scr
  39. 390 sys 49152,3: rem *** move in # 2
  40. 400 get k$:ifk$=""then 400
  41. 410 sys 49152,4: rem *** move out # 2
  42. 420 goto 40
  43. 430 rem ** demo # 3 **
  44. 440 gosub 160: rem *** draw & store scr
  45. 450 sys 49152,5: rem *** move in # 3
  46. 460 get k$:ifk$=""then 460
  47. 470 sys 49152,6: rem *** move out # 3
  48. 480 goto 40
  49.