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