home *** CD-ROM | disk | FTP | other *** search
/ Between Heaven & Hell 2 / BetweenHeavenHell.cdr / 500 / 496 / snowhite.bas < prev    next >
BASIC Source File  |  1985-12-29  |  662b  |  24 lines

  1. 10 REM  SNOW WHITE SLEEPS WITH DWARVES
  2. 20 REM  BY ALICE R
  3. 30 REM  USING ED CHENEY'S ECDRAW PROGRAM PICTURES
  4. 40 REM  WITH A FEW OF MY OWN MODIFICATIONS
  5. 50 DEFINT A-Z
  6. 60 DIM PIC1(2623),PIC2(2623)
  7. 70       L=VARPTR(PIC1(0)):BLOAD "SNOWHT.FIG",L
  8. 80       L=VARPTR(PIC2(0)):BLOAD "SNOWHT1.FIG",L
  9. 90 SCREEN 1:COLOR 0,1:KEY OFF:CLS
  10. 100 PUT (0,0),PIC1,PSET
  11. 110 LOCATE 15,1:PRINT "DEPRESS RETURN KEY OR ESC KEY TO QUIT"
  12. 120 A$=INKEY$
  13. 130      IF A$="" THEN 120
  14. 140      IF A$=CHR$(27) THEN 200
  15. 150 PUT (0,0),PIC2,PSET
  16. 160 A$=INKEY$
  17. 170      IF A$="" THEN 160
  18. 180      IF A$=CHR$(27) THEN 200
  19. 190 GOTO 100
  20. 200 WIDTH 80
  21. 210 SCREEN 0
  22. 220 CLS
  23. 230 END
  24.