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 >
Wrap
Commodore BASIC
|
2022-10-26
|
1KB
|
52 lines
0 rem floppy-rom-reader
1 poke55,0:poke56,32:fori=1to38:ln$=ln$+"[192]":ls$=ls$+" ":next
2 lr$=left$(ls$,25):la$=left$(ln$,25)
3 rd$="[144] "
4 ur$(1)="[176]"+la$+"[174]":ur$(2)="[221]"+left$(ls$,25)+"[221]":ur$(3)="[173]"+left$(ln$,25)+"[189]"
5 poke53280,1:poke53281,1:poke646,0:print"[147]":gosub4000
10 ifeg$="1541"thenus$="ui+"
11 ifeg$="1571"oreg$="1581"thenus$="uj:"
230 ea=8192
240 open15,8,15,us$
241 fori=128to255
245 print#15,"m-r"chr$(0)chr$(i)chr$(255)
256 forj=0to255:get#15,x$
257 ifx$=""thenx$=chr$(0)
259 pokeea+j,asc(x$)
265 nextj:ea=ea+256
266 nexti
290 close15
300 gosub5000
1000 deffnh(x)=int(x/256)
1010 deffnl(x)=x-fnh(x)*256
1020 s=8192:e=40960
1040 poke19,64:input" [196]ateiname: [146][144]";n$:poke19,0:print
1050 sys(57812)n$,8
2000 poke193,fnl(s):poke194,fnh(s)
2010 poke174,fnl(e):poke175,fnh(e)
3000 sys 62957:poke55,0:poke56,160:end
4000 poke646,6:printur$(1)
4010 fori=1to6:printur$(2)+rd$+"":next
4020 printur$(3)+rd$
4030 print" "+"[144]"+left$(ls$,27)
4050 poke214,2:poke211,4:sys58640
4060 print"[198]loppy-[210][207][205]-[210]eader"
4062 printtab(6)"1541/1571/1581"
4064 print:printtab(2)"[198]loppy-[212]yp eingeben"
4066 printtab(2)"und <[210][197][212][213][210][206]> druecken!"
4069 poke19,64:input" [204]aufwerkstyp (1541/1571/1581) [146] ";eg$:poke19,0:print
4072 return
5000 poke214,7:poke211,10:sys58640
5001 poke646,2:printur$(1)
5002 fori=1to7:printtab(10)ur$(2)+rd$+"":next
5004 printtab(10)ur$(3)+rd$
5006 printtab(10)" "+"[144]"+left$(ls$,27)
5008 poke214,8:poke211,11:sys58640
5029 print"[196]aten-[196]isk einlegen."
5031 printtab(11)"[193][195][200][212][213][206][199]! [196]ie [196]isk muss"
5032 printtab(11)"formatiert sein und mind."
5033 printtab(11)"130 freie [194]loecke haben!"
5034 printtab(11)"[196]ateinamen eingeben und"
5036 printtab(11)"<[210][197][212][213][210][206]> druecken!"
5038 return