home *** CD-ROM | disk | FTP | other *** search
/ RUN Flagazine: Run 9 / run9.zip / PCOPY.BAS < prev    next >
BASIC Source File  |  1993-04-15  |  2KB  |  24 lines
  1. 10 KEY OFF:SCREEN 0:COLOR 0,7:CLS
  2. 20 LOCATE 1,2:PRINT "┌";STRING$(45,196);"┐"
  3. 30 LOCATE 2,2:PRINT "│  10 KEY OFF:SCREEN 0:COLOR 0,7:CLS          │"
  4. 40 LOCATE 10,55:PRINT "DIT IS SCHERM-0"
  5. 50 LOCATE 3,2:PRINT "│  20 LOCATE 10,50:":LOCATE 3,21:PRINT "PRINT ";CHR$(34);"DIT IS SCHERM-0";CHR$(34);"    │"
  6. 60 LOCATE 20,5:PRINT "Druk een toets voor opbergen in scherm-1..."
  7. 70 LOCATE 4,2:PRINT "│  30 LOCATE 20,5:PRINT ":LOCATE 4,26:PRINT CHR$(34);"Druk een toets       │"
  8. 80 LOCATE 5,2:PRINT "│  voor opbergen in scherm-1...";CHR$(34);"              │"
  9. 90 IN$=INKEY$
  10. 100 LOCATE 6,2:PRINT "│  40 IN$=INKEY$                              │"
  11. 110 LOCATE 7,2:PRINT "│  50 IF IN$=";CHR$(34);CHR$(34);" THEN GOTO 40 ELSE":COLOR 31,7:LOCATE 7,36:PRINT "PCOPY 0,1":COLOR 0,7:LOCATE 7,47:PRINT " │"
  12. 120 IF IN$="" THEN GOTO 90 ELSE PCOPY 0,1
  13. 130 LOCATE 20,5:PRINT "Druk een toets om scherm-1 terug te halen..."
  14. 140 LOCATE 8,2:PRINT "│  60 LOCATE 20,5:PRINT ";CHR$(34);"Druk een toets       │"
  15. 150 LOCATE 9,2:PRINT "│  om scherm-1 terug te halen...";CHR$(34);"             │"
  16. 160 IN$=INKEY$
  17. 170 LOCATE 10,2:PRINT "│  70 IN$=INKEY$                              │"
  18. 180 LOCATE 11,2:PRINT "│  80 IF IN$=";CHR$(34);CHR$(34);" THEN GOTO 70 ELSE":COLOR 31,7:LOCATE 11,36:PRINT "PCOPY 1,0":COLOR 0,7:LOCATE 11,47:PRINT " │"
  19. 190 LOCATE 7,36:PRINT "PCOPY 0,1   │"
  20. 200 LOCATE 12,2:PRINT "│  90 LOCATE 23,1:END                         │"
  21. 210 LOCATE 13,2:PRINT "└─────────────────────────────────────────────┘"
  22. 220 IF IN$="" THEN GOTO 160 ELSE PCOPY 1,0
  23. 230 LOCATE 23,1:END
  24.