home *** CD-ROM | disk | FTP | other *** search
/ Digital Talk 67 / Digital_Talk_67_2004-06-30_Digital_Talk_de_Side_B.d64 / !kahateinget01 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  103 lines
  1. 8 print"[147]":poke53280,5:poke53281,11:poke646,15:gosub11:goto110
  2. 11 q$="kahateinget":qv$="01":qt$=q$+qv$:qd$="060504":return
  3. 12 gosub11:print"g-a 8/9?[145]":getq:on-(q<>8andq<>9)goto12:return
  4. 18 gosub12:print"   g-a"q"[145]":open15,q,15,"s:"+qt$:close15:saveqt$,q:end
  5. 61 cy=int(c/100):cx=c-(cy*100)
  6. 62 poke211,cx:poke214,cy:sys58640:return
  7. 68 lc=int(l/100):ll=l-(lc*100)
  8. 69 foru=lctoll:poke781,u:sys59903:next:return
  9. 70 e0$="":el=0
  10. 71 gosub61:e$="":on-(el=em)goto72:printchr$(164);
  11. 72 gete$:on-(e$<>"")goto73:print"[157]":goto71
  12. 73 on-(e$=chr$(13))-2*(e$=chr$(20))goto81,78
  13. 74 ife$<chr$(32)ore$>chr$(95)then71
  14. 75 el=el+1:ifel>emthen77
  15. 76 print"[157]"e$:e0$=e0$+e$:c=c+1:goto71
  16. 77 el=em:print" ":goto71
  17. 78 print"[157] ":el=el-1:ifel<0thenel=0:goto80
  18. 79 c=c-1
  19. 80 e0$=left$(e0$,el):goto71
  20. 81 gosub61:print" ":return
  21. 100 rem ---programmablauf---
  22. 110 gosub9002:gosub9102:gosub9012
  23. 112 l=624:gosub68:c=600:gosub61
  24. 114 gosub9132:gosub9012
  25. 116 l=624:gosub68:c=600:gosub61
  26. 118 gosub9162:gosub9012:print"[147]"
  27. 120 em=35:c=302
  28. 122 gosub70:gosub510
  29. 130 gosub9002:c=700:gosub61
  30. 132 gosub9172:gosub9012
  31. 134 l=624:gosub68:c=600:gosub61
  32. 136 gosub9202:gosub9012:stop
  33. 140 gosub70:gosub510
  34. 142 gosub9002:c=700:gosub61
  35. 144 gosub9208:gosub9016
  36. 150 gosub70:gosub510
  37. 152 goto142
  38. 499 stop
  39. 510 l=2024:gosub68:c=2002:gosub61
  40. 512 print"[155]als text wurde eingegeben:"
  41. 514 print""e0$:goto9012
  42. 9000 rem ---titel---
  43. 9002 print"[147][158][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  44. 9004 printtab(5)"[221] [153]eingaberoutine[158]  von kahate [221]"
  45. 9006 printtab(5)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]":return
  46. 9010 rem ---auf taste warten---
  47. 9012 l=2424:gosub68:c=2412:gosub61
  48. 9014 print"[158]weiter mit taste[145][145][145][145][155]"
  49. 9016 poke198,0:wait198,1:poke198,0
  50. 9018 l=2424:gosub68:return
  51. 9100 rem ---erklaerungstexte---
  52. 9102 c=600:gosub61
  53. 9104 print"[155]hallo quakeli,"
  54. 9106 print"fuer dich  habe  ich  eine  basic-"
  55. 9108 print"eingaberoutine  ohne  input-befehl"
  56. 9110 print"geschrieben."
  57. 9112 print"du  wolltest   eine   kleine   und"
  58. 9114 print"schnelle routine, die trotz  allem"
  59. 9116 print"eine ganze menge vorgaben erfuellt"
  60. 9118 print"und die mit variablen arbeitet."
  61. 9120 print"gut, du sollst nun so eine routine"
  62. 9122 print"haben.   aber ganz so kurz, wie du"
  63. 9124 print"sie  dir   vielleicht  vorgestellt"
  64. 9126 print"hast,  laesst sich  das  in  basic"
  65. 9128 print"leider doch nicht verwirklichen.":return
  66. 9132 print"die  eingaberoutine  befindet sich"
  67. 9134 print"am  programmanfang  in den  zeilen"
  68. 9136 print"nr. 70 mit 81."
  69. 9138 print"vor dem aufruf der eingabe-routine"
  70. 9140 print"sind als parameter vorzugeben:"
  71. 9142 print"maximale  [158]eingabe-laenge[155]  in  [153]em"
  72. 9144 print"[155]die   [158]bildschirmposition[155]   in  [153]c"
  73. 9146 print"[155]der aufruf der eingabe-routine in-"
  74. 9148 print"nerhalb des programms erfolgt also"
  75. 9150 print"z.b. mit der befehlszeile:"
  76. 9152 printtab(8)"[158]120 em=35:c=602:gosub70":return
  77. 9162 print"[155]es kann  jeder beliebige text ein-"
  78. 9164 print"gegeben werden."
  79. 9166 print"nach diesem bildschirm geht's los!":return
  80. 9172 print"[155]es  sind  selbstverstaendlich auch"
  81. 9174 print"andere  eingabe-laengen  und -orte"
  82. 9176 print"moeglich."
  83. 9178 print"dazu muessen nur  die variable  [153]em"
  84. 9180 print"[155]und die variable [153]c[155]  fuer die posi-"
  85. 9182 print"tionierung  des cursors eingegeben"
  86. 9184 print"werden."
  87. 9186 print"die  variable  [153]c[155]  wird zusammenge-"
  88. 9188 print"setzt aus den  angaben fuer  zeile"
  89. 9190 print"und spalte der cursor-position."
  90. 9192 print"zeile 21 spalte 8 wird also ausge-"
  91. 9194 print"drueckt durch:"
  92. 9196 printtab(20)"[153]c=2108":return
  93. 9202 print"also, auf geht's!":p0$="print"+chr$(34)+chr$(147)+chr$(34)
  94. 9204 print"im direktmodus folgendes eingeben:"
  95. 9206 print"[158]"p0$":em=16:c=1220:goto140"
  96. 9207 return
  97. 9208 print"[155]fuer  jeden  weiteren test einfach"
  98. 9210 print"die stoptaste druecken, den screen"
  99. 9212 print"loeschen und direkt eingeben:"
  100. 9214 printtab(9)"[158]em=...:c=....:goto150"
  101. 9216 printtab(9)"[144]recht viel spass [144]dabei[155]"
  102. 9299 return
  103.