home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V3D07.D64 / nudge (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  3.9 KB  |  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.