Prithak

QB64!!!

Nov 7th, 2018
221
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.72 KB | None | 0 0
  1. OPEN "program.txt" FOR INPUT AS #1
  2. OPEN "compile.txt" FOR OUTPUT AS #2
  3. DO WHILE NOT EOF(1)
  4. INPUT #1, line$
  5. IF LEFT$(line$, 7) = "include" THEN
  6. PRINT "Read command: "; line$
  7. PRINT "Performing Action..."
  8. include$ = MID$(line$, 9, LEN(line$))
  9. PRINT #2, "'$include: '" + include$ + "'"
  10. PRINT "Done..."
  11. ELSEIF LEFT$(line$, 7) = "display" THEN
  12. PRINT "Read command: "; line$
  13. PRINT "Performing Action..."
  14. PRINT #2, "PRINT " + MID$(line$, 9, LEN(line$))
  15. ELSE
  16. PRINT "Some other stuff found..."
  17. PRINT "Doing some processing..."
  18. PRINT #2, line$
  19. END IF
  20. LOOP
  21. CLOSE #1
  22. SHELL "qb64 -x compile.txt"
  23. SHELL "compile.exe"
Advertisement
Add Comment
Please, Sign In to add comment