Home » Personal collection » Commodore disks » disk65a_programs_1.d64 » pussy cat
pussy cat
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 » disk65a_programs_1.d64 |
| Filename: | pussy cat |
| Read OK: | ✔ |
| File size: | 047B bytes |
| Load address: | 0801 |
| Exec address: | 0000 |
Duplicates
There is 1 duplicate copy of this file in the archive:
- Personal collection » Commodore disks » disk50a2_progs1.d64 » pussy cat
- Personal collection » Commodore disks » disk65a_programs_1.d64 » pussy cat
File contents
20 FORN=0TO9:READHN$(N),HN(N):NEXT:DIMS(11,11)
30 POKE53280,0:POKE53281,0:PRINT"<clr><purple>";SPC(13);"┌🭸🭸🭸🭸🭸🭸🭸🭸🭸┐";CHR$(142);CHR$(8)
40 PRINTSPC(13);"🭲<green>PUSSY CAT<purple>🭲"
50 PRINTSPC(13);"└🭸🭸🭸🭸🭸🭸🭸🭸🭸┘":PRINTSPC(12);"┌🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸┐"
60 PRINTSPC(12);"🭲<green>HIGH SCORES<purple>🭲":PRINT"🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸┴🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸┴🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸";
70 PRINT"🭸🭸🭸":FORN=0TO9:POKE781,6+N:POKE782,0:POKE783,0:SYS65520:POKE646,N+1
80 PRINTHN$(N):POKE782,21:SYS65520:PRINTHN(N):NEXT
90 POKE781,16:POKE782,0:POKE783,0:SYS65520
100 PRINT"<purple>🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸🭸<cursor down>";SPC(9);
110 PRINT"WRITTEN BY DOMINIC FORD"
120 PRINT:PRINT:PRINT
130 PRINTSPC(10);"PRESS SPACE TO START"
140 GET A$:IFA$<>" "THEN140
150 PRINT"<clr>":FORX=0TO9:FORY=0TO9:S(X,Y)=0:NEXT:NEXT:S(0,0)=1:F=1
160 PRINT"<blue>┌🭸┬🭸┬🭸┬🭸┬🭸┬🭸┬🭸┬🭸┬🭸┬🭸┬🭸┬🭸┐":FORL=0TO10
170 PRINT"🭲 🭲 🭲 🭲 🭲 🭲 🭲 🭲 🭲 🭲 🭲 🭲 🭲":PRINT"├🭸┼🭸┼🭸┼🭸┼🭸┼🭸┼🭸┼🭸┼🭸┼🭸┼🭸┼🭸┤":NEXT
180 PRINT"🭲 🭲 🭲 🭲 🭲 🭲 🭲 🭲 🭲 🭲 🭲 🭲 🭲":PRINT"└🭸┴🭸┴🭸┴🭸┴🭸┴🭸┴🭸┴🭸┴🭸┴🭸┴🭸┴🭸┘";
210 POKE782,26:POKE781,0:SYS65520:PRINT"<red>SCORE:<cursor down><cursor down><cursor left><cursor left><cursor left><cursor left><cursor left><cursor left>FUEL:<cursor down><cursor down><cursor left><cursor left><cursor left><cursor left><cursor left>LIVES:";
220 PRINT"<cursor down><cursor down><cursor left><cursor left><cursor left><cursor left><cursor left><cursor left>TIME:<cursor down><cursor down><cursor left><cursor left><cursor left><cursor left><cursor left>CORE:":X=1:Y=1:T=TI:F=350:L=3:LE=1:S=0
230 XP=X:YP=Y:GOSUB1020:PRINT"<green>●"
240 POKE782,32:POKE781,0:SYS65520:PRINTS:POKE781,2:SYS65520:PRINTF
250 POKE781,4:SYS65520:PRINTL:POKE781,6:SYS65520:PRINTINT((TI-T)/60)
260 POKE781,8:SYS65520:PRINTLE
1000 DATA FRED,10,FREDB,20,FREDC,30,FREDD,40,FREDE,50,FREDF,60,FREDG,70
1010 DATA FREDH,80,FREDI,90,FREDJ,100
1020 POKE782,1+XP*2:POKE781,25-YP*2:SYS65520:RETURN
& �N�0�9:�HN$(N),HN(N):�:�S(11,11) a �53280,0:�53281,0:�"��";�13);"���������î";�(142);�(8) {( ��13);"�PUSSY CAT��"