home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 65 / 64er_Magazin_Sonderheft_65_19xx_Markt__Technik_de_Side_A.d64 / adresse 203 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  1.4 KB  |  43 lines
  1. 4 dimd$(64)
  2. 5 fori=1to38:ln$=ln$+chr$(192):next
  3. 6 fori=0to64:readd$(i):next
  4. 10 printchr$(147)chr$(14)
  5. 20 print"[211]peicherstelle 203 enthaelt den"
  6. 30 print"[195]ode der aktuell gedrueckten [212]aste."
  7. 40 print"[196]iese [215]erte sind jedoch nicht mit den"
  8. 50 print"[194]ildschirm- und [193][211][195][201][201]-[215]erten identisch!":print
  9. 60 printtab(13)"<[195]> [195]odetabelle"
  10. 70 printtab(13)"<[196]> [196]emo"
  11. 75 printtab(13)"<[197]> [197]nde"
  12. 80 gett$
  13. 85 ift$="c"then1010
  14. 86 ift$="d"then2000
  15. 87 ift$="e"thenprintchr$(147):end
  16. 88 goto80
  17. 1010 x=1:y=16:gosub3500
  18. 1020 x=17:y=32:gosub3500
  19. 1030 x=33:y=48:gosub3500
  20. 1040 x=49:y=64:gosub3500
  21. 2000 print:print"  ([212]astaturabfrage beenden mit <[198]1>!)":print
  22. 2001 print"[211]olange man die [212]aste gedrueckt haelt,"
  23. 2002 print"erscheint rechts unten der [212]astencode!"
  24. 2003 print">>64<< bedeutet: keine [212]aste gedrueckt!"
  25. 2009 poke211,5:poke214,18:sys58640:getc$:printc$;
  26. 2010 ifc$=chr$(13)thenprint"[145][145]"
  27. 2011 ifc$="[133]"thenend
  28. 2012 ifc$="[145]"thenprint"";
  29. 2013 ifc$=""thenprint"[145][145]"
  30. 2019 printtab(22)"[208][197][197][203](203)=    [157][157][157][157]"peek(203);
  31. 2020 goto2009
  32. 3000 data<inst/del>,<return>,<crsr links/rechts>,<f7>,<f1>,<f3>,<f5>
  33. 3002 data<crsr auf/ab>,<3> <#>,<w>,<a>,<4> <$>,<z>,<s>,<e>,,<5> <%>,<r>,<d>
  34. 3003 data<6> <&>,<c>,<f>,<t>,<x>,<7> <'>,<y>,<g>,<8> <(>,<b>,<h>,<u>,<v>,<9> <)>
  35. 3004 data<i>,<j>,<0>,<m>,<k>,<o>,<n>,<+>,<p>,<l>,<->,<.> <>>,"<:> <[>",<@>
  36. 3005 data"<,> <<>",<\>,<*>,<;> <]>,<clr/home>,,<=>,<^> <pi>
  37. 3006 data<?> </>,<1> <!>,<_>,,<2> <">,<space>,,<q>,<run/stop>,keine taste
  38. 3500 [141]5000:[129]i[178]x[164]y:[153]i;[163]20)d$(i):[130]:[141]4000:[142]
  39. 4000 [153]:[153][163]30)" (NULL)aste "
  40. 4010 [151]198,0:[146]198,1:[153][199](147):[142]
  41. 5000 [153][199](147)"len(NULL)str$val (NULL)atnpeekval(NULL)(NULL)val zu atndresse 203":[153]ln$
  42. 5002 [153]"(NULL)valval(NULL) (203)"[163]20)"(NULL)aste ":[153]ln$:[142]
  43.