home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / hard.hdv / HARD / SEX / BEND (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1996-06-28  |  703 b   |  39 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 10 D$ =  CHR$(4)
  2. 20  HOME : TEXT 
  3. 25  SPEED= 100
  4. 30 A = 1
  5. 35  VTAB 8
  6. 40  PRINT "HERE WE GET A CHANCE TO DO OUR MORNING  EXERCISES WITH A LITTLE HELP FROM OUR   FRIENDLY COMPUTER.  HIP-THRUSTS AND     KNEE BENDS SHOULD BE A PART OF EVERY    EXERCISE ROUTINE.
  7. 50  PRINT D$;"BLOAD     BEND1,A$2000"
  8. 60  PRINT D$;"BLOAD     BEND2,A$4000"
  9. 61  GOTO 91
  10. 70  POKE  -16297,0
  11. 80  POKE  -16304,0
  12. 90  POKE  -16302,0: GOTO 100
  13. 91 A = 0
  14. 92 B$ = "3": REM  # REPS
  15. 93  REM 
  16. 94  REM 
  17. 95 DU$ = "1": PRINT D$:DU = 1: REM  HOW FAST
  18. 96 B = ( VAL(B$) *20)
  19. 98 TN = DU *18:TM = DU *22:DU = DU *20
  20. 99  PRINT D$: GOTO 70
  21. 100  GOSUB 170
  22. 110  POKE  -16299,0
  23. 120 SW = 1
  24. 130  GOSUB 180
  25. 140  POKE  -16300,0
  26. 150 SW = 0
  27. 160  GOTO 100
  28. 170  REM 
  29. 180 TT = TN
  30. 200  IF SW = 1  THEN TT = TM
  31. 210  POKE 768,TT: POKE 769,DU
  32. 220  CALL 770
  33. 240 A = A +1
  34. 250  IF A >B  THEN 280
  35. 260  RETURN 
  36. 280  VTAB 1: HTAB 1
  37. 300  REM  DON'T GO AGAIN
  38. 305  PRINT D$
  39. 310  PRINT D$;"RUN B.W"