Author Topic: run"$ - or another disc directory tool  (Read 2549 times)

0 Members and 1 Guest are viewing this topic.

Offline SRS

  • Supporter
  • 6128 Plus
  • *
  • Posts: 587
  • Country: de
  • Schneider CPC464 - what else ?
  • Liked: 579
  • Likes Given: 317
run"$ - or another disc directory tool
« on: 18:46, 12 March 13 »
[attachimg=1]

Some of you may remember this other computer where you used to
Code: [Select]
run"$ to see the discs directory ?

During late 80's I wrote a little 1k programm to handle discs (cat, rename, "type" ...) on my 464 mor easy.

I managed to copy it to my PC lately so I like to share it.

It needs 1k on every disc ... and starts with run"$

Here is the basic listing:

Code: [Select]
10 MODE 2:INK 0,13:INK 1,0:PEN 1:PAPER 0:BORDER 13:FOR a=4089 TO 4115:READ b$:b=VAL("&"+b$):POKE a,b:NEXT a:CALL &1000:DATA cd,60,bb,32,c2,b,c9,21,a,10,df,7,10,c9,d,c6,7,23,0,c8,0,1,1,a,0,3,0:CAT
11 PRINT SPC(13);:CALL &BB9C:PRINT"ENTER=RUN f1=CAT f2=USER f3=ERA f4=A/B f5=REN f6=SHOW":CALL &BB9C:m=VPOS(#0)
12 LOCATE 1,m+1:IF NOT INKEY(0)THEN y=MAX(0,y-1) ELSE IF NOT INKEY(2)THEN y=MIN(y+1,m) ELSE IF NOT INKEY(8)THEN x=MAX(0,x-20) ELSE IF NOT INKEY(1)THEN x=MIN(60,x+20) ELSE IF NOT INKEY(18)AND NOT n$=STRING$(12,32) THEN RUN n$ ELSE IF NOT INKEY(13)THEN RUN
13 IF NOT INKEY(14)THEN 15 ELSE IF NOT INKEY(5)THEN |ERA,@n$:RUN ELSE IF NOT INKEY(20)THEN 17 ELSE IF NOT INKEY(12)THEN 16 ELSE IF NOT INKEY(4)THEN OPENIN n$:CLS:WHILE NOT EOF:LINE INPUT#9,a$:PRINT a$:WEND:RUN
14 n$="":FOR c=1 TO 12:LOCATE x+c,y+4:CALL 4089:n$=n$+CHR$(PEEK(3010)):NEXT c:CALL &BB9C:LOCATE x+1,y+4:PRINT n$:CALL &BB18:CALL &BB9C:LOCATE x+1,y+4:PRINT n$:GOTO 12
15 INPUT"0-FF";u:IF u<0 OR u>255 THEN PRINT CHR$(7):GOTO 15 ELSE POKE &A701,u:RUN
16 INPUT"in";u$:|REN,@u$,@n$:RUN
17 POKE &A700,PEEK(&A700) XOR 1:RUN
« Last Edit: 18:56, 12 March 13 by SRS »

Offline McKlain

  • 6128 Plus
  • ******
  • Posts: 867
  • Country: es
  • Programmable Sound Generator
    • www.mcklain.com
  • Liked: 338
  • Likes Given: 950
Re: run"$ - or another disc directory tool
« Reply #1 on: 19:01, 12 March 13 »
Some of you may remember this other computer where you used to
Code: [Select]
run"$ to see the discs directory ?

Nice tool!  ;D 

Not to be nitpicking but the actual statement was

Code: [Select]
LOAD"$",8
LIST

Locomotive Basic rules!  :P
« Last Edit: 19:09, 12 March 13 by McKlain »

Offline TFM

  • Visit the mysteries of the CPC at www.futureos.de
  • Supporter
  • 6128 Plus
  • *
  • Posts: 9.899
  • Country: aq
  • Space Chicken for FutureOS is free!
    • index.php?action=treasury
    • FutureOS - The revolution on CPC!
  • Liked: 1981
  • Likes Given: 4650
Re: run"$ - or another disc directory tool
« Reply #2 on: 20:10, 12 March 13 »
wasn't it ,8,1 ???
TFM of FutureSoft
Also visit the CPC and Plus users favorite OS: FutureOS - The Revolution on CPC6128 and 6128Plus

Offline McKlain

  • 6128 Plus
  • ******
  • Posts: 867
  • Country: es
  • Programmable Sound Generator
    • www.mcklain.com
  • Liked: 338
  • Likes Given: 950
Re: run"$ - or another disc directory tool
« Reply #3 on: 20:18, 12 March 13 »
Quote
On the Commodore 64, entering LOAD "$",8,1 will flood the screen with garbage instead of loading the directory into BASIC RAM. This is because the drive assigns the directory a load address of $0401 (1025), which is equivalent to the start of BASIC for the Commodore PET, but corresponds to the default screen memory in the C64.

Offline SRS

  • Supporter
  • 6128 Plus
  • *
  • Posts: 587
  • Country: de
  • Schneider CPC464 - what else ?
  • Liked: 579
  • Likes Given: 317
Re: run"$ - or another disc directory tool
« Reply #4 on: 21:52, 12 March 13 »
Ah well, you see how much C64 experience I have & remember :D

Offline McKlain

  • 6128 Plus
  • ******
  • Posts: 867
  • Country: es
  • Programmable Sound Generator
    • www.mcklain.com
  • Liked: 338
  • Likes Given: 950
Re: run"$ - or another disc directory tool
« Reply #5 on: 21:55, 12 March 13 »
The C64 was a quick & dirty job. It turned out pretty well after all  ;D

Offline Bryce

  • The Hardware Guy.
  • Supporter
  • 6128 Plus
  • *
  • Posts: 11.727
  • Country: wf
  • It's not broken, it just hasn't been fixed yet.
    • index.php?action=treasury
  • Liked: 4219
  • Likes Given: 444
Re: run"$ - or another disc directory tool
« Reply #6 on: 18:23, 14 March 13 »
So you've written a program, that makes my beloved CPC more like a C64?? Why am I not impressed? :D

Bryce.

Offline TFM

  • Visit the mysteries of the CPC at www.futureos.de
  • Supporter
  • 6128 Plus
  • *
  • Posts: 9.899
  • Country: aq
  • Space Chicken for FutureOS is free!
    • index.php?action=treasury
    • FutureOS - The revolution on CPC!
  • Liked: 1981
  • Likes Given: 4650
Re: run"$ - or another disc directory tool
« Reply #7 on: 19:53, 14 March 13 »
Because you don't like Black on Grey! :P
TFM of FutureSoft
Also visit the CPC and Plus users favorite OS: FutureOS - The Revolution on CPC6128 and 6128Plus

Online Gryzor

  • Administrator
  • 6128 Plus
  • *****
  • Posts: 15.939
  • Country: gr
  • CPC-Wiki maintainer
    • CPCWiki
  • Liked: 3413
  • Likes Given: 6125
Re: run"$ - or another disc directory tool
« Reply #8 on: 20:42, 22 March 13 »
Hey, a file manager in 1K? I'm sold. Wish I had this back in the day, quite neat!!!

Offline copychr$

  • Supporter
  • CPC664
  • *
  • Posts: 69
  • Country: ch
  • Liked: 14
  • Likes Given: 4
Re: run"$ - or another disc directory tool
« Reply #9 on: 02:07, 18 June 13 »
Hi SRS,

Seems we had twins way back ...
Our progs basically do the same thing, but we got to it by different means.

As a 10-liner yours is sensational. Also it works on the 464.
Sure hope you did the job faster than me. Took ages to get the ball rolling ;-)

Please take a look at Copychr$ to the Fore @ Interesting Type-Ins.
« Last Edit: 13:23, 18 June 13 by copychr$ »

Offline SRS

  • Supporter
  • 6128 Plus
  • *
  • Posts: 587
  • Country: de
  • Schneider CPC464 - what else ?
  • Liked: 579
  • Likes Given: 317
Re: run"$ - or another disc directory tool
« Reply #10 on: 21:30, 18 June 13 »
Way cool !

Seems we had the same need , but as it was that days you had no inet to look for a nice cpc programm.

IIRC it took me a saturday night to push it into 1k, wanted to sell it to the CPCAI but they never answered ... sigh



Offline copychr$

  • Supporter
  • CPC664
  • *
  • Posts: 69
  • Country: ch
  • Liked: 14
  • Likes Given: 4
Re: run"$ - or another disc directory tool
« Reply #11 on: 22:54, 18 June 13 »
Yup, not much interaction ... Just the local mags and the manual.
They had some good instructional type-ins though.

Starting point was envy of the menu system of Lotus 123 at the time.
Well, lookit, Lotus is history and here we are ...

Still, being able to catch file names and menu items on the fly, just in the basic environment, makes everything a cinch.
I feel like a caveman, typing CAT ...

Here is a link to the excellent downgrading page of Sean McManus, about getting equivalent Basic 1.1 routines for the 464.
Copychar$ is also treated and it seems your routine is the same.

http://www.sean.co.uk/books/amstrad/amstrad2.shtm#COPYCHR


« Last Edit: 22:56, 18 June 13 by copychr$ »