DECB, RGBDOS, HDBDOS Basic example to get file size

Color BASIC, Extended Color BASIC, CoCo 3 BASIC, and Disk Extended Color BASIC call all be discussed here.

DECB, RGBDOS, HDBDOS Basic example to get file size

Postby PacoOtaktay » Fri Jul 06, 2018 1:21 pm

Here is a Basic example of how to get the size of a file in Disk Extended Color Basic, RGBDOS, and HDBDOS

Code: Select all
10 CLS
20 PRINT "FILE NAME";
30 INPUT NAME$
40 IF NAME$="" THEN 10
50 OPEN"D",#1,NAME$,1
60 FILESIZE=LOF(1)
70 CLOSE #1
80 PRINT "FILE SIZE IS ";FILESIZE
90 END
PacoOtaktay
 
Posts: 18
Joined: Mon Sep 18, 2017 11:36 pm

Return to CoCo BASIC

Who is online

Users browsing this forum: No registered users and 1 guest

cron