Anyone else do something like this

[TGB1718]

When I first started using my 800, I was using mainly BASIC, The amount of times I would miss-type the filename when saving

then try to find the mis-typed file on disk, I got into the habit of putting this at the end of mu programs, the just do a GOTO 30000

to save all my had work, I always SAVED and LISTED.

Uses the old trick of stopping a program and letting it restart with a CONT

 

30000 ? Chr$(125):Position 2,4
30010 ? "SAVE ";Chr$(34);"D:DRAW2.BXE";Chr$(34)
30020 Position 2,7:? "CONT"
30030 Position 2,0:Poke 842,13:Stop
30040 Poke 842,12
30050 ? "SAVE COMPLETE"
30060 Position 2,14
30070 ? "LIST ";Chr$(34);"D:DRAW2.LST";Chr$(34)
30080 Position 2,18:? "CONT"
30090 Position 2,9:Poke 842,13:Stop
30100 Poke 842,12
30110 ? "LIST COMPLETE"

[Rybags]

I don't quite get it.

I'm fairly sure you could just have somethjng like:

 

30000 SAVE "D:PROG.BAS"

30100 LIST "D:PROG.LST"

 

Unlike other Basics, Atari Basic generally lets you put stuff inside programs that you'd normally only do in immediate mode, and do stuff in immediate that normally only goes inside the program.

You can even have ENTER inside a program.  And you can construct the text file without line numbers such that it gets executed sort of like a batch file.

Some things you do though will terminate, fairly sure LOAD will always initialize first and abort any batch operation in progress before the load commences.

 

The trick I had (generally before 64K and Dos 2.5 with Ramdisk)

 

OPEN #1,6,0,"D:*.* : FOR A=1 TO 9999 : GET #1,D : PUT #16,D : NEXT A

 

to get a disk directory without wiping your work - you could also put that inside a program (need to CL. #1 or END after the Error 136)

 

PUT #16 is a handy trick too - annoyingly Basic doesn't normally allow some operations on IOCB #0 but just add 16 to the one you want and it works.

Edited September 16, 2023 by Rybags

[TGB1718]

@Rybags you are of course correct, I still can't remember why I did it that way, there must have been a reason 

but for the life of me I can't remember what it is