home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1985 Winter / rerun-1985-winter.d64 / screenbooter (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  51 lines
  1. 1 rem *********************************
  2. 2 rem *                               *
  3. 3 rem *   'screen booter' (c) 1985    *
  4. 4 rem *                               *
  5. 5 rem *   by doug smoak               *
  6. 6 rem *      303 heyward st.          *
  7. 7 rem *      columbia, s.c.  29201    *
  8. 8 rem *                               *
  9. 9 rem *********************************
  10. 10 poke53280,11:poke53281,11:poke646,12:print"[147]screen booter"
  11. 20 print"one moment please...";
  12. 30 dima(392)
  13. 40 fori=1to2:reada(i):print".";:next
  14. 50 fori=3to258:a(i)=2:print".";:next
  15. 60 fori=259to392:reada(i):print".";:next
  16. 70 input"[147]screen name ";sn$:iflen(sn$)>16orsn$=""then70
  17. 80 a(282)=len(sn$)
  18. 90 fori=1tolen(sn$):a(362+i)=asc(mid$(sn$,i,1)):next
  19. 100 input"program name ";pn$:iflen(pn$)>16orpn$=""then100
  20. 110 ifpn$=sn$thenprint"filenames are the same!!":goto70
  21. 120 fori=1tolen(pn$):a(378+i)=asc(mid$(pn$,i,1)):next:a(337)=len(pn$)
  22. 130 input"[147]is this a basic program";bs$:ifbs$=""then130
  23. 140 bs$=left$(bs$,1):ifbs$<>"y"andbs$<>"[217]"then170
  24. 160 goto190
  25. 170 input"sys address for ml prg.";sy:hi=int(sy/256):lo=sy-256*hi
  26. 180 a(357)=76:a(358)=lo:a(359)=hi
  27. 190 input"border color (0-15)";bc:bc=15andbc:a(296)=bc
  28. 200 input"screen color (0-15)";sc:sc=15andsc:a(298)=sc
  29. 210 input"character color (0-15)";cc:cc=15andcc:a(300)=cc:ifcc=scthen210
  30. 220 input"[147]boot name ";bn$
  31. 230 bn$="0:"+bn$+",p,w"
  32. 240 open15,8,15,"i":open8,8,8,bn$
  33. 250 input#15,a,b$,c,d:ifathenclose8:close15:printa,b$:end
  34. 260 print"working...";
  35. 270 fori=1to392:print#8,chr$(a(i));:print".";:next
  36. 280 close8:close15:end
  37. 290 data0,1,0,0,0,120
  38. 300 data169,147,32,210,255,169,0,133,157,169
  39. 310 data8,162,8,160,1,32,186,255,169,6
  40. 320 data162,104,160,2,32,189,255,169,0,32
  41. 330 data213,255,162,0,160,0,169,1,142,32
  42. 340 data208,140,33,208,162,0,157,0,216,157
  43. 350 data0,217,157,0,218,157,0,219,202,208
  44. 360 data241,138,133,157,169,8,162,8,160,1
  45. 370 data32,186,255,169,6,162,120,160,2,32
  46. 380 data189,255,169,0,32,213,255,134,45,132
  47. 390 data46,88,169,1,32,89,166,76,174,167,0,0,0
  48. 400 data0,0,0,0,0,0,0,0,0,0
  49. 410 data0,0,0,0,0,0,0,0,0,0
  50. 420 data0,0,0,0,0,0,0,0,0,255
  51.