home *** CD-ROM | disk | FTP | other *** search
/ Explore the World of Soft…ids, Adults, Educational / RocelcoInc-ExploreTheWorldOfSoftware-KidsAdultsEducational-Vol2-Shareware.iso / educate / disk017 / sqm2.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1991-06-03  |  390 b   |  19 lines
  1. 10  CLS
  2. 20  SCREEN 7
  3. 24  LOCATE 12,17:PRINT "BOOM!"
  4. 25  FOR I=1 TO 100:PALETTE 0,INT(RND*16)
  5. 26  NEXT I
  6. 27  PALETTE 0,0
  7. 28  CLS
  8. 30  OPEN "SQM2.1" FOR INPUT AS 1
  9. 40  INPUT#1,Z,X,F,Y
  10. 50  FOR L=X TO Y:FOR I=Z TO F
  11. 60  INPUT#1,A:PSET(I,L),A
  12. 70  NEXT I:NEXT L:CLOSE 1
  13. 80  LOCATE 15,1:COLOR 15
  14. 90  PRINT "You walk out of the closet and back out"
  15. 100  PRINT "into the classroom. Gee, you wonder how"
  16. 110  PRINT "those kids managed to vanish so fast..."
  17. 120  FOR I=1 TO 50000:NEXT I
  18. 130  CHAIN "SQ2"
  19.