Home » Personal collection » Commodore disks » disk32a_commodore_disk_user_3_7.d64 » n.save-rel
n.save-rel
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: | n.save-rel |
Read OK: | ✔ |
File size: | 0AA7 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 » n.save-rel
- Personal collection » Commodore disks » disk32a_commodore_disk_user_3_7.d64 » n.save-rel
File contents
1 REM "NUDGE" RELOCATER (C)1990 2 REM 3 REM 4 REM PROGRAMMING AND 5 REM DESIGN... JASON FINCH 6 : 7 : 8 : 9 A=A+1:IFA=2THEN12 10 POKE53280,0:POKE53281,0:POKE53265,22:PRINT"<clr><white><shift disable><text mode><cursor down><cursor down><cursor down> ╱╭🭷🭱🭶 🭻🭶🭼🭽🭸♠🭰🭽🭻 - 🭲Y ╰ASON 🭺INCH" 11 PRINT,"<cursor down><cursor down><cursor down><cursor down><cursor left><cursor left>🭾LEASE WAIT: 🭼OADING...":LOAD"N.CODE",8,1 12 PRINT"<clr><cursor down><yellow>":POKE53280,5:POKE53281,11:N=49330 13 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 14 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>"; 15 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>▌" 16 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>▌"; 17 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>"; 18 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>▌" 19 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>▄▄▄"; 20 PRINT"▄▄<cursor right><cursor right><cursor right>▄▄▄▄<rev off>▘ ▝<reverse on>▄▄▄▄▄▄","<cursor down><cursor down><cursor down><pink><rev off> ♠N ADAPTATION OF ♥CREEN ♥LIDER" 21 PRINT" PUBLISHED BY 🭸🭷╭ IN ╲ARCH 1990","<cursor down><cursor down><cursor down><white> 🭾ROGRAMMING AND 🭷ESIGN BY"; 22 PRINT" ╰ASON 🭺INCH<cursor down><cursor down><cursor down>",,"<light blue> 🭸OPYRIGHT 🭸🭷╭ 1990<cursor up><cursor up><cursor up><cursor up><cursor up><cursor up><cursor up><cursor up><cursor up><cursor up><cursor up><cursor up><cursor up>" 23 PRINT,"<reverse on><light green><cursor left><cursor left><cursor left> ♥♠╳🭶🭻/🭻🭶🭼🭽🭸♠🭰🭽🭻 🭾🭻🭽🭱🭻♠╲ ":SYSN+3,1:FORT=1TO2500:NEXT:SYSN+6,255 24 SYSN+3,9:PRINT"<clr>":SYSN,0,0 25 PRINT"<clr><yellow><cursor down><cursor right>╱╭🭷🭱🭶 ♥♠╳🭶🭻/🭻🭶🭼🭽🭸♠🭰🭽🭻",," 🭲Y ╰ASON 🭺INCH<cursor down><cursor down><cursor down><cursor down>" 26 PRINT"<light blue> 🭶NTER START ADDRESS OR PAGE NUMBER"," (╭SE '$' PREFIX FOR HEXADECIMAL)" 27 PRINT"<cursor down><cyan> :";:OPEN1,0:INPUT#1,A$:CLOSE1:PRINT:A=VAL(A$):IFLEFT$(A$,1)<>"$"THEN30 28 A$=MID$(A$,2):A=0:IFA$=""THEN26 29 FORI=1TOLEN(A$):Z=ASC(MID$(A$,I,2))-48:A=A*16+Z+(Z>9)*7:NEXT 30 IFA<256THENA=A*256:GOTO35 31 IF(A>2047ANDA<39937)OR(A>49151ANDA<52225)THEN33 32 PRINT"<cursor down><cursor down><cursor down><pink> ** ╳ALUE OUT OF DESIGNATED RANGES **":FORT=1TO1500:NEXT:GOTO25 33 IFA/256=INT(A/256)THEN35 34 PRINT"<cursor down><cursor down><cursor down><pink> ** ╳ALUE NOT DIVISIBLE BY 256 **":FORT=1TO1500:NEXT:GOTO25 35 PRINT"<cursor down><cursor down><cursor down><white> ♥TART ADDRESS:<light gray>"A:PRINT"<cursor down><white> 🭸ALL ADDRESS: <light gray>"A+178 36 PRINT"<cursor down><white> 🭾AGE NUMBER: <light gray>"A/256:PRINT"<cursor down><cursor down><cursor down><pink> ♠LL 🭽╯? [🭵/╱]":POKE198,0 37 GETA$:IFA$="N"THEN25 38 IFA$<>"Y"THEN37 39 PRINT"<cursor up><orange> 🭾LEASE WAIT... 🭻ELOCATING CODE":PG=A/256:GOSUB48 40 F$=MID$(STR$(A+178),2):PRINT" ♥AVING CODE AS "CHR$(34)"╱╭🭷🭱🭶"F$CHR$(34) 41 OPEN15,8,15,"I":INPUT#15,A,A$,B,C:CLOSE15:IFA>0THEN45 42 OPEN2,8,1,"NUDGE"+F$+",P,W":PRINT#2,CHR$(0)CHR$(PG);:FORI=0TO855 43 PRINT#2,CHR$(PEEK(49152+I));:NEXT:CLOSE2:PG=192:GOSUB48 44 OPEN15,8,15:INPUT#15,A,A$,B,C:CLOSE15:IFA=0THEN25 45 PRINT"<cursor up><cursor up><pink> ** 🭷╮♥╯ 🭶🭻🭻🭽🭻 ╱O."MID$(STR$(A),2)" ** " 46 PRINT" <cursor up><cursor right><cursor right>"A$" @"B"<cursor left>,"C 47 FORT=1TO1500:NEXT:PG=192:GOSUB48:GOTO25 48 RESTORE:FORI=0TO90:READN:POKE49152+INT(N/4),PG+(NAND3):NEXT:RETURN 49 DATA721,733,744,820,856,868,932,952,964,1044,1093,1112,1136,1219,1228,1265 50 DATA1276,1329,1361,1373,1385,1397,1433,1445,1457,1471,1480,1517,1553,1573 51 DATA1585,1597,1624,1647,1657,1676,1688,1723,1741,1760,1788,1817,1929,1945 52 DATA1962,2056,2113,2192,2254,2264,2298,2310,2342,2409,2426,2514,2526,2537 53 DATA2564,2608,2621,2632,2660,2688,2724,2736,2752,2764,2812,2824,2860,2913 54 DATA2945,2964,2976,3011,3024,3037,3048,3060,3080,3092,3106,3117,3145,3321 55 DATA3341,3361,3393,3405,3417
' � "NUDGE" RELOCATER (C)1990 - � 3 � J � PROGRAMMING AND p � DESIGN... JASON FINCH v : | : � : � A�A�1:�A�2�12 � �53280,0:�53281,0:�53265,22:�"� ����� �������� - �Y �ASON �INCH"