home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 17 / CD_ASCQ_17_101194.iso / vrac / vester_e.zip / SEEMAP.BAS < prev    next >
BASIC Source File  |  1994-08-08  |  1KB  |  22 lines
  1. 10 CLEAR:CLS:SCREEN 0
  2. 15 X$="system":KEY 10,X$
  3. 20 DEF SEG=&H4F00
  4. 25 PRINT"   Program to playback maps stored with WXMAP.BAS program.":PRINT:PRINT:PRINT
  5. 30 INPUT "Name of file to be displayed";F$
  6. 31 V$=RIGHT$(F$,4)
  7. 40 BLOAD "seeb.asm",&H100
  8. 50 IF V$=".cga" THEN POKE &H161,110:POKE &H162,1:SCREEN 2
  9. 100 PRINT:PRINT:PRINT "    Weather map will be stored in memory now. You can scroll the pix"
  10. 110 PRINT "by moving the viewing screen Right (R), Left (L), Down (D), or Up (U)"
  11. 120 PRINT "over the map. To Print (P) the map,  position the desired starting point"
  12. 130 PRINT "in the upper left corner of the display, and hit  P. Be sure the printer"
  13. 140 PRINT "is turned ON before doing this. You can Halt (H) the printer at  any time"
  14. 150 PRINT "by hitting H (it completes it's 3 stroke cycle). You can return to Basic"
  15. 160 INPUT "by pressing 'Q' for QUIT. Now hit ENTER, then 'D' to see the map";C$
  16. 170 PRINT:PRINT:PRINT:PRINT "                                              K3BC"
  17. 175 A%=B%=C%=0
  18. 180 K=&H100:CALL K(A%,B%,C%,F$)
  19. 182 SCREEN 0
  20. 185 PRINT"  If D gave no map, you typed the file name or path wrong. Recheck it!"
  21. 190 END
  22.