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