100 MODE 4:PAPER#1,0:PAPER#2,0:INK#1,7:INK#2,7:WINDOW 448,202,32,16:WINDOW#2,448,202,32+4,16+4:WINDOW#0,448,40,32,216:PAPER#2,4:CLS#2:CLS:BORDER 1,4
110 CSIZE#1,1,1
120 PRINT \TO 7;
130 UNDER 1
140 PRINT 'ZX Emulator ZM/128 & ZM/hT demo disk v1.4'
150 UNDER 0 :CSIZE #1,1,0
160 PRINT \TO 8;'by Marco Ternelli and Davide Santachiara'
170 PRINT \TO 13;' (C) 1992,5 Ergon Development'
180 PRINT TO 15;'        Reggio Emilia       '
190 PRINT TO 15;'            Italy           '
200 PRINT
210 PRESSAKEY
220 INFO1
230 CLS
240 CSIZE 3,1
250 AT 1,0:PRINT '   Load selection:'
260 AT 3,3:PRINT '1> ZM/128'
270 AT 5,3:PRINT '2> ZM/hT'
280 CSIZE 1,0:INK 4
290 AT 16,10:PRINT 'Type 1 or 2 and <ENTER> ';:INPUT a$
300 x=a$
310 SELect ON x
320   =1:zm$='128'
330   =2:zm$='hT'
340   =REMAINDER :GO TO 230
350 END SELect
360 LOAD_ZM
370 STOP
380 :
390 DEFine PROCedure CPRINT(a$)
400 CSIZE 0,0
410 l%=LEN(a$)
420 PRINT TO((74-l%)/2);a$
430 END DEFine
440 :
450 DEFine PROCedure INFO1
460 CSIZE 1,0
470 PRINT
480 CLS
490 CPRINT 'This disk contains demo/public domain versions of ZM/128 and ZM/hT.'
500 CPRINT 'Please read carefully the Quill file ZMXdemo_doc to know exactly'
510 CPRINT 'limitations of current versions. Review_doc contains extracts'
520 CPRINT 'from the reviews of our programs.'
540 PRINT
550 CPRINT 'ZM/hT (ZX Emulator High Technology, a Z80 to 68000 compiler) is the only'
560 CPRINT 'emulator which allows you to play games at full ZX speed on a Gold Card'
570 CPRINT 'or at reasonable speed on a 68008 QL (!!), and actually (1/94) ZM/128 is'
580 CPRINT 'the only ZX 128k emulator which allow you to use the Basic interpreter'
590 CPRINT 'on a 68000 QL decently.'
600 PRINT
610 CPRINT 'There are two Z80 games to try on this disk - one can be also found'
620 CPRINT 'on the wonderful Speculator disk - the other (CABALDEM) is simply a'
630 CPRINT 'demo versions. The ZTA file Easykeys_zta contains a useful program.'
640 CPRINT 'It was taken from the Speculator disk too, but the files were converted'
650 CPRINT 'in ZTA format with ZM/ACcessory (see ZMXdemo_doc).'
660 PRESSAKEY
670 CLS
680 CPRINT 'We can assure you that our emulators (both ZM/128 and ZM/hT) have'
690 CPRINT 'a high compatibility (over 98%) - we tested over 30 128k games on ZM/128'
700 CPRINT 'and they run happily. We got "B" mark instead  of "A" in the'
760 CPRINT 'QL World review for a stupid bug in the Disciple -> Z80 converter.'
770 PRINT
780 CPRINT 'These versions can run on an expanded QL (68008), Gold Card (68000),'
790 CPRINT 'Super Gold Card (68020), Atari QVME (68000/68030) or QXL (68040)'
800 CPRINT 'ZM/128 plus 1 and ZM/hT plus 2 automatically adapt their internal'
810 CPRINT 'routines to take full advantage of the processor used (8, 16 or 32 bit).'
820 CPRINT 'All screen resolutions are now supported (QL,VGA/SVGA..) and ZMs'
825 CPRINT 'can run happily also with Minerva 2nd screen.'
830 PRESSAKEY
840 CLS
850 CPRINT 'So if you would like to get the full versions with:'
855 PRINT
860 REMark PRINT\,'- ZX loudspeaker and 3 channel soundchip emulation'
870 PRINT ,'- Full keyboard control (these demo versions do not allow you'
880 PRINT ,'  to have joystick emulation or simultaneous keypress)'
890 PRINT ,'- Full Z80 snapshot handling/saving'
900 PRINT ,'- Full speed/compatibility on both ZM/128 and ZM/hT'
910 PRINT ,'  (you can choose to have maximum speed or compatibility)'
920 PRINT,'- Interface 1 emulation on ZM/128'
930 PRINT,'- 96 pages brand new *Laser Printed* manual & tutorial'
940 PRINT,'- Spectrum tape with Backuppers for InterFace 1 transfer'
950 PRINT,'- Program to read directly ZX tapes through the QL network port'
960 PRINT,'- Program to read and convert Disciple and Opus discovery'
970 PRINT,'  files/snapshot in a suitable format'
975 PRINT
980 REMark PRINT,'- Two free upgrades (you do not pay p&p) ... ...'\\
990 CPRINT'Read ZMXdemo_doc to know the registration fee in your currency'
1000 CPRINT'which comprises also airmail p&p in europe and bank fees.'
1010 PRESSAKEY
1020 CLS
1030 CPRINT 'This disk contains:'
1040 PRINT  '- DOC FILES'
1050 PRINT  '  * bench_doc     Benchmark of our emulators on Gold Card'
1060 PRINT "  * review_doc    Extracts from reviews of ZM's emulators"
1070 REMark PRINT "  * zmdtutor_doc  Simple tutorial. How to load and play the enclosed games"
1080 PRINT '  * zmxdemo_doc   Extract from the manual. Registration & payment terms'
1090 PRINT\'- PUBLIC DOMAIN DEMO ZX PROGRAMS'
1100 REMark PRINT '  * z80_INDIDEMO  Demo version of Indiana Jones'
1110 PRINT '  * z80_cabaldem  Demo version of Cabal'
1120 PRINT '  * Z80_Astroball Demo version of Astroball (from the Speculator 93 disk)'
1130 PRINT '  * easykeys_ZTA  Simple utility (from the Speculator 93 disk)'
1140 PRINT\'- SPECTRUM ROMS'
1150 PRINT '  * zx128_ed_rom zx128_48_rom zx16k_rom zxIF1_rom'
1160 PRESSAKEY:CLS
1170 PRINT'- THIS BOOT FILE'
1190 PRINT\'- RUNTIME TOOLKIT'
1200 PRINT '  runtime1_ext runtime2_ext'
1210 PRINT\'- EMULATORs'
1220 PRINT '  * ZM128_TASK Spectrum 48k/128k emulator demo version'
1230 PRINT '  * ZMhT_TASK Spectrum 48k compiler demo version'
1240 PRINT\' This disk may be copied and distributed freely in any form provided that:'
1250 PRINT ' 1) All files are copied'
1260 PRINT ' 2) No payment is requested except for disk and/or p&p charges'
1270 PRINT ' 3) No changes are made to the documentation or the programs'
1280 PRINT
1290 PRINT '* ZM/hT, ZM/128 and the enclosed _doc files (C) 4 Ergon Italy'
1300 PRINT '* ZM/hT, ZM/128 were written by Marco Ternelli & Davide Santachiara'
1305 PRINT
1310 PRESSAKEY:CLS
1320 END DEFine
1330 DEFine PROCedure PRESSAKEY
1340 PRINT
1350 INK 4
1360 CPRINT 'Press a key ';
1370 REPeat l:IF INKEY$(#1,0)='':EXIT l
1380 REMark BEEP 1000,10
1390 x=CODE(INKEY$(-1))
1400 INK 7
1410 END DEFine
1420 :
1430 DEFine PROCedure LOAD_ZM
1440 PAPER#1,0:PAPER#2,0:INK#1,7:INK#2,7:WINDOW 448,200,32,16:WINDOW#2,448,200,32,16:WINDOW#0,448,40,32,216 :MODE 4
1450 CSIZE#1,1,0
1460 PRINT \\\\TO 16;
1470 UNDER 1
1480 PRINT 'Loader for ZX Emulator ZM/'&zm$
1490 UNDER 0
1500 PRINT \TO 8;'by Marco Ternelli and Davide Santachiara'
1510 PRINT \TO 13;' (C) 1992,5 Ergon Development'
1520 PRINT TO 15;'        Reggio Emilia       '
1530 PRINT TO 15;'            Italy           '
1540 PRINT
1550 PRINT TO 6;'Type ENTER if you do NOT have TOOLKIT 2 on rom'
1560 PRINT TO 8;'Premere ENTER se NON avete TOOLKIT 2 su rom'
1570 IF zm$<>'1'
1580  PRINT \\TO 2;'Note: some "Tape Management" options need the ramdisc.'
1590 END IF
1600 PRINT
1610 IF INKEY$(-1)=CHR$(10)
1620   ad=RESPR(6000): LBYTES 'flp1_runtime1_ext',ad:CALL ad
1630   ad=RESPR(500):LBYTES 'flp1_runtime2_ext',ad:CALL ad
1640 ELSE
1650   TK2_EXT:LRESPR flp1_runtime1_ext
1660 END IF
1670 :
1680 EXEC 'flp1_zm'&zm$&'_task'
1690 END DEFine
