home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 83 / 64er_Magazin_Sonderheft_83_19xx_Markt__Technik_de_Side_B.d64 / floprom-reader (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  1.3 KB  |  52 lines
  1. 0 rem floppy-rom-reader
  2. 1 poke55,0:poke56,32:fori=1to38:ln$=ln$+"[192]":ls$=ls$+" ":next
  3. 2 lr$=left$(ls$,25):la$=left$(ln$,25)
  4. 3 rd$="[144] "
  5. 4 ur$(1)="[176]"+la$+"[174]":ur$(2)="[221]"+left$(ls$,25)+"[221]":ur$(3)="[173]"+left$(ln$,25)+"[189]"
  6. 5 poke53280,1:poke53281,1:poke646,0:print"[147]":gosub4000
  7. 10 ifeg$="1541"thenus$="ui+"
  8. 11 ifeg$="1571"oreg$="1581"thenus$="uj:"
  9. 230 ea=8192
  10. 240 open15,8,15,us$
  11. 241 fori=128to255
  12. 245 print#15,"m-r"chr$(0)chr$(i)chr$(255)
  13. 256 forj=0to255:get#15,x$
  14. 257 ifx$=""thenx$=chr$(0)
  15. 259 pokeea+j,asc(x$)
  16. 265 nextj:ea=ea+256
  17. 266 nexti
  18. 290 close15
  19. 300 gosub5000
  20. 1000 deffnh(x)=int(x/256)
  21. 1010 deffnl(x)=x-fnh(x)*256
  22. 1020 s=8192:e=40960
  23. 1040 poke19,64:input" [196]ateiname: [146][144]";n$:poke19,0:print
  24. 1050 sys(57812)n$,8
  25. 2000 poke193,fnl(s):poke194,fnh(s)
  26. 2010 poke174,fnl(e):poke175,fnh(e)
  27. 3000 sys 62957:poke55,0:poke56,160:end
  28. 4000 poke646,6:printur$(1)
  29. 4010 fori=1to6:printur$(2)+rd$+"":next
  30. 4020 printur$(3)+rd$
  31. 4030 print" "+"[144]"+left$(ls$,27)
  32. 4050 poke214,2:poke211,4:sys58640
  33. 4060 print"[198]loppy-[210][207][205]-[210]eader"
  34. 4062 printtab(6)"1541/1571/1581"
  35. 4064 print:printtab(2)"[198]loppy-[212]yp eingeben"
  36. 4066 printtab(2)"und <[210][197][212][213][210][206]> druecken!"
  37. 4069 poke19,64:input" [204]aufwerkstyp (1541/1571/1581) [146] ";eg$:poke19,0:print
  38. 4072 return
  39. 5000 poke214,7:poke211,10:sys58640
  40. 5001 poke646,2:printur$(1)
  41. 5002 fori=1to7:printtab(10)ur$(2)+rd$+"":next
  42. 5004 printtab(10)ur$(3)+rd$
  43. 5006 printtab(10)" "+"[144]"+left$(ls$,27)
  44. 5008 poke214,8:poke211,11:sys58640
  45. 5029 print"[196]aten-[196]isk einlegen."
  46. 5031 printtab(11)"[193][195][200][212][213][206][199]! [196]ie [196]isk muss"
  47. 5032 printtab(11)"formatiert sein und mind."
  48. 5033 printtab(11)"130 freie [194]loecke haben!"
  49. 5034 printtab(11)"[196]ateinamen eingeben und"
  50. 5036 printtab(11)"<[210][197][212][213][210][206]> druecken!"
  51. 5038 return
  52.