home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / FANT4-1.DSK / QUIT.C.bas < prev    next >
BASIC Source File  |  2014-09-09  |  693b  |  19 lines
  1. 1  REM  MENUQ IS A PRODUCT OF GREEN VALLEY PUBLISHING
  2. 2  REM  A DIVISION OF SHAREDATA, INC.
  3. 3  REM  COPYRIGHT (C) 1986, ALL RIGHTS RESERVED
  4. 4  ONERR  GOTO 70
  5. 10 D$ =  CHR$(4)
  6. 20  HGR2 : PRINT D$"BLOAD QUIT TITLE,A$4000"
  7. 30  DIM CL(6)
  8. 40  FOR I = 1 TO 6: READ CL(I): NEXT 
  9. 50  DATA    1,2,3,5,6,3
  10. 55  POKE  -49168,0
  11. 60  GOSUB 1230:X =  PEEK( -16384): IF X <128  THEN 60
  12. 70  HOME : TEXT : VTAB 11: HTAB 12: PRINT "INSERT NEW DISK": PRINT : HTAB 8: PRINT "AND PRESS CONTROL-RESET"
  13. 75  GOTO 75
  14. 1220  GOSUB 1230: GOTO 1220
  15. 1230 C = C +1: IF C = 7  THEN C = 1
  16. 1240  HCOLOR= CL(C)
  17. 1250  HPLOT 0,0 TO 270,0 TO 270,190 TO 0,190 TO 0,0:
  18. 1260  HPLOT 1,1 TO 269,1 TO 269,189 TO 1,189 TO 1,1:
  19. 1310  RETURN