home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 26
/
Tiger_Disk_026_19xx_Tiger-Crew-Disk_de_Side_B.d64
/
disk-utility
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
683b
|
21 lines
1 x=53280:pokex,0:pokex+1,0:poke788,52
2 print "[147][158]bitte disk einlegen !!":print"moechtest du :"
3 print" 1[146])rename 2[146])scratch":input" 3[146])validate 4[146])new $[157][157][157]";a$
4 ifa$="e"thenprint"[147]":end
5 ifa$="$"thengosub14:goto3
6 a%=val(a$):if a%<1 or a%>4thenprint"[145][145][145][145][145]":goto3
7 open15,8,15:ona%goto8,9,10,11
8 input"neuer name";n$:input"alter name";o$:print#15,"r8:"+n$+"="+o$:goto13
9 input"name des files";s$:print#15,"s8:"+s$
10 print#15,"v":goto13
11 input"disk-name";n$:input"id-nummer (2 ziffern)";id$
12 print#15,"n8:"+n$+","+id$
13 close15:run
14 print"[147]":open1,8,0,"$":poke781,1:sys65478:geta$,a$:e$=chr$(0)
15 geta$,a$,h$,l$:ifstthensys65484:close1:goto19
16 printasc(h$+e$)+256*asc(l$+e$);
17 geta$,b$:ifa$thenprinta$b$;:goto17
18 printa$:goto15
19 print" taste druecken !![158]"
20 poke198,0:wait198,1:poke198,0:return