home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 04 / grdlagen / ansehen.bas next >
Encoding:
BASIC Source File  |  1994-04-11  |  327 b   |  15 lines
  1. 5 REM ********************************
  2. 6 REM            Ansehen.bas
  3. 7 REM     (C) H.Kleiner & toolbox 1990
  4. 8 REM ********************************
  5.  
  6. 10 SCREEN 1: CLS : KEY OFF
  7. 20 DEF SEG = &HB800
  8. 30 INPUT "Bild: ", BILD$
  9. 40 BLOAD BILD$ + ".cga", 0
  10. 50 DEF SEG
  11. 60 IF INKEY$ = "" THEN 60
  12. 70 SCREEN 0: WIDTH 80
  13. 80 END
  14.  
  15.