Tape-File Copy: TFDsave.B

Является частью релиза: Tape-File Copy
Размер файла: 1835
md5: 3596db521a9e5278c0eca196598b3eb5
  10 CLEAR 32767: BORDER 7: PAPER 7: INK 0: BRIGHT 0: FLASH 0: CLS 
  20 PRINT " -  tape-file copy  -  02/88  - "
  30 PRINT 'TAB 1;"options: Load";TAB 10;"Save";TAB 10;"Verify";TAB 10;"Delete";TAB 10;"Clock (for Load)";TAB 10;"Mode";TAB 10;"Rename";TAB 10;"cursor keys"
  40 PRINT 'TAB 2;"params: number";TAB 10;"All";TAB 10;"Begin";TAB 10;"End";TAB 10;"Program (Basic + ...)";TAB 10;"File (Header + data)"
  50 PRINT '"   - compressed form in RAM -"'"        A.T. ©1988"
  60 LOAD ""CODE 62720
  80 IF INKEY$<>"" THEN  GO TO 80
  100 LET k=2: LET l=5: LET h=8
  110 CLS : PRINT AT 5,6;"Start";AT 7,6;"CLOCK - Set";AT 9,6;"MODE - Select";AT 11,6;"RENAME";AT 13,6;"41984 bytes - 14 lines";AT 15,6;"44032 bytes -  6 lines";AT 17,6;"44288 bytes - attr used";AT 19,6;"Double density (save)"
  140 GO SUB 400
  200 LET q$=INKEY$: IF q$="" THEN  GO TO 200
  202 IF q$="A" THEN  GO SUB 600: GO TO 110
  210 IF q$<"0" OR q$>"7" THEN  GO TO 200
  220 IF q$="0" THEN  POKE 62720,(k-1): POKE 62721,(l-4): RANDOMIZE USR 62722
  230 LET i=CODE q$-48: IF i>3 THEN  GO TO 247
  240 IF i<>k THEN  LET k=i: GO SUB 400
  245 GO TO 200
  247 IF i<7 THEN  GO TO 250
  248 IF i=h THEN  GO TO 200
  249 LET h=i: GO SUB 800: GO SUB 400: GO TO 200
  250 IF i<>l THEN  LET l=i: GO SUB 400
  255 GO TO 200
  400 FOR i=0 TO 7: LET j=0: IF i=k OR i=l OR i=h THEN  LET j=1
  410 PRINT AT 2*i+5,3; FLASH j;i: NEXT i
  420 RETURN 
  600 LET i=65504
  610 IF i>65522 THEN  RETURN 
  612 LET j=PEEK i: LET i=i+1: IF j<>0 THEN  GO TO 610
  614 IF PEEK i<>0 THEN  GO TO 610
  620 CLS : PRINT AT 8,3;"ASSEMBLED: ";: GO SUB 701: GO SUB 700: GO SUB 700: PRINT " ";: GO SUB 701: PRINT ":";: GO SUB 701
  640 IF INKEY$="A" THEN  GO TO 640
  650 RETURN 
  700 PRINT "/";
  701 GO SUB 720
  720 LET i=i+1: PRINT CHR$ PEEK i;: RETURN 
  800 FOR n=1 TO 9: READ m: POKE m,INT (0.1 TO +0.5 COPY *PEEK m): NEXT n: RETURN 
  801 DATA 65013,65023,65031,65038,65088,65094,65113,65124,65129