Atari 8-bit Source code

10REM
11REM
12REM
13REM
14REM
15REM
16REMCODECRUNCHER&
17REMV2.2DUP.SYSAREINTHE
18REMPUBLICDOMAIN.CREDITIS
19REMGIVENTOWHOMEVERWROTE
20REMTHESEROUTINES.
21REM
22REMCC.&V2.2AREBINARYMENU
23REMPROGRAMSTHATWILLBOOT
24REMFROMYOURDISK.CC.IS
25REMHIDDENINTHEFIRSTTHREE
26REMSECTORS.LEAVING707FREE.
27REMV2.2ISA5SECTORDUP.SYS
28REMROUTINE.ITWILLREQUIRE
29REMDOS.SYSTOBEONTHEDISK
30REMINORDERTOFUNCTION.
31REMNOTE:SOMEPROGRAMSWILL
32REMNOTBOOTWITHCC.WHEN
33REMTHISHAPPENS,USEV2.2.
34REMTHESEPROGRAMSMUSTBE
35REMLOADEDWITHDOSINMEMORY
36REM
37REMBOTHPROGRAMSDIPLAYA
38REMLINEOFTEXTONTHE
39REMSCREEN.THISTEXTCANBE
40REMALTEREDWITHTHEEDIT
41REMOPTIONS.
42REMNOTE:CC.USESAGRAPHICS
43REMTWOCHARACTERSET.
44REM
45REMINCLUDEDARESOMEDOS
46REMCOMMANDSUSEDVIAXIO'S
47REM
48REMIO$ISASECTORR/W
49REMROUTINEFROMCOMPUTE!.
50REMDISK=USR(ADRio,ADR128byte
51REMbuffer,sector,1=W/0=R)
52REM
53REM
54REM
1000GRAPHICS0:OPEN#1,4,0,"K:":POKE752,1:GOSUB30000:REM
1005DL=PEEK(560)+PEEK(561)*256:POKEDL+3,70:POKEDL+6,7:POKEDL+7,112:POKEDL+8,112
1010POKEDL+25,112:POKEDL+26,6:POKEDL+27,112:POKEDL+28,112:REM
1015POKE708,0:POKE709,0:POKE710,255:POKE712,255:POKE82,2:POKE83,37
1020O=0:?"RUDOLF'SBOOTMENUEDIT"
1025?
1030?"writeCODECRUNCHER"
1035?"editCODECRUNCHERorNODOS"
1040?"writeV2.2DUP.SYS"
1045?"editV2.2DUP.SYS"
1050?
1055?"CATALOGdisk"
1060?"FORMATdisk"
1065?"DELETEfile"
1070?"RENAMEfile"
1075?"UNLOCKfile"
1080?
1085?"V2.301/03/85"
1090?"by"
1095?"a.r.gausrab"
1100?
1105IFO>0ANDO<10THEN1115
1110O=0
1115POKE84,17:IFO=0THEN?"OPTION?><":GOTO1125
1120?"OPTION?>";O;"<"
1125A=USR(ADR(C$)):GET#1,KEY
1130IFKEY=155THEN1170:REM
1135IFKEY=126THEN1155:REM
1140IFO>10THEN1150
1145O=(O*10)+KEY-48:GOTO1105
1150O=KEY-48:GOTO1105
1155IFO>9THEN1165
1160O=0:GOTO1105
1165O=INT(O/10):GOTO1105
1170IFO=0THEN1105
1175GRAPHICS0:POKE752,1:POKE709,0:POKE710,204
1180ONOGOTO1390,1430,1490,1520,1200,1230,1260,1300,1350
1185?""
1190?"":?"":GET#1,KEY:GRAPHICS0:POKE752,1:IFKEY=155THEN1175
1195GOTO1005
1200?"":?"FILENAME/LENGTH":?:ERR=1
1205OPEN#2,6,0,"D:*.*":TRAP1225:C=5
1210INPUT#2,CAT$:?CAT$
1215C=C+1:IFC=20THENC=0:?"<MORE>":GET#1,KEY
1220GOTO1210
1225TRAP20000:CLOSE#2:?:?:GOTO1190
1230?"":ERR=2
1235?"formatdisk(space/n)"
1240GET#1,KEY:IFKEY=78THEN?:GOTO1185
1245?"INSERTDISKTOFORMAT":?"PRESSRETURN(esctoabort)":GET#1,KEY
1250IFKEY<>155THEN?:GOTO1185
1255?"WORKING....":XIO254,#2,0,0,"D:":?".......DONE":?:GOTO1190
1260?"":POKE752,0:?"WHATFILETOERASE":?"('nul'toabort)":ERR=3
1265?"D:";:INPUTCAT$:POKE752,1
1270IFCAT$=""THEN?:GOTO1185
1275IFLEN(CAT$)<3THEN?"":?"PRESSANYKEY":GET#1,KEY:?"":GOTO1260
1280IFCAT$(1,2)<>"D:"THEN?"":?"PRESSANYKEY":GET#1,KEY:?"":GOTO1260
1285?:?"deletefile(space/n)":GET#1,KEY:IFKEY=78THEN?:GOTO1185
1290?"INSERTDISKWITHFILE":?"PRESSRETURN(esctoabort)":GET#1,KEY:IFKEY<>155THEN?:GOTO1185
1295?"WORKING....":XIO33,#2,0,0,CAT$:?".......DONE":?:GOTO1190
1300CAT$(1)="":CAT$(40)="":CAT$(2)="":?"":POKE752,0:?"WHATFILETORENAME":ERR=4
1305?"('nul'toabort)":?"D:";:INPUTFILE$:POKE752,1
1310IFFILE$=""THEN?:GOTO1185
1315IFLEN(FILE$)<3THEN?"":?"PRESSANYKEY":GET#1,KEY:?"":GOTO1300
1320IFFILE$(1,2)<>"D:"THEN?"":?"PRESSANYKEY":GET#1,KEY:?"":GOTO1300
1325POKE752,0:FILE=LEN(FILE$):CAT$(1,FILE)=FILE$:?"NEWNAME";:INPUTFILE$:POKE752,1:IFFILE$=""THEN?:GOTO1185
1330CAT$(FILE+1,FILE+1)=",":CAT$(FILE+2,FILE+2+LEN(FILE$))=FILE$:?"";CAT$
1335?"renamefile(space/n)":GET#1,KEY:IFKEY=78THEN?:GOTO1185
1340?"INSERTDISKWITHFILE":?"PRESSRETURN(esctoabort)":GET#1,KEY:IFKEY<>155THEN?:GOTO1185
1345?"WORKING....":XIO32,#2,0,0,CAT$:?".......DONE":?:GOTO1190
1350?"":POKE752,0:?"WHATFILETOUNLOCK":?"('nul'toabort)":ERR=5
1355?"D:";:INPUTCAT$:POKE752,1
1360IFCAT$=""THEN?:GOTO1185
1365IFLEN(CAT$)<3THEN?"":?"PRESSANYKEY":GET#1,KEY:?"":GOTO1350
1370IFCAT$(1,2)<>"D:"THEN?"":?"PRESSANYKEY":GET#1,KEY:?"":GOTO1350
1375?:?"unlockfile(space/n)":GET#1,KEY:IFKEY=78THEN?:GOTO1185
1380?"INSERTDISKWITHFILE":?"PRESSRETURN(esctoabort)":GET#1,KEY:IFKEY<>155THEN?:GOTO1185
1385?"WORKING....":XIO36,#2,0,0,CAT$:?".......DONE":?:GOTO1190
1390ERR=6:?"":?"formatdisk(y/space)":GET#1,KEY:IFKEY<>89THEN1405
1395?"INSERTDISK":?"PRESSRETURN(esctoabort)":GET#1,KEY:IFKEY<>155THEN1405
1400?"WORKING....":XIO254,#2,0,0,"D:":?".......DONE":POKE764,46
1405?"writecodecruncher(space/n)":GET#1,KEY:IFKEY=78THEN?:GOTO1185
1410?"WORKING....":DISK=USR(IO,ADR(CODE$(1,128)),1,1)
1415DISK=USR(IO,ADR(CODE$(129,256)),2,1)
1420DISK=USR(IO,ADR(CODE$(257,384)),3,1)
1425?".......DONE":?:GOTO1190
1430ERR=7:?"":?"(pressesctoabort)":FILE$(1)="":FILE$(128)="":FILE$(2)=FILE$
1435DISK=USR(IO,ADR(FILE$),1,0):IFFILE$<>CODE$(1,128)THEN?"":?:GOTO1185
1440DISK=USR(IO,ADR(FILE$),3,0):CAT$=FILE$(109,128):?"CURRENTNAME";CAT$;""
1445?"NEWNAME?"
1450FORL1=1TO20:GET#1,KEY:IFKEY=32THENKEY=0
1455IFKEY=155THENPOP:GOTO1475
1460IFKEY=27THENPOP:?:GOTO1185
1465IFKEY=126ANDL1>=2THENL1=L1-1:POSITION15+L1,6:PUT#6,32:L1=L1-1:NEXTL1
1470POSITION15+L1,6:PUT#6,KEY:CAT$(L1,L1)=CHR$(KEY):NEXTL1:GOTO1480
1475FORL2=L1TO20:POSITION15+L2,6:PUT#6,0:CAT$(L2,L2)=CHR$(0):NEXTL2
1480?:?"writenewname(space/n)":GET#1,KEY:IFKEY=78THEN?:GOTO1185
1485?"WORKING....":FILE$(109,128)=CAT$:DISK=USR(IO,ADR(FILE$),3,1):?".......DONE":?:GOTO1190
1490ERR=8:?"":?"formatdisk(y/space)":GET#1,KEY:IFKEY<>89THEN1505
1495?"INSERTDISK":?"PRESSRETURN(esctoabort)":GET#1,KEY:IFKEY<>155THEN1505
1500?"WORKING....":XIO254,#2,0,0,"D:":?".......DONE":POKE764,46
1505?"writev2.2dup.sys(space/n)":GET#1,KEY:IFKEY=78THEN?:GOTO1185
1510?"WORKING....":OPEN#2,8,0,"D:DUP.SYS"
1515FORKEY=1TO614:PUT#2,ASC(DUP$(KEY,KEY)):NEXTKEY:CLOSE#2:?".......DONE":?:GOTO1190
1520ERR=9:?"":?"(esctoabort)":OPEN#2,12,0,"D:DUP.SYS"
1525NOTE#2,S,L1:FORL1=1TO40:GET#2,KEY:CAT$(L1,L1)=CHR$(KEY):NEXTL1
1530IFCAT$=DUP$(1,40)THEN1540
1535?"":?:CLOSE#2:GOTO1185
1540L1=92:POINT#2,S,L1:FORL2=1TO37:GET#2,BYTE:CAT$(L2,L2)=CHR$(BYTE+32):NEXTL2:POINT#2,S,L1
1545?"CURRENTNAME":?"";CAT$(1,37);"":?"NEWNAME?":?""
1550FORL1=1TO37:GET#1,KEY:IFKEY=155THENPOP:GOTO1575
1555IFKEY=27THENPOP:?:?:?:CLOSE#2:GOTO1185
1560IFKEY=126ANDL1>=2THEN1585
1565POSITION(L1<=35)*(2+L1)+(L1>=36)*(1+L1-35),(L1<=35)*8+(L1>=36)*9:PUT#6,KEY
1570CAT$(L1,L1)=CHR$(KEY):NEXTL1:GOTO1595
1575FORL2=L1TO37:POSITION(L2<=35)*(2+L2)+(L2>=36)*(1+L2-35),(L2<=35)*8+(L2>=36)*9:PUT#6,32
1580CAT$(L2,L2)="":NEXTL2:GOTO1595
1585L1=L1-1:POSITION(L1<=35)*(2+L1)+(L1>=36)*(1+L1-35),(L1<=35)*8+(L1>=36)*9:PUT#6,32:CAT$(L1,L1)=""
1590L1=L1-1:NEXTL1
1595?:?"writenewname(space/n)":GET#1,KEY:IFKEY=78THEN?:GOTO1185
1600?"WORKING....":FORL1=1TO37:PUT#2,ASC(CAT$(L1,L1))-32:NEXTL1:CLOSE#2:?".......DONE"
1605?:GOTO1190
20000TRAP20000:CLOSE#2:REM
20005?"":?"FATALERROR":?"ERRORENCOUNTEREDDURRING":A=0
20010IFERR=1THEN?"catalogfunction":A=1
20015IFERR=2THEN?"formatfunction":A=1
20020IFERR=3THEN?"deletefunction":A=1
20025IFERR=4THEN?"renamefunction":A=1
20030IFERR=5THEN?"unlockfunction":A=1
20035IFERR=6THEN?"writecodecruncherfunction":A=1
20040IFERR=7THEN?"editcodecruncherfunction":A=1
20045IFERR=8THEN?"writev2.2dup.sysfunction":A=1
20050IFERR=9THEN?"editv2.2dup.sysfunction":A=1
20055IFA=0THEN?"unknownfunction":A=1
20060A=0:ERR=PEEK(195):IFERR=138THEN?"'DEVICEDOESNOTRESPOND'":A=1
20065IFERR=144THEN?"'DISKERROR.diskwriteprotected'":A=1
20070IFERR=162THEN?"'DISKFULL'":A=1
20075IFERR=165THEN?"'BADFILENAME'":A=1
20080IFERR=167THEN?"'FILELOCKED'":A=1
20085IFERR=170THEN?"'FILENOTFOUND'":A=1
20090IFA=0THEN?"UNKNOWNERROR"
20095?"ERRORNUMBER";ERR:?"":GOTO1190
30000DIMIO$(44),CODE$(384),CAT$(40),FILE$(128),DUP$(614),C$(106)
30005IO$="hhhhhhhWRS`"
30010CODE$(1,100)="`DX01iG0;GZniHI8"
30015CODE$(101,199)="I8iHGGiBO81G`Zn!CD%CE"
30020CODE$(200,297)="FCCDECFDBlJBl1R@Y"
30025CODE$(298,384)="0B))`%H$H`pppGlppAXcodecruncher"
30030IO=ADR(IO$)
30035DUP$(1,80)="',@Fver'((<PdxpppB'pF@P@P@P@P@P@P@P@P@PA'"
30040DUP$(81,160)="?:*8=9S:D1:*.*0D("
30045DUP$(161,240)="Ix0',01'L'2LC('HiX"
30050DUP$(241,320)="i2hi.2Xi3Xi4Xi()5'0<)HHLB"
30055DUP$(321,400)="V`BV`BJD'EKVBJKD'EV"
30060DUP$(401,480)="0'1X'Y'BD2EHIV0O2HS222Y"
30065DUP$(481,560)="00)i2U`BD2EHIV`0))BJK/D"
30070DUP$(561,614)="EV0BD8EHIV88`("
30075C$(1,73)="heOHA:3,%"
30080C$(73,106)="02345`":TRAP20000:RETURN	

• Download link 1

• Download link 1