luckybuck Posted February 4, 2015 Author Share Posted February 4, 2015 Yes, for XE, there is only: BASIC XE Extension Disk.atr SIMPLREL.ACT: Alfred, you did already major impacts to the community and now, one more? Christmas in February? We have searched everywhere, every disk available, but didn't found that file. If it is on your tooldisk, then OSS did publish different disk version. We have bought the original disks and there were no file like the above. If you have it, that means therefore even more! Would be cool to compare the contents. Here are our ones: PAD: Toolkit: Runtime: Can't wait for your answer... Quote Link to comment Share on other sites More sharing options...
Alfred Posted February 4, 2015 Share Posted February 4, 2015 The actual disks are packed away somewhere, I just copied all the files to my hard drive. ; Copyright © 1984 OSS, Inc.; Permission is granted to change, duplicate, or distribute this program; free of charge, provided:; 1. This copyright message is retained intact.; 2. The program is not sold for profit.DEFINE File1 = "1", File2 = "2", OutFile = "3"PROC Relocate() BYTE ARRAY name1( 20 ), name2( 20 ), outName( 20 ) BYTE destPage, c1, c2, basePage ; Ask user for file names, Print( "File 1: " ) InputS( name1 ) Print( "File 2: " ) InputS( name2 ) Print( "Relocated file: " ) InputS( outName ) ; address of first file, Print( "Page of file 1 (decimal): " ) basePage = InputB() ; and destination address (page number) Print( "Destination page (decimal): " ) destPage = InputB() Print( "Relocating to page " ) PrintBE( destPage ) ; Open the files Close( File1 ) Open( File1, name1, 4, 0 ) Close( File2 ) Open( File2, name2, 4, 0 ) Close( OutFile ) Open( OutFile, outName, 8, 0 ) ; And perform the relocation DO ; Get one byte from each file c1 = GetD( File1 ) c2 = GetD( File2 ) ; Check for end of file IF Eof( File1 ) THEN EXIT FI ; If bytes differ, then relocate IF c1 = c2 THEN PutD( OutFile, c1 ) ELSEIF (c2-c1 = 1) OR (c1-c2 = 1) ; Bytes differ by exactly one page - relocate. PutD( OutFile, c1-basePage+destPage ) ELSE ; Bytes differ by more than one page - error! PrintE( "Object files are not 1 page apart!" ) PrintE( "Aborting program..." ) EXIT FI OD Close( File1 ) Close( File2 ) Close( OutFile )RETURN Quote Link to comment Share on other sites More sharing options...
luckybuck Posted February 4, 2015 Author Share Posted February 4, 2015 Alfred, I am just in BASIC and Assembler. Will forward that to the Action guys. But my feelings tell me, that this is the right stuff! So are you. Peta-Thanks in the name of the Atari community worldwide. Quote Link to comment Share on other sites More sharing options...
Alfred Posted February 4, 2015 Share Posted February 4, 2015 (edited) This is what I have from the various toolkit disks Volume: SOURCEHDDirectory: ACTLIB ABS ACT 317 5-20-03 9:27pALLOCATE ACT 2778 5-20-03 9:27pCHARTEST ACT 1447 5-20-03 9:27pCIRCLE ACT 1049 5-20-03 9:27pCONSOLE ACT 1595 5-20-03 9:27pIO ACT 1898 5-20-03 9:27pJOYSTIX ACT 842 5-20-03 9:27pPMG ACT 5693 5-20-03 9:27pPRINTF ACT 3886 5-20-03 9:27pREAL ACT 4995 5-20-03 9:27pSORT ACT 5962 5-20-03 9:27pTURTLE ACT 2575 5-20-03 9:27pDETOK ACT 7042 5-20-03 9:27pAIRHOCK ACT 14309 5-20-03 9:27pANCHECK2 ACT 1306 5-20-03 9:27pASSEM ACT 1889 5-20-03 9:27pASSEMDOC ACT 8075 5-20-03 9:27pAUTO ACT 1977 5-20-03 9:27pBIGST ACT 1291 5-20-03 9:27pBIRD ACT 2535 5-20-03 9:27pBKEXT ACT 1787 5-20-03 9:27pBKPRT ACT 812 5-20-03 9:27pBLKIO ACT 1603 5-20-03 9:27pCATCH ACT 2327 5-20-03 9:27pCDIV ACT 1515 5-20-03 9:27pCHAIN ACT 1323 5-20-03 9:27pCMPTODSK ACT 5125 5-20-03 9:27pCOMEX ACT 1536 5-20-03 9:27pCOMP ACT 2834 5-20-03 9:27pCOM_EXEC ACT 1536 5-20-03 9:27pCONFIGSP ACT 2403 5-20-03 9:27pCRC ACT 4356 5-20-03 9:27pCURSOR ACT 4777 5-20-03 9:27pDEFAULTS ACT 190 5-20-03 9:27pDIRCHK ACT 4081 5-20-03 9:27pDLIXAMPL ACT 1544 5-20-03 9:27pDOS322 ACT 12994 5-20-03 9:27pDRAWUTIL ACT 2959 5-20-03 9:27pECHOLIST ACT 690 5-20-03 9:27pEPSONCHR ACT 8518 5-20-03 9:27pFADE2 ACT 3610 5-20-03 9:28pFADE2DAT ACT 3928 5-20-03 9:28pFADE2MSG ACT 634 5-20-03 9:28pFATCHK ACT 11714 5-20-03 9:28pFATPRT ACT 3778 5-20-03 9:28pFMTLIST ACT 5912 5-20-03 9:28pFORK ACT 5870 5-20-03 9:28pFORMAT ACT 5158 5-20-03 9:28pFREE ACT 1706 5-20-03 9:28pFREEMEM ACT 1705 5-20-03 9:28pFUBAR ACT 2040 5-20-03 9:28pFUJI ACT 3002 5-20-03 9:28pGETADOC ACT 1372 5-20-03 9:28pGETARGS ACT 1689 5-20-03 9:28pGR8TEXT ACT 2144 5-20-03 9:28pGRAPHICS ACT 6977 5-20-03 9:28pINVERSE ACT 1820 5-20-03 9:28pIOCB ACT 3660 5-20-03 9:28pIOFUNC ACT 6566 5-20-03 9:28pLLACT ACT 13846 5-20-03 9:28pLODPT ACT 3797 5-20-03 9:28pLOOK ACT 377 5-20-03 9:28pMAZE ACT 9484 5-20-03 9:28pMENU ACT 2241 5-20-03 9:28pMFBOUNCE ACT 11451 5-20-03 9:28pMINIDOS ACT 3971 5-20-03 9:28pPAINT ACT 718 5-20-03 9:28pPDBATCH ACT 11000 5-20-03 9:28pPDEDIT ACT 16140 5-20-03 9:28pPDPRINT ACT 2163 5-20-03 9:28pPDSYS ACT 4771 5-20-03 9:28pPICTURE ACT 8608 5-20-03 9:28pPOPUP ACT 3611 5-20-03 9:28pPORT ACT 2939 5-20-03 9:28pPULSE ACT 2738 5-20-03 9:28pRELDOC ACT 3090 5-20-03 9:28pRELGEN ACT 5432 5-20-03 9:28pRELOC ACT 1492 5-20-03 9:28pRELOCATE ACT 1594 5-20-03 9:28pRLE ACT 3337 5-20-03 9:28pRTADDR ACT 3469 5-20-03 9:28pRTADR ACT 3469 5-20-03 9:28pRTM ACT 9526 5-20-03 9:28pRUNTIME ACT 9725 5-20-03 9:28pSAMTERM ACT 6903 5-20-03 9:28pSCRDEMO ACT 324 5-20-03 9:28pSCRNDMP1 ACT 3290 5-20-03 9:28pSCRNDMP2 ACT 2935 5-20-03 9:28pSECTIO ACT 1843 5-20-03 9:28pSIMPLREL ACT 1804 5-20-03 9:28pSIZE ACT 412 5-20-03 9:28pSORTDIR ACT 7009 5-20-03 9:28pSORTSCRN ACT 6045 5-20-03 9:28pSPARTA ACT 1081 5-20-03 9:28pSPLASH3 ACT 2364 5-20-03 9:28pSPLASH4 ACT 3187 5-20-03 9:28pSPRINTF ACT 18519 5-20-03 9:28pSRT ACT 6978 5-20-03 9:28pST ACT 6123 5-20-03 9:28pSTARS3D ACT 4753 5-20-03 9:28pSTATUS ACT 969 5-20-03 9:28pSTDOC ACT 578 5-20-03 9:28pSTRINGS ACT 4966 5-20-03 9:28pTERM ACT 7188 5-20-03 9:28pTERM1 ACT 5231 5-20-03 9:28pTERM2 ACT 2850 5-20-03 9:28pTERMINAL ACT 2431 5-20-03 9:28pTIMEACT ACT 4963 5-20-03 9:28pTLTLOGO ACT 5685 5-20-03 9:28pTODOS ACT 737 5-20-03 9:28pTRAP ACT 1059 5-20-03 9:28pVIEWCRPT ACT 20792 5-20-03 9:28pWINDOW ACT 3709 5-20-03 9:28pWINDOWS ACT 10277 5-20-03 9:28pXINIT ACT 7626 5-20-03 9:29pZEROFREE ACT 8571 5-20-03 9:29p 42438 FREE SECTORSActually, ZEROFREE is not from a toolkit. As I recall it was a typein from Analog. Edited February 4, 2015 by Alfred Quote Link to comment Share on other sites More sharing options...
luckybuck Posted February 4, 2015 Author Share Posted February 4, 2015 Wow! That is amazing. Is there a slight chance to bring that to the wiki? Many thanks in advance. Quote Link to comment Share on other sites More sharing options...
TXG/MNX Posted February 10, 2015 Share Posted February 10, 2015 Is the source of BASIC XE also found/released ? Quote Link to comment Share on other sites More sharing options...
Alfred Posted February 10, 2015 Share Posted February 10, 2015 Not yet. Quote Link to comment Share on other sites More sharing options...
luckybuck Posted February 10, 2015 Author Share Posted February 10, 2015 (edited) Found yes, but not released. I work on that the most. But please, every step needs its time. Stand by. Yesterday, I had contact to two persons, who have CX401... CX406 can be found here: AtariWiki V3: Atari Personal Financial Management System For all the big things, it seems, the time is now... Edited February 10, 2015 by luckybuck Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.