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

  1.  
  2.  
  3.  
  4.  
  5.  
  6.  
  7.  
  8.  
  9.   {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-*}{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-*}{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-*} {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-*}{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-*} {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-*}{SHIFT-*}{SHIFT-*} {SHIFT-*}{SHIFT-*}  
  10.              {CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}
  11.              {SHIFT--} OSA 3 {SHIFT--}
  12.              {CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}
  13.  
  14.  
  15.  
  16.  
  17.  
  18. Esimerkkej[ ohjelmoinnin k[yt\st[:
  19.  
  20. Esim. 1.
  21.  
  22. K[[nnet[[n kaikki merkit yl\salaisin
  23.  
  24. N[pp[ile SHIFT+p, joka asettaa ohjel-   moinnin p[[lle. Sitten kirjoita:
  25.  
  26. j00a40(grrp.)@
  27. shift+p
  28. <takanuoli>
  29.  
  30. a <RETURN>
  31.  
  32. Huomaa, ett[ kaikki em. komennot anne-  taan SELLAISINAAN ilman lis[yksi[, pe-  r[kk[in. J00 aiheuttaa siirtymisen merkkiin nro 00. A40 asettaa silmukkakertojenlukum[[r[n ($40 = 64). Sulut ilmoittavatsilmukan alun ja lopun. G ottaa merkin  ruudukkoon. RR py\ritt[[ yhteens[ 180   astetta. P pist[[ muutetun merkin vali- koimaan. .(piste) valitsee seuraavan    merkin. @ ilmoittaa ohjelman lopun.
  33.  
  34.  
  35. Esim. 2.
  36.  
  37. Kavennetaan merkit:
  38.  
  39. Kytke j[lleen ohjelmointitoiminto (tuhoaensin entinen ohjelma CTRL+d:ll[) ja    n[pp[ile sitten ohjelma:
  40.  
  41. woa40(gi<home>wc<up><left>wgws<left>.wpip.)@
  42. _
  43. SHIFT+p
  44. a <RETURN>
  45.  
  46. HUOM. <up>, <left> jne. ovat ao. n[pp[i-mi[. Siis EI <, l, e, f, t jne.
  47.  
  48. Ohjelman toiminnan voit tutkia itse k[s-kyjen toimintojen perusteella. "_" siir-t[[ taas ohjelman alkuun, SHIFT+p pois- taa ohjelmointitoiminnon ja a k[ynnist[[ohjelman. Huomaa, ett[ a k[ynnist[[ oh- jelman siit[ kohdasta alkaen, joka on   valkoisen merkin kohdalla ruudussa. Ei  siis v[ltt[m[tt[ ohjelman alusta.
  49.  
  50.  
  51. Esim. 3.                                
  52. Muutaa k[[nteiset merkit alleviivatuiksi
  53. Ohjelma kirjoitetaan kuten edell[. Lis- taus:
  54.  
  55. j80a80(gi<home><up>l<right>p.)@
  56.  
  57. Suoritettuasi ohjelman paina CTRL+X p[[st[ksesi BASICiin. N[pp[ile POKE53272,30 <RETURN> saadaksesi [skeiset merkit k[ytt\\n. Nyt kursori n[ytt[[ vain viivalta.N[pp[r[[! Kaikki k[[nteiset merkit ovat muuttuneet.
  58.  
  59.  
  60. Esim. 4.
  61.  
  62. Kopiointi merkki-ROM-muistista 
  63.  
  64. Ohjelma kopioi pikkukirjaimet editoita- viksi.
  65.  
  66. j00z3gz7p.aff(z3gz7p.)@
  67.  
  68.  
  69.  
  70.  
  71.  
  72. Ohjelma
  73.  
  74.  
  75. Ohjelma k[ynnistet[[n RUN-k[skyll[ (ja  ladataan LOAD"cd",8:lla).
  76.  
  77.  
  78. Ruudulla n[kyv[t tiedot:
  79.  
  80. - ON SET ilmaisee merkkivalikoiman nu-  meron 2...7
  81.  
  82. - CHAR #$ ilmaisee valitun merkin POKE- poodin heksana
  83.  
  84. - nuoli osoittaa valittua merkki[, jonkasuurennos on n[ht[viss[ ruudun yl[lai-  dassa
  85.  
  86. - laatikossa nuolen alla n[kyy valittua merkki[ vastaava standarmerkki, joka ei muutu, vaikka sit[ vastaava merkki m[[- ritelt[isiinkin uudelleen
  87.  
  88. - vasemmassa yl[nurkassa merkinm[[rit-  telyruudukko 8x8
  89.  
  90. - merkkivalikoimarivin yl[puolella oh-  jelma
  91.  
  92. - alalaidassa merkkivalot (ks. teksti)
  93.  
  94.  
  95.  
  96.  
  97.  Lyhennelm[ komennoista:
  98.  
  99.  
  100. a <return>        k[ynnist[ ohjelma
  101. a hex chr nn      aja ohjelma $nn kertaacd                symmetria alhaalta
  102.                   yl\s
  103. cl                symmetria vasemmalta
  104.                   oikealle
  105. cr                symmetria oikealta
  106.                   vasemmalle
  107. cu                symmetria ylh[[lt[
  108.                   alas
  109. dw                laajenna merkin sa-
  110.                   rakkeet 2, 3, 4 ja 5
  111.                   x-suunnassa
  112. dh                laajenna merkin rivit                   2, 3, 4 ja 5 y-suun-                    nassa
  113. e1  hex chr n     aseta laitenumero
  114. e2  name          aseta tiedoston nimi  e3                lataa merkit
  115. e4  hex addr mmmm talleta merkit, levyl-                  le alkuosoitteeksi                      $mmmm
  116. e5                lataa ohjelma
  117. e6                talleta ohjelma
  118. f                 k[[nn[ merkki yl\s-
  119.                   alaisin
  120. g                 ota merkki ruudukkoon i                 reverse (vaihda kaikki                  pikselit)
  121. j  hex byte nn    siirry merkkiin $nn
  122. l  crsr key       piirr[ viiva kursorin                   paikasta annettuun
  123.                   suuntaan
  124. m                 peilaa merkki         p                 siirr[ merkki ruudu-                    kosta valikoimaan
  125. r                 py\rit[ merkki[ 90
  126.                   astetta my\t[p[iv[[n  s  crsr key(s)    vierit[ merkki[       t                 kokeilumoodi
  127. u  (ohjelmassa)   pys[yt[ ohjelma ja
  128.                   salli k[ytt[j[n antaa                   komentoja, kunnes
  129.                   <RETURN>
  130. wc                aseta ikkunan kulma
  131. wg                talleta ikkuna
  132.                   muistiin
  133. wp                siirr[ ikkuna muis-
  134.                   tista ruudukkoon
  135. ws  crsr key(s)   ikkunan vieritys      wo                aseta wp:n OR-toimin-                   nolle
  136. wm                vaihda wp:n tilaa
  137.                   (OR/EOR)
  138. z  hex chr n      hypp[[ merkkisarjaan
  139.                   $n
  140. ,                 siirry luettelossa
  141.                   vasemmalle
  142. .                 siirry luettelossa
  143.                   oikealle
  144. :                 siirry ohjelmassa
  145.                   vasemmalle
  146.                   (ohjelmointitila)
  147. ;                 siirry ohjelmassa
  148.                   oikealle (ohjelmointi-                  tila)
  149. _                 siirry ohjelman alkuun+ hex byte nn     siirry luettelossa
  150.                   $nn oikealle
  151. - hex byte nn     siirry luettelossa
  152.                   $nn vasemmalle
  153. <SPACE>           aseta/poista piste
  154. <HOME>            kursori kotiin
  155. <CLR>             tyhjent[[ ruudukon
  156. <CRSR KEYS>       liikuta kursoria
  157. SHIFT+d           ohjelmointi p[[lle/
  158.                   pois
  159. SHIFT+p           demonstrointi p[[lle/                   pois
  160. CTRL+d            tuhoa ohjelma
  161. CTRL+x            palaa BASICiin
  162. <STOP>            keskeytt[[ ohjelman                     suorituksen
  163. @                 ilmoittaa ohjelman
  164.                   lopun
  165.  
  166.  
  167. Kiinnostuneille tiedoksi: Ohjelma k[yt- t[[ keskeytyspohjaista rutiinia vaihta- maan mm. ruudun v[ri[ ja merkkivalikoi- maa. N[in on mahdollistettu kaikkien 256merkin m[[ritteleminen, koska yht[[n    merkki[ ei kulu alkuper[isten malliksi  eik[ ohjelman omaan k[ytt\\n. Ohjelma   muuttaa itse[[n ajon aikana, joten tal- leta se ensin esim. levylle ja aja vastasitten!
  168.  
  169. ----------------------------------------
  170.