home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / hard.hdv / HARD / TWOLINERS / P.10.2.LINER..2 (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1992-02-02  |  417 b   |  4 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 0  REM  CHRIS JOHNSON- LITTLE ROCK, AR
  2. 1  TEXT : HOME : PRINT "YOU ARE OFFERED ONE CENT ON THE FIRST   DAY OF YOUR NEW JOB, TO BE DOUBLED EVERYDAY THEREAFTER FOR A MONTH.": PRINT : PRINT "] QUESTION: SHOULD YOU ACCEPT?";: FLASH : HTAB 2: PRINT " ": NORMAL 
  3. 2  PRINT : PRINT "DAY","PAY": PRINT "---","-----------": POKE 34,8:S = 127/31:A = .01: FOR B = 1 TO 31: SPEED= 2 *S *B: PRINT B,"$";A:A = A *2: NEXT : PRINT : PRINT "  ANSWER: HOLD OUT FOR MORE.";: VTAB 23
  4. 10  REM <CTRL-0x0d><CTRL-0x0d>CHRIS JOHNSON<CTRL-0x0d>17 BROOKVIEW<CTRL-0x0d>LITTLE ROCK, AR 72209<CTRL-0x0d><CTRL-0x0d>SEPTEMBER 26, 1981