home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1989 October / 1989-10.d64 / backdrops (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  60 lines
  1. 10 rem copyright 1989 compute! publications, inc. - all rights reserved
  2. 20 a$="":print"[147]":gosub1010:sys49152:rem install backdrops and turn on
  3. 30 sys49185:gosub1130:print"[147][144]":x=1:gosub90:print"[158]"
  4. 40 x=0:gosub90:gosub210
  5. 50 sys49185:gosub1240:print"[147]":x=1:gosub90:print"[159]"
  6. 60 x=0:gosub90:gosub210
  7. 70 sys49185:gosub1290:print"[147][144]":x=1:gosub90:print"[158]"
  8. 80 x=0:gosub90:gosub210:goto30
  9. 90 printtab(x)"       [146]     [146]       [146]  [146]     [146]"
  10. 100 printtab(x)"       [146]     [146]       [146]  [146]     [146]"
  11. 110 printtab(x)"   [146]   [146]   [146]  [146]  [146]"
  12. 120 printtab(x)"   [146]   [146]   [146]  [146]    [146]"
  13. 130 printtab(x)"   [146]   [146]   [146]  [146]    [146]"
  14. 140 printtab(x)"   [146]   [146]   [146]  [146]  [146]"
  15. 150 printtab(x)"   [146]     [146]   [146]      [146]     [146]"
  16. 160 printtab(x)"   [146]     [146]   [146]      [146]     [146]"
  17. 170 print""tab(13)"copyright 1989":printtab(7)"compute! publications, inc."
  18. 180 printtab(11)"all rights reserved"
  19. 190 print""tab(7)"hit a key to continue demo"
  20. 200 return
  21. 210 sys49185:poke198,0:wait198,1:geta$
  22. 220 return
  23. 1000 rem backdrops ml
  24. 1010 foru=49152to49272:readq:pokeu,q:ck=ck+q:next
  25. 1020 ifck<>14738thenprint"error in data":end
  26. 1030 fort=50000to50000+254step2:poket,0:next
  27. 1040 data120,169,127,141,13,220,169,1,141,26,208,169,40,141,18,208,169,27
  28. 1050 data141,17,208,169,81,141,20,3,169,192,141,21,3,88,96,173,18,208
  29. 1060 data201,38,208,249,173,17,208,73,16,141,17,208,96,120,169,49,141,20
  30. 1070 data3,169,234,141,21,3,169,240,141,26,208,169,129,141,13,220,173,120
  31. 1080 data195,141,32,208,141,33,208,88,96,169,1,141,25,208,174,18,208,224
  32. 1090 data0,240,20,189,80,195,141,33,208,141,32,208,232,232,142,18,208,104
  33. 1100 data168,104,170,104,64,169,40,141,18,208,76,49,234
  34. 1110 return
  35. 1120 rem laser backdrop
  36. 1130 fort=50000to50000+254step2:poket,0:next
  37. 1140 fort=50000+40to50000+40+214step2
  38. 1150 ford=0to7:poket,6:t=t+2:next
  39. 1160 poket,14:t=t+2
  40. 1170 poket,3:t=t+2
  41. 1180 poket,1:t=t+2
  42. 1190 poket,3:t=t+2
  43. 1200 poket,14
  44. 1210 next
  45. 1220 return
  46. 1230 rem line backdrop
  47. 1240 x=0:fort=50000to50000+254step2:poket,0:next
  48. 1250 fort=50000+40to50000+40+214step2
  49. 1260 poket,5:t=t+x:x=x+2:next
  50. 1270 return
  51. 1280 rem plank backdrop
  52. 1290 fort=50000to50000+254step2:poket,0:next
  53. 1300 fort=50000+40to50000+40+214step2
  54. 1310 ford=0to4:poket,11:t=t+2:next
  55. 1320 poket,0:t=t+2
  56. 1330 poket,12:t=t+2
  57. 1340 poket,15
  58. 1350 next
  59. 1360 return
  60.