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