home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / hard.hdv / HARD / TWOLINERS / TL.PULSE.METER (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1992-02-02  |  317 b   |  3 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 0  REM  JOHN ROMERO--ROCKLIN,CA
  2. 1  HOME : VTAB 22: PRINT "PLACE FINGER ON SPACE BAR TO READ PULSE.": VTAB 20:S = 49200: HGR : HCOLOR= 3: FOR Y = 0 TO 160  STEP 10:Y = Y -(Y = 160): HPLOT 0,Y TO 279,Y: NEXT : FOR X = 0 TO 280  STEP 10:X = X -(X = 280): HPLOT X,0 TO X,190: NEXT : VTAB 1
  3. 2  HCOLOR= 3: HPLOT 0,100: FOR X = 0 TO 276  STEP 3: GET A$: PRINT  CHR$(7 -(A$ = " "));: HPLOT  TO X, INT( RND(1) *80 +35) TO X +3, INT( RND(1) *80 +35):P =  PEEK(S): NEXT : HOME : VTAB 22: PRINT "THANK YOU. <CTRL-0x07>THAT WILL BE 25 CENTS.": END