home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 18 / Tiger_Disk_018_19xx_Tiger-Crew-Disk_de_Side_B.d64 / file-reader (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  889b  |  34 lines
  1. 10 poke53280,0:poke53281,0:poke646,7
  2. 20 poke59468,14:ad=0:poke53272,23
  3. 30 gosub270
  4. 40 input"[147][198]ile name[160]";f$
  5. 50 iff$=""thenend
  6. 60 input"p[146]rg oder s[146]eq[160][160]s[157][157][157]";t$
  7. 70 ift$<>"s"andt$<>"p"thenprint"[145][145][145]":goto60
  8. 80 input"[196]rive #[160][160]0[157][157][157]";dr$
  9. 90 ifdr$<"0"ordr$>"1"thenprint"[145][145][145]":goto80
  10. 100 input"[196]evice(drucker=4, screen=3)[160][160]3[157][157][157]";dv$
  11. 110 ifdv$<"3"ordv$>"4"thenprint"[145][145][145]":goto100
  12. 120 dv=val(dv$):opendv,dv
  13. 130 open15,8,15
  14. 140 print"[147]";
  15. 150 open2,8,2,dr$+":"+f$+","+t$+",r":gosub230
  16. 160 ift$="p"thenget#2,a$,b$:sa=asc(b$)*256+asc(a$):print"start addr=";sa
  17. 170 get#2,a$:ifst=64thenclose2:closedv:close15:poke59468,12:end
  18. 180 print#dv,a$;
  19. 190 ifa$=chr$(13)thenprint#dv,chr$(10)
  20. 200 getzz$:ifzz$=""then170
  21. 210 getzz$:ifzz$=""then210
  22. 220 goto170
  23. 230 input#15,a$,b$,c$,d$
  24. 240 ifa$="00"thenreturn
  25. 250 printa$","b$","c$","d$
  26. 260 close2:closedv:close15:poke59468,12:end
  27. 270 print"[147][196]ieses [208]rogramm zeigt [196]ir den [201]nhalt"
  28. 280 print"von [211][197][209] - [198]iles. [218]um [193]nhalten der [193]us-
  29. 290 [153]"gabe, druecke (NULL)(NULL)atnlenvalwait. (NULL)ochmals zum"
  30. 300 [153]"ascortsetzen."
  31. 310 [153]"           (NULL)atn(NULL)(NULL)val str$(NULL)(NULL)vallen(NULL)val(NULL) wait"
  32. 320 [161]zz$:[139]zz$[178]""[167]320
  33. 330 [142]
  34.