home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / MBUG / MBUG096.ARC / NONAME.WSF < prev    next >
Text File  |  1979-12-31  |  2KB  |  41 lines
  1.                            -- NONAME --
  2.                          by Simon Carter
  3.  
  4.  
  5. This  is  a  somewhat  expanded version  of  `Noname,'  a  program 
  6. appearing in an ETI.
  7.  
  8.  
  9.  
  10. 00100 CLS:CURS 16,8:PRINT"T H E    N O    N A M E    G A M E"
  11. 00110 LORES:PLOT 0,0 TO 0,47 TO 127,47 TO 127,0 TO 0,0:POKE 257,1
  12. 00120 CURS 18,3:PRINT"Do you need instructions (Y/N)?":A0$=KEY$:IF A0$="N" THEN 230 ELSE IF A0$<>"Y" THEN 120
  13. 00130 CLS:CURS 22,3:PRINT"I N S T R U C T I O N S "
  14. 00140 PRINT SPC(12)"The NO-NAME game is a program for drawing"
  15. 00150 PRINT SPC(11)"pictures in LORES . Your starting point is"
  16. 00160 PRINT SPC(20)"chosen by the computer."
  17. 00170 PRINT SPC(8)"The keys to move up, down, left and right are :"
  18. 00180 PRINT SPC(31)"I"\SPC(28)"J     K"
  19. 00190 PRINT SPC(8)"N - New game           M"
  20. 00200 PRINT SPC(10)"Press any key to start the game........"
  21. 00210 LORES:PLOT 0,0 TO 0,47 TO 127,47 TO 127,0 TO 0,0
  22. 00220 U=USR(32774)
  23. 00230 CLS:A=INT(RND*120)+1:B=INT(RND*45)+1:SET A,B
  24. 00240 A0$=KEY:POKE 258,255:IF A0$="" THEN 240
  25. 00250 IF A0$="K" THEN 310
  26. 00260 IF A0$="I" THEN 330
  27. 00270 IF A0$="M" THEN 370
  28. 00280 IF A0$="J" THEN 350
  29. 00290 IF A0$="N" THEN 230
  30. 00300 GOTO 240
  31. 00310 A=A+1:IF A>127:A=127
  32. 00320 SET A,B:FOR I=0 TO 36:NEXT I:GOTO 240
  33. 00330 B=B+1:IF B>47:B=47
  34. 00340 SET A,B:FOR I=0 TO 87:NEXT I:GOTO 240
  35. 00350 A=A-1:IF A<0:A=0
  36. 00360 SET A,B:FOR I=0 TO 36:NEXT I:GOTO 240
  37. 00370 B=B-1:IF B<0:B=0
  38. 00380 SET A,B:FOR I=0 TO 87:NEXT I:GOTO 240
  39.  
  40. F A<0:A=0
  41. 00360 SET A,B:FOR I=0 TO 36:NEXT I:GOTO 240