This page (revision-6) was last changed on 03-Feb-2023 15:21 by Carsten Strotmann 

This page was created on 13-Mar-2010 16:03 by Carsten Strotmann

Only authorized users are allowed to rename pages.

Only authorized users are allowed to delete pages.

Page revision history

Version Date Modified Size Author Changes ... Change note
6 03-Feb-2023 15:21 1 KB Carsten Strotmann to previous
5 13-Mar-2010 16:07 1 KB Carsten Strotmann to previous | to last
4 13-Mar-2010 16:06 1 KB Carsten Strotmann to previous | to last
3 13-Mar-2010 16:05 211 bytes Carsten Strotmann to previous | to last
2 13-Mar-2010 16:04 22 bytes Carsten Strotmann to previous | to last
1 13-Mar-2010 16:03 2 KB Carsten Strotmann to last

Page References

Incoming links Outgoing links

Version management

Difference between version and

At line 9 changed one line
This code requires the COM-Load Module and the [File Select Box] Module
This code requires the [Binary File Load in ACTION] Module and the [File Select Box] Module
{{{
;********************************
;** **
;** Phoenix SoftCrew ACTION! **
;** Programme und Tips f. 8Bit **
;** **
;** Carsten Strotmann **
;** **
;********************************
; Programname:ComLoad
; done by:Carsten Strotmann
; Filename:COMLOAD.ACT
; first Version:19.02.90
; last chnage:24.03.90
; Load com files from disk
; MC-Routine by Matthias Drees
;
;
INCLUDE "SYSTEM.ACT"
INCLUDE "DIVERS.ACT"
INCLUDE "STRING.ACT"
INCLUDE "FILESEL.ACT"
INCLUDE "BLOAD.ACT"
PROC ComLoad ()
BYTE ARRAY file (20)
AllClose ()
Bload_Init ()
Cls ()
SetColor (2,0,5)
C_Off ()
PrintE (" Com File Loader - PhoeniX SoftCrew ")
PrintE ("------------------------------------")
Position (5,5)
Print ("Choose file:")
Scopy (file,"D1:*.COM")
DO
Filesel (file)
UNTIL file(2)#'?
OD
Close (1)
Open (1,file,4,0)
Bload ()
RETURN
}}}