Return

610 IF C-l THEN CS » "TURN " ELSE CS-"TURNS*

680 CLS : PRINT CHRS(23); 690 FOR A - 1 TO 15 700 PRINT TAB(3+A) "CRAM* 710 NEXT A

750 PRINT TAB(8) 'WELCOME TO THE GAME OF 'CRAM'* 770 PRINT I PRINT *DO YOU WANT INSTRUCTIONS?* 780 AS - INKEYS : IF AS - " THEN 780 790 IF AS - *N* THEN 900 800 IF AS <> •*" THEN 780

810 PRINT I PRINT TAB(8) 'THE OBJECT OF THE GAME IS TO CRAM AS M ANY"

820 PRINT 'LINES AS YOU CAN ONTO THE SCREEN. EACH TIME YOU* 830 PRINT "WISH TO CHANGE THE DIRECTION OF THE MOVING LINE,' 840 PRINT "PRESS ANY KEY EXCEPT <SHIFT> OR <BREAK>." 850 PRINT TAB(8) 'THE GAME IS OVER WHEN THE MOVING LINE RUNS INT 0*

Listing 1 continues

Was this article helpful?

0 0

Post a comment