home *** CD-ROM | disk | FTP | other *** search
/ Mail Madness! 28 / Mail_Madness_28_200x_-_Side_B.d64 / soft-flash-demo (.txt) < prev   
Commodore BASIC  |  2023-02-26  |  630b  |  15 lines
  1. 1 open1,8,15:fori=0to44:reada
  2. 2 print#1,"m-w"chr$(i)chr$(5)chr$(1)chr$(a):next:print#1,"uc"
  3. 3 data169,254,170,32,21,5,202,224,1,208,248,32,21,5,232,224,255,208,248,240,235
  4. 4 data138,72,73,255,168,169,248,141,0,28,202,208,248,169,240,141,,28,136,208,248
  5. 5 data104,170,96
  6. 7 a$="this is warrior of warrior design       "
  7. 10 a$=a$+"look at the drive-lamp of your 1541 - nice isn't it?! "
  8. 20 a$=a$+" it's an old demo, but i like it "
  9. 50 fori=1to40:b$=b$+" ":next:a$=b$+a$
  10. 60 poke53281,11:poke53280,.:fori=.to999:poke1024+i,160:poke55296+i,.:next
  11. 70 s=1:t=39
  12. 80 print"[144]"mid$(a$,s,t):poke53281,int(16*rnd(1)):s=s+1:ifs=len(a$)thens=1
  13. 90 fori=7to.step-1:poke53270,i:forz=1to30:nextz,i:poke53281,.:poke53270,7
  14. 100 goto80
  15.