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"