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$";� ����� ���� < "