spectrum utility - OpenLibra

1550 PRINT AT 5,2;"1";TAB 9; "2";
TAB 17;"3-;TAB 25;"4";AT 7,2;'5"
1551 GO SUB 300
1552 IF X=2 OR X=5 AND Y=2 OR Y=
5 THEN LET SCORE=SC0RE+1
1553 IF X=0 AND Y=0 THEN GO TO
1555
1554 GO SUB 90
1555 FOR A=2 TO 7: PRINT AT A,0;
NEXT A
1556 GO TO 1040
1564 PRINT AT 2,0}"B. No. 29:"}
OVER 1JAT 2, 0} " "
1565 PRINT AT 4,0;"FRANK, OVERT,
PLAIN, SIMPLE,";AT 6,0;"SECRETI
VE'
1566 PRINT AT 5,2J"1 - ;TAB 9}"2";
TAB 16| *3"}TAB 24J"4";AT 7,3}"5"
1567 GO SUB 300
1568 IF X=1 OR X=5 AND Y=1 OR Y«
5 THEN LET SCORE=SCORE+1
1569 IF X=0 AND Y=0 THEN GO TO
1571
1570 GO SUB 90
1571 FOR A-2 TO 7: PRINT AT A,0;
W*: NEXT A
1572 GO TO 1040
1580 PRINT AT 2,0;"0. No. 30:";
OVER I;AT 2,0;' •
1581 PRINT AT 4,0;"AGGRAVATE, PL
EASE, ENJOY, ";AT 6,0 t "IMPROVE, L
IKE"
1582 PRINT AT 5,3;"1"?TAB 14;"2"
;TAB 21;"3";AT 7,3;-4";TAB 10;"5
N
1583 GO SUB 300
1584 IF X=1 OR X=4 AND Y=1 OR Y=
4 THEN LET SCORE=SCORE+1
1585 IF X=0 AND Y=0 THEN GO TO
1587
1586 GO SUB 90
1587 FOR A=2 TO 7: PRINT AT A,0;
UL*: NEXT A
1588 GO TO 1040
1596 PRINT AT 2,0}"Q. No. 31:";
OVER 1 ; AT 2,05" "
1597 PRINT AT 4,0;"ANTEDATE, PRI
MITIVE, PRIMORDIAL";AT 6,0;"PRIM
ATE, ULTIMATE-
ISPS PRINT AT 5,3;"1"JTAB 13;"2"
; TAB 25;-3";AT 7,3{ "4 -;TAB 13;-5
•
1599 GO SUB 300
1600 IF X=3 OR X=5 AND Y=3 OR Y=
5 THEN LET SCORE«SCORE+1
1601 IF X=0 AND Y=0 THEN GO TO
1603
1602 GO SUB 90
1603 FOR A=2 TO 7: PRINT AT A,0;
985 ZX COMPUTING APRIL/MAY 1985
ISPECTRUM DOMESTIC)
W*: NEXT A
1604 GO TO 1040
1612 PRINT AT 2,0}"0*5. 32-36: M
ATHS SERIES: Q.32."} OVER 1}AT 2
__
"}AT 4,0;"ENTER THE VALUE OF T
HE NO. WHICHLOGICALLY FOLLOWS TH
E OTHERS."
1613 PRINT AT 7,0;" 3,6,12,24, (
A) "
1615 GO SUB 400
1616 IF X=48 THEN LET SCORE=SCO
RE +1
1617 IF X=0 THEN GO TO 1619
1618 GO SUB 90
1619 FOR A=2 TO 7: PRINT AT A,0)
W«: NEXT A
1620 GO TO 1040
1628 PRINT AT 2,0;"Q. No. 33:";
OVER 1JAT 2,0}" "
1629 PRINT AT 4,0;" 81,54,36,24
(A) •
1631 GO SUB 400
1632 IF X=16 THEN LET SCORE=SCO
RE +1
1633 IF X=0 THEN GO TO 1635
1634 GO SUB 90
1635 FOR A=2 TO 4: PRINT AT A,0;
W«: NEXT A
1636 GO TO 1040
1644 PRINT AT 2,0}"G. No. 34:"}
OVER i;AT 2,0;' "
1645 PRINT AT 4,0}" 2,3,5,9,17 (
A) "
1647 GO SUB 400
1648 IF X=33 THEN LET SCORE=SCO
RE* 1
1649 IF X=0 THEN GO TO 1651
1650 GO SUB 90
1651 FOR A=2 TO 4: PRINT AT A,0;
W«: NEXT A
1652 GO TO 1040
1660 PRINT AT 2,0}"Q. No. 35:";
OVER I;AT 2,0;" "
1661 PRINT AT 4,0;" 7,13,19,25 <
A) "
1663 GO SUB 400
1664 IF X=31 THEN LET SCORE=SCO
RE *• 1
1665 IF X=0 THEN GO TO 1667
1666 GO SUB 90
1667 FOR A=2 TO 4: PRINT AT A,0;
W«: NEXT A
1668 GO TO 1040
1676 PRINT AT 2,0;"Q. No. 36:";
OVER 1} AT 2,0;" "
1677 PRINT AT 4,0;" 9,16,25,36 (
A) "
1679 GO SUB 400
49