home *** CD-ROM | disk | FTP | other *** search
/ Generous Efforts of Many / gemcd.zip / GEM.CD.A.po / FEATURES:BEAGLE / EXTRA.K.S1.SHK / EXTRA.K.DOS3.3 / HYBRID.CREATE.bas < prev    next >
BASIC Source File  |  2000-01-01  |  2KB  |  24 lines
  1. 10  REM <CTRL-J><CTRL-J>HYBRID.CREATE<CTRL-J><CTRL-J>
  2. 15  IF  PEEK(103) + PEEK(104) *256 < >2049  THEN  POKE 103,1: POKE 104,8: POKE 2048,0: PRINT  CHR$(4)"RUN HYBRID.CREATE"
  3. 20  PRINT  CHR$(4)"NOMONICO": PRINT  CHR$(21): TEXT : NORMAL : HOME 
  4. 25  PRINT  CHR$(4)"BLOAD HYBRID.CREATE.M"
  5. 30  INVERSE : PRINT "   BEAGLE BROS HYBRID CREATE PROGRAM    ": VTAB 24: PRINT "  COPYRIGHT (C) 1985, BY MARK SIMONSEN ";: NORMAL : POKE 2039,32
  6. 40  VTAB 3: HTAB 1: PRINT "This program will create a hybrid disk": PRINT "that can be used with both DOS 3.3 and": PRINT "ProDOS."
  7. 50  PRINT : PRINT "Remember that this program will only": PRINT "work on disks that have already been": PRINT "formatted (initialized)."
  8. 60  PRINT : PRINT "WARNING: ANY existing programs, data,": PRINT "pictures, etc. on the hybrid-ized disk": PRINT "will be lost forever."
  9. 65  PRINT "________________________________________"
  10. 70  GOSUB 1000: HTAB 5: PRINT "Your choices are:"
  11. 80  PRINT : HTAB 8: PRINT "C - Create Hybrid Disk"
  12. 90  PRINT : HTAB 8: PRINT "Q - Quit"
  13. 100  PRINT : HTAB 5: PRINT "Please select one of the above ";
  14. 110  GET A$: IF A$ = "Q"  OR A$ = "q"  THEN  HOME : VTAB 23: DEL 25,25: END 
  15. 120  IF A$ < >"C"  AND A$ < >"c"  THEN 110
  16. 130  PRINT A$: GOSUB 1000
  17. 140  VTAB 19: HTAB 6: PRINT "INSERT DISK AND PRESS RETURN ";
  18. 150  GET A$: IF A$ =  CHR$(27)  THEN 70
  19. 160  IF A$ < > CHR$(13)  THEN 150
  20. 170  GOSUB 1000: VTAB 19: HTAB 12: INVERSE : PRINT "HYBRID-IZING DISK": NORMAL 
  21. 180  CALL 7936: IF  PEEK(7939)  THEN  GOSUB 1000: VTAB 18: HTAB 14: FLASH : PRINT "DISK I/O ERROR": NORMAL : PRINT : HTAB 7: PRINT "Press any key to continue ";: GET A$
  22. 190  GOSUB 1000: GOTO 70
  23. 999  END 
  24. 1000  POKE 35,23: VTAB 16: CALL  -958: POKE 35,24: RETURN