Home » Personal collection » Commodore disks » disk30c2_loadstar_131.d64 » super mole
super mole
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 » disk30c2_loadstar_131.d64 |
Filename: | super mole |
Read OK: | ✔ |
File size: | 193A bytes |
Load address: | 4001 |
Exec address: | 0000 |
File contents
10 DV=PEEK(186):IFDV<8THENDV=8 95 SYS57812"MOLE.ML",DV,0:POKE780,.:POKE781,198:POKE782,32:SYS65493 100 POKE9953,DV:REM POKE788,52 105 LL=2:V=53248:SE=V+21:POKESE,.:SYS9795:BR=V+32:BG=V+33 110 D$="<cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down>":R$="<cursor right><cursor right><cursor right><cursor right><cursor right><cursor right>":P0=2040:P1=2041:P2=2042:SR=8576 115 ML=20:REM MAXIMUM (LAST) LEVEL 180 LI=3:LV=1:SC=.:CH=1 195 PRINT"<clr>":POKEBR,.:POKEBG,.:POKEV+24,30:POKE12700,1:SYS12288 200 PRINT"<home>"D$R$R$"<white>;<reverse on>==============<rev off><":PRINTR$R$"<reverse on>;<rev off> <green>♥╭🭾🭶🭻 ╲🭽🭼🭶 <reverse on><white><<red> " 205 PRINTR$R$"<white><reverse on>;<rev off> <white><reverse on><<red> ":PRINTR$R$"<white><reverse on>;"SPC(14)"<<red> " 210 PRINTR$R$"<white><reverse on>;<rev off> <light green>BY <white><reverse on><<red> ":PRINTR$R$"<white><reverse on>;"SPC(14)"<reverse on><<red> " 215 PRINTR$R$"<white><reverse on>;<cursor right><rev off><light blue>♥TEVE 🭶MSLEY <white><reverse on><<red> ":PRINTR$R$"<white><reverse on>;"SPC(14)"<reverse on><<red> " 220 PRINTR$R$"<white>=<reverse on>>>>>>>>>>>>>>><rev off>><red><reverse on> ":PRINTR$R$"<cursor right><red><reverse on> " 221 FORI=0TO999:NEXT 222 POKE631,32:POKE198,1 225 REM SYS9815 226 POKE9981,48:POKE9982,48 227 FORI=.TO5:POKE8576+I,176:NEXT 228 CH=1:LI=3 229 POKEV,132:POKEV+2,132 230 PRINT"<home>"D$"<cursor down><cursor down><cursor down><cursor right><cursor right><cursor right><cursor right>"R$R$"<cyan>♥TART 232 PRINT"<cursor right><cursor right><cursor right><cursor right>"R$R$"<cyan>╲OLES -<pink>"LI 235 PRINTR$R$"<cursor right><cursor right><cursor right><cursor right><cyan>🭼EVEL -<pink>"LV"<cursor left> ":PRINTR$R$"<cursor right><cursor right><cyan> 🭴ELP " 236 PRINTR$R$"<cursor right><cursor right><cursor right><cursor right><cyan>●UIT" 240 POKEP1,217:POKEP0,223:T2=2:GOSUB1900 242 POKEV+21,3 248 POKEV+1,126+CH*8:POKEV+3,126+CH*8:POKEV+21,3:POKEV+39,1:POKEV+40,8 250 SYS12288:JY=PEEK(56320):GETA$:IFA$=""ANDJY=127THEN250 252 IFA$=CHR$(13)ORJY<112THEN275 254 IFA$<>"<cursor up>"ANDJY<>126THEN264 260 :CH=CH-1:IFCH<1THENCH=5 262 GOTO248 264 IFA$<>"<cursor down>"ANDJY<>125THEN250 270 :CH=CH+1:IFCH>5THENCH=1 273 GOTO248 275 ONCHGOTO500,280,290,2000,40000 280 LI=LI+2:IFLI>7THENLI=3 285 GOTO230 290 LV=LV+1:IFLV=ML+1THENLV=1 295 GOTO230 299 GOTO299 500 POKESE,.:PRINT"<clr>":POKE9981,INT(LV/10)+48:POKE9982,LV-(INT(LV/10)*10)+48 502 PRINT"<cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><cursor down><white>"SPC(11)"🭼OADING 🭼EVEL"LV"<cursor left>...":FORPP=.TO999:NEXT 505 SYS9952:SYS8752 510 SYS13062:SYS10301:POKE1972,LI+176:AC=.:DN=21:POKE8640,. 515 SYS8694:SYS8706:SYS8475:SYS9984:POKE12967,. 520 B=PEEK(13106):BO=PEEK(13111):POKE53285,BO:POKE53289,B:BL=13108:POKEV+28,4 575 SYS8440:TB=PEEK(8471) 576 POKE53280,0:FORI=217TO242:POKEI,PEEK(I)OR128:NEXT 577 POKE214,22:PRINT:PRINT"<light blue><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>🭰╮╲🭶" 578 PRINT"<reverse on> ● - 🭺ORFEIT ╲OLE <home>":POKE2023,160:POKE56295,14 580 POKEV+39,1:POKEV+40,8:POKE8640,1:POKE56584,.:GOTO600 590 GOSUB1905:SYS12838:IFPEEK(12894)=.THEN1250 592 GOTO600 595 POKE679,3:POKE198,0 600 REM IFPEEK(12967)THEN1200 602 IFPEEK(1979)=177THEN1400 605 REM SYS12896:ONPEEK(12966)GOTO700,800,900,1000,600,600 610 JY=PEEK(56320):GETA$:IFA$=""ANDJY=127THEN600 612 IFA$="<cursor up>"ORJY=126THEN700 614 IFA$="<cursor down>"ORJY=125THEN800 616 IFA$="<cursor left>"ORJY=123THEN900 618 IFA$="<cursor right>"ORJY=119THEN1000 620 IFA$="Q"ORJY<112THEN1200 622 GOTO600 700 POKEP,208:POKEP0,220:T2=-80:GOSUB1900:IF(DN=1)OR(PEEK(NP)=161)THEN595 705 IFPEEK(NP)<38THEN750 710 IF(DN=3)OR(PEEK(NP-80)>160)THEN595 715 IFPEEK((NP)+9728)<>37THENXX=.:XY=.:GOTO725 720 XX=4:XY=2 725 IF(PEEK(V+16)AND3)=3THENPOKEV+16,7:GOTO730 727 POKEV+16,. 730 POKEV+4,PEEK(V)-3:POKEV+5,PEEK(V+1)-18:POKESE,PEEK(SE)+4:T1=NP 735 GOSUB1920 740 POKE679,1:FORI=1TO4:POKEP1,209:SYS10152:POKEP1,210:SYS10152:NEXT 745 POKEP1,208:DN=DN-2:GOSUB1900:T1=NP:GOTO590 750 POKE679,1:FORI=1TO4:POKEP1,209:SYS10158:POKEP1,210:SYS10158:NEXT 755 POKEP1,208:DN=DN-2:GOTO600 800 POKEP1,211:POKEP0,221:T2=80:GOSUB1900:IF(DN=21)OR(PEEK(NP)=161)THEN595 805 IFPEEK(NP)<38THEN850 810 IF(DN=19)OR(PEEK(NP+80)>160)THEN595 815 IFPEEK((NP)+9728)<>37THENXX=.:XY=.:GOTO825 820 XX=4:XY=2 825 IF(PEEK(V+16)AND3)=3THENPOKEV+16,7:GOTO830 827 POKEV+16,. 830 POKEV+4,PEEK(V)-3:POKEV+5,PEEK(V+1)+14:POKESE,PEEK(SE)+4:T1=NP 835 GOSUB1920 840 POKE679,1:FORI=1TO4:POKEP1,212:SYS10164:POKEP1,213:SYS10164:NEXT 845 POKEP1,211:DN=DN+2:GOSUB1900:T1=NP:GOTO590 850 POKE679,1:FORI=1TO4:POKEP1,212:SYS10170:POKEP1,213:SYS10170:NEXT 855 POKEP1,211:DN=DN+2:GOTO600 900 POKEP1,214:POKEP0,222:T2=-2:GOSUB1900:IF(AC=.)OR(PEEK(NP)=161)THEN595 905 IFPEEK(NP)<38THEN950 910 IF(AC=2)OR(PEEK(NP-2)>160)THEN595 915 POKEV+16,PEEK(V+16)AND251:IFPEEK((NP)+9728)<>37THENXX=.:XY=.:GOTO925 920 XX=4:XY=2 925 MP=PEEK(V)-19:IFMP<.THENMP=245 930 POKEV+4,MP:POKEV+5,PEEK(V+1)-2 935 IF(PEEK(V+16)AND3=3)AND(PEEK(V)>8)THENPOKEV+16,PEEK(V+16)OR4 940 POKESE,PEEK(SE)+4:T1=NP:GOSUB1920 945 POKE679,1:FORI=1TO4:POKEP1,215:SYS10176:POKEP1,216:SYS10176:NEXT 947 POKEP1,214:AC=AC-2:GOSUB1900:T1=NP:GOTO590 950 POKE679,1:FORI=1TO4:POKEP1,215:SYS10182:POKEP1,216:SYS10182:NEXT 955 POKEP1,214:AC=AC-2:GOTO600 1000 POKEP1,217:POKEP0,223:T2=2:GOSUB1900:IF(AC=38)OR(PEEK(NP)=161)THEN595 1005 IFPEEK(NP)<38THEN1050 1010 IF(AC=36)OR(PEEK(NP+2)>160)THEN595 1015 POKEV+16,PEEK(V+16)AND251:IFPEEK((NP)+9728)<>37THENXX=.:XY=.:GOTO1025 1020 XX=4:XY=2 1025 MP=PEEK(V)+13:IFMP>255THENMP=5 1030 POKEV+4,MP:POKEV+5,PEEK(V+1)-2 1035 IF(PEEK(V+16)AND3=3)OR(MP=5)THENPOKEV+16,PEEK(V+16)OR4 1040 POKESE,PEEK(SE)+4:T1=NP:GOSUB1920 1045 POKE679,1:FORI=1TO4:POKEP1,218:SYS10188:POKEP1,219:SYS10188:NEXT 1047 POKEP1,217:AC=AC+2:GOSUB1900:T1=NP:GOTO590 1050 POKE679,1:FORI=1TO4:POKEP1,218:SYS10194:POKEP1,219:SYS10194:NEXT 1055 POKEP1,217:AC=AC+2:GOTO600 1100 POKE8640,.:STOP 1200 POKE8640,.:SYS8440:BD=TB-PEEK(8471):POKE679,2:SC=SC+(100*BD):POKESE,. 1205 POKE679,4:PRINT"<home>"D$D$D$R$R$"<light blue><reverse on> ╲OLE 🭷ESTROYED <home>" 1207 FORDE=.TO1999:NEXT:LI=LI+1-LL 1210 PRINT"<home>"D$D$D$R$R$"<reverse on>🭼EVEL ♥CORE -"100*BD" <home>":FORDE=.TO1999:NEXT 1215 IFBD=.THEN1225 1220 FORI=1TOBD:SYS8390:FORDE=.TO249:NEXT:NEXT 1225 FORDE=.TO999:NEXT 1230 PRINT"<clr>":IFLITHEN510 1235 GOTO1315:END OF GAME 1250 POKE8640,.:SYS8440:BD=TB:SC=SC+(100*BD):POKESE,.:POKE679,5 1255 PRINT"<home>"D$D$D$R$R$"<reverse on><light blue>🭼EVEL 🭸OMPLETED <home>":FORDE=.TO1999:NEXT:LV=LV+1 1260 PRINT"<home>"D$D$D$R$R$"<reverse on>🭼EVEL ♥CORE -"100*BD"<home>":FORDE=.TO1999:NEXT:SYS8768 1265 FORI=1TOBD:SYS8390:FORDE=.TO249:NEXT:NEXT:IFLV=ML+1THEN1300 1270 FORDE=.TO999:NEXT:PRINT"<clr>":GOTO500 1300 POKESE,.:SYS8768:POKE53281,0:PRINT"<clr>":POKE12700,1:SYS12288 1302 POKE214,7:PRINT:PRINTTAB(11)"<cyan>🭸🭽╱🭱🭻♠🭰╭🭼♠🭰╮🭽╱♥]]] 1304 PRINTTAB(10)"<cursor down>🭵OU HAVE SOLVED ALL 1306 PRINTTAB(9)"<cursor down>"ML"LEVELS AND YOUR 1308 PRINTTAB(10)"<cursor down>MOLE HAS SCORED"SC 1310 PRINTTAB(10)"<cursor down>POINTS. ○ELL DONE] 1311 TI$="000000":POKE198,0 1312 SYS12288:JY=PEEK(56320):GETA$:IFA$=""ANDTI$<"000005"ANDJY=127THEN1312 1313 GOTO100 1315 POKESE,.:SYS8768:POKE53281,0:PRINT"<clr>":POKE12700,1:SYS12288 1320 POKE214,7:PRINT:PRINTTAB(9)"<cyan>🭵OU[RE OUT OF MOLES 1325 PRINTTAB(9)"<cursor down>AND THERE ARE STILL 1330 PRINTTAB(9)"<cursor down>PLENTY OF BUGS IN THE 1332 PRINTTAB(9)"<cursor down>PROGRAM. ○ATCH OUT] 1335 PRINTTAB(9)"<cursor down>╮T[S GOING TO CRASH] 1340 TI$="000000":POKE198,0 1342 SYS12288:JY=PEEK(56320):GETA$:IFA$=""ANDTI$<"000005"ANDJY=127THEN1342 1345 POKEV+24,69:POKEV+22,200:POKEV+17,27:GOTO1310 1346 POKEV+17,59:GOSUB1395:POKEV+22,216:GOSUB1395 1395 FORDE=.TO999:NEXT:RETURN 1400 POKE8640,.:POKE679,4 1405 PRINT"<home>"D$D$D$R$"<cursor right><cursor right><cursor right><reverse on><light blue>🭽UT OF 🭰IME - NO SCORE<home>":FORDE=.TO1999:NEXT 1410 LI=LI+1-LL:GOTO1225 1900 T1=(20*DN)+AC+11756:NP=(PEEK(T1)+256*PEEK(T1+1))+T2:RETURN 1905 C1=T1+54272:POKET1,165:POKEC1,BO:POKET1+1,166:POKEC1+1,BO 1910 POKET1+40,167:POKEC1+40,BO:POKET1+41,168:POKEC1+41,BO 1915 POKEV+21,PEEK(V+21)-4:RETURN 1920 BX=PEEK(BL+XY):C1=T1+54272:POKET1,33+XX:POKEC1,BX:POKET1+1,34+XX 1925 POKEC1+1,BX:POKET1+40,35+XX:POKEC1+40,BX:POKET1+41,36+XX:POKEC1+41,BX 1930 RETURN 2000 FORI=217TO242:POKEI,PEEK(I)OR128:NEXT 2002 POKE214,7:PRINT:FORI=0TO9:PRINTTAB(7)" ":NEXT 2008 POKEV+1,124:POKEV+3,124 2010 POKE214,7:PRINT:PRINTTAB(8)"<light blue>🭵OUR JOB IS TO HAVE YOUR 2020 PRINTTAB(8)"<cursor down>╲OLE PUSH EACH OF THE 2030 PRINTTAB(8)"<cursor down>🭲UGS - <brown><cursor up><reverse on>%&<cursor down><cursor left><cursor left>'(<rev off><light blue> - TO ITS OWN 2040 PRINTTAB(8)"<cursor down>🭶XTERMINATOR - <cyan><cursor up>%&<cursor down><cursor left><cursor left>'( <light blue>- AS 2050 PRINTTAB(8)"<cursor down>QUICKLY AS YOU CAN. 2060 SYS12288:JY=PEEK(56320):GETA$:IFA$=""ANDJY=127THEN2060 2062 POKEV+21,0 2070 POKE214,7:PRINT:FORI=0TO9:PRINTTAB(7)" ":NEXT 2080 GOTO195 2100 GOTO2100 10000 DV=PEEK(186):N$="SUPER MOLE":OPEN15,DV,15,"S0:"+N$:CLOSE15:SAVEN$,DV:END 40000 POKE788,49:PRINT"<rev off>";:POKEV+21,0 40002 FORI=0TO21:POKE828+I,8+I:NEXT 40010 IFDV<8ORDV>29ORDV=8THEN40030 40020 A=PEEK(828):B=PEEK(828+DV-8):POKE828,B:POKE828+DV-8,A 40030 A$="HELLO CONNECT":FORJ=8TO29:I=PEEK(828+J-8):IFI=14THENNEXT 40040 CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40060 40050 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40070 40060 NEXT:PRINT"<clr>":POKE53272,23:POKE186,8:END 40070 Q$=CHR$(34):POKE646,PEEK(53281):PRINT"<clr>":POKE53272,23 40080 PRINT"<clr><cursor down><cursor down><cursor down>P🭽2048,0:P🭽44,8:P🭽43,1:P🭽56,160:P🭽55,0:CLR:L🭽"Q$A$Q$","I 40090 PRINT"<cursor down><cursor down><cursor down><cursor down>RUN:<home>":POKE631,13:POKE632,13:POKE198,2:END
@ DV��(186):�DV�8�DV�8 R@_ �57812"MOLE.ML",DV,0:�780,.:�781,198:�782,32:�65493 m@d �9953,DV:� POKE788,52 �@i LL�2:V�53248:SE�V�21:�SE,.:�9795:BR�V�32:BG�V�33 �@n D$�"":R$�"":P0�2040:P1�2041:P2�2042:SR�8576 As ML�20:� MAXIMUM (LAST) LEVEL A� LI�3:LV�1:SC�.:CH�1 GA� �"�":�BR,.:�BG,.:�V�24,30:�12700,1:�12288 �A� �""D$R$R$";==============�<":�R$R$";� ����� ���� < "