{"type":"doc","content":[{"type":"heading","attrs":{"level":3},"content":[{"text":"Hex dump","type":"text"}]},{"type":"paragraph","content":[{"text":"The Hex dump program below was originally published to the EPROM User group. It is of note as it provides a worked example of the in-line assembler abilities of the BBC Basic application.","type":"text"}]},{"type":"paragraph"},{"type":"codeBlock","content":[{"text":" 10 REM **********************************\n 20 REM Hexdump (C) Danny Langton *\n 30 REM Aware Technology, DECEMBER 1988 *\n 40 REM TO BE TREATED AS PUBLIC DOMAIN *\n 50 REM I.E. COPY AND USE BUT DON'T SELL *\n 60 REM **********************************\n 70 PROCassemble\n 80 REPEAT\n 90 CLS:REPEATINPUT''\"Name of file to dump : \"'\"(Use [ESCAPE] to quit)\"SPC10\"\"D$:UNTILLEND$\n 100 X=OPENIN D$:IFX=0PRINT'\"That file does not exist\":GOTO90\n 110 PRINT\"Use UP and DOWN cursor keys to move through file\"'\"a line at a time,\"'\"[SHIFT] and cursor keys for a page at a time\"'\"and [DEL] to quit\":TIME=0:REPEATUNTILTIME>300\n 120 L%=0\n 130 CLS\n 140 REPEAT\n 150 PROCdump(L%)\n 160 CALL flush\n 170 G%=GET:IFG%=0 G%=GET\n 180 L%=L%+(G%=255)*16+(G%=251)*112-(G%=254)*16-(G%=250)*112\n 190 IF G%=246 L%=EXT#X-96-(EXT#X)MOD16\n 200 IF L%<0 OR L%>EXT#X OR G%=247L%=0\n 210 UNTILG%=127\n 220 UNTIL0\n 230 :\n 240 DEFPROCdump(L%)\n 250 CLS\n 260 PTR#X=L%\n 270 IFEXT#X-L%<112 F%=EXT#X-L% ELSE F%=112\n 280 R%=0:C%=0\n 290 PRINTTAB(0,0)STRING$(8-LENSTR$~L%,\"0\")STR$~L%\n 300 FOR M%=L% TO L%+F%-1\n 310 IFR%=7GOTO360\n 320 N%=BGET#X:N$=STR$~N%:IF LEN N$=1 N$=\"0\"+N$\n 330 PRINTTAB(12+C%*3,R%)N$TAB(64+C%,R%);\n 340 IFN%>31 AND N%<127 PRINTCHR$N%; ELSE PRINT\".\";\n 350 C%=C%+1:IFC%=16 C%=0:R%=R%+1:IFR%<7PRINTTAB(0,R%)STRING$(8-LENSTR$~(L%+R%*16),\"0\")+STR$~(L%+R%*16)\n 360 NEXT\n 370 ENDPROC\n 380 :\n 390 DEFPROCassemble\n 400 DIMflush 50\n 410 FORpass=0TO2STEP2\n 420 P%=flush\n 430 [OPT pass\n 440 LD HL,0:ADD HL,SP:LD SP,(&1FFE):PUSH HL:CALL main:POP HL:LD SP,HL:RET\n 450 .main\n 460 RST &20\n 470 DEFB &33\n 480 RET\n 490 ]\n 500 NEXT\n 510 ENDPROC\n 520 :","type":"text"}]},{"type":"heading","attrs":{"level":3},"content":[{"text":"Music Program for the Z88","type":"text"}]},{"type":"paragraph","content":[{"text":"Written by J. Mark Stevenson in 1989 - note the warnings in the REM statements.","type":"text"}]},{"type":"paragraph"},{"type":"codeBlock","content":[{"text":" 10 REM J.MARK STEVENSON 12 FEB 89\n 20 REM JUST TO PROVE THE Z88 CAN MAKE MUSIC!\n 30 REM YOU ARE INVITED TO EXPERIMENT WITH THIS PROGRAM\n 40 REM BUT BEWARE - THIS MAY CAUSE THE MACHINE TO HANG\n 50 DIM Z% 200\n 60 FOR Y% = 0 TO 2 STEP 2\n 70 P%=Z%\n 80 [ OPT Y%\n 90 .cnt DEFW 0 :DEFW 0\n 100 .del1 DEFW 0 :DEFW 0\n 110 .del2 DEFW 0 :DEFW 0\n 120 .flag DEFW 0\n 130 .code\n 140 LD HL,(cnt)\n 150 .cnt_loop\n 160 LD A,(flag) :OR A :CALL Z,inc :DEC A :CALL Z,dec\n 170 LD BC,(del1) :CALL del_loop\n 180 LD A,(&4B0) :PUSH AF :OR &40 :OUT (&B0),A\n 190 LD BC,(del2) :CALL del_loop\n 200 POP AF :OUT (&B0),A\n 210 DEC HL :LD A,H :OR L :JR NZ,cnt_loop\n 220 RET\n 230 \\\n 240 .del_loop DEC BC :LD A,B :OR C :JR NZ,del_loop :RET\n 250 \\\n 260 .inc\n 270 LD DE,(del1) :INC DE :INC DE :LD (del1),DE \n 280 LD DE,(del2) :INC DE :INC DE :LD (del2),DE\n 290 RET\n 300 \\\n 310 .dec\n 320 LD DE,(del1) :DEC DE :DEC DE :LD (del1),DE \n 330 LD DE,(del2) :DEC DE :DEC DE :LD (del2),DE\n 340 RET\n 350 ]\n 360 NEXT\n 370 :\n 380 FOR T%=0 TO 2\n 390 ?flag=T%\n 400 FOR R%= 90 TO 41 STEP -3\n 410 !cnt=3000/R% :!del1=R%*4 :!del2=R%*4\n 420 Q%=USR(code)\n 430 NEXT\n 440 NEXT","type":"text"}]},{"type":"heading","attrs":{"level":3},"content":[{"text":"Z88 Easter Eggs / ROM 2","type":"text"}]},{"type":"paragraph","content":[{"text":"There is a hidden message immediately before the internal ROM application front DOR in bank 7 at offset 3F57. Enter the command: .MV 3F57 07 in Gunther Strube's Intuition on the Assembler Workbench ROM.","type":"text"}]},{"type":"paragraph","content":[{"text":"Or use Thierry Peycru's Zmonitor on the Z88 Forever Compilation ROM. Or use ROMDMPx.BAS or similar program.","type":"text"}]},{"type":"paragraph","content":[{"text":"Or enter and run this BASIC / machine code program at your own risk. One small mistake in typing it in could corrupts memory in your Z88 and cause a FAIL or HARD RESET immediately or months later loosing all your files.","type":"text"}]},{"type":"codeBlock","content":[{"text":" 10 DIM code 29\n 20 DIM buff 104\n 30 P%=code\n 40 [\n 50 OPT 2\n 60 LD A,(&4D3)\n 70 PUSH AF\n 80 LD A,7\n 90 LD (&4D3),A\n 100 OUT (&D3),A\n 110 LD HL,&FF57\n 120 LD DE,buff\n 130 LD BC,104\n 140 LDIR\n 150 POP AF\n 160 LD (&4D3),A\n 170 OUT (&D3),A\n 180 RET\n 190 ]\n 200 CALL code\n 210 PRINT $buff","type":"text"}]},{"type":"heading","attrs":{"level":3},"content":[{"text":"Yahtzee","type":"text"}]},{"type":"paragraph","content":[{"text":" The popular dice game.","type":"text"}]},{"type":"codeBlock","content":[{"text":" 10 *NAME YAHTZEE V4.5\n 20 REM BY I D HUNNABLE (1850)\n 30 ON ERROR GOTO2270\n 40 PROCinit:CLS:VDU1,ASC\"B\":PRINTTAB(39,1)\"YAHTZEE\":VDU1,ASC\"B\":PRINTTAB(30,3)\"HOW MANY PLAYERS? 1 OR 2\":PRINTTAB(42,5);:REPEAT:A%=INKEY(0):UNTILA%=49ORA%=50\n 50 IFA%=49PROCpatience:ELSE PROCgame\n 60 CLS:PRINTCHR$1+\"2+C\":END\n 70 DEFPROCgame\n 80 REPEAT:CLS:VDU1,ASC\"B\":PRINTTAB(39,1)\"YAHTZEE\":VDU1,ASC\"B\":PRINTTAB(39,3)\"NAMES?\":INPUTTAB(39,5)P$(1):INPUTTAB(39,6)P$(2):UNTILLEN(P$(1))<6ANDLEN(P$(2))<6\n 90 PRINTCHR$1,\"2-C\"\n 100 GC%=1:PROCscreen:REPEAT:FORPLR%=1TO2:PROCgo(PLR%):NEXT:GC%=GC%+1:UNTILGC%=14:PROCendgame:IFAA$=\"Y\"ORAA$=\"y\" PROCclear:GOTO100\n 110 ENDPROC\n 120 DEFPROCpatience\n 130 PRINTTAB(30,3)SPC(35):PRINTTAB(39,3)\"YOUR NAME \";:INPUTP$(1)\n 140 PRINTCHR$1+\"2-C\"\n 150 GC%=1:PROCscreen:FORGC%=1TO13:PROCgo(1):NEXT\n 160 FORX%=2TO4:PRINTTAB(36,X%);SPC(20):NEXT\n 170 PRINTTAB(41,3)CHR$1+\"2+B\"+\"GO AGAIN?\"+CHR$1+\"2-B\":PROCans(\"Y\",\"y\",\"N\",\"n\"):IFAA$=\"Y\"THENPROCclear:GOTO150\n 180 ENDPROC\n 190 DEFPROCinit\n 200 DIMD$(6),T%(5,1),SC%(17,4),SB$(14),P$(2),HOLD$(2):t1$=CHR$1+\"2+T\":t2$=CHR$1+\"2-T\":TH%=1:@%=&00000904\n 210 SB$(1)=t1$+\"ONES\"+t2$:SB$(2)=t1$+\"TWOS\"+t2$:SB$(3)=t1$+\"THREES\"+t2$:SB$(4)=t1$+\"FOURS\"+t2$:SB$(5)=t1$+\"FIVES\"+t2$:SB$(6)=t1$+\"SIXES\"+t2$:SB$(7)=t1$+\"BONUS\"+t2$\n 220 SB$(8)=t1$+\"3 OF A KIND\"+t2$:SB$(9)=t1$+\"4 OF A KIND\"+t2$:SB$(10)=t1$+\"FULL HOUSE\"+t2$:SB$(11)=t1$+\"LOW STRAIGHT\"+t2$:SB$(12)=t1$+\"HIGH STRAIGHT\"+t2$:SB$(13)=t1$+\"YAHTZEE\"+t2$:SB$(14)=t1$+\"CHANCE\"+t2$\n 230 TAG1=0:TAG2=0:TAG3=0\n 240 L$=CHR$1+CHR$244:R$=CHR$1+CHR$245:D$=CHR$1+CHR$246:U$=CHR$1+CHR$247\n 250 HOLD$(2)=CHR$1+CHR$243:HOLD$(1)=\" \"\n 260 VDU1,138,61,65,128,128,159,160,160,173,173,160\n 270 VDU1,138,61,66,128,128,190,129,129,173,173,129\n 280 VDU1,138,61,67,160,173,173,160,160,159,128,128\n 290 VDU1,138,61,68,129,173,173,129,129,190,128,128\n 300 VDU1,138,61,69,128,128,159,160,160,172,172,161\n 310 VDU1,138,61,70,128,128,190,129,129,141,141,161\n 320 VDU1,138,61,71,161,172,172,160,160,159,128,128\n 330 VDU1,138,61,72,161,141,141,129,129,190,128,128\n 340 VDU1,138,61,73,128,128,159,160,160,166,166,160\n 350 VDU1,138,61,74,128,128,190,129,129,153,153,129\n 360 VDU1,138,61,75,160,166,166,160,160,159,128,128\n 370 VDU1,138,61,76,129,153,153,129,129,190,128,128\n 380 VDU1,138,61,77,128,128,159,160,160,160,160,161\n 390 VDU1,138,61,78,128,128,190,129,141,141,129,161\n 400 VDU1,138,61,79,161,160,172,172,160,159,128,128\n 410 VDU1,138,61,80,161,129,129,129,129,190,128,128\n 420 VDU1,138,61,81,128,128,159,160,160,166,166,160\n 430 VDU1,138,61,82,128,128,190,129,129,129,129,129\n 440 VDU1,138,61,83,160,160,160,160,160,159,128,128\n 450 VDU1,138,61,84,129,153,153,129,129,190,128,128\n 460 VDU1,138,61,85,128,128,159,160,160,160,160,161\n 470 VDU1,138,61,86,128,128,190,129,129,129,129,161\n 480 VDU1,138,61,87,161,129,129,129,129,190,128,128\n 490 VDU1,138,61,88,161,160,160,160,160,159,128,128\n 500 VDU1,138,61,89,129,129,130,130,132,148,136,128\n 510 VDU1,138,61,90,191,160,175,168,168,168,168,168\n 520 VDU1,138,61,91,191,128,191,128,128,128,128,128\n 530 VDU1,138,61,92,191,129,189,133,133,133,133,133\n 540 VDU1,138,61,93,133,133,133,133,133,133,133,133\n 550 VDU1,138,61,94,168,168,168,168,168,175,160,191\n 560 VDU1,138,61,95,128,128,128,128,128,191,128,191\n 570 VDU1,138,61,96,133,133,133,133,133,189,129,191\n 580 VDU1,138,61,97,168,168,168,168,168,168,168,168\n 590 CH$=CHR$1+CHR$130+\"?\":TL$=CH$+CHR$90:TR$=CH$+CHR$92:RS$=CH$+CHR$93:BL$=CH$+CHR$94:B$=CH$+CHR$95:BR$=CH$+CHR$96:LS$=CH$+CHR$97:Top$=CH$+CHR$91:BSD$=CHR$8+CHR$10:BS$=CHR$8:CU$=CHR$8+CHR$11\n 600 TROW$=TL$+STRING$(20,Top$)+TR$:RU$=RS$+BSD$+RS$+BSD$+RS$+BSD$+RS$:BROW$=BL$+STRING$(20,B$)+BR$:LU$=LS$+BSD$+LS$+BSD$+LS$+BSD$+LS$\n 610 CH$=CHR$1+CHR$130+\"?\":BS2$=CHR$8+CHR$8+CHR$10\n 620 D$(6)=CH$+\"A\"+CH$+\"B\"+BS2$+CH$+\"C\"+CH$+\"D\"\n 630 D$(5)=CH$+\"E\"+CH$+\"F\"+BS2$+CH$+\"G\"+CH$+\"H\"\n 640 D$(4)=CH$+\"I\"+CH$+\"J\"+BS2$+CH$+\"K\"+CH$+\"L\"\n 650 D$(3)=CH$+\"M\"+CH$+\"N\"+BS2$+CH$+\"O\"+CH$+\"P\"\n 660 D$(2)=CH$+\"Q\"+CH$+\"R\"+BS2$+CH$+\"S\"+CH$+\"T\"\n 670 D$(1)=CH$+\"U\"+CH$+\"V\"+BS2$+CH$+\"X\"+CH$+\"W\"\n 680 TICK$=CH$+\"Y\"\n 690 PROCclear\n 700 ENDPROC\n 710 DEFPROCgo(P%)\n 720 FORN=1TO5:T%(N,0)=0:NEXT\n 730 PRINTTAB(40,4)SPC(15);TAB(54,0)\"1 \"\n 740 PRINTTAB(44,0);GC%;TAB(55+(19*(P%=2)),3)\" \";TAB(55+(19*(P%=1)),3);CHR$1+CHR$(245+(P%=1));:PROCflush:REPEAT:Z$=GET$:UNTILZ$=\" \"\n 750 TH%=0:REPEAT:TH%=TH%+1:PRINTTAB(54,0);TH%;\" \";\n 760 TIME=0:REPEAT:WD%=RND(5):IFT%(WD%,0)<>1T%(WD%,1)=RND(6):PRINTTAB(36+(3*WD%),2)D$(T%(WD%,1))\n 770 UNTILTIME>=500:VDU7:PRINTTAB(55,0)TICK$;:IFTH%=3THEN820\n 780 PROCflush\n 790 REPEAT:REPEAT:H%=GET-48:UNTIL(H%>0ANDH%<6)ORH%+48=32ORH%+48=83:IFH%+48<>32ANDH%+48<>83T%(H%,0)=ABS(T%(H%,0)=0):PRINTTAB(36+(H%*3),4)HOLD$(2+(T%(H%,0)=0));\n 800 UNTILH%+48=32ORH%+48=83\n 810 IFH%+48=83TH%=3:VDU7\n 820 UNTILTH%=3\n 830 PROCscore(P%):PROCtotal(P%):PROCshowscore(P%):IFP%=1PROCmover:ELSE IFGC%<>13PROCmovel\n 840 ENDPROC\n 850 DEFPROCscore(P%)\n 860 AS%=0:ST%=0:TS%=0:VDU1,ASC\"R\":VDU1,ASC\"T\":PRINTTAB(36,4)\"SCORE AGAINST WHAT ?\":VDU1,ASC\"T\":VDU1,ASC\"R\"\n 870 PROCflush\n 880 REPEAT:A$=GET$:UNTILA$=\"1\"ORA$=\"2\"ORA$=\"3\"ORA$=\"4\"ORA$=\"5\"ORA$=\"6\"ORA$=\"T\"ORA$=\"F\"ORA$=\"H\"ORA$=\"L\"ORA$=\"S\"ORA$=\"Y\"ORA$=\"C\"\n 890 IFA$=\"1\"ORA$=\"2\"ORA$=\"3\"ORA$=\"4\"ORA$=\"5\"ORA$=\"6\"PROCcalcN(P%,VAL(A$))\n 900 IFA$=\"T\"PROCcalcK(P%,9)\n 910 IFA$=\"F\"PROCcalcK(P%,10)\n 920 IFA$=\"H\"PROCcalcF(P%)\n 930 IFA$=\"L\"PROCcalcL(P%)\n 940 IFA$=\"S\"PROCcalcH(P%)\n 950 IFA$=\"Y\"PROCcalcY(P%)\n 960 IFA$=\"C\"PROCcalcC(P%)\n 970 IFAS%=1ORST%=0VDU7:GOTO860\n 980 PRINTTAB(36,4)SPC(20)\n 990 ENDPROC\n 1000 DEFPROCcalcN(P%,N%):IFSC%(N%,P%+2)=127AS%=1\n 1010 FORX%=1TO5:IFT%(X%,1)=N%TS%=TS%+N%\n 1020 NEXT\n 1030 PROCoke(P%,SB$(N%),60+(60*(P%=1)),N%-1):IFST%=1:SC%(N%,P%)=TS%:SC%(N%,P%+2)=127\n 1040 IFSC%(1,P%+2)=127ANDSC%(2,P%+2)=127ANDSC%(3,P%+2)=127ANDSC%(4,P%+2)=127ANDSC%(5,P%+2)=127ANDSC%(6,P%+2)=127SC%(7,P%+2)=127\n 1050 PROCchb(P%)\n 1060 ENDPROC\n 1070 DEFPROCcalcK(P%,N%):IFSC%(N%,P%+2)=127AS%=1\n 1080 A%=0:B%=0:C%=0:D%=0:E%=0:F%=0:G%=0:IFN%=9K%=3 ELSE K%=4\n 1090 FORX%=1TO5\n 1100 IFT%(X%,1)=1A%=A%+1:IFA%=K%F%=1\n 1110 IFT%(X%,1)=2B%=B%+1:IFB%=K%F%=1\n 1120 IFT%(X%,1)=3C%=C%+1:IFC%=K%F%=1\n 1130 IFT%(X%,1)=4D%=D%+1:IFD%=K%F%=1\n 1140 IFT%(X%,1)=5 E%=E%+1:IFE%=K%F%=1\n 1150 IFT%(X%,1)=6G%=G%+1:IFG%=K%F%=1\n 1160 NEXT\n 1170 IFF%=1FORX%=1TO5:TS%=TS%+T%(X%,1):NEXT:ELSE TS%=0\n 1180 PROCoke(P%,SB$(5+K%),75+(60*(P%=1)),K%-3):IFST%=1SC%(N%,P%)=TS%:SC%(N%,P%+2)=127\n 1190 ENDPROC\n 1200 DEFPROCcalcF(P%):IFSC%(11,P%+2)=127AS%=1\n 1210 A%=0:B%=0:C%=0:D%=0:E%=0:F%=0:FORX%=1TO5\n 1220 IFT%(X%,1)=1A%=A%+1\n 1230 IFT%(X%,1)=2B%=B%+1\n 1240 IFT%(X%,1)=3C%=C%+1\n 1250 IFT%(X%,1)=4D%=D%+1\n 1260 IFT%(X%,1)=5 E%=E%+1\n 1270 IFT%(X%,1)=6 F%=F%+1\n 1280 NEXT\n 1290 FORX%=1TO5:TWO=0:THR=0\n 1300 IFA%=3THR=1:ELSE IFA%=2TWO=1\n 1310 IFB%=3THR=1:ELSE IFB%=2TWO=1\n 1320 IFC%=3THR=1:ELSE IFC%=2TWO=1\n 1330 IFD%=3THR=1:ELSE IFD%=2TWO=1\n 1340 IFE%=3THR=1:ELSE IFE%=2TWO=1\n 1350 IFF%=3THR=1:ELSE IFF%=2TWO=1\n 1360 NEXT\n 1370 IFTHR=1ANDTWO=1TS%=25:ELSE TS%=0\n 1380 PROCoke(P%,SB$(10),75+(60*(P%=1)),2):IFST%=1SC%(11,P%)=TS%:SC%(11,P%+2)=127\n 1390 ENDPROC\n 1400 DEFPROCcalcL(P%):PASS%=0:IFSC%(12,P%+2)=127AS%=1\n 1410 F%=0:PROCsort:S$=STR$(T%(1,1))+STR$(T%(2,1))+STR$(T%(3,1))+STR$(T%(4,1))+STR$(T%(5,1))\n 1420 IFMID$(S$,1,4)=\"1234\"ORMID$(S$,1,4)=\"2345\"ORMID$(S$,1,4)=\"3456\"ORMID$(S$,2,4)=\"1234\"ORMID$(S$,2,4)=\"2345\"ORMID$(S$,2,4)=\"3456\"F%=1\n 1430 IFF%=1ORPASS%=1GOTO1480\n 1440 PASS%=1:FORX%=2TO3\n 1450 IFT%(X%,1)=T%(X%+1,1) T%(X%+1,1)=0:X%=3\n 1460 NEXT\n 1470 GOTO1410\n 1480 IFF%=1TS%=30:ELSE TS%=0\n 1490 PROCoke(P%,SB$(11),75+(60*(P%=1)),3):IFST%=1SC%(12,P%)=TS%:SC%(12,P%+2)=127\n 1500 ENDPROC\n 1510 DEFPROCcalcH(P%):IFSC%(13,P%+2)=127AS%=1\n 1520 PROCsort:S$=STR$(T%(1,1))+STR$(T%(2,1))+STR$(T%(3,1))+STR$(T%(4,1))+STR$(T%(5,1))\n 1530 IFMID$(S$,1,5)=\"12345\"ORMID$(S$,1,5)=\"23456\"ORMID$(S$,2,5)=\"12345\"ORMID$(S$,2,5)=\"23456\"TS%=40:ELSE TS%=0\n 1540 PROCoke(P%,SB$(12),75+(60*(P%=1)),4):IFST%=1SC%(13,P%)=TS%:SC%(13,P%+2)=127\n 1550 ENDPROC\n 1560 DEFPROCcalcY(P%):Types=1:IFSC%(14,P%+2)=127AS%=1\n 1570 IFT%(2,1)<>T%(1,1)Types=Types+1\n 1580 IFT%(3,1)<>T%(1,1)Types=Types+1\n 1590 IFT%(4,1)<>T%(1,1)Types=Types+1\n 1600 IFT%(5,1)<>T%(1,1)Types=Types+1\n 1610 IFTypes=1TS%=50:ELSE TS%=0\n 1620 PROCoke(P%,SB$(13),75+(60*(P%=1)),5):IFST%=1SC%(14,P%)=TS%:SC%(14,P%+2)=127\n 1630 ENDPROC\n 1640 DEFPROCcalcC(P%):IFSC%(15,P%+2)=127AS%=1\n 1650 FORX%=1TO5:TS%=TS%+T%(X%,1):NEXT:PROCoke(P%,SB$(14),75+(60*(P%=1)),6):IFST%=1SC%(15,P%)=TS%:SC%(15,P%+2)=127\n 1660 ENDPROC\n 1670 DEFPROCtotal(P%):SC%(8,P%)=0:SC%(16,P%)=0\n 1680 FORX%=1TO6:SC%(8,P%)=SC%(8,P%)+SC%(X%,P%):NEXT\n 1690 IFSC%(8,P%)>=63SC%(7,P%)=35:SC%(7,P%+2)=127\n 1700 SC%(8,P%)=SC%(8,P%)+SC%(7,P%)\n 1710 FORX%=9TO15:SC%(16,P%)=SC%(16,P%)+SC%(X%,P%):NEXT\n 1720 SC%(17,P%)=SC%(8,P%)+SC%(16,P%)\n 1730 ENDPROC\n 1740 DEFPROCshowscore(P%):X1%=68+(60*(P%=1)):X2%=88+(60*(P%=1))\n 1750 PRINTTAB(X1%,0),SC%(1,P%);TAB(X1%,1),SC%(2,P%);TAB(X1%,2),SC%(3,P%);TAB(X1%,3),SC%(4,P%);\n 1760 PRINTTAB(X1%,4),SC%(5,P%);TAB(X1%,5),SC%(6,P%);TAB(X1%,6),SC%(7,P%);TAB(X1%,7),SC%(8,P%);\n 1770 PRINTTAB(X2%,0),SC%(9,P%);TAB(X2%,1),SC%(10,P%);TAB(X2%,2),SC%(11,P%);TAB(X2%,3),SC%(12,P%);\n 1780 PRINTTAB(X2%,4),SC%(13,P%);TAB(X2%,5),SC%(14,P%);TAB(X2%,6),SC%(15,P%);TAB(X2%,7),SC%(16,P%);TAB(40,7),SC%(17,1);TAB(54,7),SC%(17,2);\n 1790 FORX%=0TO6:PRINTTAB(12,X%);CHR$(SC%(X%+1,3));TAB(72,X%);CHR$(SC%(X%+1,4));:NEXT:FORX%=9TO15:PRINTTAB(32,X%-9);CHR$(SC%(X%,3));TAB(92,X%-9);CHR$(SC%(X%,4));:NEXT\n 1800 ENDPROC\n 1810 DEFPROCscreen\n 1820 CLS:FORPSC%=1TO7:PRINTTAB(0,PSC%-1)SB$(PSC%);TAB(60,PSC%-1)SB$(PSC%);:NEXT\n 1830 PRINTCHR$1+\"2+T\";TAB(0,7);\"TOTAL\";TAB(60,7)\"TOTAL\";CHR$1+\"2-T\";:FORPSC%=8TO14:PRINTTAB(15,PSC%-8)SB$(PSC%);TAB(75,PSC%-8)SB$(PSC%);:NEXT \n 1840 PRINTCHR$1+\"2+T\";TAB(15,7);\"TOTAL\";TAB(75,7)\"TOTAL\";CHR$1+\"2-T\";\n 1850 PROCshowscore(1):PRINTTAB(0,0):PROCshowscore(2)\n 1860 PRINTTAB(36,0)\"ELEMENT 1 THROW 1\";TAB(34,7);P$(1);TAB(48,7)P$(2);\n 1870 C=0:FORN=39TO51STEP3:C=C+1:D%=RND(6):PRINTTAB(N,2)D$(D%):T%(C,0)=0:NEXT\n 1880 PRINTTAB(35,1)TROW$;TAB(35,2)LU$;TAB(56,2)RU$;TAB(35,5)BROW$;\n 1890 ENDPROC\n 1900 DEFPROCclear:FORX%=1TO17:FORY%=1TO2:SC%(X%,Y%)=0:NEXT:NEXT:FORX%=1TO7:SC%(X%,3)=32:SC%(X%,4)=32:NEXT:FORX%=9TO15:SC%(X%,3)=32:SC%(X%,4)=32:NEXT:ENDPROC\n 1910 DEFPROCsort\n 1920 FORI%=1TO4:FORJ%=I%+1TO5:IFT%(J%,1)127 HSP%=HSP%+(N*5)\n 2090 IFSC%(N,P%+2)=127SSF%=SSF%+SC%(N,P%)\n 2100 NEXT\n 2110 IFHSP%+SSF%<63SC%(7,P%+2)=127\n 2120 ENDPROC\n 2130 DEFPROCendgame:FORX%=2TO4:PRINTTAB(36,X%);SPC(20):NEXT\n 2140 IFSC%(17,1)>SC%(17,2)VDU1,ASC\"B\":PRINTTAB(41,2)P$(1);\" WINS\":VDU1,ASC\"B\":ELSE IF SC%(17,2)>SC%(17,1)VDU1,ASC\"B\":PRINTTAB(41,2)P$(2);\" WINS\":VDU1,ASC\"B\":ELSE IF SC%(17,1)=SC%(17,2)VDU1,ASC\"B\":PRINTTAB(42,2)\"GAME DRAWN\":VDU1,ASC\"B\"\n 2150 VDU1,ASC\"B\":PRINTTAB(37,4)\"ANOTHER GAME? Y/N\":VDU1,ASC\"B\":PROCans(\"Y\",\"y\",\"N\",\"n\")\n 2160 ENDPROC\n 2170 DEFPROCoke(P%,E$,Q%,R%):PRINTCHR$1+\"2+R\":PRINTTAB(Q%,R%)E$;:PRINTCHR$1+\"2-R\";\n 2180 IFAS%=1PROCmes:GOTO2210\n 2190 PRINTCHR$1+\"4+T+R\":PRINTTAB(36,4)SPC(20);TAB(38,4)\"SCORES \";TS%;\" OK? Y/N\";:PRINTCHR$1+\"4-T-R\":PROCans(\"Y\",\"y\",\"N\",\"n\")\n 2200 IFAA$=\"Y\"ORAA$=\"y\"ST%=1\n 2210 PRINTTAB(Q%,R%)E$;\n 2220 ENDPROC\n 2230 DEFPROCans(Q$,R$,S$,T$):REPEAT:AA$=GET$:UNTILAA$=Q$ORAA$=R$ORAA$=S$ORAA$=T$:ENDPROC\n 2240 DEFPROCflush:REPEAT:FL%=INKEY(0):UNTILFL%=-1:ENDPROC\n 2250 DEFPROCw(TT%):TIME=0:REPEAT:UNTILTIME>=TT%:ENDPROC\n 2260 DEFPROCmes:VDU1,ASC\"T\":VDU1,ASC\"R\":PRINTTAB(36,4)\" YOU'VE SCORED THAT \":VDU1,ASC\"R\":VDU1,ASC\"T\":PROCw(250):ENDPROC\n 2270 REPORT:PRINT\" at line \";ERL:PRINTCHR$1+\"2+C\"\n","type":"text"}]}],"version":1}

Browser not supported