home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 13 / Tiger_Disk_013_19xx_Tiger-Crew-Disk_de_Side_A.d64 / superscr.-test (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  580b  |  35 lines
  1. 100 poke 53280,12
  2. 110 poke 53281,12
  3. 120 input"[147][144][211]chriftname";n$
  4. 130 open 15,8,15
  5. 140 open 1,8,3,n$+",s,r"
  6. 150 input# 15,a,a$,b,c
  7. 160 if a<>0 then close 15:close 1:goto 120
  8. 180 dim z$(255,1)
  9. 200 for i=0 to 1
  10. 210 for j=0 to 255
  11. 220 input# 1,z$(j,i)
  12. 230 next j,i
  13. 240 close 1
  14. 250 close 15
  15. 260 :
  16. 500 read t$
  17. 505 if t$="*" then end
  18. 510 open 1,4:print# 1,chr$(8);
  19. 520 for i=0 to 1
  20. 530 for j=1 to len(t$)
  21. 540 print# 1,z$(asc(mid$(t$,j)),i);
  22. 550 next j
  23. 560 print# 1
  24. 570 next i
  25. 580 close 1
  26. 590 goto 500
  27. 600 :
  28. 1000 data "[212][197][211][212][196][210][213][195][203] ! - [211]paeter ab [218]eile [197][201][206][212][193][213][211][197][206][196]"
  29. 1010 data "die [218]eilen eingeben, die den"
  30. 1020 data "[212]ext enthalten sollen !"
  31. 1030 data -
  32. 60000 data "[193]ls letztes [203]ennzeichen:"
  33. 60010 data "[196][193][212][193]  [211][212][197][210][206][195][200][197][206]"
  34. 60011 data *
  35.