Home » Personal collection » Commodore tapes » Commodore_16 » drawer_br_tape04a_c16_c60_computer_tape_1.wav » jigsaw b
jigsaw b
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 tapes » Commodore_16 » drawer_br_tape04a_c16_c60_computer_tape_1.wav |
Filename: | jigsaw b |
Read OK: | ✔ |
File size: | 06DC bytes |
Load address: | 1001 |
Exec address: | 0000 |
File contents
10 COLOR O,6 20 COLOR 4,6 30 GRAPHIC 4,1 40 COLOR 2,3,4 50 COLOR 3,8 60 COLOR 1,8 70 BOX 1,4,10,74,150,,1 80 FOR A=1 TO 100 90 B=INT(RND(1)*70)+4 100 C=INT(RND(1)*140)+10 110 D=INT(RND(1)*70)+4 120 E=INT(RND(1)*140)+10 130 DRAW 2,B,C TO D,E 140 NEXT A 150 FOR A=4 TO 74 STEP 10 160 DRAW 1,A,150 TO A,11 170 NEXT A 180 FOR A=10 TO 150 STEP 20 190 DRAW 1,4,A TO 74,A 200 NEXT A 210 FOR A=10 TO 130 STEP 20 220 FOR B=88 TO 148 STEP 10 230 C=INT(RND(1)*7) 240 D=INT(RND(1)*7) 250 C=C*10+4 260 D=D*20+10 270 LOCATE C,D 280 IF RDOT(2)<>1 THEN 230 290 DRAW 3 300 SSHAPE A$,C,D,C+10,D+20 310 GSHAPE A$,B,A,1 320 A$="" 330 NEXT B 340 NEXT A 350 COLOR 3,15,4 360 FOR A=4 TO 74 STEP 10 370 DRAW 3,A,150 TO A,11 380 DRAW 3,A+84,150 TO A+84,11 390 NEXT A 400 FOR A=10 TO 150 STEP 20 410 DRAW 3,4,A TO 74,A 420 DRAW 3,88,A TO 158,A 430 NEXT A 440 COLOR 1,1 450 CHAR 1,3,0,"BOX 1(PICTURE)" 460 CHAR 1,24,0,"BOX 2(PIECES)" 470 FOR A=1 TO 7 480 IF INT(A/2)=A/2 THEN B=B+2:GOTO 500 490 B=B+3 500 IF A=1 THEN B=2 510 CHAR 1,B,19,STR$(A) 520 CHAR 1,B+21,19,STR$(A) 530 NEXT A 540 FOR A=7 TO 1 STEP -1 550 IF INT(A/2)=A/2 THEN F=F+2:GOTO 570 560 F=F+3 570 CHAR 1,0,F,MID$(STR$(A),2,1) 580 CHAR 1,21,F,MID$(STR$(A),2,1) 590 NEXT A 600 G=49 610 GRAPHIC 4 620 INPUT"<cursor down>X AXIS OF PIECE(BOX 2)";A 630 INPUT"Y AXIS OF PIECE(BOX 2)";B 640 INPUT "X AXIS OF SPACE ON PICTURE (BOX 1)";C 650 INPUT "Y AXIS OF SPACE ON PICTURE(BOX 1)";D 660 SSHAPE A$,(A-1)*10+89,(7-B)*20+11,A*10+87,(8-B)*20+9 670 LOCATE(A-1)*10+89,(7-B)*20+11 680 IF RDOT(2)=0 THEN 610 690 SSHAPE B$,(C-1)*10+5,(7-D)*20+11,C*10+3,(8-D)*20+9 700 GSHAPE B$,(C-1)*10+5,(7-D)*20+11,1 710 SSHAPE C$,(C-1)*10+5,(7-D)*20+11,C*10+3,(8-D)*20+9 720 GRAPHIC 4 730 IF C$=A$ THEN 780 740 PRINT"<cursor down><cursor down>WRONG" 750 GSHAPE B$,(C-1)*10+5,(7-D)*20+11 760 H=H+1 770 GOTO 610 780 PRINT"<cursor down><cursor down>CORRECT" 790 BOX 0,(A-1)*10+89,(7-B)*20+11,A*10+87,(8-B)*20+9,,1 800 G=G-1 810 IF G>0 THEN 610 820 GRAPHIC 0 830 PRINT "<clr><cursor down><cursor down><cursor down><cursor down><cursor down> IN THIS GAME YOU MADE";H;"WRONG GUESSES." 840 CHAR 1,13,15,"PRESS E TO END" 850 PRINT"<cursor down><cursor down><cursor down><cursor down><cursor down>PRESS SPACE TO PLAY AGAIN" 860 GETKEY A$ 870 IF A$="E" THEN SCNCLR:END 880 IF A$<>" "THEN 860 890 RUN
� O,6 � 4,6 � 4,1 +( � 2,3,4 52 � 3,8 ?<