Program

Este espaço destina-se a apresentar alguns programas que pode inserir no seu Spectrum bem como links para todos os que quiserem aprofundar este tema

Link's com dicas de Programação em ZX Spectrum

Programas

Este espaço destina-se a apresentar alguns programas que pode inserir no seu Spectrum

Hangman

O célebre e conhecido Jogo da Forca.

5 REM hangman

10 REM set up screen

20 INK 0: PAPER 7: CLS

30 LET x=240: GO SUB 1000: REM draw man

40 PLOT 238,128: DRAW 4,0: REM mouth

100 REM set up word

110 INPUT w$: REM word to guess

120 LET b=LEN w$: LET v$=" "

130 FOR n=2 TO b: LET v$=v$+" "

140 NEXT n: REM v$=word guessed so far

150 LET c=0: LET d=0: REM guess & mistake counts

160 FOR n=0 TO b-1

170 PRINT AT 20,n;" ";

180 NEXT n: REM write  's instead of letters

200 INPUT "Guess a letter ";g$

210 IF g$="" THEN GO TO 200

220 LET g$=g$(1): REM 1st letter only

230 PRINT AT 0,c;g$

240 LET c=c+1: LET u$=v$

250 FOR n=1 TO bL REM update guessed word

260 IF w$(n)=g$ THEN LET v$(n)=g$

270 NEXT n

280 PRINT AT l9,0;v$

290 IF v$=w$ THEN GO TO 500: REM word guessed

300 IF v$<>u$ THEN GO TO 200: REM guess was right

400 REM draw next part of gallows

410 IF d=8 THEN GO TO 600: REM hanged

420 LET d=d+1

430 READ x0,y0,x,y

440 PLOT x0,y0: DRAW x,y

450 GO TO 200

500 REM free man

510 OVER 1: REM rub out man

520 LET x=240: GO SUB 1000

530 PLOT 238,128: DRAW 4,0: REM mouth

540 OVER 0: REM redraw man

550 LET x=146: GO SUB 1000

560 PLOT 143,129: DRAW 6,0, PI/2: REM smile

570 GO TO 800

600 REM hang man

610 OVER 1: REM rub out floor

620 PLOT 255,65: DRAW -48,0

630 DRAW 0,-48: REM open trapdoor

640 PLOT 238,128: DRAW 4,0: REM rub out mouth

650 REM move limbs

655 REM arms

660 PLOT 255,117: DRAW -15,-15: DRAW -15,15

670 OVER 0

680 PLOT 236,81: DRAW 4,21: DRAW 4, 21

690 OVER 1: REM legs

700 PLOT 255,66: DRAW -15,15: DRAW -15,-15

710 OVER 0

720 PLOT 236,60: DRAW 4,21: DRAW 4,-21

730 PLOT 237,127: DRAW 6,0,-PI/2: REM frown

740 PRINT AT 19,0;w$

800 INPUT "again? ";a$

810 IF a$="" THEN GO TO 850

820 LET a$=a$(1)

830 IF a$="n" THEN STOP

840 IF a$(1)="N" THEN STOP

850 RESTORE: GO TO 5

1000 REM draw man at column x

1010 REM head

1020 CIRCLE x,132,8

1030 PLOT x+4,134: PLOT x-4,134: PLOT x,131

1040 REM body

1050 PLOT x,123: DRAW 0,-20

1055 PLOT x,101: DRAW 0,-19

1060 REM legs

1070 PLOT x-15,66: DRAW 15,15: DRAW 15,-15

1080 REM arms

1090 PLOT x-15,117: DRAW 15,-15: DRAW 15,15

1100 RETURN

2000 DATA 120,65,135,0,184,65,0,91

2010 DATA 168,65,16,16,184,81,16,-16

2020 DATA 184,156,68,0,184,140,16,16

2030 DATA 204,156,-20,-20,240,156,0,-16

Clock

Criação de um relógio digital

10 DIM s(60): DIM c(60)

20 BORDER 0: PAPER 0: BRIGHT 1: INK 7: CLS

30 PRINT AT 10,1;"Hold on while I calculate"

40 PRINT AT 11,2;"some sines and cosines"

50 GO sub 370

60 LET z$="00"

70 CLS

80 INPUT "What hour is it ";h

90 INPUT "How many minutes past ";m

100 LET s=0: POKE 23672,0: POKE 23673,0

110 IF h=12 THEN LET h=0

120 LET xc =112: LET yc= 90: LET r=70: LET rh=r/2: LET rm=r*3/4: LET rs=r*5/6

130 CIRCLE xc,yc,r

140 INK 1

150 FOR i=0 TO 359 STEP 30

160 PLOT (r+1)*s(i/6+1)+xc,(r+1)* c(i/6+1)+yc

170 NEXT i

180 INK 4

190 OVER 1: GO sub 500

200 GO sub 470

210 GO sub 440

220 LET tm= INT (( PEEK 23672+256* PEEK 23673)/50)

230 IF s+1=tm THEN LET os=s: LET s=s+1: GO TO 250

240 GO TO 220

250 IF s=60 THEN LET s=0: POKE 23672,0: POKE 23673,0: LET om=m: LET m=m+1: GO TO 290

260 PLOT xc,yc: DRAW rs*s(os+1),rs*c(os+1)

270 GO sub 440

280 GO TO 220

290 IF m=60 THEN LET m=0: LET oh=h: LET h=h+1: GO TO 330

300 PLOT xc,yc: DRAW rm*s(om+1),rm*c(om+1)

310 GO sub 470

320 GO TO 260

330 IF h=12 THEN LET h=0

340 PLOT xc,yc: DRAW rh*s(oh*5+1) ,rh*c(oh*5+1)

350 GO sub 500

360 GO TO 300

370 PRINT AT 14,0

380 FOR i=6 TO 360 STEP 6

390 PRINT ".";

400 LET s(i/6)= SIN ((i-6)* PI/180)

410 LET c(i/6)= COS ((i-6)* PI/180)

420 NEXT ;

430 RETURN

440 PLOT xc,yc: DRAW rs*s(s+1),rs*C(s+1)

450 LET s$= STR$ (s): PRINT OVER 0; AT 18,27; INK 4;":"; INK 6;z$( TO 2- LEN (s$));s$

460 RETURN

470 PLOT xc,yc: DRAW rm*s(m+1),rm*C(m+1)

480 LET m$= STR$ (m): PRINT OVER 0; AT 18,24; INK 2;":"; INK 5;z$( TO 2- LEN (m$));m$

490 RETURN

500 PLOT xc,yc: DRAW rh*s(h*5+1),rh*C < h*5+1)

510 LET ph=h: IF ph=0 THEN LET ph=12

520 LET h$= STR$ (ph): PRINT OVER 0; INK 3; AT 18,22;" "(TO 2- LEN (h$));h$

530 RETURN