home *** CD-ROM | disk | FTP | other *** search
/ APDL Public Domain 1 / APDL_PD1A.iso / file_trans / psion / !Psion / Data / GAME < prev    next >
Encoding:
Text File  |  1988-12-30  |  1.1 KB  |  55 lines
  1. GAME:
  2. LOCAL A$(1),B$(1),C$(1),D$(1),E$(2),F$(1),G$(32)
  3. LOCAL A%,B%,C%,X%,Y%,Z%,SC%,B1%,F%,H$(1)
  4. IGAME:
  5. CURSOR OFF
  6. A$=CHR$(0):B$=CHR$(1)
  7. C$=CHR$(2):D$=CHR$(3)
  8. E$=CHR$(4)+CHR$(6):F$=CHR$(5)
  9. G$=REPT$(CHR$(165),32):H$=CHR$(7)
  10. B%=20:C%=12:X%=16:Y%=1
  11. DO
  12. CLS :PRINT G$ :AT X%,Y% : PRINT H$
  13. A%=1:C%=1+RND*2
  14. DO
  15. AT A% , C% : PRINT A$ : BEEP B% , 10*B%
  16. AT A%,C% : PRINT B$ : BEEP B%,10*B%
  17. AT A%,C% : PRINT C$ : BEEP B%,10*B%
  18. AT A%,C% : PRINT D$ : BEEP B%,10*B%
  19. AT A%,C% : PRINT E$ : BEEP B%,10*B%
  20. AT A%,C% : PRINT F$ : BEEP B%,10*B%
  21. AT A%,C% : PRINT" ":Z%=KEY
  22. IF Z%
  23. IF Z%=%S AND Y%=2
  24. AT X%,Y% : PRINT CHR$(165)
  25. Y%=1 : AT X%,1 : PRINT H$
  26. ENDIF
  27. IF Z%=%X AND Y%=1
  28. AT X%,Y% : PRINT CHR$(165)
  29. Y%=2 : AT X%,2 : PRINT H$
  30. ENDIF
  31. ENDIF
  32. A%=A%+1
  33. IF A%=X% AND C%=Y%
  34. F%=0
  35. DO
  36. AT X%,Y% : PRINT CHR$(170+F%)
  37. BEEP 10,100+F%
  38. F%=F%+1 : BEEP 10 ,100-F%
  39. UNTIL F%=30
  40. B%=B%+5 : A%=16 : X%=X%-2
  41. IF X%<1 : CLS : PRINT"GAME OVER"
  42. PRINT"SCORE:",SC% : PAUSE 40
  43. WHILE KEY : GET : ENDWH
  44. GET : RETURN
  45. ENDIF
  46. ENDIF
  47. UNTIL A%=16
  48. SC%=SC%+1
  49. IF B1%>12:B%=B%-1:B1%=0
  50. ELSEIF B%<6
  51. IF B1% AND B%=B%-1:B%=0
  52. ELSE B1% = 1 : ENDIF
  53. ELSE B% = B%-1 : ENDIF
  54. UNTIL C% = 3
  55.