Home » Recent acquisitions » Commodore_16 » tape009a_c16_commodore_16_games_pack_1.wav » micro minotaur
micro minotaur
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 » Recent acquisitions » Commodore_16 » tape009a_c16_commodore_16_games_pack_1.wav |
| Filename: | micro minotaur |
| Read OK: | ✔ |
| File size: | 0C62 bytes |
| Load address: | 1001 |
| Exec address: | 0000 |
File contents
10 REM MICRO MINOTAUR
20 CLR
30 SCNCLR:VOL8:COLOR1,1,3
40 SC=3072:CO=2048:COLOR0,7,4:COLOR4,6,4:C=0:R=0:PO=SC+(R*40)+C:BE=SC+130
50 PRINT"<white>";
60 FORI=1TO24:RR$=RR$+"<cursor down>":NEXT
70 FORI=1TO40:CC$=CC$+"<cursor right>":NEXT
80 FORI=1TO34:CL$=CL$+" ":NEXT
90 H$="123456789?"+CHR$(24):DIMCL$(10)
100 FORI=SCTOSC+39:POKEI,160:NEXT
110 FORI=SC+(24*40)TOSC+(24*40)+39:POKEI,160:NEXT
120 FORI=SCTOSC+(24*40)STEP40:POKEI,160:NEXT
130 FORI=SC+39TOSC+(24*40)+39STEP40:POKEI,160:NEXT
140 PRINT"<home><reverse on> MICRO MINOTAUR";"<reverse on> PLAYER"
150 FORI=SC+130TOSC+850STEP80
160 FORJ=ITOI+18STEP2
170 Q=INT(RND(1)*12):IFQ=0THEN170
180 A=ASC(MID$(H$,Q,1))
190 POKEJ,A:NEXT:NEXT
200 NU=INT(RND(1)*100):IFNU=0THEN200
210 NU$=STR$(NU):RA=INT(RND(1)*3):IFRA=0THENGOTO210
220 IFNU<10THENNU$="0"+NU$
230 IFRA=1THENCL$(1)="FIRST DIGIT EQUALS "+MID$(NU$,2,1)
240 IFRA=2THENCL$(1)="SECOND DIGIT EQUALS "+MID$(NU$,3,1)
250 CN=2:FORI=2TONU-1
260 A=NU/I:B=INT(A):IFA<>BTHEN290
270 IFCN=7THEN300
280 CL$(CN)="A FACTOR OF THE NUMBER IS "+STR$(A):CN=CN+1
290 NEXT
300 IFNU/2=INT(NU/2)THENCL$(CN)="THE NUMBER IS EVEN"
310 IFNU/2<>INT(NU/2)THENCL$(CN)="THE NUMBER IS ODD"
320 GB=VAL(MID$(NU$,3,1)):FORI=2TO9:A=GB/I:IFA=INT(GB/I)THENGOSUB1060:GOTO340
330 NEXT
340 GB=VAL(MID$(NU$,2,1)):FORI=2TO9:A=GB/I:IFA=INT(GB/I)THENGOSUB1070:GOTO360
350 NEXT
360 SD=VAL(MID$(NU$,2,1)):IFSD/2=INT(SD/2)THENCL$(7)="FIRST DIGIT IS EVEN"
370 IFSD/2<>INT(SD/2)THENCL$(7)="FIRST DIGIT IS ODD"
380 SD=VAL(MID$(NU$,3,1)):IFSD/2=INT(SD/2)THENCL$(8)="SECOND DIGIT IS EVEN"
390 IFSD/2<>INT(SD/2)THENCL$(8)="SECOND DIGIT IS ODD"
400 FORI=1TO9:IFI*I=NUTHENCL$(9)="NUMBER IS THE PRODUCT OF A SQUARE"
410 NEXT
420 HO=BE+10:POKEHO,160
430 C1=6:R1=6:MA=BE+(R1*40)+C1:VE=PEEK(MA):POKEMA,13
440 C=10:R=18:PO=BE+(R*40)+C:VA=PEEK(PO):POKEPO,209
450 A=PEEK(198):POKEMA,13:IFA=64THEN550
460 IFA=62THENGOSUB560
470 IFA=12THENGOSUB620
480 IFA=33THENGOSUB680
490 IFA=41THENGOSUB740
500 IFA=22THENGOTO1040
510 GOSUB850:SOUND2,15,12:SOUND1,23,23
520 PRINT"<home>";LEFT$(RR$,2);LEFT$(CC$,2);CL$;
530 TT=TT+CU
540 PRINT"<home>";LEFT$(RR$,23);LEFT$(CC$,7);"<reverse on>LAST SCORE:<rev off>";CU;" <reverse on>TOTAL SCORE:<rev off>";TT;
550 CU=0:POKEMA,141:GOTO450
560 IFR=0THENRETURN
570 R=R-2:PE=PO:PO=BE+(R*40)+C:DA=PEEK(PO):IFDA=32THENR=R+2:PO=BE+(R*40)+C:RETURN
580 IFDA=13THENGOTO920
590 GOSUB800
600 POKEPE,VA:FL=PEEK(PE):CU=VAL(CHR$(FL)):POKEPE,32:VA=PEEK(PO)
610 POKEPO,209:RETURN
620 IFR=18THENRETURN
630 R=R+2:PE=PO:PO=BE+(R*40)+C:DA=PEEK(PO):IFDA=32THENR=R-2:PO=BE+(R*40)+C:RETURN
640 IFDA=13THENGOTO920
650 GOSUB800
660 POKEPE,VA:FL=PEEK(PE):CU=VAL(CHR$(FL)):POKEPE,32
670 VA=PEEK(PO):POKEPO,209:RETURN
680 IFC=0THENRETURN
690 C=C-2:PE=PO:PO=BE+(R*40)+C:DA=PEEK(PO):IFDA=32THENC=C+2:PO=BE+(R*40)+C:RETURN
700 IFDA=13THENGOTO920
710 GOSUB800
720 POKEPE,VA:FL=PEEK(PE):CU=VAL(CHR$(FL)):POKEPE,32
730 VA=PEEK(PO):POKEPO,209:RETURN
740 IFC=18THENRETURN
750 C=C+2:PE=PO:PO=BE+(R*40)+C:DA=PEEK(PO):IFDA=32THENC=C-2:PO=BE+(R*40)+C:RETURN
760 IFDA=13THENGOTO920
770 GOSUB800
780 POKEPE,VA:FL=PEEK(PE):CU=VAL(CHR$(FL)):POKEPE,32
790 VA=PEEK(PO):POKEPO,209:RETURN
800 IFDA=63THENCU=INT(RND(1)*10)
810 FU=INT(RND(1)*10):DI=(40-LEN(CL$(FU)))/2
820 IFDA=24THENPRINT"<home>";LEFT$(CC$,DI);LEFT$(RR$,2);CL$(FU);:GOSUB1050
830 IFDA=160THENGOSUB1000
840 RETURN
850 IFCU<5THENRETURN
860 IFC1>CTHENC1=C1-2
870 IFC1<CTHENC1=C1+2
880 IFR1>RTHENR1=R1-2
890 IFR1<RTHENR1=R1+2
900 POKEMA,VE:MA=BE+(R1*40)+C1:IFPEEK(MA)=209THENGOSUB920:STOP
910 VE=PEEK(MA):POKEMA,13:RETURN
920 PRINT"<clr>";LEFT$(RR$,10);"THE MINOTAUR HAS EATEN YOU"
930 PRINT"<home>";LEFT$(RR$,13);"THE NUMBER WAS";NU;
940 PRINT:PRINT:PRINT
950 PRINT"DO YOU WANT ANOTHER GAME(Y/N):";
960 GETA$:IFA$=""THEN960
970 IFA$="Y"THENGOTO20
980 IFA$="N"THENEND
990 GOTO960
1000 PRINT"<clr>";LEFT$(RR$,2);LEFT$(RR$,3);"WHAT IS THE NUMBER";:INPUTVT
1010 IFVT<>NUTHENPRINT"WRONG, THE NUMBER WAS ";NU:GOTO940
1020 PRINT"CONGRATULATIONS YOU HAVE BEATEN MINOTAUR"
1030 GOTO940
1040 PRINT"<clr>";:GOTO930
1050 FORI=1TO1200:NEXT:RETURN
1060 CL$(6)="A FACTOR OF SECOND DIGIT IS"+STR$(I):RETURN
1070 CL$(5)="A FACTOR OF FIRST DIGIT IS"+STR$(I):RETURN
� MICRO MINOTAUR � , �:�8:�1,1,3 o( SC�3072:CO�2048:�0,7,4:�4,6,4:C�0:R�0:PO�SC�(R�40)�C:BE�SC�130 y2 �""; �<