home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 87 / Tiger_Disk_087_20xx_Tiger-Crew-Disk_de_Side_B.d64 / textfile-reader (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  39 lines
  1. 14 printchr$(14):ad=0:poke53280,peek(53281)
  2. 15 gosub39:print"[147]"
  3. 16 f$="":input"[198]ile name[160][160][160]$[157][157][157]";f$
  4. 17 iff$=""thenprint"[147]":end
  5. 18 iff$="$"thengosub46:goto16
  6. 19 input"p[146]rg oder s[146]eq[160][160]s[157][157][157]";t$
  7. 20 ift$<>"s"andt$<>"p"thenprint"[145][145][145]":goto19
  8. 21 input"[193]usgabe ([196]ruck=4, [211]creen=3)[160][160]3[157][157][157]";dv$
  9. 22 ifdv$<"3"ordv$>"4"thenprint"[145][145][145]":goto21
  10. 23 dv=val(dv$):opendv,dv:ifdv=4thenclosedv:open4,4,7
  11. 24 open15,8,15
  12. 25 print"[147]";
  13. 26 open2,8,2,"0:"+f$+","+t$+",r":gosub34
  14. 27 ift$="p"thenget#2,a$,b$:sa=asc(b$)*256+asc(a$):print"start addr=";sa
  15. 28 get#2,a$:ifst=64thenclose2:closedv:close15:poke59468,12:end
  16. 29 print#dv,a$;
  17. 30 ifa$=chr$(13)thenprint#dv,chr$(10)
  18. 31 getzz$:ifzz$=""then28
  19. 32 getzz$:ifzz$=""then32
  20. 33 goto28
  21. 34 input#15,a$,b$,c$,d$
  22. 35 ifa$="00"thenreturn
  23. 36 printa$","b$","c$","d$
  24. 37 close2:closedv:close15:end
  25. 38 :
  26. 39 print"[147][205]it diesem [208]rogramm kannst [196]u [196]ir den"
  27. 40 print"[201]nhalt von [212]ext-[198]iles ansehen ([211]creen"
  28. 41 print"oder [196]rucker). [205]it [211][208][193][195][197][146] haeltst [196]u"
  29. 42 print"die [193]usgabe an bzw. setzt sie wieder    fort!"
  30. 43 print"[194]itte [211][208][193][195][197][146] druecken!"
  31. 44 getzz$:ifzz$=""then44
  32. 45 return
  33. 46 print"[147]":open1,8,0,"$":poke781,1:sys65478:geta$,a$:e$=chr$(0)
  34. 47 geta$,a$,h$,l$:ifstthensys65484:close1:goto51
  35. 48 printasc(h$+e$)+256*asc(l$+e$);
  36. 49 geta$,b$:ifa$thenprinta$b$;:goto49
  37. 50 printa$:goto47
  38. 51 print"":return
  39.