Amstrad DDI-1 manual Neat, Closeout

Page 39

10 DIM colour(2)

20 MODE 1:ORIGIN 0,0,0,640,0,400 : REM reset screen

30 dumpfile$="flagdump.srn"

40 FOR i=0 TO 2

50 READ colour(i): REM Get colours from DATA statement

60 INK i,colour(i)

70 NEAT

80 OPENOUT "Param.dat"

90 WRITE #9,dumpfile$,1: REM save filename and mode 100 FOR i=0 TO 2

110 WRITE #9,colour(i): REM save colours

120 NEXT i

130 CLOSEOUT

140 BORDER 0

150 FOR x=-65 TO 60 STEP 2

160 MOVE x,400:DRAWR 24,-150,1

170 MOVE x,O:DRAWR 240,150

180 NEXT x

190 FOR x=575 TO 700 STEP 2

200 MOVE x,400:DRAWR -240,-150

210 MOVE x,O:DRAWR -240,150

220 NEXT x

230 FOR x=-40 TO 0 STEP 2

240 MOVE x,400:DRAWR 240,-150,2

250 NEXT x

260 FOR x=0 TO 40 STEP 2

270 MOVE x,O:DRAWR 240,150

280 NEXT x

290 FOR x=640 TO 680 STEP 2

300 MOVE x,O:DRAWR -240,150

310 NEXT x

320 FOR x=600 TO 640 STEP 2

330 MOVE x,400:DRAWR -240,-150

340 NEXT x

350 ORIGIN 0,0,260,372,0,400:CLG 1

360 ORIGIN 0,0,0,640,150,250:CLG 1

370 ORIGIN 0,0,284,348,0,400:CLG 2

380 ORIGIN 0,0,0,640,169,231:CLG 2

390 SAVE dumpfile$,b,&C000,&4000

400 DATA 2,26,6

Chapter 2.5

AMSTRAD Disc Drive & Interface DDI-1 Manual

Image 39

Contents Page Amstrad Disc Drive & Interface DDI-1 Amstrad Contents Contents Page Connecting the Mains Lead Foundations 1 Setting UpConnecting the DDI-1 to the Computer Computer Interface Unit Main Disc Drive Drive a Computer Write Protection Foundations 2 About DiscsOpen Closed When Your Disc Is Eject Button Indicator LampROLCAVE. not found Drive a disc missing Retry, Ignore or Cancel?Foundations Loading Software/Games Run rolcaveType mismatch Bad commandSyntax error Drive a read fail Retry, Ignore or Cancel?Foundations Introducing Amsdos and CP/M Tape.in Drive B disc missing Retry, Ignore or CancelLoad filename DiscFirst Steps Using The CP/M Disc Storing Data Onto DiscCpm CLS? Back to Amsdos BewareSaving a Program in Memory onto Disc Catalog Loading From DiscEXAMPLE.BAS Copying Programs From Disc to Disc Copying Programs From Cassette to DiscCopying Programs From Disc to Cassette Copying Using Disccopy Copying Using the CP/M System DiscDo you want to copy another disc Y/N Copying Using CopydiscCopying started Reading track 0 to Writing track 0 toChkdisc Checking DiscsAborting DiscchkInstallation Amstrad Disc Drive & Interface DDI-1 Manual Making Working Discs Backup Master DiscDISCCOPY.COM Working SYSTEM/UTILITY discBasic only disc Turnkey Amstrad Basic discsCreating a Turnkey CP/M System disc Turnkey Basic using disc suppliedTurnkey CP/M Discs Turnkey Basic onto your Working discConfiguring a CP/M Program Configuring the Output from the packageAmbiguous filename Confirm individual files Y/N ? Configuring the Input to the package Starting a Turnkey CP/M PackagePayroll Autostarting a Turnkey CP/M Package Introduction Amsdos Primer Disc Directory Amsdos filenames and filetypes Construction of Filenames Amsdos headers Filenames on two drivesSave PROG.BAS a Save Bprog .BAS BERT.BAS FRED1.BAS FRED2.BAS FRED3.BAK FRED3.BAS FINISH.BAS Examples of Using Amsdos Commands in a programWild cards Saving variables and performing a Screen DumpCloseout NeatWend Closein Reference guide to Amsdos commandsPre-empting a Garbage Collection While not EOFCAT Summary of Basic commandsSummary of Amsdos external commands Save OPENOUT, Print #9, Write #9, List #9, CloseoutDISC.IN CPMDIR DiscTAPE.IN ERAREN TapeAscii files File Copying proceduresCopying Files Amsdos files with headersFile has a header Amstrad Reference guide to Amsdos Error Messages Drive Drive write fail Drive Drive disc missingDrive Drive disc is write protected Drive Drive read failCP/M Primer Operating with CP/MCP/M system tracks Configuration Sector Console control codesLogging in a disc ERA command Direct Console CommandsSwitching default drives DIR commandPeripheral Management Transient commandsREN command Type commandCassette files File and disc copyingSingle file copying Whole disc copiers and checkersStat System ManagementIs this correct Y/N SetupDo you want to update your system disc Y/N Stat SECRET.BAS $DIRFormat D Format I Format Disc GenerationAmsdos FormatSysgen BootgenAdvanced programming MovcpmAmstrad Disc Drive & Interface DDI-1 Manual Introduction to Logo What is LogoGetting Started Dr. LogoTo squareanysize side repeat 4 fd side rt 90 end Procedures with parametersRepeat 4 fd 60 rt To square Repeat 4 fd 60 rt 90 endTo triangle Repeat 3 fd edge rt 120 end Using Variables to remember valuesEditing programs and procedures Cs squareanysize 100 rt 45 squareanysizeSummary of Dr. Logo primitives Operating hintsCount Word and List ProcessingAscii CharList EmptypFirst FputArithmetic Operations Logical Operations ?= Logo Logo NotVariables ProceduresShow EditingText Screen SetsplitDot CleanGraphic Screen TypePal SetpalWindow Wrap Turtle GraphicsSetpc SethNodes Workspace ManagementSetpos ErnPlist RecycleGlist GpropKEYBOARD, Joystick buttonp Disc Files DirLoad Save?key Paddle?paddle 0 ?make key rcRelease SoundEnv EntStop LabelRepeat RunThrow ErrorCatch PauseSystem Properties Headers Technical information for the user FirmwareStore requirements Changing DiscsError Messages Bios messagesAmsdos messages Failed to load boot sector Common to ALL Formats Disc OrganisationJump Block Interception by Amsdos Jump Block Re-Interception by the UserReturn Parameters Intercepted Firmware Calls 132 #BC8C 133 #BC8F 134 #BC92 135 #BC95 #BC98137 #BC9B Page Appendix Glossary of Terms CP/M Dr.Logo Primitives TPA Amstrad Disc Drive & Interface DDI-1 Manual Appendix Term Limitations of Remedies Amstrad Disc Drive & Interface DDI-1 Manual Appendix Index ERA Setpos