d X;NOFORMATnX;BY GLENN K. SMITHxX;(c)1988, ANTIC PUBLISHINGEIFPX;X;THIS PROGRAM WILL SETUP A!X;RAMDISK AS DRIVE #8. IT WILL"X;NOT FORMAT IT SO ANY PREVIOUS!X;FILES WILL REMAIN INTACT. IT"X;ALSO CHECKS TO SEE IF DUP.SYSX;IS PRESENT IN THE RAMDISK.X; ROWCRST COLCRSU RTCLOKCURSOR ICCOMB" ICSTAC, ICBALD6 ICBAHE@ ICBLLHJ ICBLHITICAUX1J^ICAUX2Kh SIOVYr CIOVV|DRVBYT  DINITDUPDRV?X; RAMDISK#CURSOR;;HIDE CURSOR CLRS;;CLEAR SCREENQ>;;POSITION 6,4 PROWCRSQ> PCOLCRS PRINT& ASetting Up ATARI 130XE RAMDisk A =Q>;;8 SPACES OVER PCOLCRS PRINT& ARAMDisk Not Formatted! A0 =====:Q> ;;13 SPACES OVERD PCOLCRSN PRINTX AAb =l!QDRVBYT;;SAY WE HAVE DRIVE #8vL> PDRVBYT DINIT;;INIT DRIVE #8X; CLOSE;;CLOSE IOCB$>@;;IOCB #4 Q>;;OPEN PICCOM9Q>4DUPSYS;;D8:DUP.SYS PICBAL9 Q>5DUPSYS PICBAH9Q>;;INPUT PICAUX19Q>;;AUX #2  PICAUX29 CIOV;;DO IT $>@;;IOCB #4*QICSTA9;;GET STATUS4GNOTFND;;FILE NOT FOUND>X;HQ> 8;;IS D8:R PDUPDRV\ NOTFNDf CLOSE;;CLOSE IOCBpX;zQRTCLOK;;WAIT,O>;;128 JIFFIESWAIT RRTCLOK HWAITX;"CURSOR;;RESTORE CURSOR!CLRS;;CLEAR SCREENX; PRINT7;;GET STRING ADDR-1PSTRING7PSTRING NEXTCH #STRING;;GET CORRECT ADDR$ HSTRING.X;8#STRINGB STRINGLQ;;STRING ADDRVFENDOUT;;ALL DONE?`X;j COUT;;PRINT CHARt!NEXTCH;;GET ANOTHER ONE~X; ENDOUTQSTRING;;GET RETURN ADDR5QSTRING5:X;COUT$>;;IOCB #0&ICBLL;;LENGTH LSB&ICBLH;;LENGTH MSB %> ;;PUT 'ICCOM !CIOV;;PUT CHARX;CLRS( PRINT;;CLEAR SCREEN2 A}A< =F:PX;Z CLOSEd$>@;;CLOSE IOCB #4nQ> x PICCOM9 !CIOVX; DUPSYS AD8:DUP.SYSA X; RAMDISK