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
File Select Shell
File Select Shell

Version management

Difference between version and

At line 1 changed one line
!!!File Select Box
!!!File Select Shell
At line 8 removed one line
Published: 13.02.90 \\
At line 9 added 2 lines
This code requires the [Binary File Load in ACTION] Module and the [File Select Box] Module
At line 12 added 2 lines
At line 12 changed 4 lines
;** Fileselect Box **
;** PHOENIX SOFTCREW 1990 **
;** 13.02.90 **
;** "FILESEL.ACT" **
;** **
;** Phoenix SoftCrew ACTION! **
;** Programme und Tips f. 8Bit **
;** **
;** Carsten Strotmann **
;** **
At line 18 changed one line
PROC Filesel (BYTE ARRAY file)
; 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
;
;
At line 20 changed 2 lines
BYTE pos,num,u,arrow
BYTE ARRAY dirbuf (1200),dev(20)
INCLUDE "SYSTEM.ACT"
INCLUDE "DIVERS.ACT"
INCLUDE "STRING.ACT"
INCLUDE "FILESEL.ACT"
INCLUDE "BLOAD.ACT"
At line 23 changed 8 lines
MoveBlock (dev,file,4)
SetBlock (dirbuf,1200,32)
Close (1)
Open (1,file,6,0)
pos=0
num=0
arrow=0
PROC ComLoad ()
At line 32 changed 8 lines
DO
InputSD (1,file)
IF file(2)=32 THEN
MoveBlock (dirbuf+num*17,file+1,17)
FI
num==+1
UNTIL file(2)#32
OD
BYTE ARRAY file (20)
At line 41 changed one line
Close (1)
AllClose ()
Bload_Init ()
Cls ()
SetColor (2,0,5)
At line 43 removed 22 lines
Position (10,10)
Print ("---------------")
FOR u=11 TO 15
DO
Position (10,u)
Print ("| |")
OD
Position (10,16)
Print ("---------------")
Position (10,17)
Print ("| ")
file(0)=4
Print (file)
Print (" Free")
Position (24,17)
Print ("|")
Position (10,18)
Print ("---------------")
Position (10,19)
Print ("| |")
Position (10,20)
Print ("---------------")
At line 50 added 8 lines
PrintE (" Com File Loader - PhoeniX SoftCrew ")
PrintE ("------------------------------------")
Position (5,5)
Print ("Choose file:")
Scopy (file,"D1:*.COM")
At line 67 changed 31 lines
FOR u=0 TO 4
DO
MoveBlock (file+1,dirbuf+(pos+u)*17+2,8)
file(9)='.
MoveBlock (file+10,dirbuf+(pos+u)*17+10,3)
file(0)=12
Position (12,u+11)
Print (file)
OD
Position (11,11+arrow)
Print (">")
u=Inkey ()
IF u=$2D THEN
IF arrow>0 THEN
Position (11,11+arrow)
Print (" ")
arrow==-1
ELSEIF pos>0 THEN
pos==-1
FI
FI
IF u=$3D THEN
IF arrow<4 THEN
Position (11,11+arrow)
Print (" ")
arrow==+1
ELSEIF pos<num-6 THEN
pos==+1
FI
FI
UNTIL u=155
Filesel (file)
UNTIL file(2)#'?
At line 100 changed 19 lines
MoveBlock (file+1,dirbuf+(pos+arrow)*17+2,8)
file(0)=8
u=Find (" ",file)
IF u=0 THEN
u=9
FI
file(u)='.
file(0)=u+3
MoveBlock (file+u+1,dirbuf+(pos+arrow)*17+10,3)
Position (11,19)
C_On ()
Print (file)
Getin (file,12)
Upper (file)
MoveBlock (dev+4,file+1,12)
MoveBlock (file,dev,16)
file(0)=16
u=Find (".",file)
file(0)=u+3
Close (1)
Open (1,file,4,0)
At line 66 added 2 lines
Bload ()
This page (revision-6) was last changed on 03-Feb-2023 15:21 by Carsten Strotmann  Top