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 >
Commodore BASIC  |  2023-02-26  |  635b  |  26 lines
  1. 0 open1,8,15,"i":close1
  2. 10 id$=" morx overseas-------- online with the trend! --------":do$="b"
  3. 20 na$="overseas-morx'91"
  4. 30 print"header change by morx 1991"
  5. 40 print"press space to change"
  6. 50 poke198,0:wait198,1
  7. 999 rem -------------------------------
  8. 1000 rem block-write (na$+id$)
  9. 1010 open1,8,15,"i"
  10. 1015 get#1,a$:ifa$<>"0"thenclose1:goto10
  11. 1020 open2,8,2,"#"
  12. 1030 print#1,"u1 2 0 18 0"
  13. 1040 print#1,"b-p 2 144"
  14. 1050 print#2,na$;
  15. 1060 print#1,"b-p 2 162"
  16. 1070 print#2,id$;
  17. 1071 print#1,"b-p 2 2"
  18. 1072 print#2,do$;
  19. 1080 print#1,"m-w"chr$(1)chr$(1)chr$(1);"a"
  20. 1090 print#1,"u2 2 0 18 0"
  21. 1100 sa$="":gosub1120  :rem status
  22. 1110 close2:close1:return
  23. 1120 get#1,a$:ifa$<>chr$(13)thensa$=sa$+a$:goto1120
  24. 1130 print:sa$="[157][157][157][157][157][157][157]status:"+sa$:printtab((40-len(sa$)+1)/2);sa$
  25. 2000 run
  26.