Tape Autostart

Basic and Machine Language

Moderator: Moderators

Post Reply
User avatar
Mike
Herr VC
Posts: 4841
Joined: Wed Dec 01, 2004 1:57 pm
Location: Munich, Germany
Occupation: electrical engineer

Tape Autostart

Post by Mike »

Hi, all,

This one could probably fit in the section 'ML and Other Programs' as well, I decided against it, because it's only a tool, not a program in its full right. Anyway, here we go:

Write a autostart header to tape:

Code: Select all

10 FORT=1TO32:READA:M$=M$+CHR$(A):NEXT
11 N$="AUTOSTART"
12 S$=LEFT$(N$+"{16 SPACE}",16)+M$
13 POKE770,81:POKE771,3
14 SYS57809(S$),1,1:POKE193,2:POKE194,3
15 POKE780,193:POKE781,4:POKE782,3:SYS65496
16 POKE770,131:POKE771,196
17 END
18 DATA169,131,141,2,3,169,196,141,3,3,162,6,134,198,189,106,3
19 DATA157,118,2,202,208,247,108,2,3,76,111,13,82,117,13
Greetings,

Michael
Post Reply