home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1989 May / 1989-05.d64 / shades (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  42 lines
  1. 10 rem copyright 1989 compute publications, inc. - all rights reserved
  2. 20 gosub1000:rem install shades
  3. 30 restore:sys49152,0,0,2,8,7,1
  4. 40 print""tab(16)"shades"
  5. 50 printtab(12)"copyright 1989"
  6. 60 printtab(6)"compute! publications, inc."
  7. 70 printtab(10)"all rights reserved"
  8. 80 print"                                        "
  9. 90 printtab(5)"shades provides a new graphics
  10. 100 [153][163]5)"mode that enhances text with
  11. 110 printtab(5)"a four color shading effect.
  12. 120 [153][163]5)"you can easily transform your
  13. 130 printtab(5)"normal text screens into
  14. 140 [153][163]5)"professional looking displays.
  15. 150 print"                                        "
  16. 160 printtab(5)"press any key to change colors
  17. 170 [153][163]10)"or <return> to exit";
  18. 180 [151]198,0:[146]198,1:[161]a$:[139]a$[178][199](13)[167]220
  19. 190 [135]c1,c2,c3,c4:[139]c1[178][171]1[167][140]:[137]180
  20. 200 [158]49250,c1,c2,c3,c4:[137]180
  21. 210 [158]49250,0,c2,c3,c4:[141]240:[158]49250,0,0,c3,c4:[141]240
  22. 220 [158]49250,0,0,0,c3:[141]240:[158]49250,0,0,0,0:[158]49275:[153]"load":[128]
  23. 230 [131]14,1,8,7,1,7,8,2,14,1,8,9,5,7,8,9,6,14,8,2,6,14,3,1,-1,-1,-1,-1
  24. 240 [129]dl[178]1[164]100:[130]:[142]
  25. 1000 [151]785,232:[151]786,7:[151]209,232:[151]210,7:[151]211,0:[151]213,39
  26. 1010 rl[178]1050:[153]" s&$wait(NULL)hdwaitatn$waitclosedwaitpeekclose":[158]47083(rl),[183](0)
  27. 1020 [129]u[178]49152[164]49358:[135]q:[151]u,q:ck[178]ck[170]q:[130]
  28. 1030 [139]ck[179][177]26792[167][153]"error in data":[128]
  29. 1040 [142]
  30. 1050 [131]162,26,181,216,9,128,149,216,202,208,247,32,155,183,142,32,208,32
  31. 1060 [131]155,183,169,160,160,251,153,255,3,153,249,4,153,243,5,153,237,6
  32. 1070 [131]136,208,241,138,160,251,153,255,215,153,249,216,153,243,217,153,237
  33. 1080 [131]218,136,208,241,141,134,2,120,169,127,141,13,220,169,1,141,26,208,169
  34. 1090 [131]48,133,251,141,18,208,169,27,141,17,208,169,152,141,20,3,169,192
  35. 1100 [131]141,21,3,169,5,133,2,88,32,155,183,142,169,2,32,155,183,142
  36. 1110 [131]168,2,32,155,183,142,167,2,32,155,183,142,170,2,96,120,169,49
  37. 1120 [131]141,20,3,169,234,141,21,3,169,240,141,26,208,169,255,141,13,220
  38. 1130 [131]173,169,2,141,33,208,88,96,169,1,141,25,208,198,2,208,4,162
  39. 1140 [131]4,134,2,166,2,189,166,2,141,33,208,165,251,24,105,2,201,252
  40. 1150 [131]176,11,133,251,141,18,208,104,168,104,170,104,64,169,48,133,251,141
  41. 1160 [131]18,208,169,5,133,2,76,49,234
  42.