home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / hard.hdv / HARD / TWOLINERS / P.26.2.LINER..3 (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1992-02-02  |  334 b   |  3 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 0  REM BRUCE JOHNSON-- REARDAN, WA
  2. 1  READ A,B: POKE A,B: DATA  770,173,771,48,772,192,773,136,774,208,775,5,776,206,777,1,778,3,779,240,780,9,781,202,782,208,783,245,784,174,785,0,786,3,787,76,788,2,789,3,790,96:N = N +1: IF N < >21  THEN 1
  3. 2  HTAB 81: INPUT "FREQUENCY (1 TO 255) ";F: INPUT "DURATION (1 TO 255) ";D: POKE 768,F: POKE 769,D: CALL 770: PRINT : PRINT "ANOTHER TONE (Y/N)?": GET X$: IF X$ = "Y"  THEN 2