Utenti collegati: 42 
 
it.comp.retrocomputing
Macchine che hanno fatto la storia informatica

Indice messaggi | Invia un reply | Tutti i newsgroup | Cerca | Statistiche 



  Inviato da: zfkirone@gmail.com  Mostra tutti i messaggi di zfkirone@gmail.com
Titolo: Indagine Ricostruttiva delle Origini di un Listato in Linguaggio di Programmazione BASIC rinvenuto in un Filmato di Animazione Giapponese (OVA)
Newsgroup: it.comp.retrocomputing
Data: 02/01/2018
Ora: 22:52:10
Mostra headers
 
  for teh lulz :D<br /> <br /> Come segnalavo in un messaggio precedente, in un OVA del 1986 (*) compare u=<br /> n<br /> listato di un programma sufficientemente leggibile da riconoscervi il=20<br /> linguaggio BASIC.=20<br /> Dopo averne parlato, per=C3=B2, mi =C3=A8 rimasto il tarlo: sar=C3=A0 fuffa=<br /> ? oppure gli autori<br /> ci hanno infilato un messaggio codificato in un programma effettivamente<br /> eseguibile? (spoiler: no)<br /> Ora, della serie &quot;piuttosto che guardare la tivu&quot;, e preso dalla nostalgia =<br /> dei<br /> tempi in cui i listati si trascrivevano faticosamente a mano, riga per riga=<br /> ,<br /> da manuali, riviste e raccolte su libri, ho deciso di indagare.<br /> Sbirciando il fermo immagine, tra una risoluzione infima e le sgranature de=<br /> l<br /> riversamento da VHS e il basso contrasto del verde-su-nero, ben presto si=<br /> =20<br /> capisce ben presto che il codice =C3=A8 incompleto ed errato; incompleto pe=<br /> rch=C3=A9<br /> alcune righe sono troncate e manca il resto, errato perch=C3=A9 ad un certo=<br /> punto<br /> hanno smesso di fare finta e hanno lasciato dormire la sintassi.<br /> <br /> Non contento, mi sono messo ad indagare gli indizi riconoscibili.<br /> Per farla breve, l'origine pu=C3=B2 esser fatta risalire all'interprete BAS=<br /> IC<br /> dello SHARP X1 turbo, che, diversamente da altri home dell'epoca, doveva=20<br /> essere caricato invece di essere residente in ROM.<br /> Hanno smaneggiato i nomi, cosa tipica per i marchi.<br /> <br /> Ora s'impone la domanda: sono tratti dai listati dell'originale o sono<br /> solo una contraffazione? Al che la risposta viene facile: datemi i listati<br /> originali e ve lo sapr=C3=B2 dire :D<br /> <br /> Foto del floppy di caricamento:<br /> https://thngs.co/things/2538<br /> Elenco delle versioni:<br /> https://ja.wikipedia.org/wiki/Hu-BASIC (vedi CZ-8FB02)<br /> Filmato in cui appare l'IPL (Initial Program Load):<br /> https://www.youtube.com/watch?v=3D6Zy7yiI-N98<br /> <br /> In conclusione, per il vostro dilegg... studio, eccovi la trascrizione<br /> rigorosamente manuale del suddetto, lasciato qui a futura memoria:<br /> <br /> 10 IF PEEK(1)=3D&amp;HFA THEN 560<br /> 20 FR=3DVAL(SCRN$(1,2,5))<br /> 30 CLR<br /> 40 PRINT&quot;BASICZ-8FB02 Version1.0 [2HD]&quot;<br /> 50 PRINT&quot;Copyright (C) 1984 by P/Hson&quot;<br /> 60 PRINT<br /> 70 KLIST0:KMODE1:INIT:MAXFILES2:CLICKON<br /> 80 KEY 1,&quot;FILES&quot;+CHR$(13)<br /> 90 KEY 2,&quot;?TIME$&quot;+CHR$(13)<br /> 100 KEY 3,&quot;KEY&quot;<br /> 110 KEY 4,&quot;LIST&quot;+CHR$(13)<br /> 120 KEY 5,&quot;RUN &quot;+CHR$(13)<br /> 130 KEY 6,&quot;LOAD &quot;+CHR$(13)<br /> 140 KEY 7,&quot;WIDTH &quot;<br /> 150 KEY 8,&quot;CHR$(&quot;<br /> 160 KEY 9,&quot;PALET &quot;<br /> 170 KEY10,&quot;CONT&quot;+CHR$(13)<br /> 180 D$=3DDATE$:IF MID$(D$,1,2)=3D&quot;??&quot; THEN<br /> 190 ON ERROR GOTO 0<br /> 200 PRINTCHR$(30,28);:DEVICE&quot;0:2&quot;:DEVIC<br /> 210 ML=3D0:CLEAR&amp;HF000:POKE&amp;HF876,&amp;H88:PO<br /> 220 PALET1,0:PRW 2:LINE(0,176)-(639,199<br /> 230 KEY0,CHR$(&amp;HFF,&amp;HF8,&amp;HFF):'[CTRL]+[<br /> 240 A$=3DINKEY$:IF(PEEK(&amp;HF876)AND&amp;HF)=3D8<br /> 250 CLS0:KLIST1:INIT<br /> 260 ON ERROR GOTO 320<br /> 270 OPEN&quot;I&quot;,1,&quot;Start up data.Sub&quot;<br /> 280 INPUT#1,A$,B$:MEM$(&amp;HF883,48)=3DHEXC<br /> 290 CLOSE:ON ERROR GOTO 0<br /> 300 PRINT &quot;Printer : &quot;;A$<br /> 310 GOTO65535<br /> 320 RESUME 290<br /> 330 RESUME NEXT<br /> 340 'NEWON8..VERIFY,LOAD?,&quot;CAS:&quot;,CMT,CM<br /> 350 'NEWON7..&quot;COM:&quot;,ON COM GOSUB,COME ON<br /> 360 '........POSITION,PATTERN,CIRCLE@,S<br /> 370 'NEWON6..CRT,ON KEY GOSUB,KEYNON,KE<br /> 380 '........ON TIME$=3D&quot;HH:MM/MM&quot; GOSUB,<br /> 390 'NEWON5..MKDIR,CHRDIR,RMDIR,HDOFF,<br /> 400 'NEWON4..MOUSE,MOUSE=E9=96=A2=E6=95=B0,HCOPY<br /> 410 'NEWON3.GET@,PUT@,CGPAT$,DEVI$,DE<br /> 420 'NEWON2..LIST,LLIST,DELETE,RENUM,<br /> 430 '........KILL,CONT<br /> 440 'NEWON1..PLAY,MUSIC,TEMPO,SOUND,C<br /> 450 'NEWON0 WINDOW,LINE,PSET,PRESET,<br /> 460 '........PRW,PALET,CLICK,NEWONn<br /> 470 IF INKEY$(0)=3DCHR$(&amp;HE2) THEN 550<br /> 480 PRINTCHR$(31,26)<br /> 490 LOCATE 0,5:PRINT CHR$(5);:X$=3D&quot;&quot;<br /> 500 LINPUT &quot;NEWON&quot;;X$<br /> 510 IF LEN(X$)=3D5 THEN 540<br /> 520 IF LEN(X$)&gt;&lt;6 THEN 490<br /> 530 IF MID$(X$,,1)&gt;&quot;)&quot; OR MID$(X$,6,1)<br /> 540 COLOR0:KEY0,X$+CHR$(13)+&quot;COL.7:LOC<br /> 550 COLOR0:KEY0,&quot;NEWON4&quot;+CHR$(13)+&quot;COL<br /> 560 OUT&amp;H1FD0,0:INIT:CLEAR&amp;HFF00:MAXFIL<br /> 570 KEY 1,&quot;FILES&quot;+CHR$(13)<br /> 580 KEY 2,&quot;?TIME$&quot;+CHR$(13)<br /> 590 KEY 3,&quot;KEY&quot;<br /> 600 KEY 4,&quot;LIST&quot;+CHR$(26,13)<br /> 610 KEY 5,&quot;RUN &quot;+CHR$(13)<br /> 620 KEY 6,&quot;LOAD &quot;+CHR$(13)<br /> 630 KEY 7,&quot;WIDTH &quot;<br /> 640 KEY 8,&quot;CHR$(&quot;<br /> 650 KEY 9,&quot;PALET &quot;<br /> 660 KEY10,&quot;CONT&quot;+CHR$(13)<br /> 670 D$=3DDATE$:IF MID$(D$,1,2)=3D&quot;??&quot;<br /> 680 PRINTCHR$(30,30,LIST<br /> 690 END<br /> 700 'NEWON...ALL COMMAND =E4=BD=BF=E7=94=A8=E5=8F=AF<br /> <br /> Kanji<br /> alla riga 400: =E9=96=A2=E6=95=B0 =E2=80=93 &quot;Function&quot; (programming)<br /> alla riga 700: =E4=BD=BF=E7=94=A8=E5=8F=AF =E2=80=93 &quot;Pu=C3=B2 essere usato=<br /> /utilizzato&quot;<br /> <br /> Anonimizzazione<br /> 40 PRINT&quot;BASICZ-8FB02 Version1.0 [2HD]&quot;<br /> originale &quot;SHARP HuBASIC CZ-8FB02 Version1.0&quot;<br /> 50 PRINT&quot;Copyright (C) 1984 by P/Hson&quot;<br /> originale &quot;Copyright (C) 1984 by SHARP/Hudson&quot;<br /> <br /> A chi fosse interessato, posso fornire documento .odt o .pdf col=20<br /> listato e gli screenshot delle schermate :D<br /> <br /> CYA<br /> <br /> *) dimenticabilissimo, ma per completezza riporto qui il titolo:<br /> &quot;Delpower X Bakuhatsu Miracle Genki&quot; (=E3=83=87=E3=83=AB=E3=83=91=E3=83=AF=<br /> =E3=83=BC=EF=BC=B8=E7=88=86=E7=99=BA=E3=81=BF=E3=82=89=E3=81=8F=E3=82=8B=E5=<br /> =85=83=E6=B0=97=EF=BC=81) che potremmo<br /> tradurre come &quot;Delpower X Esplosione dell'Energia Miracolosa&quot;  

Il thread:
da leggere zfkirone@gmail.com 02/01 22:52
Indagine Ricostruttiva delle Origini di un Listato in Linguaggio di Programmazione BASIC rinvenuto in un Filmato di Animazione Giapponese (OVA)
   da leggere dott.Piergiorgio 03/01 12:26
Re: Indagine Ricostruttiva delle Origini di un Listato in Linguaggio di Programmazione BASIC rinvenuto in un Filmato di Animazione Giapponese (OVA)
      da leggere dott.Piergiorgio 03/01 12:28
Re: Indagine Ricostruttiva delle Origini di un Listato in Linguaggio di Programmazione BASIC rinvenuto in un Filmato di Animazione Giapponese (OVA)
         da leggere zfkirone@gmail.com 03/01 19:09
Re: Indagine Ricostruttiva delle Origini di un Listato in Linguaggio di Programmazione BASIC rinvenuto in un Filmato di Animazione Giapponese (OVA)
 

Invia una risposta:

Nome:

Email:

Titolo:

Testo:


Attenzione: l'invio del messaggio richiede diversi secondi.
Non premere pi� volte il tasto "Invia".

 © Sergio Simonetti 2001 Che cos'è Links