Home » Personal collection » Commodore disks » disk32a_commodore_disk_user_3_7.d64 » nudge
nudge
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Personal collection » Commodore disks » disk32a_commodore_disk_user_3_7.d64 | 
| Filename: | nudge | 
| Read OK: | ✔ | 
| File size: | 0FC5 bytes | 
| Load address: | 0801 | 
| Exec address: | 0000 | 
Duplicates
There is 1 duplicate copy of this file in the archive:
- Arnold website » magazines_cdu » magazines_cdu_cdu307_cdu307.d64 » nudge
 - Personal collection » Commodore disks » disk32a_commodore_disk_user_3_7.d64 » nudge
 
File contents
     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"<clr><white><shift disable><text mode><cursor down><cursor down><cursor down><cursor down>     ╱╭🭷🭱🭶 - ○RITTEN BY ╰ASON 🭺INCH"
    13 PRINT,"<cursor down><cursor down><cursor down><cursor down><cursor left><cursor left>🭾LEASE WAIT:  🭼OADING...":LOAD"N.CODE",8,1
    14 POKE52,56:POKE56,56:CLR:PRINT"<clr><cursor down><yellow>":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" <reverse on>  <rev off>▖   <reverse on>  <cursor right>  <cursor right><cursor right>▌ <rev off>▌<reverse on>▌     <rev off>▖ ▗<reverse on>     <cursor right>▌      <cursor right><cursor right>   <rev off>▖  <reverse on>  <cursor right>  <cursor right><cursor right>▌ <rev off>▌<reverse on>";
    17 PRINT"▌ ▗▄▖  <cursor right>  ▗▄▄▄<cursor right>▌ ▗▄▄▄▄<cursor right><cursor right>    <rev off>▖ <reverse on>  <cursor right>  <cursor right><cursor right>▌ <rev off>▌<reverse on>▌ <rev off>▌  <reverse on>  <cursor right>  <cursor right><cursor right><cursor right><cursor right><cursor right>▌ <rev off>▌"
    18 PRINT"<reverse on><cursor right>  <rev off>▝<reverse on>  <rev off>▖<reverse on>  <cursor right>  <cursor right><cursor right>▌ <rev off>▌<reverse on>▌ <rev off>▌  <reverse on>  <cursor right>  <cursor right><cursor right><cursor right><cursor right><cursor right>▌ ▝<rev off>▄▄▄   <reverse on>  <rev off> ▝<reverse on>    <cursor right>  <cursor right><cursor right>▌";
    19 PRINT" <rev off>▌<reverse on>▌ <rev off>▌  <reverse on>  <cursor right>  <cursor right>▌  <rev off>▌<reverse on>▌     <cursor right><cursor right><cursor right>  <rev off>  ▝<reverse on>   <cursor right>  <cursor right><cursor right>▌ <rev off>▌<reverse on>▌ <rev off>▌  <reverse on>  <cursor right>  <cursor right><rev off>▝<reverse on>";
    20 PRINT"▖ <rev off>▌<reverse on>▌ <rev off>▌"," <reverse on>  <cursor right><cursor right><cursor right><rev off>▝<reverse on>  <cursor right>  <rev off>▖ <reverse on>▘ <rev off>▌<reverse on>▌ <rev off>▌ ▗<reverse on>  <cursor right>  <rev off>▖ <reverse on>▘ <rev off>▌<reverse on>▌ <rev off>▌"
    21 PRINT" <reverse on>  <cursor right><cursor right><cursor right><cursor right>  <cursor right>▖     <rev off>▘<reverse on>▌     ▗<cursor right>▖     <rev off>▘<reverse on>▌      <cursor right><cursor right>▄▄<cursor right><cursor right><cursor right><cursor right>▄▄<cursor right><cursor right>▄▄▄▄<rev off>▘ ▝<reverse on>▄▄▄";
    22 PRINT"▄▄<cursor right><cursor right><cursor right>▄▄▄▄<rev off>▘ ▝<reverse on>▄▄▄▄▄▄","<cursor down><pink><rev off>     ♠N ADAPTATION OF ♥CREEN ♥LIDER"
    23 PRINT"     PUBLISHED BY 🭸🭷╭ IN ╲ARCH 1990","<cursor down><cursor down><cursor down><white> 🭾ROGRAMMING AND 🭷ESIGN BY";
    24 PRINT" ╰ASON 🭺INCH<cursor down>","     🭷EMO PICTURE BY 🭷OUG ♥NEDDON<cursor down><cursor down>"
    25 PRINT,"<light blue> 🭸OPYRIGHT 🭸🭷╭ 1990":SYSN+3,1:FORT=1TO3000:NEXT:SYSN+6,255
    26 SYSN+3,9:PRINT"<clr>":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"<clr><white><cursor down> ○ELCOME TO ╱UDGE",,," ▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔▔"
    29 PRINT" ╱UDGE  IS A  MORE ADVANCED  VERSION OF<cursor down>  ♥CREEN ♥LIDER, PUBLISHED";
    30 PRINT" IN AN EARLIER<cursor down>  ISSUE OF 🭸OMMODORE 🭷ISK ╭SER.  ╮T WILL<cursor down>  ALLOW YO";
    31 PRINT"U TO  EASILY CREATE IMPRESSIVE<cursor down>  METHODS OF INTRODUCING NEW SCREEN";
    32 PRINT"S AND<cursor down>  CLEARING OTHERS WHETHER THEY ARE TEXT,<cursor down>  BITMAP  OR  <light gray>MULTI";
    33 PRINT"COLOUR<white>.  🭲Y PREPARING<cursor down>  THE INTERRUPTS PRIOR TO SETTING UP THE<cursor down>";
    34 PRINT"  DESIRED SCREEN  YOU ARE  ENSURED  OF A<cursor down>  FLICKER-FREE DISPLAY BEF";
    35 PRINT"ORE THE SMOOTH<cursor down>  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"<clr><cursor down> ╱UDGE - 🭲Y ╰ASON 🭺INCH",," ▔▔▔▔▔   ▔▔▔▔▔▔▔▔▔▔▔▔▔▔"
    38 PRINT" 🭲Y USING  JUST  THREE SIMPLE  COMMANDS<cursor down>  YOU CAN SELECT THE  DISTA";
    39 PRINT"NCES  BETWEEN<cursor down>  THE LINES  AS THEY ENTER  OR LEAVE AND<cursor down>  BY GIVING ";
    40 PRINT"VALUES OF ZERO YOU CAN SHIFT<cursor down>  LARGE BLOCKS - EVEN THE ENTIRE SCREE";
    41 PRINT"N.<cursor down>  ╮T IS ALSO  POSSIBLE TO VARY THE SPEED<cursor down>  USING THE  TEN PRESET";
    42 PRINT" VALUES. 🭽WING TO<cursor down>  THE  PRECISE TIMING REQUIREMENTS,  ALL<cursor down>  SPRITE";
    43 PRINT"S ARE DISABLED DURING THE SCROLL<cursor down>  BUT  OTHER  THAN  THAT  YOU CAN ";
    44 PRINT" SLIDE<cursor down>  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"<clr>":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"<clr>"
    50 POKE53270,200:POKE53272,30:SYSN,0,0:POKE53283,14:SYSN+6,255:SYSN,1,1:POKE49453,88
    51 PRINT" <light blue><<blue><reverse on>                                    <rev off><light blue>="
    52 PRINT" <reverse on><blue> .5$'% $%-/.342!4)/.         [#£ ]↑↑← "
    53 PRINT" <light blue>><blue><reverse on>                                    <rev off><light blue>?"
    54 PRINT"<cursor down><cursor down><cursor down><white>  .OT ONLY CAN  STANDARD TEXT  BE USED<cursor down>"
    55 PRINT"  BUT;  AS YOU  HAVE  SEEN;  BITMAPPED<cursor down>"
    56 PRINT"  GRAPHICS  CAN BE SCROLLED  AS WELL @<cursor down>"
    57 PRINT"  EVEN IF THEY ARE IN MULTICOLOUR MODE"
    58 PRINT"<cursor down><cursor down>  .OW YOU  CAN SEE  THAT  5SER@$EFINED"
    59 PRINT"<cursor down>  'RAPHICS  WILL  ALSO  WORK;  AS WILL"
    60 PRINT"<cursor down>  EXTENDED BACKGROUND MODE:<cursor down><cursor down><cursor down><cursor left><cursor left><black>┌┬▏┤┤ ▌┐▃ ├▏▃":SYSN+3,3:POKE198,0
    61 WAIT198,1:POKE198,0:SYSN+3,3:PRINT"<clr>":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"<yellow>     <reverse on> ◥<cursor right><cursor right> <cursor right> <cursor right><cursor right><cursor right> <cursor right>    ◥<cursor right>◤   <cursor right><cursor right>     "
    64 PRINT"     <reverse on> <rev off>◥<reverse on>◥<cursor right> <cursor right> <cursor right><cursor right><cursor right> <cursor right> <cursor right><cursor right><cursor right> <cursor right> <cursor right><cursor right><cursor right><cursor right><cursor right> "
    65 PRINT"     <reverse on> <rev off> ◥<reverse on>◥ <cursor right> <cursor right><cursor right><cursor right> <cursor right> <cursor right><cursor right><cursor right> <cursor right> <cursor right>▌  <cursor right>    "
    66 PRINT"     <reverse on> <rev off>  ◥<reverse on> <cursor right> <cursor right><cursor right><cursor right> <cursor right> <cursor right><cursor right><cursor right> <cursor right> <cursor right><cursor right><cursor right> <cursor right> "
    67 PRINT"     <reverse on> <cursor right><cursor right><cursor right> <cursor right><rev off>◥<reverse on>   <rev off>◤ <reverse on>    <rev off>◤ ◥<reverse on>   <rev off>◤ <reverse on>     ","<cursor right><cursor right><cursor right><cursor right><cursor right> <cursor down><cursor left> <rev off>  ";
    68 PRINT"▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁▁","     <reverse on> <cursor right><cursor right>    DEMONSTRATION OVER    "
    69 PRINT"<cursor down><cursor down><cursor down><white> MACHINE CODE PROGRAMMING",," AND DEMONSTRATION...","<cursor left><cursor left><pink>JASON FINCH"
    70 PRINT"<cursor down><cursor down><white> DEMO PICTURE...",,"<cursor left><cursor left><cursor left><pink>DOUG SNEDDON"
    71 PRINT"<cursor down><cursor down><cursor down><light green>  [SEE MAGAZINE FOR OPERATING DETAILS]<cursor down><black>":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
                ( � "NUDGE" DEMONSTRATION (C)1990 . � 4 � [ � CODING AND DESIGN: JASON FINCH a � � � DEMO PICTURE: DOUG SNEDDON � : � : � : � A�A�1:�A�2��"N.GRAPHICS",8,1 � �A�3�14 �53280,0:�53281,0:�53265,22:�"� ����� - �RITTEN BY �ASON �INCH"