home *** CD-ROM | disk | FTP | other *** search
/ Floppy Magazine 1986 #2 / Floppy_Magazine_86-2_1986_Megasystems_Oy_fi.d64 / niksit2_86.pal < prev    next >
Text File  |  2023-02-26  |  5KB  |  132 lines

  1.  
  2.  
  3.  
  4.  
  5.      {CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}
  6.      {SHIFT--}                           {SHIFT--}{CBM-S}
  7.      {SHIFT--} {$de}   {$de} {$de} {$de}  {$de} {$de}{$de}{$de}{$de} {$de} {$de}{$de}{$de}{$de}{$de} {SHIFT--}{SHIFT--}
  8.      {SHIFT--} {CBM-I}{CBM-I}  {CBM-I} {CBM-I} {CBM-I} {CBM-I}  {CBM-I}    {CBM-I}   {CBM-I}   {SHIFT--}{SHIFT--}
  9.      {SHIFT--} {CBM-O} {CBM-O} {CBM-O} {CBM-O} {CBM-O}{CBM-O}   {CBM-O}{CBM-O}{CBM-O}{CBM-O} {CBM-O}   {CBM-O}   {SHIFT--}{SHIFT--}
  10.      {SHIFT--} {CBM-P}  {CBM-P}{CBM-P} {CBM-P} {CBM-P} {CBM-P}     {CBM-P} {CBM-P}   {CBM-P}   {SHIFT--}{SHIFT--}
  11.      {SHIFT--} {CBM-@}   {CBM-@} {CBM-@} {CBM-@}  {CBM-@} {CBM-@}{CBM-@}{CBM-@}{CBM-@} {CBM-@}   {CBM-@}   {SHIFT--}{SHIFT--}
  12.      {SHIFT--}                           {SHIFT--}{SHIFT--}
  13.      {CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}{SHIFT--}
  14.       {CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}
  15.  
  16.  
  17.          FLOPPY MAGAZINE 2/1986
  18.  
  19.  
  20.  
  21.  
  22.  
  23.  
  24. DISKETIN SIS[LT\
  25. {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}
  26.  
  27.      Olet ehk[ oppinut kantap[[n kautta,ett[ levykkeen sis[ll\n lataaminen pois-taa muistissa olleen basic-ohjelman.    Vahinko ei ole suuren suuri, mutta vas- taisuuden varalle niksi, miten voit tar-kistaa, mit[ levykkeell[ on eik[ basic- ohjelma tuhoudu!
  28.  
  29.      Seuraavat komennot t[ytyy antaa    suoraan n[pp[imist\lt[ eli ne eiv[t toi-mi ohjelmasta k[sin ilman kommervenk-   kej[:
  30.  
  31.           POKE 44,PEEK(46)+1
  32.           LOAD "$",8
  33.           LIST
  34.  
  35.      Kun haluat basic-ohjelmasi k[yt-   t\\n, niin kirjoita:
  36.  
  37.           POKE 46,PEEK(44)-1:POKE44,8
  38.  
  39.  
  40.  
  41. TALLETUSKIKKAILUJA
  42. {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}
  43.  
  44.      Tallettaessasi ohjelman tavalliseentapaan levykkeelle, on levykkeen sis[l- lysluettelossa "NIMI" PRG.  PRG ilmaiseetiedostotyypin.  Jos talletat ohjelman  nimell[ "NIMI,S", niin levykkeen sis[l- lysluettelossa on "NIMI" SEQ.  Jos vaih-dat S:n tilalle U:n, niin nimeksi tulee "NIMI" USR.  
  45.  
  46.      T[ll[ tavoin talletettuja ohjelmia ei voi ladata muistiin takaisin ilman,  ett[ tiet[[ kirjoittaa tuon ,S:n tai    ,U:n.  T[ll[ tempulla voi yritt[[ pik-  kuisen h[m[t[ kavereita, jotka eiv[t    kikkaa kyll[ ihan ensi istumalta hoksi, elleiv[t tied[ siit[ etuk[teen.
  47.  
  48.  
  49.  
  50. LAITTEISTOYHTEYDET
  51. {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}
  52.  
  53.      Voit ohjelmallisesti tarkistaa, on-ko jokin lis[laite kytkettyn[ keskusyk- sikk\\n ja p[[ll[ seuraavasti:
  54.  
  55.      10 OPEN 15,LN,15:CLOSE15
  56.  
  57.      20 IFST<>0THENPRINT"Aaaghhh!":END
  58.  
  59.      LN on tarkistettavan laitteen nume-ro.  Levyasemalla se on 8 jne...  Jos   laite ei ole yhteydess[, niin voit tu-  lostaa n[ytt\\n jotain [[rimm[isen v[lk-ky[, kuten "Laite numero LN ei ole p[[l-l[" ja hyp[t[ vaikkapa ohjelmanosaan,   jossa selvitet[[n, mist[ l\ytyy esim.   levyaseman virtakytkin.
  60.  
  61.      T[m[n pienen ohjelmanp[tk[n avulla voit tehd[ omista ohjelmistasi hieman   [lykk[[mpi[:  Jos ohjelmasi suoltaa A4- saastetta, niin voit tarkistaa tuolla   onko printteri kiinnitetty 64:seen, en- nen kuin kysyt haluaako k[ytt[j[ tulos- tuksen paperille.  Siis jos se printteriei ole kytkettyn[, niin tuskinpa k[ytt[-j[[ kiinostaa vastailla tuollaisiin ky- symyksiin.  Lis[ksi ohjelmasi ei kaadu  ihan joka k[[nteess[, kun k[ytt[j[ kui- tenkin onnistuu vastaamaan v[[rin tyh-  miin kysymyksiin.
  62.  
  63.  
  64.  
  65. SUOJATARRAN TUNNISTAMINEN
  66. {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}
  67.  
  68.      Jatketaan viel[ aiheesta "[lykk[[t ohjelmat":  Ennen vaikkapa pelin enn[-  tysten levykkeelle kirjoittamista, oh-  jelma voisi tarkistaa, onko kirjoitus-  suoja-aukko peitetty.
  69.  
  70.      10 OPEN 15,8,15
  71.  
  72.      20 PRINT#15,"M-R"CHR$(0)CHR$(28)
  73.  
  74.      30 GET#15,A$:A=ASC(A$+CHR$(0))AND16
  75.      40 IF A=0 THEN PRINT"Aaarghh!"
  76.  
  77.      50 CLOSE 15
  78.  
  79.  
  80.  
  81. RESET-NAPPI N{SHIFT-+}PP{SHIFT-+}IMIST\LT{SHIFT-+}
  82. {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}
  83.  
  84.      Mik[li et ole viel[ ymp[nnyt reset-nappia koneesi johonkin kulmaan, niin   nyt voit saattaa koneesi alkutilaan pai-namalla RESTORE-n[pp[int[.  Kirjoitat   vain seuraavat kaksi rivi[:
  85.  
  86.      POKE792,PEEK(65532)
  87.  
  88.      POKE793,PEEK(65533)
  89.  
  90.      N[m[ asettavat NMI-vektorin osoit- tamaan samaan paikkaan kuin reset-vekto-ri.  Huomaa, ett[ painettuasi RESTORE-  RESET-nappia, my\s NMI-vektori asetetaantakaisin osoittamaan alkuper[iseen paik-kaan ja joudut kirjoittamaan nuo kaksi  rivi[ uudelleen.
  91.  
  92.  
  93.  
  94. BITINNYPL{SHIFT-+}{SHIFT-+}MIST{SHIFT-+}
  95. {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}
  96.  
  97.      Viime aikoina on suosittu ohjel-   mointikilpailun aihe ollut yksirivisen  ohjelman tekeminen.  Yhdelle rivilleh[n ei mahdu kuin 80 merkki[, joten ahdasta tulee.  S[[st[t pari merkki[ toistavissaohjelmissa, kun laitat rivinumeroksi    nollan ja GOTO-k[skylle et laita rivinu-meroa ollenkaan.  T[ll\in GOTO:sta hyp[-t[[n riville nolla, jolloin ohjelma py\-rii p[[ttym[tt\m[ss[ luupissa.  Seuraa- vaksi pieni demonstraatio t[m[n niksin  avaamista suunnattomista sovellusmahdol-lissuksista:
  98.  
  99. 0A%=RND(.)*15:POKE646,A%:PRINT"Floppy Magazine";:GOTO
  100.  
  101.      Ohjelma tulostaa tuutin t[ydelt[   er[[n kotitietokoneisiin keskittyv[n    lehden nime[.
  102.  
  103.  
  104.  
  105. KILPIKONNALISTAUS
  106. {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}
  107.  
  108.      Omalaatuinen otsikko tarkoittaa si-t[, ett[ seuraavaksi tulee niksi, miten pysyt juonessa mukana, kun LISTaat jo-  tain basic-ohjelmaa:
  109.  
  110.      POKE 56324,28:POKE56325,0
  111.  
  112.      Kun n[iden kahden poken j[lkeen    listaat ohjelmaasi, niin kone havahtuu  hetken kuluttua ja alkaa tehd[ t\it[ hi-taasti kuin tuntipalkkalainen.  Listaus-ta voi viel[ hidastaa CTRL-n[pp[imell[  tai POKEamalla viel[ pienemm[n numeron  osoitteeseen 56324.
  113.  
  114.  
  115.  
  116. PRINT AT
  117. {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}
  118.  
  119.      Voit asettaa kursorin minne tahansakuvaruudulla ilman hankalia PRINT-lau-  seita seuraavasti:
  120.  
  121.      10 POKE 781,X
  122.  
  123.      20 POKE 782,Y
  124.  
  125.      30 POKE 783,0:SYS 65520
  126.  
  127.      X ja Y ovat tietenkin ne rivit ja  sarakkeet, minne haluat kursorin.  Vasenyl[kulma on piste 0,0.  Nyt voit laittaariville 40 PRINT-lauseeseen jotain ja   siin[ sinulla on PRINT AT -k[sky, joka  on uudemmissa basicin versioissa.
  128.  
  129.  
  130.  
  131. ----------------------------------------
  132.