home *** CD-ROM | disk | FTP | other *** search
/ Light / Light_Vol.1_July_1992_Datasphere_Publications_Disk_1_of_2_Side_A.d64 / nudge (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  75 lines
  1. 1 rem  "nudge" demonstration   (c)1990
  2. 2 rem
  3. 3 rem
  4. 4 rem  coding and design:  jason finch
  5. 5 rem
  6. 6 rem  demo picture:      doug sneddon
  7. 7 :
  8. 8 :
  9. 9 :
  10. 10 a=a+1:ifa=2thenload"n.graphics",8,1
  11. 11 ifa=3then14
  12. 12 poke53280,0:poke53281,0:poke53265,22:print"[147]     [206][213][196][199][197] - [215]ritten by [202]ason [198]inch"
  13. 13 print,"[157][157][208]lease wait:  [204]oading...":load"n.code",8,1
  14. 14 poke52,56:poke56,56:clr:print"[147][158]":poke53280,5:poke53281,11:n=49330
  15. 15 sysn+6,0,0,0,0,0,0,0,0,0,0,7,0,0,5,0,0,0,2,0,0,0,1,1,1:sysn,1,1
  16. 16 print"   [146][187]       [161] [146][161][161]     [146][187] [172]     [161]         [146][187]      [161] [146][161]";
  17. 17 print"[161] [172][162][187]    [172][162][162][162][161] [172][162][162][162][162]    [146][187]     [161] [146][161][161] [146][161]      [161] [146][161]"
  18. 18 print"  [146][188]  [146][187]    [161] [146][161][161] [146][161]      [161] [188][146][162][162][162]     [146] [188]      [161]";
  19. 19 print" [146][161][161] [146][161]      [161]  [146][161][161]       [146]  [188]     [161] [146][161][161] [146][161]      [146][188]";
  20. 20 print"[187] [146][161][161] [146][161]","   [146][188]    [146][187] [190] [146][161][161] [146][161] [172]    [146][187] [190] [146][161][161] [146][161]"
  21. 21 print"     [187]     [146][190][161]     [172][187]     [146][190][161]      [162][162][162][162][162][162][162][162][146][190] [188][162][162][162]";
  22. 22 print"[162][162][162][162][162][162][146][190] [188][162][162][162][162][162][162]","[150][146]     [193]n adaptation of [211]creen [211]lider"
  23. 23 print"     published by [195][196][213][160]in [205]arch 1990"," [208]rogramming and [196]esign by";
  24. 24 print" [202]ason [198]inch","     [196]emo picture by [196]oug [211]neddon"
  25. 25 print,"[154] [195]opyright [195][196][213] 1990":sysn+3,1:fort=1to3000:next:sysn+6,255
  26. 26 sysn+3,9:print"[147]":sysn,0,0
  27. 27 sysn+6,0,20,18,16,0,13,0,10,0,7,0,4,0,4,0,4,0,2,0,1,0,1,0,1:sysn,0,1
  28. 28 poke53282,10:poke53283,0:print"[147] [215]elcome to [206]udge",,," [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  29. 29 print" [206]udge  is a  more advanced  version of  [211]creen [211]lider, published";
  30. 30 print" in an earlier  issue of [195]ommodore [196]isk [213]ser.  [201]t will  allow yo";
  31. 31 print"u to  easily create impressive  methods of introducing new screen";
  32. 32 print"s and  clearing others whether they are text,  bitmap  or  [155]multi";
  33. 33 print"colour.  [194]y preparing  the interrupts prior to setting up the";
  34. 34 print"  desired screen  you are  ensured  of a  flicker-free display bef";
  35. 35 print"ore the smooth  slides begin.":poke53270,216:sysn+3,3:gosub72
  36. 36 sysn+6,0,0,15,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1:sysn,1,2:sysn+3,3
  37. 37 poke53270,200:print"[147] [206]udge - [194]y [202]ason[160][198]inch",," [163][163][163][163][163]   [163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  38. 38 print" [194]y using  just  three simple  commands  you can select the  dista";
  39. 39 print"nces  between  the lines  as they enter  or leave and  by giving ";
  40. 40 print"values of zero you can shift  large blocks - even the entire scree";
  41. 41 print"n.  [201]t is also  possible to vary the speed  using the  ten preset";
  42. 42 print" values. [207]wing to  the  precise timing requirements,  all  sprite";
  43. 43 print"s are disabled during the scroll  but  other  than  that  you can ";
  44. 44 print" slide  absolutely anything!":sysn+3,7:sysn,0,0:gosub72
  45. 45 sysn+6,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4:sysn,1,2:sysn+3,1
  46. 46 print"[147]":sys38263:poke49453,56:sysn+6,255:sysn+3,1:sysn,0,0
  47. 48 fort=1to4000:next:sysn+6,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3:sysn,1,2
  48. 49 sysn+3,3:poke49453,24:poke53281,11:poke53280,5:poke56576,131:print"[147]"
  49. 50 poke53270,200:poke53272,30:sysn,0,0:poke53283,14:sysn+6,255:sysn,1,1:poke49453,88
  50. 51 print" [154]<                                    [146][154]="
  51. 52 print"  .5$'% $%-/.342!4)/.         [#\ ]^^_ "
  52. 53 print" [154]>                                    [146][154]?"
  53. 54 print"  .ot only can  standard text  be used"
  54. 55 print"  but;  as you  have  seen;  bitmapped"
  55. 56 print"  graphics  can be scrolled  as well @"
  56. 57 print"  even if they are in multicolour mode"
  57. 58 print"  .ow you  can see  that  5ser@$efined"
  58. 59 print"  'raphics  will  also  work;  as will"
  59. 60 print"  extended background mode:[157][157][144][176][178][165][179][179][160][161][174][185][160][171][165][185]":sysn+3,3:poke198,0
  60. 61 wait198,1:poke198,0:sysn+3,3:print"[147]":sysn,0,0:poke53265,22:poke53272,21
  61. 62 sysn+6,0,0,0,0,0,0,0,0,0,0,0,4,0,0,3,0,0,0,0,2,0,0,0,1:sysn,0,1
  62. 63 print"[158]      [223]       [223][169]        "
  63. 64 print"      [146][223][223]       "
  64. 65 print"      [146] [223][223]      [161]      "
  65. 66 print"      [146]  [223]        "
  66. 67 print"       [146][223]   [146][169]     [146][169] [223]   [146][169]      "," [157] [146]  ";
  67. 68 print"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]","          demonstration over    "
  68. 69 print" machine code programming",," and demonstration...","[157][157][150]jason finch"
  69. 70 print" demo picture...",,"[157][157][157][150]doug sneddon"
  70. 71 print"[153]  [see magazine for operating details][144]":sysn+3,0:new
  71. 72 poke56295,4:p=62:c=9:poke198,0
  72. 73 c=c+1:ifc=10thenc=0:p=252-p:poke2023,p
  73. 74 geta$:ifa$=""then73
  74. 75 poke2023,32:poke198,0:return
  75.