home *** CD-ROM | disk | FTP | other *** search
- 1 rem ************************
- 2 rem * "techno prob" by jrf *
- 3 rem ************************
- 4 :
- 5 open 15,8,15, "u0>"+chr$(10): close 15
- 6 open 15,9,15, "u0>"+chr$(8): close 15
- 7 open 15,10,15,"u0>"+chr$(9): close 15
- 8 for d=8 to 9: open 15,d,15,"i0"
- 9 close 15: next
-