home *** CD-ROM | disk | FTP | other *** search
/ Floppy Magazine 1987 #2 / Floppy_Magazine_87-2_1987_Megasystems_Oy_fi_Side_A.d64 / niksit2.2_87 < prev    next >
Text File  |  2023-02-26  |  4KB  |  32 lines

  1.                           {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@} {CBM-@}{CBM-@}{CBM-@}{CBM-@}  {$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de} {CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}  {CBM-P}{CBM-P}{CBM-P}{CBM-P}  {$de}{CBM-V}         {CBM-C}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de} {CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}   {CBM-O}{CBM-O}{CBM-O}{CBM-O}  {$de}FLOPPIKSEN {$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de} {CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}    {CBM-I}{CBM-I}{CBM-I}{CBM-I}  {$de}  KIKKOJA  {$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de} {CBM-I}{CBM-I}{CBM-I}{CBM-I}     {CBM-I}{CBM-I}{CBM-I}{CBM-I}  {$de}{CBM-F}         {CBM-D}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de} {CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}    {CBM-U}{CBM-U}{CBM-U}{CBM-U}  {$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de} {CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}   {CBM-U}{CBM-U}{CBM-U}{CBM-U}  {$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de} {CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}  {CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}  {$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{CBM-V}{CBM-C}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de} {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T} {CBM-T}{CBM-T}{CBM-T}{CBM-T}  {$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{CBM-V}    {CBM-C}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de} {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}  {CBM-@}{CBM-@}{CBM-@}  {$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}      {$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de} {CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}  {CBM-P}{CBM-P}{CBM-P}{CBM-P}  {$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{CBM-J}      {CBM-L}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de} {CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}  {CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}  {$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}      {$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de} {CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}  {CBM-I}{CBM-I}{CBM-I} {CBM-I}{CBM-I}  {$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{CBM-F}    {CBM-D}{$de} {$de}{$de}{$de}{$de}{$de}{$de}{$de} {CBM-I}{CBM-I}{CBM-I}{CBM-I}   {CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}  {$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{CBM-F}{CBM-D}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de} {CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}  {CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}  {$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de} {CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}  {CBM-U}{CBM-U} {CBM-U}{CBM-U}  {$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{CBM-V}{CBM-C}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de} {CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}  {CBM-Y} {CBM-Y}{CBM-Y}  {$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}  {$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de} {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}   {CBM-T}{CBM-T}  {$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}  {$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de} {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}  {$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}  {$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de} {CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}  {$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{CBM-F}{CBM-D}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}   {CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}       {$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{CBM-U}{$de}{$de}{$de}{$de}{CBM-U}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}{$de}   {CBM-O}{CBM-O}{CBM-O}{CBM-O}                                    {CBM-U}{CBM-U}{CBM-U}{CBM-U}  2/87     ... JATKOA ...           {CBM-Y}{CBM-Y}{CBM-Y}                                     {CBM-T}{CBM-T}{CBM-T}
  2.  
  3.   ...N[pp[imist\puskuri...                                                       ..Muistipaikka on 198, eli sinne joku   arvoista 0-10. Jos 0, niin kone alkaa   kirjoitetun tallentamisen n[pp[imist\-  puskuriin alusta. Jos poketaan 198:aan  vaikkapa 2, kone lukee muistipaikkojen  631 ja 632 arvot ja tekee niiden        mukaan. Pokeiltu arvo voi olla vaikka   RETURN ja se on koodattuna arvo 13.     Tai arvo voi olla 131, joka vastaa      yhdistelm[k[sky[ LOAD <RETURN> + RUN.   Tuota arvoa meid[nkin rutiini k[ytt[[   hyv[kseen.
  4.    Samoin ruutuun t[ytyy kirjoittaa      latausta varten informaatiota, ett[     kone tiet[isi, mit[ l[hte[ lataamaan.   Ruutuun pit[[ laittaa ainakin lataus-   k[sky. Ja jos haluat sen taustanv[ri-   sen[ (ettei kukaan n[e, mit[ ohjelma    itse asiassa tekee) lis[[ ohjelman      loppupokeiluihin k[sky                                                          POKE 646, PEEK(53281)                                                           joka tutkii mik[ on t[ll[ hetkell[      ruudun v[ri ja laittaa sen kirjoitus-   v[riksi. Jos et halua ruudun v[ri[,     laita PEEK(53281):n tilalle kirjoitus-  v[rin numero (0-15). Ja sitten itse     ohjelma:
  5.  
  6.  
  7. 60000 POKE 646, PEEK(53281)
  8. 60010 A$=CHR$(34)
  9. 60020 PRINT CHR$(147);CHR$(17);CHR$(17);CHR$(17);
  10. 60030 PRINT "LOAD";A$;"ohjelman nimi";A$;",8";CHR$(19)
  11. 60040 POKE 631,131: POKE 198,1: END
  12.  
  13.  
  14.  Rivill[ 60000 asetetaan ensin kirjoi-   tusv[ri taustan v[riseksi. Esim. jos    tausta on tummansininen, kopioituu      sama v[ri kirjoitusv[riksi. Katsoja ei  tekstej[ n[e, mutta kone tiet[[, mit[   kuvan tekstit sis[lt[v[t.
  15.    Rivill[ 60010 asetetaan muuttujan A$  arvoksi arvo 34, eli ASCII-koodina      lainausmerkki.
  16.    Rivill[ 60020 tyhjennet[[n ensin      ruutu ja sen j[lkeen menn[[n 3 kertaa   alasp[in. 60030: Kirjoitetaan ruutuun   kohtaan, mihin viimeksi oli j[[ty,      teksti    LOAD"ohjelman nimi",8.
  17.    Lopuksi pokeillaan n[pp[inpuskuriin   k[sky LOAD <RETURN> + RUN <RETURN>.
  18.  
  19.   ...Eli mit[ ohjelma sitten tekee, on   t[m[. Kun printtaukset on printattu ja  poket pokeiltu ja ohjelma loppuu (END), kone tarkistaa, mit[ n[pp[imi[ on       painettu. (T[ll[ hetkell[h[n printtaus- kohta ruudulla on latausk[skyn kohdal-  la.) Kone kirjoittaa LOAD (jo valmiin   LOADin p[[lle) ja painaa <RETURN>.
  20.    Rivill[ lukee siis LOAD"ohjelman nimi ",8 ja sen takia kone l[htee lataamaan  kyseist[ ohjelmaa. Ohjelman lataudut-   tua kone kirjoittaa RUN ja painaa       itsekseen kiltisti <RETURN> jolloin     ohjelma k[ynnistyy.
  21.  
  22.  Rivinumerot olivat aivan keksittyj[,    niill[ ei ole v[li[. Jos j[i jokin      kohta kaivertamaan, kirjoita t[nne      Floppikseen. Osoite on:
  23.  
  24.         FLOPPY MAGAZINE                         NIKSIPALSTA / TONI LUODE                                                        PL 1                                    02631 ESPOO                                                              Yrit[n vastailla. Muuten.Loistavan      n[kyv[n esimerkin tuosta latauksesta    n[et silloin, kun l[hdet lataamaan      jotain ohjelmaa Floppiksen valikosta..
  25.  
  26.                  Terveisin TONI LUODE.
  27.  
  28. PS. Miten onnistui t[m[ juttu, Marko J.?
  29.  
  30.  
  31. ----------------------------------------
  32.