1 REM  "NUDGE" DEMONSTRATION   (C)1990
2 REM
3 REM
4 REM  CODING AND DESIGN:  JASON FINCH
5 REM
6 REM  DEMO PICTURE:      DOUG SNEDDON
7 :
8 :
9 :
10 A=A+1:IFA=2THENLOAD"N.GRAPHICS",8,1
11 IFA=3THEN14
12 POKE53280,0:POKE53281,0:POKE53265,22:PRINT"[147]     [206][213][196][199][197] - [215]RITTEN BY [202]ASON [198]INCH"
13 PRINT,"[157][157][208]LEASE WAIT:  [204]OADING...":LOAD"N.CODE",8,1
14 POKE52,56:POKE56,56:CLR:PRINT"[147][158]":POKE53280,5:POKE53281,11:N=49330
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 PRINT"   [146][187]       [161] [146][161][161]     [146][187] [172]     [161]         [146][187]      [161] [146][161]";
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 PRINT"  [146][188]  [146][187]    [161] [146][161][161] [146][161]      [161] [188][146][162][162][162]     [146] [188]      [161]";
19 PRINT" [146][161][161] [146][161]      [161]  [146][161][161]       [146]  [188]     [161] [146][161][161] [146][161]      [146][188]";
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 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 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 PRINT"     PUBLISHED BY [195][196][213][160]IN [205]ARCH 1990"," [208]ROGRAMMING AND [196]ESIGN BY";
24 PRINT" [202]ASON [198]INCH","     [196]EMO PICTURE BY [196]OUG [211]NEDDON"
25 PRINT,"[154] [195]OPYRIGHT [195][196][213] 1990":SYSN+3,1:FORT=1TO3000:NEXT:SYSN+6,255
26 SYSN+3,9:PRINT"[147]":SYSN,0,0
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 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 PRINT" [206]UDGE  IS A  MORE ADVANCED  VERSION OF  [211]CREEN [211]LIDER, PUBLISHED";
30 PRINT" IN AN EARLIER  ISSUE OF [195]OMMODORE [196]ISK [213]SER.  [201]T WILL  ALLOW YO";
31 PRINT"U TO  EASILY CREATE IMPRESSIVE  METHODS OF INTRODUCING NEW SCREEN";
32 PRINT"S AND  CLEARING OTHERS WHETHER THEY ARE TEXT,  BITMAP  OR  [155]MULTI";
33 PRINT"COLOUR.  [194]Y PREPARING  THE INTERRUPTS PRIOR TO SETTING UP THE";
34 PRINT"  DESIRED SCREEN  YOU ARE  ENSURED  OF A  FLICKER-FREE DISPLAY BEF";
35 PRINT"ORE THE SMOOTH  SLIDES BEGIN.":POKE53270,216:SYSN+3,3:GOSUB72
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 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 PRINT" [194]Y USING  JUST  THREE SIMPLE  COMMANDS  YOU CAN SELECT THE  DISTA";
39 PRINT"NCES  BETWEEN  THE LINES  AS THEY ENTER  OR LEAVE AND  BY GIVING ";
40 PRINT"VALUES OF ZERO YOU CAN SHIFT  LARGE BLOCKS - EVEN THE ENTIRE SCREE";
41 PRINT"N.  [201]T IS ALSO  POSSIBLE TO VARY THE SPEED  USING THE  TEN PRESET";
42 PRINT" VALUES. [207]WING TO  THE  PRECISE TIMING REQUIREMENTS,  ALL  SPRITE";
43 PRINT"S ARE DISABLED DURING THE SCROLL  BUT  OTHER  THAN  THAT  YOU CAN ";
44 PRINT" SLIDE  ABSOLUTELY ANYTHING!":SYSN+3,7:SYSN,0,0:GOSUB72
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 PRINT"[147]":SYS38263:POKE49453,56:SYSN+6,255:SYSN+3,1:SYSN,0,0
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
49 SYSN+3,3:POKE49453,24:POKE53281,11:POKE53280,5:POKE56576,131:PRINT"[147]"
50 POKE53270,200:POKE53272,30:SYSN,0,0:POKE53283,14:SYSN+6,255:SYSN,1,1:POKE49453,88
51 PRINT" [154]<                                    [146][154]="
52 PRINT"  .5$'% $%-/.342!4)/.         [#\ ]^^_ "
53 PRINT" [154]>                                    [146][154]?"
54 PRINT"  .OT ONLY CAN  STANDARD TEXT  BE USED"
55 PRINT"  BUT;  AS YOU  HAVE  SEEN;  BITMAPPED"
56 PRINT"  GRAPHICS  CAN BE SCROLLED  AS WELL @"
57 PRINT"  EVEN IF THEY ARE IN MULTICOLOUR MODE"
58 PRINT"  .OW YOU  CAN SEE  THAT  5SER@$EFINED"
59 PRINT"  'RAPHICS  WILL  ALSO  WORK;  AS WILL"
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
61 WAIT198,1:POKE198,0:SYSN+3,3:PRINT"[147]":SYSN,0,0:POKE53265,22:POKE53272,21
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
63 PRINT"[158]      [223]       [223][169]        "
64 PRINT"      [146][223][223]       "
65 PRINT"      [146] [223][223]      [161]      "
66 PRINT"      [146]  [223]        "
67 PRINT"       [146][223]   [146][169]     [146][169] [223]   [146][169]      "," [157] [146]  ";
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    "
69 PRINT" MACHINE CODE PROGRAMMING",," AND DEMONSTRATION...","[157][157][150]JASON FINCH"
70 PRINT" DEMO PICTURE...",,"[157][157][157][150]DOUG SNEDDON"
71 PRINT"[153]  [SEE MAGAZINE FOR OPERATING DETAILS][144]":SYSN+3,0:NEW
72 POKE56295,4:P=62:C=9:POKE198,0
73 C=C+1:IFC=10THENC=0:P=252-P:POKE2023,P
74 GETA$:IFA$=""THEN73
75 POKE2023,32:POKE198,0:RETURN