home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 June / 64er_Magazin_89-06_1989_Markt__Technik_de_Side_A.d64 / filelaenge (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  359b  |  12 lines
  1. 10 open1,8,15:x$="m-e"+chr$(5)+chr$(2):restore
  2. 20 read x:ifx>-1thenx$=x$+chr$(x):goto20
  3. 30 open2,8,2,n$+",p,r":print#1,x$
  4. 40 print#1,"m-r"chr$(21)chr$(0)chr$(1):get#1,x0$
  5. 50 print#1,"m-r"chr$(1)chr$(3)chr$(1):get#1,x1$
  6. 60 close2:close1
  7. 70 bl=asc(x0$+chr$(0)):l=bl*254+asc(x1$+chr$(0))-3:bl=bl+1
  8. 80 data 169,0,133,21,166,24,164,25,134,6,132,7
  9. 90 data 169,128,133,0,165,0,48,252,173
  10. 100 data0,3,240,10,230,21,174,0,3,172,1,3
  11. 110 data16,229,96,-1
  12.