home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / language / f68k / bootf68k.ql < prev    next >
Encoding:
Text File  |  1993-10-23  |  449 b   |  20 lines
  1. 100 dev$='flp1_'
  2. 110 qlf68k$='QLF68K'
  3. 120 config$='QLCONFIG'
  4. 130 len_QLf68k=3034
  5. 140 len_Config=754
  6. 150 d_qlf68k=2560
  7. 160 d_config=1024
  8. 170 :
  9. 180 MODE 4
  10. 190 make_exe dev$&qlf68k$,len_QLf68k,d_qlf68k
  11. 200 make_exe dev$&config$,len_Config,d_config
  12. 210 :
  13. 1000 DEFine PROCedure make_exe(file$,laenge,dat)
  14. 1010 LOCal a
  15. 1020 a=RESPR(laenge)
  16. 1030 LBYTES file$&'_cde',a
  17. 1040 DELETE file$&'_exe'
  18. 1050 SEXEC  file$&'_exe',a,laenge,dat
  19. 1060 END DEFine make_exe
  20.