home *** CD-ROM | disk | FTP | other *** search
/ TopWare Tools / TOOLS.iso / tools / top1290 / cpcpd1.dsk / batchdmo < prev    next >
Encoding:
Text File  |  1993-09-07  |  768 b   |  37 lines
  1. mode 2
  2. |BSPEED,20:'langsamer
  3. 2000 ?"Taste druecken ...":call &bb18:return
  4. gosub 2000:'auf Tastendruck warten
  5. |BSPEED,0:'schnell
  6. 1000 rem Batch-Demo
  7. 1001 rem Marco Vieth, 1.3.1991
  8. 1002 rem
  9. 1003 clear:defint a-z
  10. 1004 ?"Dies ist die Batch-Demo"
  11. 1005 ?
  12. 1006 ?"Dieser Text wird vom Batch-File eingelesen: ";:input t$
  13. 1007 ?"Eingabe: ";t$
  14. 1008 ?"Ende des Programms.":end
  15. |BSPEED,50:'langsamer
  16. run 1000
  17. eingegebener Text
  18. gosub 2000
  19. |BSPEED,200;sehr langsam
  20. cls
  21. 1008 rem Zeile ueberschreiben
  22. |bspeed,20
  23. 1009 gosub 2000:'auf Taste warten
  24. 1010 for i=1 to 10:?t$:next
  25. 1011 ?"End of program."
  26. 1012 end
  27. |BSPEED,50
  28. run 1000
  29. Blablabla Hahaha
  30. tron
  31. run 1001
  32. Der letzte Test
  33. troff
  34. 'Ich hoer auf
  35. urn
  36. gosub 2000:'auf Tastendruck warten
  37. |BSPEED,0:'schn