home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 57 / Tiger_Disk_057_19xx_Tiger-Crew-Disk_de_Side_B.d64 / file-copy (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  496b  |  16 lines
  1. 1 x=peek(186):ifpeek(828)+peek(831)<>363thenload"...msp*",x,1
  2. 2 poke56,12:clr
  3. 3 print"[147]":poke53280,8:poke53281,8
  4. 4 input"quell-lw ";a$:a=val(a$):ifa<8ora>15then4
  5. 5 input">ziel-lw ";b$:b=val(b$):ifb<8orb>15then5
  6. 6 input"dateiname ";n$:print"datei-typ (p/s/u) ? ";
  7. 7 gett$:ift$<>"p"andt$<>"s"andt$<>"u"then7
  8. 8 printt$:print"bitte disk(s) einlegen,":print"dann space!":sys58592
  9. 9 open2,a,2,n$+","+t$
  10. 10 poke3,0:poke4,12:sys866
  11. 11 close2:ifa<>bthen13
  12. 12 print"bitte ziel-disk einlegen,":print"dann space!":sys58592
  13. 13 open2,b,2,n$+","+t$+",w"
  14. 14 poke3,0:poke4,12:sys828
  15. 15 close2:poke198,0:open1,x:close1
  16.