f83tap2mgt

Priskribo de la ĉi-paĝa enhavo

Kopiilo de kasedo al diskedo por la sistemo Forth-83 de ZX Spectrum.

Etikedoj:

Ĉi tiu simpla programo kopias la dosierojn de Forth-83 por ZX Spectrum de la originala TAP-dosiero en diskedon de Plus D. Mi laboras per la emulilo Fuse, sed la programo same funkcius ĉe la vera komputilo.

La program-ŝargilon de la ZX- Spectrum-Forth -83 ne necesas adapti, ĉar ĝi uzas la sintakson de microdrives, kiun Plus D rekonas. Tamen mi adaptis ĝin, ĉar la sintakso de la diskilo estas pli mallonga.

Fontkodo

  10 REM f83tap2mgt
  20:
  30 REM This program copies the tape file of Forth83 into a Plus D or DISCiPLE disc.
  40:
  50 REM Copyright (C) 2010 Marcos Cruz (http://programadala.net)
  60 REM License: http://programandala.net/pl
  70:
  80 REM 2010-04-21 First version.
  90:
 100 REM Init
 110:
 120 OVER 0: BRIGHT 0: FLASH 0: INVERSE 0
 130 INK 0: PAPER 6: BORDER 6
 140 CLEAR 55295
 150 LET address=55296
 160 POKE 23692,255: REM scroll
 170:
 180 REM Main
 190:
 200 FOR f=1 TO 18
 210 READ f$,length
 220 GO SUB 490
 230 NEXT f
 240 ERASE d*"fort83.bin" TO "Forth83.B"
 250 PRINT "All files copied."
 260 STOP
 270:
 280 REM Files data
 290:
 300 DATA "FORT83.BIN",9961
 310 DATA "TASM",1024
 320 DATA "ASSEMBLER",8192
 330 DATA "DOUBLE",3072
 340 DATA "FLOATING",8192
 350 DATA "TRANSCEN",4096
 360 DATA "GRAPHIC",2048
 370 DATA "UED",4096
 380 DATA "UTIL",2048
 390 DATA "MUSIC",2048
 400 DATA "LOGO",10240
 410 DATA "TASKS",3072
 420 DATA "OBJECT",6144
 430 DATA "META1",10240
 440 DATA "META2",10240
 450 DATA "META3",10240
 460 DATA "META4",8192
 470 DATA "EDITOR",6144
 480:
 490 REM S/R Copy
 500:
 510 PRINT "Loading ";f$;"...";
 520 LOAD f$ CODE address
 530 GO SUB 590
 540 PRINT "Saving ";f$;"...";
 550 SAVE d*;f$ CODE address,length
 560 PRINT "OK"
 570 RETURN
 580:
 590 REM S/R Lowercase
 600:
 610 FOR l=1 TO LEN f$
 620 LET c=CODE f$(l)
 630 IF c>64 AND c<91 THEN  LET f$(l)=CHR$ (c+32)
 640 NEXT l
 650 RETURN
 660:
 670 CLEAR : SAVE d*"f83tap2mgt"
 680 STOP


Deŝutoj

Rilataj paĝoj

Un Forth-83 estándar y completo para ZX Spectrum
Primer contacto con el Forth-83 Standard System de L.C. Benschop para ZX Spectrum, un Forth con todas las herramientas deseables.