home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 31 / 64er_Magazin_Sonderheft_31_19xx_Markt__Technik_de.d64 / sprachentwickl. (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  38 lines
  1. 1 print"[147]sp 0256 demo"
  2. 9 rem*****demo codes*****
  3. 10 data 43,19,39,30,0
  4. 11 data 46,24,11,2
  5. 12 data 13,30,30,2
  6. 13 data 55,39,19,2
  7. 14 data 40,58,2
  8. 15 data 40,15,15,20,40,40,2
  9. 16 data 55,12,8,55,2
  10. 17 data 55,7,40,7,11,2
  11. 18 data 26,19,13,2
  12. 19 data 56,6,11,2
  13. 20 rem*****demo talk*****
  14. 21 data145,254,136,208,249,230,255,165,255,221,95,3,208,238,202
  15. 22 data16,230,96,160,224,192,0,160,2,169,0,170,133,254,177
  16. 23 data95,240,40,201,32,208,3,200,208,245,133,255,138,41,7
  17. 24 data170,240,14,72,165,255,24,42,105,0,202,208,249,133,255
  18. 25 for d=1 to 46:read a:poke 56855,a:gosub 200:next
  19. 26 data48,219,198,214,165,214,72,162,3,169,32,157,1,4,189
  20. 27 data212,228,32,210,255,208,12,0,92,72,32,201,255,170,104
  21. 28 rem***********************
  22. 29 rem*****user programm*****
  23. 30 print"[147]phonem code eingeben und mit <0> abschliessen":print:print
  24. 31 forq=1ton:printpeek(825+q);:next:n=0:print:print:print:print
  25. 39 rem*****user codes to memory*****
  26. 40 input ph:n=n+1:poke 825+n,ph:if ph>0 then 40
  27. 50 print"[147]sprechen       <s>"
  28. 51 print"neue codes     <n>
  29. 55 [161] a$:[139] a$[178]""[167]55
  30. 56 [139] a$[178]"n" [167] 30
  31. 60 [141] 300:[137]50
  32. 199 [143]*****sp ready??*****
  33. 200 a[178][194](56855)[175] 1
  34. 210 [139] a[178]0 [167] 200
  35. 220 [142]
  36. 299 [143]*****talk user codes*****
  37. 300 [129] q[178]1 [164] n:[151] 56855,[194](825[170]q):[141] 200:[130]:[142]
  38.