home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 April / 64er_Magazin_85-04_1985_Markt__Technik_de.d64 / print-list (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1985-01-01  |  960 b   |  39 lines
  1. 10 rem ********************************
  2. 20 rem * rem-zeilen nicht abtippen !! *
  3. 30 rem ********************************
  4. 40 :
  5. 210 rem *******************************
  6. 240 rem *       peter      zuser      *
  7. 250 rem *       bahnhofstr.  346      *
  8. 260 rem *       a-8950  stainach      *
  9. 270 rem *       ================      *
  10. 290 rem *       tel.: 03682/2648      *
  11. 300 rem *******************************
  12. 310 :
  13. 63974 printchr$(147)chr$(17)
  14. 63975 printtab(11)"programm printlist"
  15. 63976 printtab(11)"=================="
  16. 63977 print
  17. 63978 printtab(14)"copyright by"
  18. 63979 printtab(12)"zuser peter 1984"
  19. 63980 fork=1to4:print:next
  20. 63981 input"ueberschrift: ";ue$
  21. 63982 an=peek(43)+256*peek(44)
  22. 63983 zn=-1:lz=63974:sz=0
  23. 63984 open1,4:print#1
  24. 63985 print#1,ue$
  25. 63986 sz=sz+1:ez=zn+1
  26. 63987 fori=1to60:zn=peek(an+2)+256*peek(an+3)
  27. 63988 ifzn=lzthenzn=zn-1:zz=i:i=61
  28. 63989 an=peek(an)+256*peek(an+1)
  29. 63990 next
  30. 63991 print#1,spc(70)"seite:";sz
  31. 63992 poke198,10
  32. 63993 forj=631to640:reada:pokej,a:next:restore
  33. 63994 printchr$(147)"cmd1:list"ez"-"zn:end
  34. 63995 fork=1to4:print#1:next
  35. 63996 oni-60goto63985
  36. 63997 forl=1to61-zz:print#1:next
  37. 63998 close1:poke198,0:end
  38. 63999 data 19,13,71,207,54,51,57,57,53,13
  39.