home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Killer Drive 64 3
/
Killer-Drive_64_03_1998_-_de_Side_B.d64
/
header-change
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
635b
|
26 lines
0 open1,8,15,"i":close1
10 id$=" morx overseas-------- online with the trend! --------":do$="b"
20 na$="overseas-morx'91"
30 print"header change by morx 1991"
40 print"press space to change"
50 poke198,0:wait198,1
999 rem -------------------------------
1000 rem block-write (na$+id$)
1010 open1,8,15,"i"
1015 get#1,a$:ifa$<>"0"thenclose1:goto10
1020 open2,8,2,"#"
1030 print#1,"u1 2 0 18 0"
1040 print#1,"b-p 2 144"
1050 print#2,na$;
1060 print#1,"b-p 2 162"
1070 print#2,id$;
1071 print#1,"b-p 2 2"
1072 print#2,do$;
1080 print#1,"m-w"chr$(1)chr$(1)chr$(1);"a"
1090 print#1,"u2 2 0 18 0"
1100 sa$="":gosub1120 :rem status
1110 close2:close1:return
1120 get#1,a$:ifa$<>chr$(13)thensa$=sa$+a$:goto1120
1130 print:sa$="[157][157][157][157][157][157][157]status:"+sa$:printtab((40-len(sa$)+1)/2);sa$
2000 run