home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1990 May / 64er_Magazin_90-05_1990_Markt__Technik_de_Side_A.d64 / disk-expander (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  481b  |  12 lines
  1. 1 input"[147] wieviele bloecke (max.17)";a:x=(18-a)*3+1
  2. 2 ifx>18thenx=x-17:goto2
  3. 3 print" auf die diskette passen dann max.",(18-a)*8"files. ok? (j/n)"
  4. 4 wait198,1:geta$:ifa$="n"thenrun
  5. 5 open1,8,15,"m-w"+chr$(7)+chr$(28)+chr$(1)+chr$(15):open2,8,2,"#"
  6. 6 print#1,"u1"2;0;18;1:print#1,"b-p"2;3:get#2,a$,b$:print#1,"b-p"2;3
  7. 7 print#2,chr$(18)chr$(x);:print#1,"u2"2;0;18;1
  8. 8 print#1,"u1"2;0asc(a$)asc(b$+chr$(0)):print#1,"b-p"2;0:get#2,a$,b$
  9. 9 ifa$=""orx=18thenprint#1,"u2"2;0;18;x:print#1,"v":close2:close1:end
  10. 10 a=x+3+17*(x>15):print#1,"b-p"2;0:print#2,chr$(18)chr$(a);
  11. 11 print#1,"u2"2;0;18;x:x=a:goto8
  12.